# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1132421360 0
# Node ID e220d76071f7ab939226f347971aa3a40f331958
# Parent  2385088bbb846dadff0a35ad26f05e4d4c6ec1b8
	* longlines.el (longlines-before-revert-hook)
	(longlines-after-revert-hook): New functions.
	(longlines-mode): Turn off longlines temporarily when reverting.

diff -r 2385088bbb84 -r e220d76071f7 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Nov 19 17:13:07 2005 +0000
+++ b/lisp/ChangeLog	Sat Nov 19 17:29:20 2005 +0000
@@ -1,3 +1,9 @@
+2005-11-19  Chong Yidong  <cyd@stupidchicken.com>
+
+	* longlines.el (longlines-before-revert-hook)
+	(longlines-after-revert-hook): New functions.
+	(longlines-mode): Turn off longlines temporarily when reverting.
+
 2005-11-19  Andreas Schwab  <schwab@suse.de>
 
 	* emacs-lisp/shadow.el: Handle compressed files.
diff -r 2385088bbb84 -r e220d76071f7 lisp/longlines.el
--- a/lisp/longlines.el	Sat Nov 19 17:13:07 2005 +0000
+++ b/lisp/longlines.el	Sat Nov 19 17:29:20 2005 +0000
@@ -108,6 +108,7 @@
         (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,6 +167,7 @@
     (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,10 +432,18 @@
 
 ;; 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 "Automatically wrap long lines." nil
-       'longlines-decode-region 'longlines-encode-region t nil))
+ (list 'longlines-encode "Encode long lines." nil nil
+       'longlines-encode-region t nil))
 
 (provide 'longlines)