emacs-diffs
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]