From 65346ae61f1df4e7b291e9fb12dd8599712e8a2d Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 27 Sep 1994 02:25:20 +0000 Subject: [PATCH] (Fexecute_kbd_macro): Use type test macros. --- src/macros.c | 7 +++---- 1 file 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); -- 2.39.5