Mercurial > emacs
changeset 77669:b88cd7b0ba66
(compilation-handle-exit):
Use run-hook-with-args to run compilation-finish-functions.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 10 May 2007 16:10:27 +0000 |
| parents | cd8d5d9a645a |
| children | a7056aafb66a |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 1 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)