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

[Chong Yidong]

Index: emacs/lisp/longlines.el
diff -c emacs/lisp/longlines.el:1.16 emacs/lisp/longlines.el:1.17
*** emacs/lisp/longlines.el:1.16        Fri Nov 18 19:42:08 2005
--- emacs/lisp/longlines.el     Sat Nov 19 17:29:20 2005
***************
*** 108,113 ****
--- 108,114 ----
          (set (make-local-variable 'require-final-newline) nil)
          (add-to-list 'buffer-file-format 'longlines)
          (add-hook 'change-major-mode-hook 'longlines-mode-off nil t)
+       (add-hook 'before-revert-hook 'longlines-before-revert-hook nil t)
          (make-local-variable 'buffer-substring-filters)
        (set (make-local-variable 'isearch-search-fun-function)
             'longlinges-search-function)
***************
*** 166,171 ****
--- 167,173 ----
      (remove-hook 'before-kill-functions 'longlines-encode-region t)
      (remove-hook 'after-change-functions 'longlines-after-change-function t)
      (remove-hook 'post-command-hook 'longlines-post-command-function t)
+     (remove-hook 'before-revert-hook 'longlines-before-revert-hook t)
      (remove-hook 'window-configuration-change-hook
                   'longlines-window-change-function t)
      (when longlines-wrap-follows-window-size
***************
*** 430,439 ****
  
  ;; Loading and saving
  
  (add-to-list
   'format-alist
!  (list 'longlines "Automatically wrap long lines." nil
!        'longlines-decode-region 'longlines-encode-region t nil))
  
  (provide 'longlines)
  
--- 432,449 ----
  
  ;; Loading and saving
  
+ (defun longlines-before-revert-hook ()
+   (add-hook 'after-revert-hook 'longlines-after-revert-hook nil t)
+   (longlines-mode 0))
+ 
+ (defun longlines-after-revert-hook ()
+   (remove-hook 'after-revert-hook 'longlines-after-revert-hook t)
+   (longlines-mode 1))
+ 
  (add-to-list
   'format-alist
!  (list 'longlines-encode "Encode long lines." nil nil
!        'longlines-encode-region t nil))
  
  (provide 'longlines)