From e5a7834f45b7437111185368537ddbbb4226095f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 10 May 2007 16:10:27 +0000 Subject: [PATCH] (compilation-handle-exit): Use run-hook-with-args to run compilation-finish-functions. --- lisp/progmodes/compile.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) 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) -- 2.39.2