[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 0cbafc2: Fix problem with Tramp progress reporter,
Michael Albinus <=