mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(compilation-shell-minor-mode): New function.

Browse source
This commit is contained in:
Richard M. Stallman 1999-01-11 17:37:34 +00:00
parent c700c260e6
commit 7052680be6
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/progmodes/compile.el
View file

@ -970,6 +970,20 @@ Compilation major mode are available.")
compilation-minor-mode-map)
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.