# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782034050 0
# Node ID 3b5dbd9c44f5ecaac70c7071cbd0154096690113
# Parent  f03544494d1c919b972719b2e8c38f5c9f9bfb3e
(compilation-filter): Do nothing if buffer is dead.

diff -r f03544494d1c -r 3b5dbd9c44f5 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Thu Oct 13 06:34:09 1994 +0000
+++ b/lisp/progmodes/compile.el	Thu Oct 13 07:40:50 1994 +0000
@@ -566,13 +566,14 @@
 (defun compilation-filter (proc string)
   "Process filter for compilation buffers.
 Just inserts the text, but uses `insert-before-markers'."
-  (save-excursion
-    (set-buffer (process-buffer proc))
-    (let ((buffer-read-only nil))
+  (if (buffer-name (process-buffer proc))
       (save-excursion
-	(goto-char (process-mark proc))
-	(insert-before-markers string)
-	(set-marker (process-mark proc) (point))))))
+	(set-buffer (process-buffer proc))
+	(let ((buffer-read-only nil))
+	  (save-excursion
+	    (goto-char (process-mark proc))
+	    (insert-before-markers string)
+	    (set-marker (process-mark proc) (point)))))))
 
 ;; Return the cdr of compilation-old-error-list for the error containing point.
 (defun compile-error-at-point ()