aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFilipp Gunbin2014-12-29 17:33:11 +0300
committerFilipp Gunbin2014-12-29 17:35:51 +0300
commit6444482c63b8f148c44904f11599de643e903dca (patch)
treeb982af3ce8ff53f73870ffaca6155d7e8534173e
parentb5c9c131ca4c0382d32ccb9c59c02a0392276503 (diff)
downloademacs-6444482c63b8f148c44904f11599de643e903dca.tar.gz
emacs-6444482c63b8f148c44904f11599de643e903dca.zip
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)
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/autorevert.el17
2 files changed, 12 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bd7959ea348..663526c382c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
12014-12-29 Filipp Gunbin <fgunbin@fastmail.fm>
2
3 * autorevert.el (auto-revert-handler): Fix auto-revert-tail-mode for remote files (bug#19449)
4
12014-12-28 Eli Zaretskii <eliz@gnu.org> 52014-12-28 Eli Zaretskii <eliz@gnu.org>
2 6
3 * international/mule.el (define-coding-system): Fix typos in the 7 * international/mule.el (define-coding-system): Fix typos in the
diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index f1074e22e51..08c5452c8fd 100644
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -589,8 +589,8 @@ This is an internal function used by Auto-Revert Mode."
589 ;; the values. 589 ;; the values.
590 (remote-file-name-inhibit-cache t) 590 (remote-file-name-inhibit-cache t)
591 (revert 591 (revert
592 (or (and buffer-file-name 592 (if buffer-file-name
593 (or auto-revert-remote-files 593 (and (or auto-revert-remote-files
594 (not (file-remote-p buffer-file-name))) 594 (not (file-remote-p buffer-file-name)))
595 (or (not auto-revert-use-notify) 595 (or (not auto-revert-use-notify)
596 auto-revert-notify-modified-p) 596 auto-revert-notify-modified-p)
@@ -603,11 +603,11 @@ This is an internal function used by Auto-Revert Mode."
603 (funcall (or buffer-stale-function 603 (funcall (or buffer-stale-function
604 #'buffer-stale--default-function) 604 #'buffer-stale--default-function)
605 t))) 605 t)))
606 (and (or auto-revert-mode 606 (and (or auto-revert-mode
607 global-auto-revert-non-file-buffers) 607 global-auto-revert-non-file-buffers)
608 (funcall (or buffer-stale-function 608 (funcall (or buffer-stale-function
609 #'buffer-stale--default-function) 609 #'buffer-stale--default-function)
610 t)))) 610 t))))
611 eob eoblist) 611 eob eoblist)
612 (setq auto-revert-notify-modified-p nil) 612 (setq auto-revert-notify-modified-p nil)
613 (when revert 613 (when revert
@@ -690,8 +690,7 @@ the timer when no buffers need to be checked."
690 (let ((bufs (if global-auto-revert-mode 690 (let ((bufs (if global-auto-revert-mode
691 (buffer-list) 691 (buffer-list)
692 auto-revert-buffer-list)) 692 auto-revert-buffer-list))
693 (remaining ()) 693 remaining new)
694 (new ()))
695 ;; Partition `bufs' into two halves depending on whether or not 694 ;; Partition `bufs' into two halves depending on whether or not
696 ;; the buffers are in `auto-revert-remaining-buffers'. The two 695 ;; the buffers are in `auto-revert-remaining-buffers'. The two
697 ;; halves are then re-joined with the "remaining" buffers at the 696 ;; halves are then re-joined with the "remaining" buffers at the