changeset 69669:5f7de9821aeb

(cua--init-rectangles): Use cua-rectangle-mark-key instead of fixed C-return.
author Kim F. Storm <storm@cua.dk>
date Sat, 25 Mar 2006 00:55:09 +0000
parents 16f8a4a89f79
children cdfc7cf7bfbe
files lisp/emulation/cua-rect.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))