* 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'.
This commit is contained in:
Andrea Corallo 2023-02-18 22:44:05 +01:00
parent 774051873d
commit c15bc91e1b

View file

@ -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))