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

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 87b48f088ebf00d23e410bf0e451ed0243f55577..f7dd08bdd0a01a5f05a787f9de7c18f14af4c35c 100644 (file)
--- 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)