Fix typos.

[gnu-emacs] / lisp / emulation / crisp.el

diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el
index 12492de7ebff736c8ab27c1f27db6c2af1cb4d09..0f19d9e4cc4286cb01a904429a73d00fe29de61f 100644 (file)
--- a/lisp/emulation/crisp.el
+++ b/lisp/emulation/crisp.el
@@ -338,7 +338,7 @@ consecutive use moves point to the end of the buffer."
   "Go back one buffer."
   (interactive)
   (switch-to-buffer (car (last (buffer-list)))))
- 
+
 (defun crisp-meta-x-wrapper ()
   "Wrapper function to conditionally override the normal M-x bindings.
 When `crisp-override-meta-x' is non-nil, M-x will exit Emacs (the
@@ -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)
@@ -381,6 +385,12 @@ With ARG, turn CRiSP mode on if ARG is positive, off otherwise."
       (setq minor-mode-map-alist (cons (cons 'crisp-mode crisp-mode-map)
                                       minor-mode-map-alist))))
 
+;; Interaction with other packages.
+(eval-after-load 'cua
+  '(progn
+     (add-to-list 'cua--standard-movement-commands 'crisp-home)
+     (add-to-list 'cua--standard-movement-commands 'crisp-end)))
+
 (run-hooks 'crisp-load-hook)
 (provide 'crisp)