(compilation-handle-exit):

Use run-hook-with-args to run compilation-finish-functions.

(compilation-handle-exit):
Use run-hook-with-args to run compilation-finish-functions.
e5a7834f · Richard M. Stallman · 7d145fa3 · e5a7834f
Commit e5a7834f authored May 10, 2007 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 4 deletions

lisp/progmodes/compile.el lisp/progmodes/compile.el +1 -4

No files found.
--- 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)