# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743664886 0
# Node ID af81ea5c816e8c341c33d749d8c13feee3302e5a
# Parent  8407cf00af85e8345c0f8691028d02988f791cce
(kbd_buffer_store_event): Apply all the modifiers bits
before testing for quit_char and stop_character.  Don't alter
event->code, though.

(interrupt_signal): Tell Fdo_auto_save not to print msg.
Print "Auto-save done" here.

diff -r 8407cf00af85 -r af81ea5c816e src/keyboard.c
--- a/src/keyboard.c	Sun Jul 25 22:36:03 1993 +0000
+++ b/src/keyboard.c	Mon Jul 26 05:34:46 1993 +0000
@@ -445,6 +445,7 @@
 
 static int read_avail_input ();
 static void get_input_pending ();
+static int readable_events ();
 static Lisp_Object read_char_menu_prompt ();
 static Lisp_Object make_lispy_event ();
 static Lisp_Object make_lispy_movement ();
@@ -1748,6 +1749,10 @@
       if (event->modifiers & ctrl_modifier)
 	c = make_ctrl_char (c);
 
+      c |= (event->modifiers
+	    & (meta_modifier | alt_modifier
+	       | hyper_modifier | super_modifier));
+
       if (c == quit_char)
 	{
 	  extern SIGTYPE interrupt_signal ();
@@ -1779,8 +1784,6 @@
 	  sys_suspend ();
 	  return;
 	}
-
-      XSET (event->code, Lisp_Int, c);
     }
 
   if (kbd_store_ptr - kbd_buffer == KBD_BUFFER_SIZE)
@@ -4835,7 +4838,10 @@
       printf ("Auto-save? (y or n) ");
       fflush (stdout);
       if (((c = getchar ()) & ~040) == 'Y')
-	Fdo_auto_save (Qnil, Qnil);
+	{
+	  Fdo_auto_save (Qt, Qnil);
+	  printf ("Auto-save done\n");
+	}
       while (c != '\n') c = getchar ();
 #ifdef VMS
       printf ("Abort (and enter debugger)? (y or n) ");