(brief-mode): New alias.

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)