8959 |
if (first_binding == nmaps && ! function_key_possible |
if (first_binding == nmaps && ! function_key_possible |
8960 |
&& ! key_translation_possible |
&& ! key_translation_possible |
8961 |
&& INTEGERP (key) |
&& INTEGERP (key) |
8962 |
&& ((((XINT (key) & 0x3ffff) |
&& ((CHARACTERP (XINT (key) & ~CHAR_MODIFIER_MASK) |
8963 |
< XCHAR_TABLE (current_buffer->downcase_table)->size) |
&& UPPERCASEP (XINT (key) & ~CHAR_MODIFIER_MASK)) |
|
&& UPPERCASEP (XINT (key) & 0x3ffff)) |
|
8964 |
|| (XINT (key) & shift_modifier))) |
|| (XINT (key) & shift_modifier))) |
8965 |
{ |
{ |
8966 |
Lisp_Object new_key; |
Lisp_Object new_key; |
8971 |
if (XINT (key) & shift_modifier) |
if (XINT (key) & shift_modifier) |
8972 |
XSETINT (new_key, XINT (key) & ~shift_modifier); |
XSETINT (new_key, XINT (key) & ~shift_modifier); |
8973 |
else |
else |
8974 |
XSETINT (new_key, (DOWNCASE (XINT (key) & 0x3ffff) |
XSETINT (new_key, (DOWNCASE (XINT (key) & ~CHAR_MODIFIER_MASK) |
8975 |
| (XINT (key) & ~0x3ffff))); |
| (XINT (key) & CHAR_MODIFIER_MASK))); |
8976 |
|
|
8977 |
/* We have to do this unconditionally, regardless of whether |
/* We have to do this unconditionally, regardless of whether |
8978 |
the lower-case char is defined in the keymaps, because they |
the lower-case char is defined in the keymaps, because they |