(shell-command-sentinel): Do nothing if buffer is dead.

d7e84efb · Richard M. Stallman · 5754d7f2 · d7e84efb
Commit d7e84efb authored Apr 18, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/simple.el lisp/simple.el +2 -1

No files found.
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -710,7 +710,8 @@ This cannot be done asynchronously."
 ;; 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))))