Install notification handlers when enabling the auto-revert modes.

* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode): Remove (let (auto-revert-use-notify) ... )
wrappers.  Call (auto-revert-buffers) consequently in order to
install handlers.
This commit is contained in:
Dima Kogan
2015-02-21 10:47:22 +01:00
committed by Michael Albinus
parent 3ebf06300b
commit 6982acc4e1
2 changed files with 11 additions and 7 deletions

View File

@@ -1,3 +1,10 @@
2015-02-21 Dima Kogan <dima@secretsauce.net>
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode): Remove (let (auto-revert-use-notify) ... )
wrappers. Call (auto-revert-buffers) consequently in order to
install handlers.
2015-02-21 Wilson Snyder <wsnyder@wsnyder.org>
Sync with upstream verilog-mode revision 0d6420b.

View File

@@ -361,9 +361,8 @@ without being changed in the part that is already in the buffer."
(delq (current-buffer) auto-revert-buffer-list)))
(auto-revert-set-timer)
(when auto-revert-mode
(let (auto-revert-use-notify)
(auto-revert-buffers)
(setq auto-revert-tail-mode nil))))
(auto-revert-buffers)
(setq auto-revert-tail-mode nil)))
;;;###autoload
@@ -417,8 +416,7 @@ Use `auto-revert-mode' for changes other than appends!"
(y-or-n-p "File changed on disk, content may be missing. \
Perform a full revert? ")
;; Use this (not just revert-buffer) for point-preservation.
(let (auto-revert-use-notify)
(auto-revert-handler)))
(auto-revert-buffers))
;; else we might reappend our own end when we save
(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
@@ -463,8 +461,7 @@ specifies in the mode line."
:global t :group 'auto-revert :lighter global-auto-revert-mode-text
(auto-revert-set-timer)
(if global-auto-revert-mode
(let (auto-revert-use-notify)
(auto-revert-buffers))
(auto-revert-buffers)
(dolist (buf (buffer-list))
(with-current-buffer buf
(when auto-revert-use-notify