Mercurial > emacs

changeset 22367:5485d428a9c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fill-paragraph): Bind fill-paragraph-function to nil, if it doesn't do the job.
author Richard M. Stallman <rms@gnu.org>
date Fri, 05 Jun 1998 22:27:42 +0000
parents 804f5341ce1d
children c3a15ab5924f
files lisp/textmodes/fill.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/fill.el	Fri Jun 05 19:26:52 1998 +0000
+++ b/lisp/textmodes/fill.el	Fri Jun 05 22:27:42 1998 +0000
@@ -572,7 +572,10 @@
 	   (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))