procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Kim F. Storm 2005-05-19 08:06:59 +00:00
parent 8d9386a167
commit 34e99b2e36
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emulation/crisp.el
View file

@ -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)