From: Kim F. Storm <storm@cua.dk>
Date: Sat, 25 May 2002 00:08:36 +0000 (+0000)
Subject: (cua--init-rectangles): Install default
X-Git-Tag: ttn-vms-21-2-B4~14884
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e3f01f3086b7eadcad30fb13f59fa4a40c2ae7fd;p=emacs.git

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