# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1159470010 0
# Node ID 645da5a91b56b196a79cb2c2e535949f72527818
# Parent  6f8deac73242eacabd9cfbac046dfd86783ffb02
(Fdefine_key): Yet another int/Lisp_Object mixup (YAILOM).

diff -r 6f8deac73242 -r 645da5a91b56 src/ChangeLog
--- a/src/ChangeLog	Thu Sep 28 18:45:58 2006 +0000
+++ b/src/ChangeLog	Thu Sep 28 19:00:10 2006 +0000
@@ -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 -r 6f8deac73242 -r 645da5a91b56 src/keymap.c
--- a/src/keymap.c	Thu Sep 28 18:45:58 2006 +0000
+++ b/src/keymap.c	Thu Sep 28 19:00:10 2006 +0000
@@ -1156,7 +1156,7 @@
 
   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);