diff options
author | Kim F. Storm <[email protected]> | 2005-05-17 22:39:30 +0000 |
---|---|---|
committer | Kim F. Storm <[email protected]> | 2005-05-17 22:39:30 +0000 |
commit | 541d6c0271897d510381d8219ea8dfec9317e4a1 (patch) | |
tree | 966b4aab1858f9e7d5c77697de1b178cccc36695 /lisp/emulation | |
parent | c9ee062db9a457ec256522c486ba3a5ffd6b853c (diff) |
(cua--init-rectangles): Bind C-return instead of S-return to
toggle/clear rectangle mark.
Diffstat (limited to 'lisp/emulation')
-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 3588673912..932448079d 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el @@ -1403,8 +1403,8 @@ With prefix arg, indent to that column." (defun cua--init-rectangles () (unless (eq cua-use-hyper-key 'only) - (define-key cua--rectangle-keymap [(shift return)] 'cua-clear-rectangle-mark) - (define-key cua--region-keymap [(shift return)] 'cua-toggle-rectangle-mark)) + (define-key cua--rectangle-keymap [(control return)] 'cua-clear-rectangle-mark) + (define-key cua--region-keymap [(control return)] 'cua-toggle-rectangle-mark)) (when cua-use-hyper-key (cua--rect-M/H-key 'space 'cua-clear-rectangle-mark) (cua--M/H-key cua--region-keymap 'space 'cua-toggle-rectangle-mark)) |