From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 13 Apr 2011 14:27:41 +0000 (+0200)
Subject: lisp/autorevert.el: Use `remote-file-name-inhibit-cache'.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~290^2~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=06641a4768b86697dc495459a01431c0f61041d3;p=emacs.git

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 5f04d5a2f11..e18f562eaf3 100644
--- 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 2bc7310d7e5..c67b6663bd0 100644
--- 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)