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

(Fdefine_key, Flookup_key): Use CHECK_VECTOR_OR_STRING.
---

diff --git a/src/keymap.c b/src/keymap.c
index ecc2f7b2944..6f57bd63376 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1138,8 +1138,7 @@ binding KEY to DEF is added at the front of KEYMAP.  */)
   GCPRO3 (keymap, key, def);
   keymap = get_keymap (keymap, 1, 1);
 
-  if (!VECTORP (key) && !STRINGP (key))
-    key = wrong_type_argument (Qarrayp, key);
+  CHECK_VECTOR_OR_STRING (key);
 
   length = XFASTINT (Flength (key));
   if (length == 0)
@@ -1249,8 +1248,7 @@ recognize the default bindings, just as `read-key-sequence' does.  */)
   GCPRO2 (keymap, key);
   keymap = get_keymap (keymap, 1, 1);
 
-  if (!VECTORP (key) && !STRINGP (key))
-    key = wrong_type_argument (Qarrayp, key);
+  CHECK_VECTOR_OR_STRING (key);
 
   length = XFASTINT (Flength (key));
   if (length == 0)