mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

* keyboard.c (make_ctrl_char): New function.

Browse Source 
(read_char): Call it.
	(kbd_buffer_store_event): Call it to see if the new character is
	the quit character.
This commit is contained in:
Jim Blandy 1993-05-22 07:51:26 +00:00
parent e959badab4
commit faf5e40769
1 changed files with 33 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
src/keyboard.c
View File

@ -1230,6 +1230,35 @@ stop_polling ()
}
#endif
}
/* Applying the control modifier to CHARACTER. */
int
make_ctrl_char (c)
int c;
{
/* If it's already a control character, don't mess with it. */
if ((c & 0160) == 0)
;
/* Making ? a control character should result in DEL. */
else if ((c & 0177) == '?')
c |= 0177;
/* ASCII control chars are made from letters (both cases),
as well as the non-letters within 0100...0137. */
else if ((c & 0137) >= 'A' && (c & 0137) <= 'Z')
c = (c & (037 | ~0177));
else if ((c & 0177) >= 0100 && (c & 0177) <= 0137)
c = (c & (037 | ~0177));
/* Anything else must get its high control bit set. */
else
c = c | ctrl_modifier;
return c;
}
/* Input of single characters from keyboard */
@ -1462,26 +1491,7 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
if ((extra_keyboard_modifiers & CHAR_CTL)
|| ((extra_keyboard_modifiers & 0177) < ' '
&& (extra_keyboard_modifiers & 0177) != 0))
{
/* If it's already a control character, don't mess with it. */
if ((c & 0177) == 0)
;
/* Making ? a control character should result in DEL. */
else if ((c & 0177) == '?')
c |= 0177;
/* ASCII control chars are made from letters (both cases),
as well as the non-letters within 0100...0137. */
else if ((c & 0137) >= 0101 && (c & 0137) <= 0132)
c = (c & (037 | ~0177));
else if ((c & 0177) >= 0100 && (c & 0177) <= 0137)
c = (c & (037 | ~0177));
/* Anything else must get its high control bit set. */
else
c = c | ctrl_modifier;
}
XSETINT (c, make_ctrl_char (XINT (c)));
/* Transfer any other modifier bits directly from
extra_keyboard_modifiers to c. Ignore the actual character code
@ -1692,6 +1702,9 @@ kbd_buffer_store_event (event)
{
register int c = XFASTINT (event->code) & 0377;
if (event->modifiers & ctrl_modifier)
c = make_ctrl_char (c);
if (c == quit_char)
{
extern SIGTYPE interrupt_signal ();