diff options
| -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." | |||
| 1333 | (define-key cua--rectangle-keymap [remap self-insert-command] 'cua-insert-char-rectangle) | 1333 | (define-key cua--rectangle-keymap [remap self-insert-command] 'cua-insert-char-rectangle) |
| 1334 | (define-key cua--rectangle-keymap [remap self-insert-iso] 'cua-insert-char-rectangle) | 1334 | (define-key cua--rectangle-keymap [remap self-insert-iso] 'cua-insert-char-rectangle) |
| 1335 | 1335 | ||
| 1336 | ;; Catch self-inserting characters which are "stolen" by other modes | ||
| 1337 | (define-key cua--rectangle-keymap [t] | ||
| 1338 | '(menu-item "sic" cua-insert-char-rectangle :filter cua--self-insert-char-p)) | ||
| 1339 | |||
| 1336 | (define-key cua--rectangle-keymap "\r" 'cua-rotate-rectangle) | 1340 | (define-key cua--rectangle-keymap "\r" 'cua-rotate-rectangle) |
| 1337 | (define-key cua--rectangle-keymap "\t" 'cua-indent-rectangle) | 1341 | (define-key cua--rectangle-keymap "\t" 'cua-indent-rectangle) |
| 1338 | 1342 | ||