aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/rect.el6
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'."
815 (overlay-put ol 'after-string nil))) 815 (overlay-put ol 'after-string nil)))
816 ((< mright rightcol) ;`rightcol' is past EOL. 816 ((< mright rightcol) ;`rightcol' is past EOL.
817 (let ((str (rectangle--space-to rightcol))) 817 (let ((str (rectangle--space-to rightcol)))
818 (put-text-property 0 (length str) 'face 'rectangle-preview str) 818 (put-text-property 0 (length str) 'face 'region str)
819 ;; If cursor happens to be here, draw it at the right place. 819 ;; If cursor happens to be here, draw it at the right place.
820 (rectangle--place-cursor leftcol left str) 820 (rectangle--place-cursor leftcol left str)
821 (overlay-put ol 'after-string str))) 821 (overlay-put ol 'after-string str)))
@@ -827,7 +827,7 @@ Ignores `line-move-visual'."
827 (overlay-put ol 'after-string nil) 827 (overlay-put ol 'after-string nil)
828 (goto-char right) 828 (goto-char right)
829 (let ((str (rectangle--space-to rightcol))) 829 (let ((str (rectangle--space-to rightcol)))
830 (put-text-property 0 (length str) 'face 'rectangle-preview str) 830 (put-text-property 0 (length str) 'face 'region str)
831 (when (= left right) 831 (when (= left right)
832 (rectangle--place-cursor leftcol left str)) 832 (rectangle--place-cursor leftcol left str))
833 (overlay-put ol 'after-string str)))) 833 (overlay-put ol 'after-string str))))
@@ -837,7 +837,7 @@ Ignores `line-move-visual'."
837 ;; Make zero-width rectangles visible! 837 ;; Make zero-width rectangles visible!
838 (overlay-put ol 'after-string 838 (overlay-put ol 'after-string
839 (concat (propertize " " 839 (concat (propertize " "
840 'face '(rectangle-preview (:height 0.2))) 840 'face '(region (:height 0.2)))
841 (overlay-get ol 'after-string)))) 841 (overlay-get ol 'after-string))))
842 (push ol nrol))) 842 (push ol nrol)))
843 start end)) 843 start end))