From 27366995b7d1bed163765eb5c749455aaec144f8 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sat, 25 Mar 2006 00:55:09 +0000 Subject: [PATCH] (cua--init-rectangles): Use cua-rectangle-mark-key instead of fixed C-return. --- lisp/emulation/cua-rect.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.39.2