lisp/autorevert.el: Use `remote-file-name-inhibit-cache'.

* autorevert.el (auto-revert-handler):
  Bind `remote-file-name-inhibit-cache', not `tramp-cache-inhibit-cache',
  which was removed in 2010-10-02T13:21:43Z!michael.albinus@gmx.de.
  Don't quote lambda.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5f04d5a..e18f562 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2011-04-13  Juanma Barranquero  <lekktu@gmail.com>
 
+       * autorevert.el (auto-revert-handler):
+       Bind `remote-file-name-inhibit-cache', not `tramp-cache-inhibit-cache',
+       which was removed in 2010-10-02T13:21:43Z!michael.albinus@gmx.de.
+       Don't quote lambda.
+
        * image-mode.el (image-transform-set-scale):
        Fix change in 2011-04-09T20:28:01Z!cyd@stupidchicken.com.
 

diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 2bc7310..c67b666 100644 (file)
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -434,9 +434,9 @@ This is an internal function used by Auto-Revert Mode."
                     (file-readable-p buffer-file-name)
                     (if auto-revert-tail-mode
                         ;; Tramp caches the file attributes.  Setting
-                        ;; `tramp-cache-inhibit' forces Tramp to
-                        ;; reread the values.
-                        (let ((tramp-cache-inhibit-cache t))
+                        ;; `remote-file-name-inhibit-cache' forces Tramp
+                        ;; to reread the values.
+                        (let ((remote-file-name-inhibit-cache t))
                           (/= auto-revert-tail-pos
                               (setq size
                                     (nth 7 (file-attributes
@@ -460,10 +460,10 @@ This is an internal function used by Auto-Revert Mode."
        (when buffer-file-name
          (setq eob (eobp))
          (walk-windows
-          #'(lambda (window)
-              (and (eq (window-buffer window) buffer)
-                   (= (window-point window) (point-max))
-                   (push window eoblist)))
+          (lambda (window)
+            (and (eq (window-buffer window) buffer)
+                 (= (window-point window) (point-max))
+                 (push window eoblist)))
           'no-mini t))
        (if auto-revert-tail-mode
            (auto-revert-tail-handler size)