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

1 files changed, 6 insertions, 5 deletions

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