Mercurial > emacs
changeset 9511:3b5dbd9c44f5
(compilation-filter): Do nothing if buffer is dead.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 13 Oct 1994 07:40:50 +0000 |
| parents | f03544494d1c |
| children | b2aaf43191aa |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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 ()