From c1194ae809da0a5c435bd10fcf3ff4248bd3c869 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 27 Aug 1994 19:40:47 +0000 Subject: [PATCH] (indent-rigidly): Insert new indent, then delete old. --- lisp/indent.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/indent.el b/lisp/indent.el index f869b175f75..27270fb4110 100644 --- a/lisp/indent.el +++ b/lisp/indent.el @@ -59,10 +59,14 @@ Called from a program, takes three arguments, START, END and ARG." (goto-char start) (or (bolp) (forward-line 1)) (while (< (point) end) - (let ((indent (current-indentation))) - (delete-region (point) (progn (skip-chars-forward " \t") (point))) - (or (eolp) - (indent-to (max 0 (+ indent arg)) 0))) + (let ((indent (current-indentation)) + eol-flag) + (save-excursion + (skip-chars-forward " \t") + (setq eol-flag (eolp))) + (or eol-flag + (indent-to (max 0 (+ indent arg)) 0)) + (delete-region (point) (progn (skip-chars-forward " \t") (point)))) (forward-line 1)) (move-marker end nil))) -- 2.39.5