[Emacs-diffs] /srv/bzr/emacs/trunk r107577: * autorevert.el (auto-revert-handler): Ensure, that

[Michael Albinus]

------------------------------------------------------------
revno: 107577
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Sun 2012-03-11 18:58:16 +0100
message:
  * autorevert.el (auto-revert-handler): Ensure, that
  file-readable-p is applied only for local files or in
  auto-revert-tail-mode.
modified:
  lisp/ChangeLog
  lisp/autorevert.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-03-11 17:54:16 +0000
+++ b/lisp/ChangeLog    2012-03-11 17:58:16 +0000
@@ -1,3 +1,9 @@
+2012-03-11  Michael Albinus  <address@hidden>
+
+       * 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  <address@hidden>
 
        * server.el (server-eval-at): Handle non-tcp connections.  Decode

=== modified file 'lisp/autorevert.el'
--- a/lisp/autorevert.el        2012-01-19 07:21:25 +0000
+++ b/lisp/autorevert.el        2012-03-11 17:58:16 +0000
@@ -439,17 +439,18 @@
     (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)