From 7dfee0293db4f22fa771a8f68f7bdf45c4accec8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 26 Feb 2002 16:05:48 +0000 Subject: [PATCH] (clear-rectangle-line): Reindent to the same column that move-to-column reached when it tried to go to endcol. --- lisp/rect.el | 7 +++---- 1 file 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) -- 2.39.2