Commit b53b41ba authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(cua--highlight-rectangle): Set overlay

cursor property value to 2 (to align with C level change).
parent 45c1c789
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment