diff options
| author | Kim F. Storm <storm@cua.dk> | 2004-09-12 20:26:39 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2004-09-12 20:26:39 +0000 |
| commit | 4e687447ad2db8b2bb588ae0a28df50567e42f84 (patch) | |
| tree | 6fbbd79c4818e72996a168acdb6596fed076c2bd /lisp/emulation | |
| parent | f4961c00594d91b316e532c234c314e3279f5be0 (diff) | |
| download | emacs-4e687447ad2db8b2bb588ae0a28df50567e42f84.tar.gz | |
(cua--rectangle-operation): Let bind
inhibit-field-text-motion to t so rectangles work in comint buffers.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/cua-rect.el | 3 |
1 files changed, 2 insertions, 1 deletions
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))) |