branch: externals/async commit d422df55c7aa33df61804a7394c40169f56c33f4 Author: Thierry Volpiatto <thierry.volpia...@gmail.com> Commit: Thierry Volpiatto <thierry.volpia...@gmail.com>
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))