mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 15:00:45 -08:00
Code Issues Projects Releases Wiki Activity

(list_processes_1): Run sentinels before removing dead

Browse source 
processes.  Also remove `closed' network connections.
This commit is contained in:
Kim F. Storm 2006-10-03 09:14:40 +00:00
parent 670992917f
commit 1eed3bdcee
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/process.c
View file

@ -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;
}