emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] 16/56: (brief-mode): New alias.


From: Luke Lee
Subject: [elpa] 16/56: (brief-mode): New alias.
Date: Thu, 28 Aug 2014 02:21:43 +0000

lukelee pushed a commit to branch master
in repository elpa.

commit ad9d052ba38732b6d6cda3fae0891c6224dea66c
Author: Dave Love <address@hidden>
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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]