diff options
| author | Richard M. Stallman | 1995-02-02 19:28:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-02-02 19:28:31 +0000 |
| commit | e86fe0d7893ddc1998668d1dfc8cd8440ed365a5 (patch) | |
| tree | f2041a6ff64190d7136e7cd920762e24f8b42843 | |
| parent | 4581e9282b7fc20505c6267157b321e5f2a5cc94 (diff) | |
| download | emacs-e86fe0d7893ddc1998668d1dfc8cd8440ed365a5.tar.gz emacs-e86fe0d7893ddc1998668d1dfc8cd8440ed365a5.zip | |
(fill-paragraph): Bind fill-paragraph-function to nil before calling it.
| -rw-r--r-- | lisp/textmodes/fill.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 79714d91c1c..dc70406a326 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el | |||
| @@ -326,7 +326,9 @@ If `fill-paragraph-function' is non-nil, we call it (passing our | |||
| 326 | argument to it), and if it returns non-nil, we simply return its value." | 326 | argument to it), and if it returns non-nil, we simply return its value." |
| 327 | (interactive "P") | 327 | (interactive "P") |
| 328 | (or (and fill-paragraph-function | 328 | (or (and fill-paragraph-function |
| 329 | (funcall fill-paragraph-function arg)) | 329 | (let ((function fill-paragraph-function) |
| 330 | fill-paragraph-function) | ||
| 331 | (funcall function arg))) | ||
| 330 | (let ((before (point))) | 332 | (let ((before (point))) |
| 331 | (save-excursion | 333 | (save-excursion |
| 332 | (forward-paragraph) | 334 | (forward-paragraph) |