From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 10 May 2007 16:10:27 +0000 (+0000)
Subject: (compilation-handle-exit):
X-Git-Tag: emacs-pretest-22.0.990~62
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e5a7834f45b7437111185368537ddbbb4226095f;p=emacs.git

(compilation-handle-exit):
Use run-hook-with-args to run compilation-finish-functions.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index ce933cb13d5..23e4f176fee 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1448,10 +1448,7 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'."
     (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)