Re: list-processes and process sentinels not run.

Re: list-processes and process sentinels not run.

[Richard Stallman]

    If a process status changes to exit and list-processes is called
    without there being idle time, then the process is removed in
    list_processes_1:

	  if (EQ (symbol, Qsignal) || EQ (symbol, Qexit))
	    remove_process (proc);

    and the process sentinel isn't run.

We should change that code to run the sentinel
if it needs to be run.  Would someone please do that?


      This can be demonstrated with:

	(let ((proc (start-process "test-seq" nil "/bin/sleep" "0")))
	  (set-process-sentinel proc (lambda (proc msg)
				       (message msg)))
	  (while (delq nil (mapcar (lambda (p)
				     (string-match "test-seq" (process-name p)))
				   (process-list)))
	    (list-processes)))