From 34e99b2e36e39fc5199dba83c87e6cfc10cde23c Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Thu, 19 May 2005 08:06:59 +0000 Subject: [PATCH] (crisp-home, crisp-end): Put CUA property. --- lisp/emulation/crisp.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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) -- 2.39.5