diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2020-01-20 14:27:38 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2020-01-20 14:27:38 +0100 |
| commit | 891f7de8ed1615b830e27922b3d85be53a652a60 (patch) | |
| tree | cc9328bb1e06233c28c255bde366c8d0d85f4f75 /test/lisp/simple-tests.el | |
| parent | 92f30d62c038affa515989ad3ccf170b604c9174 (diff) | |
| download | emacs-891f7de8ed1615b830e27922b3d85be53a652a60.tar.gz | |
* test/lisp/simple-tests.el: Full path to Emacs binary (bug#39067).
Diffstat (limited to 'test/lisp/simple-tests.el')
| -rw-r--r-- | test/lisp/simple-tests.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el index 8ef3c885b96..276df795fca 100644 --- a/test/lisp/simple-tests.el +++ b/test/lisp/simple-tests.el @@ -723,7 +723,9 @@ See Bug#21722." `(let* ((,caller-buf (generate-new-buffer "caller-buf")) (,output-buf (if ,output-buffer-is-current ,caller-buf (generate-new-buffer "output-buf"))) - (,command (format "%s -Q --batch --eval '(princ \"%s\")'" invocation-name ,str)) + (emacs (expand-file-name invocation-name invocation-directory)) + (,command (format "%s -Q --batch --eval '(princ \"%s\")'" + emacs ,str)) (inhibit-message t)) (unwind-protect ;; Feature must work the same regardless how we specify the 2nd arg of `shell-command', ie, |