From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 8 Apr 2006 14:20:10 +0000 (+0000)
Subject: (describe_map): Don't use XINT if we haven't checked INTEGERP.
X-Git-Tag: emacs-pretest-22.0.90~3270
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15fdcac72248d850c39122eceaa322629f195eb0;p=emacs.git

(describe_map): Don't use XINT if we haven't checked INTEGERP.
---

diff --git a/src/keymap.c b/src/keymap.c
index 73022ed2301..fa33fc34bc0 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -3343,7 +3343,7 @@ describe_map (map, prefix, elt_describer, partial, shadow,
       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++;