diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-09-27 02:25:20 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-09-27 02:25:20 +0000 |
commit | 13505789e70ad7c610ac53c7569e1a011e642565 (patch) | |
tree | a246d98e5ea58c6ebdc4f23ffef2fdab0b311d35 /src/macros.c | |
parent | d7e6730ae89bfc6a9c6e90db6af10641e7a3f1a9 (diff) | |
download | emacs-13505789e70ad7c610ac53c7569e1a011e642565.tar.gz |
(Fexecute_kbd_macro): Use type test macros.
Diffstat (limited to 'src/macros.c')
-rw-r--r-- | src/macros.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/macros.c b/src/macros.c index 540792edae3..6ed3a862865 100644 --- a/src/macros.c +++ b/src/macros.c @@ -202,8 +202,7 @@ COUNT is a repeat count, or nil for once, or 0 for infinite loop.") repeat = XINT (prefixarg); final = indirect_function (macro); - if (XTYPE (final) != Lisp_String - && XTYPE (final) != Lisp_Vector) + if (!STRINGP (final) && !VECTORP (final)) error ("Keyboard macros must be strings or vectors."); XFASTINT (tem) = executing_macro_index; @@ -220,8 +219,8 @@ COUNT is a repeat count, or nil for once, or 0 for infinite loop.") QUIT; } - while (--repeat && (XTYPE (Vexecuting_macro) == Lisp_String - || XTYPE (Vexecuting_macro) == Lisp_Vector)); + while (--repeat + && (STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro))); UNGCPRO; return unbind_to (count, Qnil); |