From: Roland McGrath <roland@gnu.org>
Date: Wed, 21 Feb 1996 16:32:37 +0000 (+0000)
Subject: (compilation-minor-mode): Run compilation-minor-mode-hook.
X-Git-Tag: emacs-19.34~1253
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fee3f63a1c77c39c111c3e238fbc314b0dce68bd;p=emacs.git

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

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)