# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1101186489 0
# Node ID 277e7a013eb63015086efb7a6158c482fcf1f526
# Parent  377948a6af9aa5f964efd2a33feaa217c5c4e5b5
(Flookup_key): Check INTEGERP before XINT.

diff -r 377948a6af9a -r 277e7a013eb6 src/keymap.c
--- a/src/keymap.c	Tue Nov 23 05:06:56 2004 +0000
+++ b/src/keymap.c	Tue Nov 23 05:08:09 2004 +0000
@@ -1240,7 +1240,7 @@
 	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'