# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 783455628 0
# Node ID 129ec4acc4ff747a06c5319818059a54acb43d0a
# Parent  ca139ac056a181a6583d4d34bc109d6671c9dbd0
(read_avail_input): Fix Lisp_Object vs. int problem.

diff -r ca139ac056a1 -r 129ec4acc4ff src/keyboard.c
--- a/src/keyboard.c	Sat Oct 29 12:43:53 1994 +0000
+++ b/src/keyboard.c	Sat Oct 29 18:33:48 1994 +0000
@@ -3672,8 +3672,8 @@
 	    buf[i].modifiers = meta_modifier;
 	  if (meta_key != 2)
 	    cbuf[i] &= ~0x80;
-	    
-	  XSETINT (buf[i].code, cbuf[i]);
+
+	  buf[i].code = cbuf[i];
 #ifdef MULTI_FRAME
 	  XSETFRAME (buf[i].frame_or_window, selected_frame);
 #else