comparison lisp/emulation/cua-rect.el @ 57011:47e923e70073

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

57010:708016046e80

      (sit-for 0)  ; make window top/bottom reliable
      (cua--rectangle-operation nil t nil nil nil ; do not tabify
        '(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))
		     cl cl0 pl cr cr0 pr)
		 (goto-char s)

57011:47e923e70073

      (sit-for 0)  ; make window top/bottom reliable
      (cua--rectangle-operation nil t nil nil nil ; do not tabify
        '(lambda (s e l r v)
           (let ((rface (if v 'cua-rectangle-face 'cua-rectangle-noselect-face))
                 overlay bs ms as)
	     (when (cua--rectangle-virtual-edges)
	       (let ((lb (line-beginning-position))
		     (le (line-end-position))
		     cl cl0 pl cr cr0 pr)
		 (goto-char s)