@@ -347,6 +347,8 @@ the list of old buffers.")
347347
348348(add-hook 'find-file-hook
349349 #'auto-revert-find-file-function )
350+ (add-hook 'after-set-visited-file-name-hook
351+ #'auto-revert-set-visited-file-name )
350352
351353(defvar auto-revert--buffers-by-watch-descriptor
352354 (make-hash-table :test 'equal )
@@ -508,8 +510,6 @@ specifies in the mode line."
508510 (auto-revert--global-add-current-buffer)))
509511 ; ; Make sure future buffers are added as well.
510512 (add-hook 'find-file-hook #'auto-revert--global-adopt-current-buffer )
511- (add-hook 'after-set-visited-file-name-hook
512- #'auto-revert--global-set-visited-file-name )
513513 ; ; To track non-file buffers, we need to listen in to buffer
514514 ; ; creation in general. Listening to major-mode changes is
515515 ; ; suitable, since we then know whether it's a mode that is tracked.
@@ -520,8 +520,6 @@ specifies in the mode line."
520520 ; ; Turn global-auto-revert-mode OFF.
521521 (remove-hook 'after-change-major-mode-hook
522522 #'auto-revert--global-adopt-current-buffer )
523- (remove-hook 'after-set-visited-file-name-hook
524- #'auto-revert--global-set-visited-file-name )
525523 (remove-hook 'find-file-hook #'auto-revert--global-adopt-current-buffer )
526524 (dolist (buf (buffer-list ))
527525 (with-current-buffer buf
@@ -551,14 +549,17 @@ specifies in the mode line."
551549 (auto-revert--global-add-current-buffer)
552550 (auto-revert-set-timer ))
553551
554- (defun auto-revert--global- set-visited-file-name ()
555- " Update Global Auto-Revert management of the current buffer.
552+ (defun auto-revert-set-visited-file-name ()
553+ " Update Auto-Revert management of the current buffer.
556554Called after `set-visited-file-name' ."
557- ; ; Remove any existing notifier first so that we don't track the
558- ; ; wrong file in case the file name was changed.
559555 (when auto-revert-notify-watch-descriptor
556+ ; ; Remove any existing notifier so that we don't track the wrong
557+ ; ; file in case the file name was changed.
560558 (auto-revert-notify-rm-watch ))
561- (auto-revert--global-adopt-current-buffer))
559+ (cond (global-auto-revert-mode
560+ (auto-revert--global-adopt-current-buffer))
561+ ((or auto-revert-mode auto-revert-tail-mode)
562+ (auto-revert-set-timer ))))
562563
563564(defun auto-revert--polled-buffers ()
564565 " List of buffers that need to be polled."
0 commit comments