From: Andrea Corallo <akrl@sdf.org>
Date: Wed, 24 Mar 2021 10:23:00 +0000 (+0100)
Subject: * src/lread.c (maybe_swap_for_eln): Fix eln filename (bug#bug#47337).
X-Git-Tag: emacs-28.0.90~2727^2~54
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a3b43f55cfa96f5dd42e360eb4577750e97dbf0;p=emacs.git

* src/lread.c (maybe_swap_for_eln): Fix eln filename (bug#bug#47337).
---

diff --git a/src/lread.c b/src/lread.c
index 5fd52feb376..56717dba810 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1675,7 +1675,9 @@ maybe_swap_for_eln (bool no_native, Lisp_Object *filename, int *fd)
   FOR_EACH_TAIL_SAFE (eln_path_tail)
     {
       Lisp_Object eln_name =
-	Fexpand_file_name (eln_rel_name, XCAR (eln_path_tail));
+	Fexpand_file_name (eln_rel_name,
+			   Fexpand_file_name (Vcomp_native_version_dir,
+					      XCAR (eln_path_tail)));
       int eln_fd = emacs_open (SSDATA (ENCODE_FILE (eln_name)), O_RDONLY, 0);
 
       if (eln_fd > 0)