diff options
| author | Kim F. Storm | 2004-09-08 13:07:50 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2004-09-08 13:07:50 +0000 |
| commit | 5e0cb17badf165d1e21aebbdefb478301a1dc00d (patch) | |
| tree | 760d59959716cf040513c19dbcb2c2125636c7bf | |
| parent | 303e592ca7575b8252ed0ae867e6272c24d50da1 (diff) | |
| download | emacs-5e0cb17badf165d1e21aebbdefb478301a1dc00d.tar.gz emacs-5e0cb17badf165d1e21aebbdefb478301a1dc00d.zip | |
(cua--highlight-rectangle): Fix last change.
Use zero width overlays when necessary.
| -rw-r--r-- | lisp/emulation/cua-rect.el | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index 3270b7fd62c..10d369fa042 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el | |||
| @@ -778,7 +778,6 @@ If command is repeated at same position, delete the rectangle." | |||
| 778 | '(lambda (s e l r v) | 778 | '(lambda (s e l r v) |
| 779 | (let ((rface (if v 'cua-rectangle-face 'cua-rectangle-noselect-face)) | 779 | (let ((rface (if v 'cua-rectangle-face 'cua-rectangle-noselect-face)) |
| 780 | overlay bs ms as) | 780 | overlay bs ms as) |
| 781 | (if (= s e) (setq e (1+ e))) | ||
| 782 | (when (cua--rectangle-virtual-edges) | 781 | (when (cua--rectangle-virtual-edges) |
| 783 | (let ((lb (line-beginning-position)) | 782 | (let ((lb (line-beginning-position)) |
| 784 | (le (line-end-position)) | 783 | (le (line-end-position)) |