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)) |