# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 916076254 0
# Node ID 551467b8a092b82d1e98ff70b5526262e960860c
# Parent  157787e56b415b08945a62ba87861a894834cf5d
(compilation-shell-minor-mode): New function.

diff -r 157787e56b41 -r 551467b8a092 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Mon Jan 11 15:30:06 1999 +0000
+++ b/lisp/progmodes/compile.el	Mon Jan 11 17:37:34 1999 +0000
@@ -971,6 +971,20 @@
 				     minor-mode-map-alist)))
 
 ;;;###autoload
+(defun compilation-shell-minor-mode (&optional arg)
+  "Toggle compilation shell minor mode.
+With arg, turn compilation mode on if and only if arg is positive.
+See `compilation-mode'.
+Turning the mode on runs the normal hook `compilation-shell-minor-mode-hook'."
+  (interactive "P")
+  (if (setq compilation-shell-minor-mode (if (null arg)
+				       (null compilation-shell-minor-mode)
+				     (> (prefix-numeric-value arg) 0)))
+      (let ((mode-line-process))
+	(compilation-setup)
+	(run-hooks 'compilation-shell-minor-mode-hook))))
+
+;;;###autoload
 (defun compilation-minor-mode (&optional arg)
   "Toggle compilation minor mode.
 With arg, turn compilation mode on if and only if arg is positive.