diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-06-05 22:27:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-06-05 22:27:42 +0000 |
| commit | bb801a426fe50e750e022e36868e8cf84ff1d069 (patch) | |
| tree | cca53ed974c0faa9f95f6acde80f95178f772fad | |
| parent | cd58c0376c73e0c4ce88241bd401dcc620f5c3ed (diff) | |
| download | emacs-bb801a426fe50e750e022e36868e8cf84ff1d069.tar.gz | |
(fill-paragraph):
Bind fill-paragraph-function to nil, if it doesn't do the job.
| -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." (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)) |