(Flookup_key): Check INTEGERP before XINT.
authorStefan Monnier <monnier@iro.umontreal.ca>
Tue, 23 Nov 2004 05:08:09 +0000 (05:08 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Tue, 23 Nov 2004 05:08:09 +0000 (05:08 +0000)
src/keymap.c

index 4062ff3..9988341 100644 (file)
@@ -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'