Mercurial > emacs
changeset 2867:5b72eb2483e7
* xterm.c (XTread_socket): Turn off ControlMask for XLookupString.
* keyboard.c (make_lispy_event): Controlify here.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 18 May 1993 22:24:14 +0000 |
| parents | 48ddb3600ae6 |
| children | 998ec1083f3d |
| files | src/keyboard.c |
| diffstat | 1 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Tue May 18 22:15:14 1993 +0000 +++ b/src/keyboard.c Tue May 18 22:24:14 1993 +0000 @@ -2090,11 +2090,16 @@ case ascii_keystroke: { int c = XFASTINT (event->code); - /* Include the bits for control and shift - only if the basic ASCII code can't indicate them. */ - if ((event->modifiers & ctrl_modifier) - && c >= 040) - c |= ctrl_modifier; + /* Turn ASCII characters into control characters + when proper. */ + if (event->modifiers & ctrl_modifier) + { + if (c >= 0100 && c < 0140) + c &= ~040; + /* Include the bits for control and shift + only if the basic ASCII code can't indicate them. */ + c |= ctrl_modifier; + } /* Set the shift modifier for a control char made from a shifted letter. But only for letters! */ if (XFASTINT (event->code) >= 'A' - 0100