From 541d6c0271897d510381d8219ea8dfec9317e4a1 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 17 May 2005 22:39:30 +0000 Subject: [PATCH] (cua--init-rectangles): Bind C-return instead of S-return to toggle/clear rectangle mark. --- 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 35886739125..932448079dd 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el @@ -1403,8 +1403,8 @@ With prefix arg, indent to that column." (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)) -- 2.39.2