Mercurial > emacs

changeset 32960:0756037b6de5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(refill-late-fill-paragraph-function): New variable. (refill-mode): Use it.
author Dave Love <fx@gnu.org>
date Fri, 27 Oct 2000 15:50:24 +0000
parents 846bba8718d8
children 5357dbf00515
files lisp/textmodes/refill.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)