aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/progmodes/compile.el7
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.
578With arg, turn compilation mode on if and only if arg is positive. 578With arg, turn compilation mode on if and only if arg is positive.
579See `compilation-mode'." 579See `compilation-mode'.
580Turning 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)