From: Dave Love <fx@gnu.org>
Date: Sun, 21 May 2000 17:33:05 +0000 (+0000)
Subject: (brief-mode): New alias.
X-Git-Tag: emacs-pretest-21.0.90~3834
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e96834374210af47e8559d881de1020b96e4ab4;p=emacs.git

(brief-mode): New alias.
---

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)