summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/keyboard.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/keyboard.c b/src/keyboard.c
index 3e8a522a073..09305ff1451 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -2093,7 +2093,10 @@ make_lispy_event (event)
if ((event->modifiers & ctrl_modifier)
&& c >= 040)
c |= ctrl_modifier;
- if (XFASTINT (event->code) < 040
+ /* Set the shift modifier for a control char
+ made from a shifted letter. But only for letters! */
+ if (XFASTINT (event->code) >= 'A' - 0100
+ && XFASTINT (event->code) <= 'Z' - 0100
&& (event->modifiers & shift_modifier))
c |= shift_modifier;
c |= (event->modifiers