diff options
| author | Kim F. Storm | 2005-05-17 22:39:30 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2005-05-17 22:39:30 +0000 |
| commit | 541d6c0271897d510381d8219ea8dfec9317e4a1 (patch) | |
| tree | 966b4aab1858f9e7d5c77697de1b178cccc36695 | |
| parent | c9ee062db9a457ec256522c486ba3a5ffd6b853c (diff) | |
| download | emacs-541d6c0271897d510381d8219ea8dfec9317e4a1.tar.gz emacs-541d6c0271897d510381d8219ea8dfec9317e4a1.zip | |
(cua--init-rectangles): Bind C-return instead of S-return to
toggle/clear rectangle mark.
| -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 35886739125..932448079dd 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el | |||
| @@ -1403,8 +1403,8 @@ With prefix arg, indent to that column." | |||
| 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)) |