From 0cbafc236bde83ff1600c1e51408e5d0dd3d1a92 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 20 Jul 2020 16:29:38 +0200 Subject: [PATCH] Fix problem with Tramp progress reporter * lisp/net/tramp.el (with-tramp-progress-reporter): Do not span a new progress reporter if there's already another one. --- lisp/net/tramp.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index cd35e3f5dc1..19cf3334502 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -2012,9 +2012,11 @@ without a visible progress reporter." (tramp-message ,vec ,level "%s..." ,message) (let ((cookie "failed") (tm - ;; We start a pulsing progress reporter after 3 - ;; seconds. Display only when there is a minimum level. - (when-let ((pr (and (<= ,level (min tramp-verbose 3)) + ;; We start a pulsing progress reporter after 3 seconds. + ;; Start only when there is no other progress reporter + ;; running, and when there is a minimum level. + (when-let ((pr (and (null tramp-inhibit-progress-reporter) + (<= ,level (min tramp-verbose 3)) (make-progress-reporter ,message nil nil)))) (run-at-time 3 0.1 #'tramp-progress-reporter-update pr)))) (unwind-protect -- 2.39.5