Mercurial > emacs

changeset 57075:57f225a13a09

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cua--rectangle-operation): Let bind inhibit-field-text-motion to t so rectangles work in comint buffers.
author Kim F. Storm <storm@cua.dk>
date Sun, 12 Sep 2004 20:26:39 +0000
parents 666ed3de3a51
children d2baef38bbd7
files lisp/emulation/cua-rect.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/cua-rect.el	Sun Sep 12 20:26:08 2004 +0000
+++ b/lisp/emulation/cua-rect.el	Sun Sep 12 20:26:39 2004 +0000
@@ -559,7 +559,8 @@
   ;; 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)))