[elpa] externals/async d422df5 24/60: Add new var to allow calling emacs with -Q or -q (#80).

[Stefan Monnier]

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

    Add new var to allow calling emacs with -Q or -q (#80).
    
    * async.el (async-quiet-switch): Do it.
    (async-start):                   Do it.
---
 async.el       | 8 +++++++-
 dired-async.el | 4 +++-
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/async.el b/async.el
index f4eaadd..c1fb40b 100644
--- a/async.el
+++ b/async.el
@@ -231,6 +231,12 @@ working directory."
         (set (make-local-variable 'async-callback-for-process) t))
       proc)))
 
+(defvar async-quiet-switch "-Q"
+  "The Emacs parameter to use to call emacs without config.
+Can be one of \"-Q\" or \"-q\".
+Default is \"-Q\" but it is sometimes useful to use \"-q\" to have a
+enhanced config or some more variables loaded.")
+
 ;;;###autoload
 (defun async-start (start-func &optional finish-func)
   "Execute START-FUNC (often a lambda) in a subordinate Emacs process.
@@ -288,7 +294,7 @@ returns nil.  It can still be useful, however, as an 
argument to
                     (expand-file-name invocation-name
                                       invocation-directory))
            finish-func
-           "-q" "-l"
+           async-quiet-switch "-l"
            ;; Using `locate-library' ensure we use the right file
            ;; when the .elc have been deleted.
            (locate-library "async")
diff --git a/dired-async.el b/dired-async.el
index a68098a..1d6d563 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -177,7 +177,9 @@ Should take same args as `message'."
 See `dired-create-files' for the behavior of arguments."
   (setq overwrite-query nil)
   (let ((total (length fn-list))
-        failures async-fn-list skipped callback)
+        failures async-fn-list skipped callback
+        ;; Fix tramp issue #80 with emacs-26
+        (async-quiet-switch "-q"))
     (let (to)
       (dolist (from fn-list)
         (setq to (funcall name-constructor from))