Mercurial > emacs
comparison lisp/emulation/cua-rect.el @ 69669:5f7de9821aeb
(cua--init-rectangles): Use
cua-rectangle-mark-key instead of fixed C-return.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sat, 25 Mar 2006 00:55:09 +0000 |
| parents | e963763ec80a |
| children | a1cf3efe0a2c e6bf73e43cf4 |
comparison
equal
deleted
inserted
replaced
| 69668:16f8a4a89f79 | 69669:5f7de9821aeb |
|---|---|
| 1411 | 1411 |
| 1412 (defun cua--rect-M/H-key (key cmd) | 1412 (defun cua--rect-M/H-key (key cmd) |
| 1413 (cua--M/H-key cua--rectangle-keymap key cmd)) | 1413 (cua--M/H-key cua--rectangle-keymap key cmd)) |
| 1414 | 1414 |
| 1415 (defun cua--init-rectangles () | 1415 (defun cua--init-rectangles () |
| 1416 (define-key cua--rectangle-keymap [(control return)] 'cua-clear-rectangle-mark) | 1416 (define-key cua--rectangle-keymap cua-rectangle-mark-key 'cua-clear-rectangle-mark) |
| 1417 (define-key cua--region-keymap [(control return)] 'cua-toggle-rectangle-mark) | 1417 (define-key cua--region-keymap cua-rectangle-mark-key 'cua-toggle-rectangle-mark) |
| 1418 (unless (eq cua--rectangle-modifier-key 'meta) | 1418 (unless (eq cua--rectangle-modifier-key 'meta) |
| 1419 (cua--rect-M/H-key ?\s 'cua-clear-rectangle-mark) | 1419 (cua--rect-M/H-key ?\s 'cua-clear-rectangle-mark) |
| 1420 (cua--M/H-key cua--region-keymap ?\s 'cua-toggle-rectangle-mark)) | 1420 (cua--M/H-key cua--region-keymap ?\s 'cua-toggle-rectangle-mark)) |
| 1421 | 1421 |
| 1422 (define-key cua--rectangle-keymap [remap copy-region-as-kill] 'cua-copy-rectangle) | 1422 (define-key cua--rectangle-keymap [remap copy-region-as-kill] 'cua-copy-rectangle) |