From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 23 Nov 2004 05:08:09 +0000 (+0000)
Subject: (Flookup_key): Check INTEGERP before XINT.
X-Git-Tag: ttn-vms-21-2-B4~3728
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=38cbfed434294f7b3d3e1ef3598df3f38a57bd54;p=emacs.git

(Flookup_key): Check INTEGERP before XINT.
---

diff --git a/src/keymap.c b/src/keymap.c
index 4062ff34ee9..99883415914 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1240,7 +1240,7 @@ recognize the default bindings, just as `read-key-sequence' does.  */)
 	c = Fevent_convert_list (c);
 
       /* Turn the 8th bit of string chars into a meta modifier.  */
-      if (XINT (c) & 0x80 && STRINGP (key))
+      if (INTEGERP (c) && XINT (c) & 0x80 && STRINGP (key))
 	XSETINT (c, (XINT (c) | meta_modifier) & ~0x80);
 
       /* Allow string since binding for `menu-bar-select-buffer'