# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1022285316 0
# Node ID 3ddab99699f4a5c6b8de9a9b6f75165dae77eefb
# Parent  b5885da440b535229b7491522d631b6c7b08472e
(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 -r b5885da440b5 -r 3ddab99699f4 lisp/emulation/cua-rect.el
--- a/lisp/emulation/cua-rect.el	Sat May 25 00:07:26 2002 +0000
+++ b/lisp/emulation/cua-rect.el	Sat May 25 00:08:36 2002 +0000
@@ -1333,6 +1333,10 @@
   (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)