# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 816320913 0
# Node ID 8909cd9fc95119e3f2c1519aa2aeb7f8f8a8d777
# Parent  4b42b497a96d0c368292638365367b35810512cc
(compilation-sentinel): Use the local value of
compilation-exit-message-function in the process buffer.

diff -r 4b42b497a96d -r 8909cd9fc951 lisp/progmodes/compile.el
--- 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)