procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Fix errant revert ccb75d7

Browse source 
* lisp/rect.el (rectangle--highlight-for-redisplay): Use region face.
This commit is contained in:
Mark Oteiza 2016-04-26 20:05:57 -04:00
parent 40bfebec83
commit ca87b349af
1 changed files with 3 additions and 3 deletions

6
lisp/rect.el
View file

@ -815,7 +815,7 @@ Ignores `line-move-visual'."
(overlay-put ol 'after-string nil))) (overlay-put ol 'after-string nil)))
((< mright rightcol) ;`rightcol' is past EOL. ((< mright rightcol) ;`rightcol' is past EOL.
(let ((str (rectangle--space-to rightcol))) (let ((str (rectangle--space-to rightcol)))
(put-text-property 0 (length str) 'face 'rectangle-preview str) (put-text-property 0 (length str) 'face 'region str)
;; If cursor happens to be here, draw it at the right place. ;; If cursor happens to be here, draw it at the right place.
(rectangle--place-cursor leftcol left str) (rectangle--place-cursor leftcol left str)
(overlay-put ol 'after-string str))) (overlay-put ol 'after-string str)))
@ -827,7 +827,7 @@ Ignores `line-move-visual'."
(overlay-put ol 'after-string nil) (overlay-put ol 'after-string nil)
(goto-char right) (goto-char right)
(let ((str (rectangle--space-to rightcol))) (let ((str (rectangle--space-to rightcol)))
(put-text-property 0 (length str) 'face 'rectangle-preview str) (put-text-property 0 (length str) 'face 'region str)
(when (= left right) (when (= left right)
(rectangle--place-cursor leftcol left str)) (rectangle--place-cursor leftcol left str))
(overlay-put ol 'after-string str)))) (overlay-put ol 'after-string str))))
@ -837,7 +837,7 @@ Ignores `line-move-visual'."
;; Make zero-width rectangles visible! ;; Make zero-width rectangles visible!
(overlay-put ol 'after-string (overlay-put ol 'after-string
(concat (propertize " " (concat (propertize " "
'face '(rectangle-preview (:height 0.2))) 'face '(region (:height 0.2)))
(overlay-get ol 'after-string)))) (overlay-get ol 'after-string))))
(push ol nrol))) (push ol nrol)))
start end)) start end))