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 | 65346ae61f1df4e7b291e9fb12dd8599712e8a2d (patch) | |
| tree | 5bc35f11d9d6858ce09566a2ed5a8a2848a0b75c /src/macros.c | |
| parent | e8e68e490b703faf7b1431b201b8a07ad97007cf (diff) | |
| download | emacs-65346ae61f1df4e7b291e9fb12dd8599712e8a2d.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); |