diff options
| -rw-r--r-- | lisp/textmodes/fill.el | 5 |
1 files changed, 4 insertions, 1 deletions
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." | |||
| 572 | (let ((function fill-paragraph-function) | 572 | (let ((function fill-paragraph-function) |
| 573 | fill-paragraph-function) | 573 | fill-paragraph-function) |
| 574 | (funcall function arg))) | 574 | (funcall function arg))) |
| 575 | (let ((before (point))) | 575 | (let ((before (point)) |
| 576 | ;; If fill-paragraph is called recursively, | ||
| 577 | ;; don't give fill-paragraph-function a second chance. | ||
| 578 | fill-paragraph-function) | ||
| 576 | (save-excursion | 579 | (save-excursion |
| 577 | (forward-paragraph) | 580 | (forward-paragraph) |
| 578 | (or (bolp) (newline 1)) | 581 | (or (bolp) (newline 1)) |