1 files changed, 1 insertions, 1 deletions

diff --git a/src/keyboard.c b/src/keyboard.c
index 2acf6aaa3cc..16b9006b15f 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -10105,7 +10105,7 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last,
             XSETINT (new_key, XINT (key) & ~shift_modifier);
           else
             XSETINT (new_key, (DOWNCASE (XINT (key) & ~CHAR_MODIFIER_MASK)
-                               | (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