[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp autorevert.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs/lisp autorevert.el |
Date: |
Sun, 02 Aug 2009 17:20:40 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Michael Albinus <albinus> 09/08/02 17:20:40
Modified files:
lisp : autorevert.el
Log message:
* autorevert.el (auto-revert-handler): Allow
`auto-revert-tail-mode' for remote files.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/autorevert.el?cvsroot=emacs&r1=1.68&r2=1.69
Patches:
Index: autorevert.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/autorevert.el,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -b -r1.68 -r1.69
--- autorevert.el 28 Jun 2009 00:52:25 -0000 1.68
+++ autorevert.el 2 Aug 2009 17:20:39 -0000 1.69
@@ -66,6 +66,7 @@
;; change by growing at the end. It only appends the new output,
;; instead of reverting the entire buffer. It does so even if the
;; buffer contains unsaved changes. (Because they will not be lost.)
+;; Auto Revert Tail Mode works also for remote files.
;; Usage:
;;
@@ -432,13 +433,18 @@
(let* ((buffer (current-buffer)) size
(revert
(or (and buffer-file-name
- (not (file-remote-p buffer-file-name))
(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))
(/= auto-revert-tail-pos
(setq size
- (nth 7 (file-attributes buffer-file-name))))
- (not (verify-visited-file-modtime buffer))))
+ (nth 7 (file-attributes
+ buffer-file-name)))))
+ (and (not (file-remote-p buffer-file-name))
+ (not (verify-visited-file-modtime buffer)))))
(and (or auto-revert-mode
global-auto-revert-non-file-buffers)
revert-buffer-function
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp autorevert.el,
Michael Albinus <=