From 1eed3bdcee6f66d2d756824ea85fec9db735fa65 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 3 Oct 2006 09:14:40 +0000 Subject: [PATCH] (list_processes_1): Run sentinels before removing dead processes. Also remove `closed' network connections. --- src/process.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/process.c b/src/process.c index 46bff2f94a3..ebe8ef56fff 100644 --- a/src/process.c +++ b/src/process.c @@ -1314,6 +1314,7 @@ list_processes_1 (query_only) register struct Lisp_Process *p; char tembuf[300]; int w_proc, w_buffer, w_tty; + int exited = 0; Lisp_Object i_status, i_buffer, i_tty, i_command; w_proc = 4; /* Proc */ @@ -1440,8 +1441,8 @@ list_processes_1 (query_only) } } - if (EQ (symbol, Qsignal) || EQ (symbol, Qexit)) - remove_process (proc); + if (EQ (symbol, Qsignal) || EQ (symbol, Qexit) || EQ (symbol, Qclosed)) + exited++; Findent_to (i_buffer, minspace); if (NILP (p->buffer)) @@ -1505,6 +1506,8 @@ list_processes_1 (query_only) insert_string ("\n"); } } + if (exited) + status_notify (NULL); return Qnil; } -- 2.39.2