# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739869976 0
# Node ID 597bde558c91c9b1886a91d2f1c4ab98ed98b1f1
# Parent  5160a6967f80d3470623622d897bf7779a8cb3c7
(read_char): Set c properly as a Lisp int.
(command_loop_1): Delete spurious use of XINT on c, a char.

diff -r 5160a6967f80 -r 597bde558c91 src/keyboard.c
--- 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: