summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2011-04-13 16:27:41 +0200
committerJuanma Barranquero <lekktu@gmail.com>2011-04-13 16:27:41 +0200
commit06641a4768b86697dc495459a01431c0f61041d3 (patch)
tree0407eff23d319ac98f76bb918996ca4f819e90b7 /lisp
parent9ec6a31795c97fa05c268d297ff39fbb278ead96 (diff)
downloademacs-06641a4768b86697dc495459a01431c0f61041d3.tar.gz
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.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/autorevert.el14
2 files changed, 12 insertions, 7 deletions
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)