Mercurial > emacs

comparison lisp/progmodes/compile.el @ 24053:551467b8a092

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compilation-shell-minor-mode): New function.
author Richard M. Stallman <rms@gnu.org>
date Mon, 11 Jan 1999 17:37:34 +0000
parents b1adb6a721dd
children 5f499867bc7e
comparison
equal deleted inserted replaced
24052:157787e56b41 24053:551467b8a092
969 (setq minor-mode-map-alist (cons (cons 'compilation-minor-mode 969 (setq minor-mode-map-alist (cons (cons 'compilation-minor-mode
970 compilation-minor-mode-map) 970 compilation-minor-mode-map)
971 minor-mode-map-alist))) 971 minor-mode-map-alist)))
972 972
973 ;;;###autoload 973 ;;;###autoload
974 (defun compilation-shell-minor-mode (&optional arg)
975 "Toggle compilation shell minor mode.
976 With arg, turn compilation mode on if and only if arg is positive.
977 See `compilation-mode'.
978 Turning the mode on runs the normal hook `compilation-shell-minor-mode-hook'."
979 (interactive "P")
980 (if (setq compilation-shell-minor-mode (if (null arg)
981 (null compilation-shell-minor-mode)
982 (> (prefix-numeric-value arg) 0)))
983 (let ((mode-line-process))
984 (compilation-setup)
985 (run-hooks 'compilation-shell-minor-mode-hook))))
986
987 ;;;###autoload
974 (defun compilation-minor-mode (&optional arg) 988 (defun compilation-minor-mode (&optional arg)
975 "Toggle compilation minor mode. 989 "Toggle compilation minor mode.
976 With arg, turn compilation mode on if and only if arg is positive. 990 With arg, turn compilation mode on if and only if arg is positive.
977 See `compilation-mode'. 991 See `compilation-mode'.
978 Turning the mode on runs the normal hook `compilation-minor-mode-hook'." 992 Turning the mode on runs the normal hook `compilation-minor-mode-hook'."