diff src/keyboard.c @ 4282:af81ea5c816e

(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.

--- 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) ");