# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1179907777 0
# Node ID a4a6ec16f923ec5e77859bac8c4793be494d877c
# Parent  d02b9dab9f0eb209a2c1a0f909eb8b01dd41e9fc
Nikolaj Schumacher  <n_schumacher at web.de>  (tiny change)

(compilation-handle-exit): `compilation-finish-function' may change
the current buffer.

diff -r d02b9dab9f0e -r a4a6ec16f923 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Wed May 23 08:09:05 2007 +0000
+++ b/lisp/progmodes/compile.el	Wed May 23 08:09:37 2007 +0000
@@ -1426,7 +1426,8 @@
 			     process-status exit-status msg)
 		  (cons msg exit-status)))
 	(omax (point-max))
-	(opoint (point)))
+	(opoint (point))
+	(cur-buffer (current-buffer)))
     ;; Record where we put the message, so we can ignore it later on.
     (goto-char omax)
     (insert ?\n mode-name " " (car status))
@@ -1447,8 +1448,8 @@
 	(goto-char opoint))
     (with-no-warnings
       (if compilation-finish-function
-	  (funcall compilation-finish-function (current-buffer) msg)))
-    (run-hook-with-args 'compilation-finish-functions (current-buffer) msg)))
+	  (funcall compilation-finish-function cur-buffer msg)))
+    (run-hook-with-args 'compilation-finish-functions cur-buffer msg)))
 
 ;; Called when compilation process changes state.
 (defun compilation-sentinel (proc msg)