755 |
(sit-for 0) ; make window top/bottom reliable |
(sit-for 0) ; make window top/bottom reliable |
756 |
(cua--rectangle-operation nil t nil nil nil ; do not tabify |
(cua--rectangle-operation nil t nil nil nil ; do not tabify |
757 |
'(lambda (s e l r v) |
'(lambda (s e l r v) |
758 |
(let ((rface (if v 'cua-rectangle-face 'cua-rectangle-noselect-face)) |
(let ((rface (if v 'cua-rectangle 'cua-rectangle-noselect)) |
759 |
overlay bs ms as) |
overlay bs ms as) |
760 |
(when (cua--rectangle-virtual-edges) |
(when (cua--rectangle-virtual-edges) |
761 |
(let ((lb (line-beginning-position)) |
(let ((lb (line-beginning-position)) |