diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-13 00:21:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-13 00:21:23 +0000 |
| commit | 1a40d27fa251a6e805355d7f73093155b8e33057 (patch) | |
| tree | c6ab20f473cc8d90322c588e0d5deaa3f6dd311a | |
| parent | 992984b287b0afd9b34e82ee824706c9fa559b0c (diff) | |
| download | emacs-1a40d27fa251a6e805355d7f73093155b8e33057.tar.gz | |
(make_lispy_event): Don't set shift modifier for C-^.
| -rw-r--r-- | src/keyboard.c | 5 |
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 |