/[emacs]/emacs/src/keyboard.c
ViewVC logotype

Diff of /emacs/src/keyboard.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.659.2.3 by fx, Fri May 24 15:30:35 2002 UTC revision 1.659.2.4 by handa, Tue Aug 20 08:20:31 2002 UTC
# Line 8959  read_key_sequence (keybuf, bufsize, prom Line 8959  read_key_sequence (keybuf, bufsize, prom
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;
# Line 8972  read_key_sequence (keybuf, bufsize, prom Line 8971  read_key_sequence (keybuf, bufsize, prom
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

Legend:
Removed from v.1.659.2.3  
changed lines
  Added in v.1.659.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26