From: Jason Rumney <jasonr@gnu.org>
Date: Sat, 24 Mar 2007 13:39:21 +0000 (+0000)
Subject: (find-file-hook, auto-revert-tail-mode):
X-Git-Tag: emacs-pretest-22.0.97~211
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ced3c1e229c74188440c1adba3c231f2aa24e130;p=emacs.git

(find-file-hook, auto-revert-tail-mode):
Use file size in bytes for auto-revert-tail-pos not characters.
---

diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index bd9d6fe76e8..170ca4b88c2 100644
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -278,7 +278,7 @@ the list of old buffers.")
 (add-hook 'find-file-hook
 	  (lambda ()
 	    (set (make-local-variable 'auto-revert-tail-pos)
-		 (save-restriction (widen) (1- (point-max))))))
+		 (nth 7 (file-attributes buffer-file-name)))))
 
 ;; Functions:
 
@@ -341,7 +341,7 @@ Use `auto-revert-mode' for changes other than appends!"
       (add-hook 'before-save-hook (lambda () (auto-revert-tail-mode 0)) nil t)
       (or (local-variable-p 'auto-revert-tail-pos) ; don't lose prior position
 	  (set (make-local-variable 'auto-revert-tail-pos)
-	       (save-restriction (widen) (1- (point-max)))))
+	       (nth 7 (file-attributes buffer-file-name))))
       ;; let auto-revert-mode set up the mechanism for us if it isn't already
       (or auto-revert-mode
 	  (let ((auto-revert-tail-mode t))