(Flookup_key): Check INTEGERP before XINT.

38cbfed4 · Stefan Monnier · 8bc285a2 · 38cbfed4
Commit 38cbfed4 authored Nov 23, 2004 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/keymap.c src/keymap.c +1 -1

No files found.
--- 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'