From ca87b349af02cf6761da576ae892d77d167d863e Mon Sep 17 00:00:00 2001 From: Mark Oteiza Date: Tue, 26 Apr 2016 20:05:57 -0400 Subject: [PATCH] ; Fix errant revert ccb75d7 * lisp/rect.el (rectangle--highlight-for-redisplay): Use region face. --- lisp/rect.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/rect.el b/lisp/rect.el index e9a4f4574e..6aa7b8b585 100644 --- a/lisp/rect.el +++ b/lisp/rect.el @@ -815,7 +815,7 @@ Ignores `line-move-visual'." (overlay-put ol 'after-string nil))) ((< mright rightcol) ;`rightcol' is past EOL. (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. (rectangle--place-cursor leftcol left str) (overlay-put ol 'after-string str))) @@ -827,7 +827,7 @@ Ignores `line-move-visual'." (overlay-put ol 'after-string nil) (goto-char right) (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) (rectangle--place-cursor leftcol left str)) (overlay-put ol 'after-string str)))) @@ -837,7 +837,7 @@ Ignores `line-move-visual'." ;; Make zero-width rectangles visible! (overlay-put ol 'after-string (concat (propertize " " - 'face '(rectangle-preview (:height 0.2))) + 'face '(region (:height 0.2))) (overlay-get ol 'after-string)))) (push ol nrol))) start end)) -- 2.39.2