diff options
| author | Filipp Gunbin | 2014-12-29 17:33:11 +0300 |
|---|---|---|
| committer | Filipp Gunbin | 2014-12-29 17:35:51 +0300 |
| commit | 6444482c63b8f148c44904f11599de643e903dca (patch) | |
| tree | b982af3ce8ff53f73870ffaca6155d7e8534173e | |
| parent | b5c9c131ca4c0382d32ccb9c59c02a0392276503 (diff) | |
| download | emacs-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/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/autorevert.el | 17 |
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 @@ | |||
| 1 | 2014-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 | |||
| 1 | 2014-12-28 Eli Zaretskii <eliz@gnu.org> | 5 | 2014-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 |