Mercurial > emacs
changeset 9122:9ba3f17d6631
(Fexecute_kbd_macro): Use type test macros.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 27 Sep 1994 02:25:20 +0000 |
| parents | faecbbbcceb4 |
| children | c225137ddefb |
| files | src/macros.c |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/macros.c Tue Sep 27 02:24:00 1994 +0000 +++ b/src/macros.c Tue Sep 27 02:25:20 1994 +0000 @@ -202,8 +202,7 @@ 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 @@ 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);