From: Kim F. Storm <storm@cua.dk>
Date: Wed, 12 Jul 2006 13:19:42 +0000 (+0000)
Subject: (Fstart_kbd_macro): Use CHECK_VECTOR_OR_STRING.
X-Git-Tag: emacs-pretest-22.0.90~1499
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d76592ae1196a4c4990856725ecb51822087da06;p=emacs.git

(Fstart_kbd_macro): Use CHECK_VECTOR_OR_STRING.
---

diff --git a/src/macros.c b/src/macros.c
index ef3ff8c0523..fb452e4e318 100644
--- a/src/macros.c
+++ b/src/macros.c
@@ -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));