[Emacs-diffs] master 3f87676: * lisp/net/tramp.el (tramp-accept-process-output): Let progress reporter run.

[Michael Albinus]

branch: master
commit 3f87676e7561c65233e56c6d71a70e371406fcca
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    * lisp/net/tramp.el (tramp-accept-process-output): Let progress reporter 
run.
---
 lisp/net/tramp.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 1d7242b..0e062b7 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"