lukelee pushed a commit to branch master
in repository elpa.
commit ad9d052ba38732b6d6cda3fae0891c6224dea66c
Author: Dave Love <[email protected]>
Date: Sun May 21 17:33:05 2000 +0000
(brief-mode): New alias.
---
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 7681748..8a5410d 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)
