From: Andrea Corallo <acorallo@gnu.org>
Date: Tue, 22 Oct 2024 14:40:12 +0000 (+0200)
Subject: * Rework 'comp-lookup-eln'
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d8b6847aa98e5f642533178bc63df8c7619692c7;p=emacs.git

* Rework 'comp-lookup-eln'

* lisp/emacs-lisp/comp.el (comp-lookup-eln): Rework to use
'comp-eln-load-path-eff'.

(cherry picked from commit 202adfcfcc2ed20fa91d8377107618c8113f7106)
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index f72d23fee1a..fc87014202c 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -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)))