(cua--init-rectangles): Bind C-return instead of S-return to

toggle/clear rectangle mark.

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 358867391256f4ed3b3588c35f49a223fc6e1f84..932448079dd88b2ba248b4082e5bb224ef6a7eb5 100644 (file)
--- 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))