diff options
| author | Kim F. Storm | 2005-05-19 08:06:59 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2005-05-19 08:06:59 +0000 |
| commit | 34e99b2e36e39fc5199dba83c87e6cfc10cde23c (patch) | |
| tree | dfdcbeef85c474d75821fcef9f17fbc8c5d0173c | |
| parent | 8d9386a1678fdcdf048656d71d58f2228b642b70 (diff) | |
| download | emacs-34e99b2e36e39fc5199dba83c87e6cfc10cde23c.tar.gz emacs-34e99b2e36e39fc5199dba83c87e6cfc10cde23c.zip | |
(crisp-home, crisp-end): Put CUA property.
| -rw-r--r-- | 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 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." | |||
| 386 | minor-mode-map-alist)))) | 386 | minor-mode-map-alist)))) |
| 387 | 387 | ||
| 388 | ;; Interaction with other packages. | 388 | ;; Interaction with other packages. |
| 389 | (eval-after-load 'cua | 389 | (put 'crisp-home 'CUA 'move) |
| 390 | '(progn | 390 | (put 'crisp-end 'CUA 'move) |
| 391 | (add-to-list 'cua--standard-movement-commands 'crisp-home) | ||
| 392 | (add-to-list 'cua--standard-movement-commands 'crisp-end))) | ||
| 393 | 391 | ||
| 394 | (run-hooks 'crisp-load-hook) | 392 | (run-hooks 'crisp-load-hook) |
| 395 | (provide 'crisp) | 393 | (provide 'crisp) |