Mercurial > emacs

changeset 73225:ff880e40efba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(list_processes_1): Run sentinels before removing dead processes. Also remove `closed' network connections.
author Kim F. Storm <storm@cua.dk>
date Tue, 03 Oct 2006 09:14:40 +0000
parents 36dcde72adad
children 0139dca4817f
files src/process.c
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/process.c	Tue Oct 03 04:58:52 2006 +0000
+++ b/src/process.c	Tue Oct 03 09:14:40 2006 +0000
@@ -1314,6 +1314,7 @@
   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 @@
 	    }
 	}
 
-      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 @@
 	  insert_string ("\n");
        }
     }
+  if (exited)
+    status_notify (NULL);
   return Qnil;
 }