mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(Qlast_nonmenu_event): New variable.

Browse Source 
(syms_of_process): Set it up.
(read_process_output, exec_sentinel): Bind it to t around filter.
This commit is contained in:
Richard M. Stallman 1994-07-13 03:52:05 +00:00
parent 6ae1efb419
commit 6545aadab7
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/process.c
View File

@ -96,6 +96,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
Lisp_Object Qprocessp;
Lisp_Object Qrun, Qstop, Qsignal, Qopen, Qclosed;
Lisp_Object Qlast_nonmenu_event;
/* Qexit is declared and initialized in eval.c. */
/* a process object is a network connection when its childp field is neither
@ -2231,6 +2232,7 @@ read_process_output (proc, channel)
obuffer = Fcurrent_buffer ();
specbind (Qinhibit_quit, Qt);
specbind (Qlast_nonmenu_event, Qt);
call2 (outstream, proc, make_string (chars, nchars));
/* Handling the process output should not deactivate the mark. */
@ -3092,6 +3094,7 @@ exec_sentinel (proc, reason)
record_unwind_protect (exec_sentinel_unwind, Fcons (proc, sentinel));
/* Inhibit quit so that random quits don't screw up a running filter. */
specbind (Qinhibit_quit, Qt);
specbind (Qlast_nonmenu_event, Qt);
call2 (sentinel, proc, reason);
Vdeactivate_mark = odeactivate;
@ -3272,6 +3275,9 @@ syms_of_process ()
Qclosed = intern ("closed");
staticpro (&Qclosed);
Qlast_nonmenu_event = intern ("last-nonmenu-event");
staticpro (&Qlast_nonmenu_event);
staticpro (&Vprocess_alist);
DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes,