From b8d9050d7304665260026121b84b783bfc43b24f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 12 Jun 1993 07:26:16 +0000 Subject: [PATCH] (read_char): Set c properly as a Lisp int. (command_loop_1): Delete spurious use of XINT on c, a char. --- src/keyboard.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/keyboard.c b/src/keyboard.c index c192b2070b..822f336b65 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -1097,7 +1097,7 @@ command_loop_1 () || !EQ (current_buffer->selective_display, Qnil) || detect_input_pending () || !NILP (Vexecuting_macro); - if (internal_self_insert (XINT (c), 0)) + if (internal_self_insert (c, 0)) { lose = 1; nonundocount = 0; @@ -1107,7 +1107,7 @@ command_loop_1 () { struct Lisp_Vector *dp = window_display_table (XWINDOW (selected_window)); - int lose = XINT (c); + int lose = c; if (dp) { @@ -1510,7 +1510,7 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu) /* Transfer any other modifier bits directly from extra_keyboard_modifiers to c. Ignore the actual character code in the low 16 bits of extra_keyboard_modifiers. */ - c |= (extra_keyboard_modifiers & ~0xff7f & ~CHAR_CTL); + XSETINT (c, XINT (c) | (extra_keyboard_modifiers & ~0xff7f & ~CHAR_CTL)); } non_reread: -- 2.20.1