From 6545aadab74071c9dc71c7c54ab4c59e778dbc61 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 13 Jul 1994 03:52:05 +0000 Subject: [PATCH] (Qlast_nonmenu_event): New variable. (syms_of_process): Set it up. (read_process_output, exec_sentinel): Bind it to t around filter. --- src/process.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/process.c b/src/process.c index 9f740e4d02..3c62349a89 100644 --- a/src/process.c +++ b/src/process.c @@ -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, -- 2.20.1