Mercurial > emacs
diff lisp/emulation/cua-rect.el @ 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 | e963763ec80a |
| children | a1cf3efe0a2c e6bf73e43cf4 |
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))