mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
* 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.
This commit is contained in:
Juanma Barranquero 2011-04-13 16:27:41 +02:00
parent 9ec6a31795
commit 06641a4768
2 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

14
lisp/autorevert.el
View File

@ -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)