andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(find-file-hook, auto-revert-tail-mode):

Browse source 
Use file size in bytes for auto-revert-tail-pos not characters.
This commit is contained in:
Jason Rumney 2007-03-24 13:39:21 +00:00
parent 2eed4e6824
commit ced3c1e229
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/autorevert.el
View file

@ -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))