mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(cua--highlight-rectangle): Set overlay

Browse Source 
cursor property value to 2 (to align with C level change).
This commit is contained in:
Kim F. Storm 2006-03-19 19:59:33 +00:00
parent 45c1c789a5
commit b53b41baa1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/emulation/cua-rect.el
View File

@ -799,8 +799,8 @@ If command is repeated at same position, delete the rectangle."
(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 command is repeated at same position, delete the rectangle."
(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.