diff options
| author | Kim F. Storm <storm@cua.dk> | 2006-03-25 00:55:09 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2006-03-25 00:55:09 +0000 |
| commit | 27366995b7d1bed163765eb5c749455aaec144f8 (patch) | |
| tree | bf18f3b008f1518292266c8ef3789df23e42a8a6 /lisp/emulation/cua-rect.el | |
| parent | 1cb225da029ca79c4f996a3fce67ca2851c87889 (diff) | |
| download | emacs-27366995b7d1bed163765eb5c749455aaec144f8.tar.gz | |
(cua--init-rectangles): Use
cua-rectangle-mark-key instead of fixed C-return.
Diffstat (limited to 'lisp/emulation/cua-rect.el')
| -rw-r--r-- | lisp/emulation/cua-rect.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index 33b38552595..53056d667fb 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el @@ -1413,8 +1413,8 @@ With prefix arg, indent to that column." (cua--M/H-key cua--rectangle-keymap key cmd)) (defun cua--init-rectangles () - (define-key cua--rectangle-keymap [(control return)] 'cua-clear-rectangle-mark) - (define-key cua--region-keymap [(control return)] 'cua-toggle-rectangle-mark) + (define-key cua--rectangle-keymap cua-rectangle-mark-key 'cua-clear-rectangle-mark) + (define-key cua--region-keymap cua-rectangle-mark-key 'cua-toggle-rectangle-mark) (unless (eq cua--rectangle-modifier-key 'meta) (cua--rect-M/H-key ?\s 'cua-clear-rectangle-mark) (cua--M/H-key cua--region-keymap ?\s 'cua-toggle-rectangle-mark)) |