mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-06 06:20:55 -08:00
* Rework 'comp-lookup-eln'
* lisp/emacs-lisp/comp.el (comp-lookup-eln): Rework to use 'comp-eln-load-path-eff'.
This commit is contained in:
parent
f58652a419
commit
202adfcfcc
1 changed files with 2 additions and 6 deletions
|
|
@ -3643,12 +3643,8 @@ the deferred compilation mechanism."
|
|||
Search happens in `native-comp-eln-load-path'."
|
||||
(cl-loop
|
||||
with eln-filename = (comp-el-to-eln-rel-filename filename)
|
||||
for dir in native-comp-eln-load-path
|
||||
for f = (expand-file-name eln-filename
|
||||
(expand-file-name comp-native-version-dir
|
||||
(expand-file-name
|
||||
dir
|
||||
invocation-directory)))
|
||||
for dir in (comp-eln-load-path-eff)
|
||||
for f = (expand-file-name eln-filename dir)
|
||||
when (file-exists-p f)
|
||||
do (cl-return f)))
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue