# HG changeset patch # User Dave Love # Date 958930385 0 # Node ID abee88aa37f0d2388e933d8b00f11ccbdd2795e2 # Parent 661c97b907a86f5bc5cec6ce9c27dcb6022cf352 (brief-mode): New alias. diff -r 661c97b907a8 -r abee88aa37f0 lisp/emulation/crisp.el --- a/lisp/emulation/crisp.el Sun May 21 17:29:50 2000 +0000 +++ b/lisp/emulation/crisp.el Sun May 21 17:33:05 2000 +0000 @@ -351,7 +351,7 @@ ;;;###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 @@ (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)