emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 0cbafc2: Fix problem with Tramp progress reporter


From: Michael Albinus
Subject: master 0cbafc2: Fix problem with Tramp progress reporter
Date: Mon, 20 Jul 2020 10:29:49 -0400 (EDT)

branch: master
commit 0cbafc236bde83ff1600c1e51408e5d0dd3d1a92
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    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 cd35e3f..19cf333 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]