From e3f01f3086b7eadcad30fb13f59fa4a40c2ae7fd Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sat, 25 May 2002 00:08:36 +0000 Subject: (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. --- lisp/emulation/cua-rect.el | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lisp/emulation') diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index 87b48f088eb..f7dd08bdd0a 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el @@ -1333,6 +1333,10 @@ With prefix arg, indent to that column." (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) -- cgit v1.2.1