From: Kim F. Storm <storm@cua.dk>
Date: Wed, 8 Sep 2004 13:07:50 +0000 (+0000)
Subject: (cua--highlight-rectangle): Fix last change.
X-Git-Tag: ttn-vms-21-2-B4~4996
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5e0cb17badf165d1e21aebbdefb478301a1dc00d;p=emacs.git

(cua--highlight-rectangle): Fix last change.
Use zero width overlays when necessary.
---

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."
         '(lambda (s e l r v)
            (let ((rface (if v 'cua-rectangle-face 'cua-rectangle-noselect-face))
                  overlay bs ms as)
-	     (if (= s e) (setq e (1+ e)))
 	     (when (cua--rectangle-virtual-edges)
 	       (let ((lb (line-beginning-position))
 		     (le (line-end-position))