diff options
| author | Kim F. Storm | 2006-03-25 00:55:09 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-03-25 00:55:09 +0000 |
| commit | 27366995b7d1bed163765eb5c749455aaec144f8 (patch) | |
| tree | bf18f3b008f1518292266c8ef3789df23e42a8a6 | |
| parent | 1cb225da029ca79c4f996a3fce67ca2851c87889 (diff) | |
| download | emacs-27366995b7d1bed163765eb5c749455aaec144f8.tar.gz emacs-27366995b7d1bed163765eb5c749455aaec144f8.zip | |
(cua--init-rectangles): Use
cua-rectangle-mark-key instead of fixed C-return.
| -rw-r--r-- | lisp/emulation/cua-rect.el | 4 |
1 files 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." | |||
| 1413 | (cua--M/H-key cua--rectangle-keymap key cmd)) | 1413 | (cua--M/H-key cua--rectangle-keymap key cmd)) |
| 1414 | 1414 | ||
| 1415 | (defun cua--init-rectangles () | 1415 | (defun cua--init-rectangles () |
| 1416 | (define-key cua--rectangle-keymap [(control return)] 'cua-clear-rectangle-mark) | 1416 | (define-key cua--rectangle-keymap cua-rectangle-mark-key 'cua-clear-rectangle-mark) |
| 1417 | (define-key cua--region-keymap [(control return)] 'cua-toggle-rectangle-mark) | 1417 | (define-key cua--region-keymap cua-rectangle-mark-key 'cua-toggle-rectangle-mark) |
| 1418 | (unless (eq cua--rectangle-modifier-key 'meta) | 1418 | (unless (eq cua--rectangle-modifier-key 'meta) |
| 1419 | (cua--rect-M/H-key ?\s 'cua-clear-rectangle-mark) | 1419 | (cua--rect-M/H-key ?\s 'cua-clear-rectangle-mark) |
| 1420 | (cua--M/H-key cua--region-keymap ?\s 'cua-toggle-rectangle-mark)) | 1420 | (cua--M/H-key cua--region-keymap ?\s 'cua-toggle-rectangle-mark)) |