diff options
| author | Karoly Lorentey | 2004-09-13 20:33:29 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2004-09-13 20:33:29 +0000 |
| commit | 267eea215b322b02bc4bce13cae61813c50f4b5f (patch) | |
| tree | 2dec815aa97a75c7d1589e72aa814bba68d4ade9 /lisp/emulation | |
| parent | 5cd432338667788c6739f43e4aa37fb53cc2a125 (diff) | |
| parent | ef3b7aae581ae555a11aa38f13e0eb55ad93a8c7 (diff) | |
| download | emacs-267eea215b322b02bc4bce13cae61813c50f4b5f.tar.gz emacs-267eea215b322b02bc4bce13cae61813c50f4b5f.zip | |
Merged in changes from CVS trunk.
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-537
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-538
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-539
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-540
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-541
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-542
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-543
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-544
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-545
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-546
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-21
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-22
Update from CVS: lisp/nndb.el (require): Remove tcp and duplicate cl.
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-23
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-24
lisp/nnimap.el (nnimap-open-connection): Remove extraneous end-paren
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-25
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-26
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-244
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." | |||
| 559 | ;; Rectangle is padded if PAD = t or numeric and (cua--rectangle-virtual-edges) | 559 | ;; Rectangle is padded if PAD = t or numeric and (cua--rectangle-virtual-edges) |
| 560 | ;; Perform auto-tabify after operation if TABIFY is non-nil. | 560 | ;; Perform auto-tabify after operation if TABIFY is non-nil. |
| 561 | ;; Mark is kept if keep-clear is 'keep and cleared if keep-clear is 'clear. | 561 | ;; Mark is kept if keep-clear is 'keep and cleared if keep-clear is 'clear. |
| 562 | (let* ((start (cua--rectangle-top)) | 562 | (let* ((inhibit-field-text-motion t) |
| 563 | (start (cua--rectangle-top)) | ||
| 563 | (end (cua--rectangle-bot)) | 564 | (end (cua--rectangle-bot)) |
| 564 | (l (cua--rectangle-left)) | 565 | (l (cua--rectangle-left)) |
| 565 | (r (1+ (cua--rectangle-right))) | 566 | (r (1+ (cua--rectangle-right))) |