# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1152710355 0
# Node ID 838fd2b04ce05ddbd8b9c3bead0a83b03c08b178
# Parent  838f4260201e771aae921a9e49f43b7b6865eecc
(Fdefine_key, Flookup_key): Use CHECK_VECTOR_OR_STRING.

diff -r 838f4260201e -r 838fd2b04ce0 src/keymap.c
--- a/src/keymap.c	Wed Jul 12 13:19:04 2006 +0000
+++ b/src/keymap.c	Wed Jul 12 13:19:15 2006 +0000
@@ -1138,8 +1138,7 @@
   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 @@
   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)