Commit 65346ae6 authored by Karl Heuer's avatar Karl Heuer
Browse files

(Fexecute_kbd_macro): Use type test macros.

parent e8e68e49
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment