(compilation-minor-mode): Run compilation-minor-mode-hook.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index a3d7c754eb05a4eb9949cf2cf5672d78d33e0407..a5d72f424b1d807e6479b0dc1c6610f10a8c8120 100644 (file)
--- 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)