diff options
author | Dave Love <fx@gnu.org> | 2000-05-21 17:33:05 +0000 |
---|---|---|
committer | Dave Love <fx@gnu.org> | 2000-05-21 17:33:05 +0000 |
commit | 4e96834374210af47e8559d881de1020b96e4ab4 (patch) | |
tree | d964c120a4a97a3cd89f78400749e8eb5046d886 /lisp/emulation/crisp.el | |
parent | 6a475c995540c653ab9964d864cf088ae66656c6 (diff) | |
download | emacs-4e96834374210af47e8559d881de1020b96e4ab4.tar.gz |
(brief-mode): New alias.
Diffstat (limited to 'lisp/emulation/crisp.el')
-rw-r--r-- | lisp/emulation/crisp.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el index 12492de7ebf..13aa47c7667 100644 --- a/lisp/emulation/crisp.el +++ b/lisp/emulation/crisp.el @@ -351,7 +351,7 @@ normal CRiSP binding) and when it is nil M-x will run ;;;###autoload (defun crisp-mode (&optional arg) - "Toggle CRiSP emulation minor mode. + "Toggle CRiSP/Brief emulation minor mode. With ARG, turn CRiSP mode on if ARG is positive, off otherwise." (interactive "P") (setq crisp-mode (if (null arg) @@ -371,6 +371,10 @@ With ARG, turn CRiSP mode on if ARG is positive, off otherwise." (define-key crisp-mode-map [(meta f1)] 'scroll-all-mode)) (run-hooks 'crisp-mode-hook))) +;; People might use Apropos on `brief'. +;;;###autoload +(defalias 'brief-mode 'crisp-mode) + (if (fboundp 'add-minor-mode) (add-minor-mode 'crisp-mode 'crisp-mode-modeline-string crisp-mode-map nil 'crisp-mode) |