From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 27 Mar 2019 21:28:03 +0000 (+0100)
Subject: * lisp/net/tramp.el (tramp-accept-process-output): Let progress reporter run.
X-Git-Tag: emacs-27.0.90~3312
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f87676e7561c65233e56c6d71a70e371406fcca;p=emacs.git

* 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 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"