[Top][All Lists]

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

[elpa] externals/async d395e92 25/60: Use only -q flag when needed

From: Stefan Monnier
Subject: [elpa] externals/async d395e92 25/60: Use only -q flag when needed
Date: Tue, 8 Oct 2019 10:11:31 -0400 (EDT)

branch: externals/async
commit d395e92d2a12e8b944ccfcdc1330c8665a3187f5
Author: Thierry Volpiatto <address@hidden>
Commit: Thierry Volpiatto <address@hidden>

    Use only -q flag when needed
    * dired-async.el (dired-async-create-files): Do it.
 dired-async.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/dired-async.el b/dired-async.el
index 1d6d563..a97a9a3 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -178,8 +178,7 @@ See `dired-create-files' for the behavior of arguments."
   (setq overwrite-query nil)
   (let ((total (length fn-list))
         failures async-fn-list skipped callback
-        ;; Fix tramp issue #80 with emacs-26
-        (async-quiet-switch "-q"))
+        async-quiet-switch)
     (let (to)
       (dolist (from fn-list)
         (setq to (funcall name-constructor from))
@@ -234,6 +233,13 @@ ESC or `q' to not overwrite any of the remaining files,
                         (dired-log "%s `%s' to `%s' failed\n"
                                    operation from to)))
                   (push (cons from to) async-fn-list)))))
+      ;; Fix tramp issue #80 with emacs-26, use "-q" only when needed.
+      (setq async-quiet-switch
+            (if (and (boundp 'tramp-cache-read-persistent-data)
+                     async-fn-list
+                     (cl-loop for (from . to) in async-fn-list
+                              thereis (file-remote-p to)))
+                "-q" "-Q"))
       ;; When failures have been printed to dired log add the date at bob.
       (when (or failures skipped) (dired-log t))
       ;; When async-fn-list is empty that's mean only one file

reply via email to

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