diff options
Diffstat (limited to 'lisp/autorevert.el')
| -rw-r--r-- | lisp/autorevert.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 16a742a458f..150693baf13 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -767,6 +767,16 @@ the timer when no buffers need to be checked." (buffer-list) auto-revert-buffer-list)) remaining new) + ;; Buffers with remote contents shall be reverted only if the + ;; connection is established already. + (setq bufs (delq nil + (mapcar + (lambda (buf) + (with-current-buffer buf + (and (or (not (file-remote-p default-directory)) + (file-remote-p default-directory nil t)) + buf))) + bufs))) ;; 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 |