From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 27 Aug 1994 19:40:47 +0000 (+0000)
Subject: (indent-rigidly): Insert new indent, then delete old.
X-Git-Tag: emacs-19.34~7212
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c1194ae809da0a5c435bd10fcf3ff4248bd3c869;p=emacs.git

(indent-rigidly): Insert new indent, then delete old.
---

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)))