diff options
| author | Roland McGrath <roland@gnu.org> | 1996-02-21 16:32:37 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1996-02-21 16:32:37 +0000 |
| commit | 1737aa49eb95e892a6d0a8d74574ec344699960e (patch) | |
| tree | 65b0cfd5ae7b246026e2d7555eb8c6c258c229e4 /lisp/progmodes | |
| parent | 9a7d5cd7375bdd35ee3d6e07b397f3c57c711755 (diff) | |
| download | emacs-1737aa49eb95e892a6d0a8d74574ec344699960e.tar.gz | |
(compilation-minor-mode): Run compilation-minor-mode-hook.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/compile.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index a3d7c754eb0..a5d72f424b1 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -576,12 +576,15 @@ Compilation major mode are available.") (defun compilation-minor-mode (&optional arg) "Toggle compilation minor mode. With arg, turn compilation mode on if and only if arg is positive. -See `compilation-mode'." +See `compilation-mode'. +Turning the mode on runs the normal hook `compilation-minor-mode-hook'." (interactive "P") (if (setq compilation-minor-mode (if (null arg) (null compilation-minor-mode) (> (prefix-numeric-value arg) 0))) - (compilation-setup))) + (progn + (compilation-setup) + (run-hooks 'compilation-minor-mode-hook))) ;; Write msg in the current buffer and hack its mode-line-process. (defun compilation-handle-exit (process-status exit-status msg) |