[Emacs-diffs] master 63b506e 3/5: Improve `dired-buffer-stale-p' for remote files

[Michael Albinus]

branch: master
commit 63b506eb4c4194fc0910b77ea1c4211658b781e1
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Improve `dired-buffer-stale-p' for remote files
    
    * lisp/dired.el (dired-buffer-stale-p): Check for ´file-remote-p'
    only if `auto-revert-remote-files' is non-nil.
---
 lisp/dired.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/lisp/dired.el b/lisp/dired.el
index 1c283c5..41b46d4 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -850,14 +850,18 @@ If DIRNAME is already in a Dired buffer, that buffer is 
used without refresh."
             (not (eq (car attributes) t))
             (equal (nth 5 attributes) modtime)))))
 
+(defvar auto-revert-remote-files)
+
 (defun dired-buffer-stale-p (&optional noconfirm)
   "Return non-nil if current Dired buffer needs updating.
-If NOCONFIRM is non-nil, then this function always returns nil
-for a remote directory.  This feature is used by Auto Revert mode."
+If NOCONFIRM is non-nil, then this function returns nil for a
+remote directory, unless `auto-revert-remote-files' is non-nil.
+This feature is used by Auto Revert mode."
   (let ((dirname
         (if (consp dired-directory) (car dired-directory) dired-directory)))
     (and (stringp dirname)
-        (not (when noconfirm (file-remote-p dirname)))
+        (not (when noconfirm (and (not auto-revert-remote-files)
+                                   (file-remote-p dirname))))
         (file-readable-p dirname)
         ;; Do not auto-revert when the dired buffer can be currently
         ;; written by the user as in `wdired-mode'.