From: Kim F. Storm <storm@cua.dk>
Date: Sat, 25 Mar 2006 00:55:09 +0000 (+0000)
Subject: (cua--init-rectangles): Use
X-Git-Tag: emacs-pretest-22.0.90~3434
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27366995b7d1bed163765eb5c749455aaec144f8;p=emacs.git

(cua--init-rectangles): Use
cua-rectangle-mark-key instead of fixed C-return.
---

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 33b38552595..53056d667fb 100644
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -1413,8 +1413,8 @@ With prefix arg, indent to that column."
   (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))