# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 904941442 0
# Node ID 973ac8db2f921fe9849eabc35ce3bc8dd317f678
# Parent  3a0c163d32a69665ff1cca5b5e604f368d7ab230
(fill-individual-paragraphs): Before deleting
the inserted newline, verify that one was really inserted.

diff -r 3a0c163d32a6 -r 973ac8db2f92 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Fri Sep 04 20:30:21 1998 +0000
+++ b/lisp/textmodes/fill.el	Fri Sep 04 20:37:22 1998 +0000
@@ -1055,7 +1055,8 @@
 	  ;; Fill this paragraph, but don't add a newline at the end.
 	  (let ((had-newline (bolp)))
 	    (fill-region-as-paragraph start (point) justify)
-	    (or had-newline (delete-char -1))))))))
+	    (if (and (bolp) (not had-newline))
+		(delete-char -1))))))))
 
 (defun fill-individual-paragraphs-prefix (citation-regexp)
   (or (let ((adaptive-fill-first-line-regexp "")