From: Andrea Corallo <akrl@sdf.org>
Date: Fri, 15 Oct 2021 07:26:24 +0000 (+0200)
Subject: * Fix `native-compile-target-directory' effectiveness on trampolines
X-Git-Tag: emacs-28.0.90~284
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ced72b6e4c03c75e99e828410c363eefd80fbf54;p=emacs.git

* Fix `native-compile-target-directory' effectiveness on trampolines

* lisp/emacs-lisp/comp.el (comp-trampoline-compile): Fix
`native-compile-target-directory' effectiveness on trampoline
compilation.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 0e4e54b76bb..7b5c5ad44f7 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -3789,7 +3789,9 @@ Return the trampoline if found or nil otherwise."
     (comp--native-compile
      form nil
      (cl-loop
-      for dir in (comp-eln-load-path-eff)
+      for dir in (if native-compile-target-directory
+                     (list native-compile-target-directory)
+                   (comp-eln-load-path-eff))
       for f = (expand-file-name
                (comp-trampoline-filename subr-name)
                dir)