mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 06:01:22 -08:00
Code Issues Projects Releases Wiki Activity

(auto-revert-handler): Handle auto-revert-mode.

Browse source 
Call vc-find-file-hook here instead of in auto-revert-buffers.
(auto-revert-buffers): Delete call to vc-find-file-hook.
This commit is contained in:
Luc Teirlinck 2004-03-28 01:39:49 +00:00
parent 692feebddf
commit c86afc19df
2 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2004-03-27 Luc Teirlinck <teirllm@auburn.edu>
* autorevert.el (auto-revert-handler): Handle auto-revert-mode.
Call vc-find-file-hook here instead of in auto-revert-buffers.
(auto-revert-buffers): Delete call to vc-find-file-hook.
2004-03-27 Francis J. Wright <F.J.Wright@qmul.ac.uk>
* woman.el (woman-change-fonts): Rename local variable

11
lisp/autorevert.el
View file

@ -341,7 +341,7 @@ Use `auto-revert-mode' to revert a particular buffer."
((or (and (buffer-file-name)
(file-readable-p (buffer-file-name))
(not (verify-visited-file-modtime (current-buffer))))
(and global-auto-revert-non-file-buffers
(and (or auto-revert-mode global-auto-revert-non-file-buffers)
revert-buffer-function
(boundp 'buffer-stale-function)
(functionp buffer-stale-function)
@ -351,6 +351,9 @@ Use `auto-revert-mode' to revert a particular buffer."
(when auto-revert-verbose
(message "Reverting buffer `%s'." (buffer-name)))
(revert-buffer 'ignore-auto 'dont-ask 'preserve-modes)
;; `preserve-modes' avoids changing the (minor) modes. But we
;; do want to reset the mode for VC, so we do it explicitly.
(vc-find-file-hook)
(if (eq revert 'vc)
(vc-mode-line buffer-file-name))))))
@ -404,11 +407,7 @@ the timer when no buffers need to be checked."
(memq buf auto-revert-buffer-list))
(setq auto-revert-buffer-list
(delq buf auto-revert-buffer-list)))
(when (auto-revert-active-p)
(auto-revert-handler)
;; `preserve-modes' avoids changing the (minor) modes. But we
;; do want to reset the mode for VC, so we do it explicitly.
(vc-find-file-hook)))
(when (auto-revert-active-p) (auto-revert-handler)))
;; Remove dead buffer from `auto-revert-buffer-list'.
(setq auto-revert-buffer-list
(delq buf auto-revert-buffer-list))))