From: Michael Albinus Date: Sun, 11 Mar 2012 17:58:16 +0000 (+0100) Subject: * autorevert.el (auto-revert-handler): Ensure, that X-Git-Tag: emacs-pretest-24.0.05~95 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8f75469172437f64824113db6ff0d0c5083bfdc6;p=emacs.git * autorevert.el (auto-revert-handler): Ensure, that file-readable-p is applied only for local files or in auto-revert-tail-mode. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0e2a791f0e9..c11c60bdd6d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2012-03-11 Michael Albinus + + * autorevert.el (auto-revert-handler): Ensure, that + file-readable-p is applied only for local files or in + auto-revert-tail-mode. + 2012-03-11 Andreas Schwab * server.el (server-eval-at): Handle non-tcp connections. Decode 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)