Mercurial > emacs
changeset 13540:8909cd9fc951
(compilation-sentinel): Use the local value of
compilation-exit-message-function in the process buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 14 Nov 1995 03:48:33 +0000 |
| parents | 4b42b497a96d |
| children | 2178c4d6a427 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Tue Nov 14 03:45:10 1995 +0000 +++ b/lisp/progmodes/compile.el Tue Nov 14 03:48:33 1995 +0000 @@ -566,11 +566,7 @@ ;; buffer killed (set-process-buffer proc nil) (let ((obuf (current-buffer)) - omax opoint - (status (if compilation-exit-message-function - (funcall compilation-exit-message-function - proc msg) - (cons msg (process-exit-status proc))))) + omax opoint) ;; save-excursion isn't the right thing if ;; process-buffer is current-buffer (unwind-protect @@ -578,7 +574,11 @@ ;; Write something in the compilation buffer ;; and hack its mode line. (set-buffer buffer) - (let ((buffer-read-only nil)) + (let ((buffer-read-only nil) + (status (if compilation-exit-message-function + (funcall compilation-exit-message-function + proc msg) + (cons msg (process-exit-status proc))))) (setq omax (point-max) opoint (point)) (goto-char omax)