Mercurial > emacs
changeset 45504:3ddab99699f4
(cua--init-rectangles): Install default
binding in cua--rectangle-keymap using cua--self-insert-char-p
to handle all global self inserting characters in rectangle mode.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sat, 25 May 2002 00:08:36 +0000 |
| parents | b5885da440b5 |
| children | 59015bfc2305 |
| files | lisp/emulation/cua-rect.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/cua-rect.el Sat May 25 00:07:26 2002 +0000 +++ b/lisp/emulation/cua-rect.el Sat May 25 00:08:36 2002 +0000 @@ -1333,6 +1333,10 @@ (define-key cua--rectangle-keymap [remap self-insert-command] 'cua-insert-char-rectangle) (define-key cua--rectangle-keymap [remap self-insert-iso] 'cua-insert-char-rectangle) + ;; Catch self-inserting characters which are "stolen" by other modes + (define-key cua--rectangle-keymap [t] + '(menu-item "sic" cua-insert-char-rectangle :filter cua--self-insert-char-p)) + (define-key cua--rectangle-keymap "\r" 'cua-rotate-rectangle) (define-key cua--rectangle-keymap "\t" 'cua-indent-rectangle)