From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 4 Sep 1998 20:37:22 +0000 (+0000)
Subject: (fill-individual-paragraphs): Before deleting
X-Git-Tag: emacs-20.4~1765
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c97a5db406f6993d1cf633be8d17356a2f595b9f;p=emacs.git

(fill-individual-paragraphs): Before deleting
the inserted newline, verify that one was really inserted.
---

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 0886ecfb152..a4b515c0b65 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -1055,7 +1055,8 @@ Also, if CITATION-REGEXP is non-nil,  don't fill header lines."
 	  ;; 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 "")