[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Luke Lee
Subject: [elpa] 24/56: (crisp-home, crisp-end): Put CUA property.
Date: Thu, 28 Aug 2014 02:21:47 +0000

lukelee pushed a commit to branch master
in repository elpa.

commit 8539932ab32e5bad9b77c721f3e1da0dc85c5771
Author: Kim F. Storm <address@hidden>
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 
 ;; 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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]