From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 5 Jun 1998 22:27:42 +0000 (+0000)
Subject: (fill-paragraph):
X-Git-Tag: emacs-20.3~711
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb801a426fe50e750e022e36868e8cf84ff1d069;p=emacs.git

(fill-paragraph):
Bind fill-paragraph-function to nil, if it doesn't do the job.
---

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 3bafa4a82d6..4f0d16ffc68 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -572,7 +572,10 @@ argument to it), and if it returns non-nil, we simply return its value."
 	   (let ((function fill-paragraph-function)
 		 fill-paragraph-function)
 	     (funcall function arg)))
-      (let ((before (point)))
+      (let ((before (point))
+	    ;; If fill-paragraph is called recursively,
+	    ;; don't give fill-paragraph-function a second chance.
+	    fill-paragraph-function)
 	(save-excursion
 	  (forward-paragraph)
 	  (or (bolp) (newline 1))