[elpa] 24/56: (crisp-home, crisp-end): Put CUA property.

[Luke Lee]

lukelee pushed a commit to branch master
in repository elpa.

commit 8539932ab32e5bad9b77c721f3e1da0dc85c5771
Author: Kim F. Storm <st...@cua.dk>
Date:   Thu May 19 08:06:59 2005 +0000

    (crisp-home, crisp-end): Put CUA property.
---
 lisp/emulation/crisp.el |    6 ++----
 1 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el
index 6f1c663..97706fd 100644
--- a/lisp/emulation/crisp.el
+++ b/lisp/emulation/crisp.el
@@ -386,10 +386,8 @@ With ARG, turn CRiSP mode on if ARG is positive, off 
otherwise."
                                       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)))
+(put 'crisp-home 'CUA 'move)
+(put 'crisp-end  'CUA 'move)
 
 (run-hooks 'crisp-load-hook)
 (provide 'crisp)