# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1116369570 0
# Node ID 91452a2f828e96e5fa2bab88efd6240c8922c71e
# Parent  be9a675832ec7767148be26dd5c56edaf648ab18
(cua--init-rectangles): Bind C-return instead of S-return to
toggle/clear rectangle mark.

diff -r be9a675832ec -r 91452a2f828e lisp/emulation/cua-rect.el
--- a/lisp/emulation/cua-rect.el	Tue May 17 22:39:06 2005 +0000
+++ b/lisp/emulation/cua-rect.el	Tue May 17 22:39:30 2005 +0000
@@ -1403,8 +1403,8 @@
 
 (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))