Mercurial > emacs
comparison lisp/emulation/cua-rect.el @ 62450:91452a2f828e
(cua--init-rectangles): Bind C-return instead of S-return to
toggle/clear rectangle mark.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 17 May 2005 22:39:30 +0000 |
| parents | cac7024af280 |
| children | f1bf3660220e f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
| 62449:be9a675832ec | 62450:91452a2f828e |
|---|---|
| 1401 (defun cua--rect-M/H-key (key cmd) | 1401 (defun cua--rect-M/H-key (key cmd) |
| 1402 (cua--M/H-key cua--rectangle-keymap key cmd)) | 1402 (cua--M/H-key cua--rectangle-keymap key cmd)) |
| 1403 | 1403 |
| 1404 (defun cua--init-rectangles () | 1404 (defun cua--init-rectangles () |
| 1405 (unless (eq cua-use-hyper-key 'only) | 1405 (unless (eq cua-use-hyper-key 'only) |
| 1406 (define-key cua--rectangle-keymap [(shift return)] 'cua-clear-rectangle-mark) | 1406 (define-key cua--rectangle-keymap [(control return)] 'cua-clear-rectangle-mark) |
| 1407 (define-key cua--region-keymap [(shift return)] 'cua-toggle-rectangle-mark)) | 1407 (define-key cua--region-keymap [(control return)] 'cua-toggle-rectangle-mark)) |
| 1408 (when cua-use-hyper-key | 1408 (when cua-use-hyper-key |
| 1409 (cua--rect-M/H-key 'space 'cua-clear-rectangle-mark) | 1409 (cua--rect-M/H-key 'space 'cua-clear-rectangle-mark) |
| 1410 (cua--M/H-key cua--region-keymap 'space 'cua-toggle-rectangle-mark)) | 1410 (cua--M/H-key cua--region-keymap 'space 'cua-toggle-rectangle-mark)) |
| 1411 | 1411 |
| 1412 (define-key cua--rectangle-keymap [remap copy-region-as-kill] 'cua-copy-rectangle) | 1412 (define-key cua--rectangle-keymap [remap copy-region-as-kill] 'cua-copy-rectangle) |