mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* Rework 'comp-lookup-eln'

Browse source 
* lisp/emacs-lisp/comp.el (comp-lookup-eln): Rework to use
'comp-eln-load-path-eff'.
This commit is contained in:
Andrea Corallo 2024-10-22 16:40:12 +02:00
parent f58652a419
commit 202adfcfcc
1 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/comp.el
View file

@ -3643,12 +3643,8 @@ the deferred compilation mechanism."
Search happens in `native-comp-eln-load-path'." Search happens in `native-comp-eln-load-path'."
(cl-loop (cl-loop
with eln-filename = (comp-el-to-eln-rel-filename filename) with eln-filename = (comp-el-to-eln-rel-filename filename)
for dir in native-comp-eln-load-path for dir in (comp-eln-load-path-eff)
for f = (expand-file-name eln-filename for f = (expand-file-name eln-filename dir)
(expand-file-name comp-native-version-dir
(expand-file-name
dir
invocation-directory)))
when (file-exists-p f) when (file-exists-p f)
do (cl-return f))) do (cl-return f)))