Parent Directory | Revision Log | Patch
revision 1.7.6.3 by miles, Sat Sep 4 09:14:25 2004 UTC | revision 1.7.6.4 by miles, Thu Sep 9 09:36:32 2004 UTC | |
---|---|---|
# | Line 778 If command is repeated at same position, | Line 778 If command is repeated at same position, |
778 | '(lambda (s e l r v) | '(lambda (s e l r v) |
779 | (let ((rface (if v 'cua-rectangle-face 'cua-rectangle-noselect-face)) | (let ((rface (if v 'cua-rectangle-face 'cua-rectangle-noselect-face)) |
780 | overlay bs ms as) | overlay bs ms as) |
(if (= s e) (setq e (1+ e))) | ||
781 | (when (cua--rectangle-virtual-edges) | (when (cua--rectangle-virtual-edges) |
782 | (let ((lb (line-beginning-position)) | (let ((lb (line-beginning-position)) |
783 | (le (line-end-position)) | (le (line-end-position)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |