Mercurial > emacs

diff lisp/emulation/crisp.el @ 62507:68429718056c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(crisp-home, crisp-end): Put CUA property.
author Kim F. Storm <storm@cua.dk>
date Thu, 19 May 2005 08:06:59 +0000
parents cac7024af280
children 18a818a2ee7c f042e7c0fe20
line wrap: on
line diff
--- a/lisp/emulation/crisp.el	Thu May 19 08:06:35 2005 +0000
+++ b/lisp/emulation/crisp.el	Thu May 19 08:06:59 2005 +0000
@@ -386,10 +386,8 @@
 				       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)