(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.

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)