diff options
| author | Richard M. Stallman | 1993-06-13 02:06:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-13 02:06:51 +0000 |
| commit | f7ab4e3d35b16325e4cbf021808fcf41d572065d (patch) | |
| tree | c46c230f7075dc24d1b87ca2818f22671d650dba | |
| parent | 1cd2d6d402d14bde0fb0a6770e9fe7ea3f2c5ff7 (diff) | |
| download | emacs-f7ab4e3d35b16325e4cbf021808fcf41d572065d.tar.gz emacs-f7ab4e3d35b16325e4cbf021808fcf41d572065d.zip | |
(shut_down_emacs): New arg STUFF. Stuff input here.
(Fkill_emacs, fatal_error_signal): Pass new arg.
(main) [GETPGRP_NO_ARG]: Really pass no arg to getpgrp.
| -rw-r--r-- | src/emacs.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/emacs.c b/src/emacs.c index 026d669cf0d..3e18c398f13 100644 --- a/src/emacs.c +++ b/src/emacs.c | |||
| @@ -135,7 +135,7 @@ fatal_error_signal (sig) | |||
| 135 | { | 135 | { |
| 136 | fatal_error_in_progress = 1; | 136 | fatal_error_in_progress = 1; |
| 137 | 137 | ||
| 138 | shut_down_emacs (sig, 0); | 138 | shut_down_emacs (sig, 0, Qnil); |
| 139 | } | 139 | } |
| 140 | 140 | ||
| 141 | #ifdef VMS | 141 | #ifdef VMS |
| @@ -301,7 +301,7 @@ main (argc, argv, envp) | |||
| 301 | #ifdef BSD | 301 | #ifdef BSD |
| 302 | { | 302 | { |
| 303 | #ifdef GETPGRP_NO_ARG | 303 | #ifdef GETPGRP_NO_ARG |
| 304 | inherited_pgroup = getpgrp (0); | 304 | inherited_pgroup = getpgrp (); |
| 305 | #else /* THISSENTENCE_NO_VERB */ | 305 | #else /* THISSENTENCE_NO_VERB */ |
| 306 | inherited_pgroup = getpgrp (0); | 306 | inherited_pgroup = getpgrp (0); |
| 307 | #endif | 307 | #endif |
| @@ -652,7 +652,6 @@ all of which are called before Emacs is actually killed.") | |||
| 652 | /* #ifdef VMS | 652 | /* #ifdef VMS |
| 653 | stop_vms_input (); | 653 | stop_vms_input (); |
| 654 | #endif */ | 654 | #endif */ |
| 655 | stuff_buffered_input (arg); | ||
| 656 | 655 | ||
| 657 | shut_down_emacs (0, 0); | 656 | shut_down_emacs (0, 0); |
| 658 | 657 | ||
| @@ -677,9 +676,11 @@ all of which are called before Emacs is actually killed.") | |||
| 677 | 676 | ||
| 678 | This is called by fatal signal handlers, X protocol error handlers, | 677 | This is called by fatal signal handlers, X protocol error handlers, |
| 679 | and Fkill_emacs. */ | 678 | and Fkill_emacs. */ |
| 679 | |||
| 680 | void | 680 | void |
| 681 | shut_down_emacs (sig, no_x) | 681 | shut_down_emacs (sig, no_x, stuff) |
| 682 | int sig, no_x; | 682 | int sig, no_x; |
| 683 | Lisp_Object stuff; | ||
| 683 | { | 684 | { |
| 684 | /* If we are controlling the terminal, reset terminal modes */ | 685 | /* If we are controlling the terminal, reset terminal modes */ |
| 685 | #ifdef EMACS_HAVE_TTY_PGRP | 686 | #ifdef EMACS_HAVE_TTY_PGRP |
| @@ -703,6 +704,8 @@ shut_down_emacs (sig, no_x) | |||
| 703 | reset_sys_modes (); | 704 | reset_sys_modes (); |
| 704 | #endif | 705 | #endif |
| 705 | 706 | ||
| 707 | stuff_buffered_input (stuff); | ||
| 708 | |||
| 706 | kill_buffer_processes (Qnil); | 709 | kill_buffer_processes (Qnil); |
| 707 | Fdo_auto_save (Qt, Qnil); | 710 | Fdo_auto_save (Qt, Qnil); |
| 708 | 711 | ||