Mercurial > emacs
comparison lisp/emulation/cua-rect.el @ 63073:f1bf3660220e
* emulation/cua-base.el (cua-rectangle, cua-rectangle-noselect)
(cua-global-mark): Remove -face suffix from face names.
* emulation/cua-gmrk.el (cua--init-global-mark): Remove
cua-global-mark face setup.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Mon, 06 Jun 2005 13:19:15 +0000 |
parents | 91452a2f828e |
children | ffc4b2e19212 173dee4e2611 |
comparison
equal
deleted
inserted
replaced
63072:87dd39e3ec4e | 63073:f1bf3660220e |
---|---|
753 (right (1+ (cua--rectangle-right)))) | 753 (right (1+ (cua--rectangle-right)))) |
754 (when (/= left right) | 754 (when (/= left right) |
755 (sit-for 0) ; make window top/bottom reliable | 755 (sit-for 0) ; make window top/bottom reliable |
756 (cua--rectangle-operation nil t nil nil nil ; do not tabify | 756 (cua--rectangle-operation nil t nil nil nil ; do not tabify |
757 '(lambda (s e l r v) | 757 '(lambda (s e l r v) |
758 (let ((rface (if v 'cua-rectangle-face 'cua-rectangle-noselect-face)) | 758 (let ((rface (if v 'cua-rectangle 'cua-rectangle-noselect)) |
759 overlay bs ms as) | 759 overlay bs ms as) |
760 (when (cua--rectangle-virtual-edges) | 760 (when (cua--rectangle-virtual-edges) |
761 (let ((lb (line-beginning-position)) | 761 (let ((lb (line-beginning-position)) |
762 (le (line-end-position)) | 762 (le (line-end-position)) |
763 cl cl0 pl cr cr0 pr) | 763 cl cl0 pl cr cr0 pr) |