Mercurial > emacs
changeset 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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 26 Jul 1993 05:34:46 +0000 |
| parents | 8407cf00af85 |
| children | f705c18c410d |
| files | src/keyboard.c |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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) ");