Mercurial > emacs
comparison lisp/emulation/cua-rect.el @ 45297:7f069ec93484
(cua--rectangle-operation):
Don't highlight empty lines in rectangles.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 14 May 2002 21:10:34 +0000 |
| parents | 829beb9a6a4b |
| children | b80d723ad7cc |
comparison
equal
deleted
inserted
replaced
| 45296:eb7082dc04a0 | 45297:7f069ec93484 |
|---|---|
| 583 (setq v (re-search-forward (car sel) m t)) | 583 (setq v (re-search-forward (car sel) m t)) |
| 584 (goto-char p)) | 584 (goto-char p)) |
| 585 (if (car (cdr (cdr sel))) | 585 (if (car (cdr (cdr sel))) |
| 586 (setq v (null v)))) | 586 (setq v (null v)))) |
| 587 (if visible | 587 (if visible |
| 588 (funcall fct p m l r v) | 588 (unless (eolp) |
| 589 (funcall fct p m l r v)) | |
| 589 (if v | 590 (if v |
| 590 (funcall fct p m l r))))) | 591 (funcall fct p m l r))))) |
| 591 (set-marker m nil) | 592 (set-marker m nil) |
| 592 (forward-line 1)) | 593 (forward-line 1)) |
| 593 (if (not visible) | 594 (if (not visible) |