diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2012-03-11 18:58:16 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2012-03-11 18:58:16 +0100 |
| commit | 8f75469172437f64824113db6ff0d0c5083bfdc6 (patch) | |
| tree | b05a17dce233517cf82ad3bd878f3f60fb62aae5 /lisp/autorevert.el | |
| parent | ad0bf5b6db5b1d8ea654f62675b2484111594ffc (diff) | |
| download | emacs-8f75469172437f64824113db6ff0d0c5083bfdc6.tar.gz | |
* autorevert.el (auto-revert-handler): Ensure, that
file-readable-p is applied only for local files or in
auto-revert-tail-mode.
Diffstat (limited to 'lisp/autorevert.el')
| -rw-r--r-- | lisp/autorevert.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/autorevert.el b/lisp/autorevert.el index c0a77bd5935..40cf79a6428 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -439,17 +439,18 @@ This is an internal function used by Auto-Revert Mode." (let* ((buffer (current-buffer)) size (revert (or (and buffer-file-name - (file-readable-p buffer-file-name) (if auto-revert-tail-mode ;; Tramp caches the file attributes. Setting ;; `remote-file-name-inhibit-cache' forces Tramp ;; to reread the values. (let ((remote-file-name-inhibit-cache t)) + (file-readable-p buffer-file-name) (/= auto-revert-tail-pos (setq size (nth 7 (file-attributes buffer-file-name))))) (and (not (file-remote-p buffer-file-name)) + (file-readable-p buffer-file-name) (not (verify-visited-file-modtime buffer))))) (and (or auto-revert-mode global-auto-revert-non-file-buffers) |