(compilation-handle-exit): Quote first argument of `run-hook-with-args'.

This commit is contained in:
Juanma Barranquero 2007-05-16 15:46:07 +00:00
parent 11bec749d6
commit 7883a44f5a
2 changed files with 6 additions and 1 deletions

View file

@ -1448,7 +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)))
(run-hook-with-args compilation-finish-functions (current-buffer) msg)))
(run-hook-with-args 'compilation-finish-functions (current-buffer) msg)))
;; Called when compilation process changes state.
(defun compilation-sentinel (proc msg)