Mercurial > emacs
changeset 6949:319678b541eb
(shell-command-sentinel): Do nothing if buffer is dead.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 18 Apr 1994 22:37:30 +0000 |
| parents | 54b252f540ea |
| children | 8924bd75c263 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Mon Apr 18 21:33:57 1994 +0000 +++ b/lisp/simple.el Mon Apr 18 22:37:30 1994 +0000 @@ -710,7 +710,8 @@ ;; We have a sentinel to prevent insertion of a termination message ;; in the buffer itself. (defun shell-command-sentinel (process signal) - (if (memq (process-status process) '(exit signal)) + (if (and (memq (process-status process) '(exit signal)) + (buffer-name (process-buffer process))) (progn (message "%s: %s." (car (cdr (cdr (process-command process))))