Mercurial > emacs
comparison lisp/emulation/crisp.el @ 62507:68429718056c
(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 |
comparison
equal
deleted
inserted
replaced
| 62506:10400b58d166 | 62507:68429718056c |
|---|---|
| 384 (or (assq 'crisp-mode minor-mode-map-alist) | 384 (or (assq 'crisp-mode minor-mode-map-alist) |
| 385 (setq minor-mode-map-alist (cons (cons 'crisp-mode crisp-mode-map) | 385 (setq minor-mode-map-alist (cons (cons 'crisp-mode crisp-mode-map) |
| 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) |
| 396 | 394 |
| 397 ;;; arch-tag: e5369375-fafb-4240-b7ae-4cb460ef05ee | 395 ;;; arch-tag: e5369375-fafb-4240-b7ae-4cb460ef05ee |