emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs-24 6444482: Fix auto-revert-tail-mode for remote fil


From: Filipp Gunbin
Subject: [Emacs-diffs] emacs-24 6444482: Fix auto-revert-tail-mode for remote files
Date: Mon, 29 Dec 2014 14:36:05 +0000

branch: emacs-24
commit 6444482c63b8f148c44904f11599de643e903dca
Author: Filipp Gunbin <address@hidden>
Commit: Filipp Gunbin <address@hidden>

    Fix auto-revert-tail-mode for remote files
    
    Fixes: debbugs:19449
    
    * autorevert.el (auto-revert-handler): Fix auto-revert-tail-mode for
      remote files (bug#19449)
---
 lisp/ChangeLog     |    4 ++++
 lisp/autorevert.el |   17 ++++++++---------
 2 files changed, 12 insertions(+), 9 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bd7959e..663526c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-12-29  Filipp Gunbin  <address@hidden>
+
+       * autorevert.el (auto-revert-handler): Fix auto-revert-tail-mode for 
remote files (bug#19449)
+
 2014-12-28  Eli Zaretskii  <address@hidden>
 
        * international/mule.el (define-coding-system): Fix typos in the
diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index f1074e2..08c5452 100644
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -589,8 +589,8 @@ This is an internal function used by Auto-Revert Mode."
           ;; the values.
           (remote-file-name-inhibit-cache t)
           (revert
-           (or (and buffer-file-name
-                    (or auto-revert-remote-files
+           (if buffer-file-name
+               (and (or auto-revert-remote-files
                         (not (file-remote-p buffer-file-name)))
                     (or (not auto-revert-use-notify)
                         auto-revert-notify-modified-p)
@@ -603,11 +603,11 @@ This is an internal function used by Auto-Revert Mode."
                       (funcall (or buffer-stale-function
                                     #'buffer-stale--default-function)
                                 t)))
-               (and (or auto-revert-mode
-                        global-auto-revert-non-file-buffers)
-                    (funcall (or buffer-stale-function
-                                  #'buffer-stale--default-function)
-                              t))))
+             (and (or auto-revert-mode
+                      global-auto-revert-non-file-buffers)
+                  (funcall (or buffer-stale-function
+                               #'buffer-stale--default-function)
+                           t))))
           eob eoblist)
       (setq auto-revert-notify-modified-p nil)
       (when revert
@@ -690,8 +690,7 @@ the timer when no buffers need to be checked."
     (let ((bufs (if global-auto-revert-mode
                    (buffer-list)
                  auto-revert-buffer-list))
-         (remaining ())
-         (new ()))
+         remaining new)
       ;; Partition `bufs' into two halves depending on whether or not
       ;; the buffers are in `auto-revert-remaining-buffers'.  The two
       ;; halves are then re-joined with the "remaining" buffers at the



reply via email to

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