From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 31 Aug 1992 20:22:03 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-19.34~14788
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/616ed245e9bc6cca7fb41575193ac6dcf5ea422e

*** empty log message ***
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 69414a3cb1..3499fbd554 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -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))))