From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 18 Feb 2023 21:44:05 +0000 (+0100)
Subject: * Fix `native-comp-enable-subr-trampolines' semantic
X-Git-Tag: emacs-29.0.90~401
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c15bc91e1bf;p=emacs.git

* Fix `native-comp-enable-subr-trampolines' semantic

* lisp/emacs-lisp/comp.el (comp--trampoline-abs-filename): Interpret
`native-comp-enable-subr-trampolines' relative to
`invocation-directory'.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 2d9cad6d98c..a2bad6ce6a8 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -3794,7 +3794,8 @@ Return the trampoline if found or nil otherwise."
   "Return the absolute filename for a trampoline for SUBR-NAME."
   (cl-loop
    with dirs = (if (stringp native-comp-enable-subr-trampolines)
-                   (list native-comp-enable-subr-trampolines)
+                   (list (expand-file-name native-comp-enable-subr-trampolines
+                                           invocation-directory))
                  (if native-compile-target-directory
                      (list (expand-file-name comp-native-version-dir
                                              native-compile-target-directory))