(Fdefine_key): Yet another int/Lisp_Object mixup (YAILOM).

diff --git a/src/ChangeLog b/src/ChangeLog
index 5f919ffedef750e9a4cd58dfaa07d7157e4d4a6f..909ea7df2a7dab4c755966f53a8065d41f88cfc0 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2006-09-28  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * keymap.c (Fdefine_key): Yet another int/Lisp_Object mixup (YAILOM).
+
 2006-09-26  Chong Yidong  <cyd@stupidchicken.com>
 
        * indent.c (Fvertical_motion): Do move back if the Lisp string

diff --git a/src/keymap.c b/src/keymap.c
index 9b36ec08b6d7b0d656d193c678710193c02257de..1476859ccd5ce345c014171dbf0262b50d9d4022 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1156,7 +1156,7 @@ binding KEY to DEF is added at the front of KEYMAP.  */)
 
   meta_bit = VECTORP (key) ? meta_modifier : 0x80;
 
-  if (VECTORP (def) && ASIZE (def) > 0 && CONSP (AREF (def, make_number (0))))
+  if (VECTORP (def) && ASIZE (def) > 0 && CONSP (AREF (def, 0)))
     { /* DEF is apparently an XEmacs-style keyboard macro.  */
       Lisp_Object tmp = Fmake_vector (make_number (ASIZE (def)), Qnil);
       int i = ASIZE (def);