Mercurial > emacs
changeset 14607:3c86ac6a871a
(compilation-minor-mode): Run compilation-minor-mode-hook.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Wed, 21 Feb 1996 16:32:37 +0000 |
| parents | b0a537848bb6 |
| children | 38829b121db7 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Wed Feb 21 07:29:19 1996 +0000 +++ b/lisp/progmodes/compile.el Wed Feb 21 16:32:37 1996 +0000 @@ -576,12 +576,15 @@ (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)