From: Kim F. Storm <storm@cua.dk>
Date: Thu, 19 May 2005 08:06:59 +0000 (+0000)
Subject: (crisp-home, crisp-end): Put CUA property.
X-Git-Tag: ttn-vms-21-2-B4~157
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=34e99b2e36e39fc5199dba83c87e6cfc10cde23c;p=emacs.git

(crisp-home, crisp-end): Put CUA property.
---

diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el
index 6f1c663ae47..97706fdfab0 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)