diff options
author | Mark Oteiza <mvoteiza@udel.edu> | 2016-04-26 20:05:57 -0400 |
---|---|---|
committer | Mark Oteiza <mvoteiza@udel.edu> | 2016-04-26 20:09:43 -0400 |
commit | ca87b349af02cf6761da576ae892d77d167d863e (patch) | |
tree | 9d36d430dbed6845c4673825b1ffa594f8cc408e /lisp/rect.el | |
parent | 40bfebec83b7571b4ee5e3140e2b5a99105325bd (diff) | |
download | emacs-ca87b349af02cf6761da576ae892d77d167d863e.tar.gz |
; Fix errant revert ccb75d7
* lisp/rect.el (rectangle--highlight-for-redisplay): Use region face.
Diffstat (limited to 'lisp/rect.el')
-rw-r--r-- | lisp/rect.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/rect.el b/lisp/rect.el index e9a4f4574e3..6aa7b8b585b 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)) |