Commit 140c4ac6 authored by Ken Raeburn's avatar Ken Raeburn

* keyboard.c (follow_key, read_key_sequence): Use XUINT on key value, or checks

for CHAR_META will fail.
* keymap.c (get_keyelt): Likewise.
parent aaaf0b1e
No preview for this file type
......@@ -8192,7 +8192,7 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last,
key = keybuf[fkey_end++];
/* Look up meta-characters by prefixing them
with meta_prefix_char. I hate this. */
if (INTEGERP (key) && XINT (key) & meta_modifier)
if (INTEGERP (key) && XUINT (key) & meta_modifier)
{
fkey_next
= get_keymap_1
......@@ -8316,7 +8316,7 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last,
key = keybuf[keytran_end++];
/* Look up meta-characters by prefixing them
with meta_prefix_char. I hate this. */
if (INTEGERP (key) && XINT (key) & meta_modifier)
if (INTEGERP (key) && XUINT (key) & meta_modifier)
{
keytran_next
= get_keymap_1
......
......@@ -625,7 +625,7 @@ get_keyelt (object, autoload)
{
Lisp_Object key;
key = Fcdr (object);
if (INTEGERP (key) && (XINT (key) & meta_modifier))
if (INTEGERP (key) && (XUINT (key) & meta_modifier))
{
object = access_keymap (map, meta_prefix_char, 0, 0);
map = get_keymap_1 (object, 0, autoload);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment