# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 738305587 0
# Node ID c2dd834bf82784c91f1a14046a0558d0734cf287
# Parent  b155c80dc2c22f4b3d0f1de60a8639cf070339a8
	* keyboard.c (Fcurrent_input_mode): Use XFASTINT to build the last
	element of the return value, not XSETINT.

diff -r b155c80dc2c2 -r c2dd834bf827 src/keyboard.c
--- a/src/keyboard.c	Tue May 25 04:39:28 1993 +0000
+++ b/src/keyboard.c	Tue May 25 04:53:07 1993 +0000
@@ -4578,7 +4578,7 @@
   val[0] = interrupt_input ? Qt : Qnil;
   val[1] = flow_control ? Qt : Qnil;
   val[2] = meta_key == 2 ? make_number (0) : meta_key == 1 ? Qt : Qnil;
-  XSETINT (val[3], quit_char);
+  XFASTINT (val[3], quit_char);
 
   return Flist (val, sizeof (val) / sizeof (val[0]));
 }