Mercurial > emacs

changeset 5383:037e2641c768

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(open-line): Properly put fill-prefix on each line.
author Richard M. Stallman <rms@gnu.org>
date Fri, 31 Dec 1993 06:45:33 +0000
parents 00f76e4f7f13
children ec02e2f72eae
files lisp/simple.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Fri Dec 31 05:52:54 1993 +0000
+++ b/lisp/simple.el	Fri Dec 31 06:45:33 1993 +0000
@@ -44,11 +44,12 @@
 	  (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 ()