diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2019-03-27 22:28:03 +0100 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2019-03-27 22:28:03 +0100 |
commit | 3f87676e7561c65233e56c6d71a70e371406fcca (patch) | |
tree | 137e7bb358c74d823a162e04caef1f258a08b7ba | |
parent | 538c66c3069cba8c603d7604ac079992416eb766 (diff) | |
download | emacs-3f87676e7561c65233e56c6d71a70e371406fcca.tar.gz |
* lisp/net/tramp.el (tramp-accept-process-output): Let progress reporter run.
-rw-r--r-- | lisp/net/tramp.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 1d7242ba8f9..0e062b71551 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -4074,9 +4074,14 @@ for process communication also." (let ((inhibit-read-only t) last-coding-system-used ;; We do not want to run timers. + (tl timer-list) (stimers (with-timeout-suspend)) timer-list timer-idle-list result) + ;; Enable our progress reporter. + (dolist (timer tl) + (if (eq (timer--function timer) #'tramp-progress-reporter-update) + (add-to-list 'timer-list timer))) ;; JUST-THIS-ONE is set due to Bug#12145. (tramp-message proc 10 "%s %s %s %s\n%s" |