From aa648601df886d7336e064caf6d7f72b05244b93 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 31 Dec 1993 06:45:33 +0000 Subject: [PATCH] (open-line): Properly put fill-prefix on each line. --- lisp/simple.el | 11 ++++++----- 1 file 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 () -- 2.39.5