From 3f87676e7561c65233e56c6d71a70e371406fcca Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 27 Mar 2019 22:28:03 +0100 Subject: [PATCH] * 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 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" -- 2.39.5