* lisp/net/tramp.el (tramp-accept-process-output): Let progress reporter run.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 1d7242ba8f9c04f3626b0a5d0909bd23734f9a10..0e062b71551fe496f86c606b016ec007fa31b3ad 100644 (file)
--- 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"