# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1144506010 0
# Node ID bc9116711ea3faf37c58132c0a161521df39a533
# Parent  89bc86c44d7c3e7aae87945c101c3c9214937767
(describe_map): Don't use XINT if we haven't checked INTEGERP.

diff -r 89bc86c44d7c -r bc9116711ea3 src/keymap.c
--- a/src/keymap.c	Sat Apr 08 14:15:04 2006 +0000
+++ b/src/keymap.c	Sat Apr 08 14:20:10 2006 +0000
@@ -3343,7 +3343,7 @@
       if (INTEGERP (vect[i].event))
 	{
 	  while (i + 1 < slots_used
-		 && XINT (vect[i + 1].event) == XINT (vect[i].event) + 1
+		 && EQ (vect[i+1].event, make_number (XINT (vect[i].event) + 1))
 		 && !NILP (Fequal (vect[i + 1].definition, definition))
 		 && vect[i].shadowed == vect[i + 1].shadowed)
 	    i++;