diff options
| author | Richard M. Stallman | 2007-05-10 16:10:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2007-05-10 16:10:27 +0000 |
| commit | e5a7834f45b7437111185368537ddbbb4226095f (patch) | |
| tree | 9e432a3773f54f4bf7d7cd27754ae453f3d241d0 | |
| parent | 7d145fa308f60d9e42f1e5e3b374c73bb77c1581 (diff) | |
| download | emacs-e5a7834f45b7437111185368537ddbbb4226095f.tar.gz emacs-e5a7834f45b7437111185368537ddbbb4226095f.zip | |
(compilation-handle-exit):
Use run-hook-with-args to run compilation-finish-functions.
| -rw-r--r-- | lisp/progmodes/compile.el | 5 |
1 files changed, 1 insertions, 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'." | |||
| 1448 | (with-no-warnings | 1448 | (with-no-warnings |
| 1449 | (if compilation-finish-function | 1449 | (if compilation-finish-function |
| 1450 | (funcall compilation-finish-function (current-buffer) msg))) | 1450 | (funcall compilation-finish-function (current-buffer) msg))) |
| 1451 | (let ((functions compilation-finish-functions)) | 1451 | (run-hook-with-args compilation-finish-functions (current-buffer) msg))) |
| 1452 | (while functions | ||
| 1453 | (funcall (car functions) (current-buffer) msg) | ||
| 1454 | (setq functions (cdr functions)))))) | ||
| 1455 | 1452 | ||
| 1456 | ;; Called when compilation process changes state. | 1453 | ;; Called when compilation process changes state. |
| 1457 | (defun compilation-sentinel (proc msg) | 1454 | (defun compilation-sentinel (proc msg) |