Fix typos.

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

diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el
index 8a5410d48a74c1ae3d1f50b2a5751a372a7900f8..0f19d9e4cc4286cb01a904429a73d00fe29de61f 100644 (file)
--- a/lisp/emulation/crisp.el
+++ b/lisp/emulation/crisp.el
@@ -385,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)