From ced3c1e229c74188440c1adba3c231f2aa24e130 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Sat, 24 Mar 2007 13:39:21 +0000 Subject: [PATCH] (find-file-hook, auto-revert-tail-mode): Use file size in bytes for auto-revert-tail-pos not characters. --- lisp/autorevert.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.39.5