From: Dave Love <fx@gnu.org>
Date: Fri, 27 Oct 2000 15:50:24 +0000 (+0000)
Subject: (refill-late-fill-paragraph-function): New
X-Git-Tag: emacs-pretest-21.0.90~506
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=10ee3d79459b56f8b61863592407a15b8f8eeeb4;p=emacs.git

(refill-late-fill-paragraph-function): New
variable.
(refill-mode): Use it.
---

diff --git a/lisp/textmodes/refill.el b/lisp/textmodes/refill.el
index 78518a9bc96..4e9039c87d4 100644
--- a/lisp/textmodes/refill.el
+++ b/lisp/textmodes/refill.el
@@ -119,6 +119,8 @@ complex processing.")
      (t (refill-fill-paragraph nil)))
     (setq refill-doit nil)))
 
+(defvar refill-late-fill-paragraph-function nil)
+
 ;;;###autoload
 (define-minor-mode refill-mode
   "Toggle Refill minor mode.
@@ -134,12 +136,14 @@ refilling if they would cause auto-filling."
       (progn
 	(add-hook 'after-change-functions 'refill-after-change-function nil t)
 	(add-hook 'post-command-hook 'refill-post-command-function nil t)
+	(set (make-local-variable 'refill-late-fill-paragraph-function)
+	     fill-paragraph-function)
 	(set (make-local-variable 'fill-paragraph-function)
 	     'refill-fill-paragraph)
 	(auto-fill-mode 0))
     (remove-hook 'after-change-functions 'refill-after-change-function t)
     (remove-hook 'post-command-hook 'refill-post-command-function t)
-    (setq fill-paragraph-function nil)))
+    (setq fill-paragraph-function refill-late-fill-paragraph-function)))
 
 (provide 'refill)