Mercurial > emacs
changeset 69574:e963763ec80a
(cua--highlight-rectangle): Set overlay
cursor property value to 2 (to align with C level change).
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sun, 19 Mar 2006 19:59:33 +0000 |
| parents | 96795267cd9b |
| children | 87709ba6191e |
| files | lisp/emulation/cua-rect.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/cua-rect.el Sun Mar 19 19:59:17 2006 +0000 +++ b/lisp/emulation/cua-rect.el Sun Mar 19 19:59:33 2006 +0000 @@ -799,8 +799,8 @@ (if cua--virtual-edges-debug ?, ?\s)) 'face rface)) (if (cua--rectangle-right-side) - (put-text-property (1- (length ms)) (length ms) 'cursor t ms) - (put-text-property 0 1 'cursor t ms)) + (put-text-property (1- (length ms)) (length ms) 'cursor 2 ms) + (put-text-property 0 1 'cursor 2 ms)) (setq bs (concat bs ms)) (setq rface nil)) (t @@ -810,8 +810,8 @@ (if cua--virtual-edges-debug ?~ ?\s)) 'face rface)) (if (cua--rectangle-right-side) - (put-text-property (1- (length as)) (length as) 'cursor t as) - (put-text-property 0 1 'cursor t as)) + (put-text-property (1- (length as)) (length as) 'cursor 2 as) + (put-text-property 0 1 'cursor 2 as)) (if (/= pr le) (setq e (1- e)))))))) ;; Trim old leading overlays.