# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 972661824 0
# Node ID 0756037b6de50090245125078156b10a0fb8643d
# Parent  846bba8718d87fb11d93d766aa08ca2ebfd896f7
(refill-late-fill-paragraph-function): New
variable.
(refill-mode): Use it.

diff -r 846bba8718d8 -r 0756037b6de5 lisp/textmodes/refill.el
--- a/lisp/textmodes/refill.el	Fri Oct 27 15:07:46 2000 +0000
+++ b/lisp/textmodes/refill.el	Fri Oct 27 15:50:24 2000 +0000
@@ -119,6 +119,8 @@
      (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 @@
       (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)