# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 804677895 0
# Node ID 5518def44198c220eae0e7fff80e9092e5ee8791
# Parent  eb436b0c4ab3ab6a5fb221aea0bac08a573ea130
(read_char): Temporarily clear Vquit_flag
while checking Vspecial_event_map.

diff -r eb436b0c4ab3 -r 5518def44198 src/keyboard.c
--- a/src/keyboard.c	Sun Jul 02 08:34:02 1995 +0000
+++ b/src/keyboard.c	Sun Jul 02 09:38:15 1995 +0000
@@ -1649,7 +1649,7 @@
   jmp_buf local_getcjmp;
   jmp_buf save_jump;
   int key_already_recorded = 0;
-  Lisp_Object tem;
+  Lisp_Object tem, save;
   Lisp_Object also_record;
   also_record = Qnil;
 
@@ -2028,8 +2028,11 @@
 
   /* Process special events within read_char
      and loop around to read another event.  */
+  save = Vquit_flag;
+  Vquit_flag = Qnil;
   tem = get_keyelt (access_keymap (get_keymap_1 (Vspecial_event_map, 0, 0),
 				   c, 0, 0), 1);
+  Vquit_flag = save;
 
   if (!NILP (tem))
     {