emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/textmodes/refill.el


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/textmodes/refill.el
Date: Sat, 22 Dec 2001 07:25:14 -0500

Index: emacs/lisp/textmodes/refill.el
diff -c emacs/lisp/textmodes/refill.el:1.8 emacs/lisp/textmodes/refill.el:1.9
*** emacs/lisp/textmodes/refill.el:1.8  Sat Oct 13 15:16:56 2001
--- emacs/lisp/textmodes/refill.el      Sat Dec 22 07:25:14 2001
***************
*** 222,229 ****
  changes are made within it.  Self-inserting characters only cause
  refilling if they would cause auto-filling."
    nil " Refill" '(("\177" . backward-delete-char-untabify))
!   ;; This provides the test for recursive paragraph filling.
!   (make-local-variable 'fill-paragraph-function)
    (if refill-mode
        (progn
        (add-hook 'after-change-functions 'refill-after-change-function nil t)
--- 222,234 ----
  changes are made within it.  Self-inserting characters only cause
  refilling if they would cause auto-filling."
    nil " Refill" '(("\177" . backward-delete-char-untabify))
!   ;; Remove old state if necessary
!   (when refill-ignorable-overlay
!     (delete-overlay refill-ignorable-overlay)
!     (kill-local-variable 'refill-ignorable-overlay))
!   (when refill-late-fill-paragraph-function
!     (setq fill-paragraph-function refill-late-fill-paragraph-function)
!     (kill-local-variable 'refill-late-fill-paragraph-function))
    (if refill-mode
        (progn
        (add-hook 'after-change-functions 'refill-after-change-function nil t)
***************
*** 231,236 ****
--- 236,242 ----
        (add-hook 'pre-command-hook 'refill-pre-command-function nil t)
        (set (make-local-variable 'refill-late-fill-paragraph-function)
             fill-paragraph-function)
+       ;; This provides the test for recursive paragraph filling.
        (set (make-local-variable 'fill-paragraph-function)
             'refill-fill-paragraph)
        ;; When using justification, doing DEL on 2 spaces should remove
***************
*** 245,252 ****
        (auto-fill-mode 0))
      (remove-hook 'after-change-functions 'refill-after-change-function t)
      (remove-hook 'post-command-hook 'refill-post-command-function t)
-     (delete-overlay refill-ignorable-overlay)
-     (setq fill-paragraph-function refill-late-fill-paragraph-function)
      (kill-local-variable 'backward-delete-char-untabify-method)))
  
  (provide 'refill)
--- 251,256 ----



reply via email to

[Prev in Thread] Current Thread [Next in Thread]