From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 31 Dec 1993 06:45:33 +0000 (+0000)
Subject: (open-line): Properly put fill-prefix on each line.
X-Git-Tag: emacs-19.34~10468
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa648601df886d7336e064caf6d7f72b05244b93;p=emacs.git

(open-line): Properly put fill-prefix on each line.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 2a471f61f9e..8eb0ace9d46 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -44,11 +44,12 @@ With arg N, insert N newlines."
 	  (if (and buffer-undo-list (not (eq buffer-undo-list t)))
 	      (setq buffer-undo-list (cons (point) buffer-undo-list)))
 	  (forward-char -1)))
-    (while (> arg 0)
-      (save-excursion
-        (insert ?\n)
-	(if do-fill-prefix (insert fill-prefix)))
-      (setq arg (1- arg)))
+    (save-excursion
+      (while (> arg 0)
+	(if do-fill-prefix (insert fill-prefix))
+	(insert ?\n)
+	(setq arg (1- arg))))
+    (end-of-line)
     (if flag (forward-char 1))))
 
 (defun split-line ()