From: Mattias Engdegård <mattiase@acm.org>
Date: Mon, 20 Jan 2020 13:27:38 +0000 (+0100)
Subject: * test/lisp/simple-tests.el: Full path to Emacs binary (bug#39067).
X-Git-Tag: emacs-27.0.90~127
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=891f7de8ed1615b830e27922b3d85be53a652a60;p=emacs.git

* test/lisp/simple-tests.el: Full path to Emacs binary (bug#39067).
---

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,