From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 20 Nov 1993 05:17:44 +0000 (+0000)
Subject: (follow_key): When downcasing, downcase just the
X-Git-Tag: emacs-19.34~10773
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/398b666f479a3fdb709d735a664ecfcf0b91e2d7

(follow_key): When downcasing, downcase just the
basic part of the character, and preserve the modifier bits.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index e79c64bfd5..e7e5836549 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -3659,7 +3659,8 @@ follow_key (key, nmaps, current, defs, next)
       if (XINT (key) & shift_modifier)
 	XSETINT (key, XINT (key) & ~shift_modifier);
       else
-	XSETINT (key, DOWNCASE (XINT (key)));
+	XSETINT (key, (DOWNCASE (XINT (key) & 0x3ffff)
+		       | (XINT (key) & ~0x3ffff)));
 
       first_binding = nmaps;
       for (i = nmaps - 1; i >= 0; i--)