# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1143248109 0
# Node ID 5f7de9821aeb6c0cd00c17eae8cf52fb5c6882a4
# Parent  16f8a4a89f79070c462b3d5fe6409f3b23a1358e
(cua--init-rectangles): Use
cua-rectangle-mark-key instead of fixed C-return.

diff -r 16f8a4a89f79 -r 5f7de9821aeb lisp/emulation/cua-rect.el
--- a/lisp/emulation/cua-rect.el	Sat Mar 25 00:55:00 2006 +0000
+++ b/lisp/emulation/cua-rect.el	Sat Mar 25 00:55:09 2006 +0000
@@ -1413,8 +1413,8 @@
   (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))