Mercurial > emacs
diff lisp/simple.el @ 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 | c41c87311f68 |
| children | a517c80bbe8d |
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))))