Mercurial > emacs
comparison lisp/progmodes/compile.el @ 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 | b0cc803bf367 |
children | 85bdb1b310f8 |
comparison
equal
deleted
inserted
replaced
9510:f03544494d1c | 9511:3b5dbd9c44f5 |
---|---|
564 )))) | 564 )))) |
565 | 565 |
566 (defun compilation-filter (proc string) | 566 (defun compilation-filter (proc string) |
567 "Process filter for compilation buffers. | 567 "Process filter for compilation buffers. |
568 Just inserts the text, but uses `insert-before-markers'." | 568 Just inserts the text, but uses `insert-before-markers'." |
569 (save-excursion | 569 (if (buffer-name (process-buffer proc)) |
570 (set-buffer (process-buffer proc)) | |
571 (let ((buffer-read-only nil)) | |
572 (save-excursion | 570 (save-excursion |
573 (goto-char (process-mark proc)) | 571 (set-buffer (process-buffer proc)) |
574 (insert-before-markers string) | 572 (let ((buffer-read-only nil)) |
575 (set-marker (process-mark proc) (point)))))) | 573 (save-excursion |
574 (goto-char (process-mark proc)) | |
575 (insert-before-markers string) | |
576 (set-marker (process-mark proc) (point))))))) | |
576 | 577 |
577 ;; Return the cdr of compilation-old-error-list for the error containing point. | 578 ;; Return the cdr of compilation-old-error-list for the error containing point. |
578 (defun compile-error-at-point () | 579 (defun compile-error-at-point () |
579 (compile-reinitialize-errors nil (point)) | 580 (compile-reinitialize-errors nil (point)) |
580 (let ((errors compilation-old-error-list)) | 581 (let ((errors compilation-old-error-list)) |