diff options
| -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'." | |||
| 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)) |