From: Michael Albinus Date: Mon, 20 Jul 2020 14:29:38 +0000 (+0200) Subject: Fix problem with Tramp progress reporter X-Git-Tag: emacs-28.0.90~6957 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0cbafc236bde83ff1600c1e51408e5d0dd3d1a92;p=emacs.git 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 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