procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Fexecute_kbd_macro): Use type test macros.

Browse source
This commit is contained in:
Karl Heuer 1994-09-27 02:25:20 +00:00
parent e8e68e490b
commit 65346ae61f
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/macros.c
View file

@ -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);