diff options
| author | Richard M. Stallman | 1993-11-20 05:17:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-11-20 05:17:44 +0000 |
| commit | 398b666f479a3fdb709d735a664ecfcf0b91e2d7 (patch) | |
| tree | ab8cb53c9c7155bbd31e42c49c830e36be2e4853 | |
| parent | 3b9189f8319fe1b588c4b90a65a3542f1d344219 (diff) | |
| download | emacs-398b666f479a3fdb709d735a664ecfcf0b91e2d7.tar.gz emacs-398b666f479a3fdb709d735a664ecfcf0b91e2d7.zip | |
(follow_key): When downcasing, downcase just the
basic part of the character, and preserve the modifier bits.
| -rw-r--r-- | src/keyboard.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index e79c64bfd55..e7e58365491 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -3659,7 +3659,8 @@ follow_key (key, nmaps, current, defs, next) | |||
| 3659 | if (XINT (key) & shift_modifier) | 3659 | if (XINT (key) & shift_modifier) |
| 3660 | XSETINT (key, XINT (key) & ~shift_modifier); | 3660 | XSETINT (key, XINT (key) & ~shift_modifier); |
| 3661 | else | 3661 | else |
| 3662 | XSETINT (key, DOWNCASE (XINT (key))); | 3662 | XSETINT (key, (DOWNCASE (XINT (key) & 0x3ffff) |
| 3663 | | (XINT (key) & ~0x3ffff))); | ||
| 3663 | 3664 | ||
| 3664 | first_binding = nmaps; | 3665 | first_binding = nmaps; |
| 3665 | for (i = nmaps - 1; i >= 0; i--) | 3666 | for (i = nmaps - 1; i >= 0; i--) |