# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1178813427 0
# Node ID b88cd7b0ba66e32c187462db02eb113ae778ff4c
# Parent  cd8d5d9a645a99e2774141b6f81070b41a60a481
(compilation-handle-exit):
Use run-hook-with-args to run compilation-finish-functions.

diff -r cd8d5d9a645a -r b88cd7b0ba66 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Thu May 10 14:53:13 2007 +0000
+++ b/lisp/progmodes/compile.el	Thu May 10 16:10:27 2007 +0000
@@ -1448,10 +1448,7 @@
     (with-no-warnings
       (if compilation-finish-function
 	  (funcall compilation-finish-function (current-buffer) msg)))
-    (let ((functions compilation-finish-functions))
-      (while functions
-	(funcall (car functions) (current-buffer) msg)
-	(setq functions (cdr functions))))))
+    (run-hook-with-args compilation-finish-functions (current-buffer) msg)))
 
 ;; Called when compilation process changes state.
 (defun compilation-sentinel (proc msg)