From: Kim F. Storm <storm@cua.dk>
Date: Sun, 12 Sep 2004 20:26:39 +0000 (+0000)
Subject: (cua--rectangle-operation): Let bind
X-Git-Tag: ttn-vms-21-2-B4~4943
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e687447ad2db8b2bb588ae0a28df50567e42f84;p=emacs.git

(cua--rectangle-operation): Let bind
inhibit-field-text-motion to t so rectangles work in comint buffers.
---

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 10d369fa042..742ae2033be 100644
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -559,7 +559,8 @@ If command is repeated at same position, delete the rectangle."
   ;; Rectangle is padded if PAD = t or numeric and (cua--rectangle-virtual-edges)
   ;; Perform auto-tabify after operation if TABIFY is non-nil.
   ;; Mark is kept if keep-clear is 'keep and cleared if keep-clear is 'clear.
-  (let* ((start (cua--rectangle-top))
+  (let* ((inhibit-field-text-motion t)
+	 (start (cua--rectangle-top))
          (end   (cua--rectangle-bot))
          (l (cua--rectangle-left))
          (r (1+ (cua--rectangle-right)))