From 16747e037d9e305a19b790ceddf3618e86fd8a4c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 20 Aug 2002 08:20:31 +0000 Subject: [PATCH] (read_key_sequence): Use ~CHAR_MODIFIER_MASK instead of direct code 0x3ffff. --- src/keyboard.c | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/src/keyboard.c b/src/keyboard.c index 48627162ff5..ba1705446ab 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -8959,9 +8959,8 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last, if (first_binding == nmaps && ! function_key_possible && ! key_translation_possible && INTEGERP (key) - && ((((XINT (key) & 0x3ffff) - < XCHAR_TABLE (current_buffer->downcase_table)->size) - && UPPERCASEP (XINT (key) & 0x3ffff)) + && ((CHARACTERP (XINT (key) & ~CHAR_MODIFIER_MASK) + && UPPERCASEP (XINT (key) & ~CHAR_MODIFIER_MASK)) || (XINT (key) & shift_modifier))) { Lisp_Object new_key; @@ -8972,8 +8971,8 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last, if (XINT (key) & shift_modifier) XSETINT (new_key, XINT (key) & ~shift_modifier); else - XSETINT (new_key, (DOWNCASE (XINT (key) & 0x3ffff) - | (XINT (key) & ~0x3ffff))); + XSETINT (new_key, (DOWNCASE (XINT (key) & ~CHAR_MODIFIER_MASK) + | (XINT (key) & CHAR_MODIFIER_MASK))); /* We have to do this unconditionally, regardless of whether the lower-case char is defined in the keymaps, because they -- 2.11.4.GIT