X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/aaef169dc63c4b557374540756865991e1bf6305..9d0799072a0d09bc14a99eaf372b262d1ba61399:/src/macros.c

diff --git a/src/macros.c b/src/macros.c
index ef3ff8c052..40fb429d41 100644
--- a/src/macros.c
+++ b/src/macros.c
@@ -1,6 +1,6 @@
 /* Keyboard macros.
    Copyright (C) 1985, 1986, 1993, 2000, 2001, 2002, 2003, 2004,
-                 2005, 2006 Free Software Foundation, Inc.
+                 2005, 2006, 2007 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -97,10 +97,7 @@ macro before appending to it. */)
       int cvt;
 
       /* Check the type of last-kbd-macro in case Lisp code changed it.  */
-      if (!STRINGP (current_kboard->Vlast_kbd_macro)
-	  && !VECTORP (current_kboard->Vlast_kbd_macro))
-	current_kboard->Vlast_kbd_macro
-	  = wrong_type_argument (Qarrayp, current_kboard->Vlast_kbd_macro);
+      CHECK_VECTOR_OR_STRING (current_kboard->Vlast_kbd_macro);
 
       len = XINT (Flength (current_kboard->Vlast_kbd_macro));