(clear-rectangle-line): Reindent to the same column

that move-to-column reached when it tried to go to endcol.

1 files changed, 3 insertions, 4 deletions

diff --git a/lisp/rect.el b/lisp/rect.el
index 3c5ea78a36f..84094cdb6ea 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -367,8 +367,7 @@ rectangle which were empty."
   (apply-on-rectangle 'clear-rectangle-line start end fill))
 
 (defun clear-rectangle-line (startcol endcol fill)
-  (let ((pt (point-at-eol))
-        spaces)
+  (let ((pt (point-at-eol)))
     (when (= (move-to-column startcol (or fill 'coerce)) startcol)
       (if (and (not fill)
                (<= (save-excursion (goto-char pt) (current-column)) endcol))
@@ -376,9 +375,9 @@ rectangle which were empty."
         ;; else
         (setq pt (point))
         (move-to-column endcol t)
-        (setq spaces (- (point) pt))
+        (setq endcol (current-column))
         (delete-region pt (point))
-        (indent-to (+ (current-column) spaces))))))
+        (indent-to endcol)))))
 
 (provide 'rect)