diff options
| author | Kim F. Storm <storm@cua.dk> | 2002-05-25 00:08:36 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2002-05-25 00:08:36 +0000 |
| commit | e3f01f3086b7eadcad30fb13f59fa4a40c2ae7fd (patch) | |
| tree | b35113dfce6babf5cf71635424371f895a213407 /lisp/emulation | |
| parent | f8b38495a5de6a4b158400aa45889c8e632aa587 (diff) | |
| download | emacs-e3f01f3086b7eadcad30fb13f59fa4a40c2ae7fd.tar.gz | |
(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.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/cua-rect.el | 4 |
1 files changed, 4 insertions, 0 deletions
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) |