# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 824920357 0
# Node ID 3c86ac6a871a3d5a4c94cc49baa29b0ce89ecd99
# Parent  b0a537848bb66ce1e0bcac58bc6e3f4938991e83
(compilation-minor-mode): Run compilation-minor-mode-hook.

diff -r b0a537848bb6 -r 3c86ac6a871a lisp/progmodes/compile.el
--- 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)