(compilation-sentinel): Use the local value of

compilation-exit-message-function in the process buffer.

1 files changed, 6 insertions, 6 deletions

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 92149e4ac8d..172a4622791 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -566,11 +566,7 @@ See `compilation-mode'."
 	      ;; 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 @@ See `compilation-mode'."
 		    ;; 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)