diff options
Diffstat (limited to 'lisp')
| -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.") | |||
| 576 | (defun compilation-minor-mode (&optional arg) | 576 | (defun compilation-minor-mode (&optional arg) |
| 577 | "Toggle compilation minor mode. | 577 | "Toggle compilation minor mode. |
| 578 | With arg, turn compilation mode on if and only if arg is positive. | 578 | With arg, turn compilation mode on if and only if arg is positive. |
| 579 | See `compilation-mode'." | 579 | See `compilation-mode'. |
| 580 | Turning the mode on runs the normal hook `compilation-minor-mode-hook'." | ||
| 580 | (interactive "P") | 581 | (interactive "P") |
| 581 | (if (setq compilation-minor-mode (if (null arg) | 582 | (if (setq compilation-minor-mode (if (null arg) |
| 582 | (null compilation-minor-mode) | 583 | (null compilation-minor-mode) |
| 583 | (> (prefix-numeric-value arg) 0))) | 584 | (> (prefix-numeric-value arg) 0))) |
| 584 | (compilation-setup))) | 585 | (progn |
| 586 | (compilation-setup) | ||
| 587 | (run-hooks 'compilation-minor-mode-hook))) | ||
| 585 | 588 | ||
| 586 | ;; Write msg in the current buffer and hack its mode-line-process. | 589 | ;; Write msg in the current buffer and hack its mode-line-process. |
| 587 | (defun compilation-handle-exit (process-status exit-status msg) | 590 | (defun compilation-handle-exit (process-status exit-status msg) |