Mercurial > emacs

changeset 3677:597bde558c91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read_char): Set c properly as a Lisp int. (command_loop_1): Delete spurious use of XINT on c, a char.
author Richard M. Stallman <rms@gnu.org>
date Sat, 12 Jun 1993 07:26:16 +0000
parents 5160a6967f80
children 01941fa99c91
files src/keyboard.c
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/keyboard.c	Sat Jun 12 07:22:20 1993 +0000
+++ b/src/keyboard.c	Sat Jun 12 07:26:16 1993 +0000
@@ -1097,7 +1097,7 @@
 		    || !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 @@
 		    {
 		      struct Lisp_Vector *dp
 			= window_display_table (XWINDOW (selected_window));
-		      int lose = XINT (c);
+		      int lose = c;
 
 		      if (dp)
 			{
@@ -1510,7 +1510,7 @@
       /* 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: