Mercurial > emacs

comparison src/keyboard.c @ 2756:5fb491f14ee2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make_lispy_event): Don't set shift modifier for C-^.
author Richard M. Stallman <rms@gnu.org>
date Thu, 13 May 1993 00:21:23 +0000
parents 954251d0fbd1
children 6ec57c1558da
comparison
equal deleted inserted replaced
2755:ed10207955a4 2756:5fb491f14ee2
2091 /* Include the bits for control and shift 2091 /* Include the bits for control and shift
2092 only if the basic ASCII code can't indicate them. */ 2092 only if the basic ASCII code can't indicate them. */
2093 if ((event->modifiers & ctrl_modifier) 2093 if ((event->modifiers & ctrl_modifier)
2094 && c >= 040) 2094 && c >= 040)
2095 c |= ctrl_modifier; 2095 c |= ctrl_modifier;
2096 if (XFASTINT (event->code) < 040 2096 /* Set the shift modifier for a control char
2097 made from a shifted letter. But only for letters! */
2098 if (XFASTINT (event->code) >= 'A' - 0100
2099 && XFASTINT (event->code) <= 'Z' - 0100
2097 && (event->modifiers & shift_modifier)) 2100 && (event->modifiers & shift_modifier))
2098 c |= shift_modifier; 2101 c |= shift_modifier;
2099 c |= (event->modifiers 2102 c |= (event->modifiers
2100 & (meta_modifier | alt_modifier 2103 & (meta_modifier | alt_modifier
2101 | hyper_modifier | super_modifier)); 2104 | hyper_modifier | super_modifier));