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.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index cd35e3f5dc1bceeb9d12bcdfd1f1201d8a9599a3..19cf33345027082003245e77564b8571a6c0f846 100644 (file)
--- 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