branch: externals/async
commit d422df55c7aa33df61804a7394c40169f56c33f4
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
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))
