# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 715292523 0
# Node ID 25b929c06f8384bdd5974680005f5ee68399bbc9
# Parent  35cc957d83d4f96b91ebcc879cef8148244d8e2c
*** empty log message ***

diff -r 35cc957d83d4 -r 25b929c06f83 lisp/simple.el
--- a/lisp/simple.el	Mon Aug 31 18:25:44 1992 +0000
+++ b/lisp/simple.el	Mon Aug 31 20:22:03 1992 +0000
@@ -22,15 +22,17 @@
 
 (defun open-line (arg)
   "Insert a newline and leave point before it.
-If there is a fill prefix, insert the fill prefix after the newline
-that it inserts.  With arg N, insert N newlines."
+If there is a fill prefix, insert the fill prefix on the new line
+if the line would have been empty.
+With arg N, insert N newlines."
   (interactive "*p")
-  (let ((flag (and (bolp) (not (bobp)))))
+  (let* ((do-fill-prefix (and fill-prefix (bolp)))
+	 (flag (and (null do-fill-prefix) (bolp) (not (bobp)))))
     (if flag (forward-char -1))
     (while (> arg 0)
       (save-excursion
-        (insert ?\n)
-	(if fill-prefix (insert fill-prefix)))
+        (insert ?\n))
+      (if do-fill-prefix (insert fill-prefix))
       (setq arg (1- arg)))
     (if flag (forward-char 1))))