From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 31 Aug 2020 20:21:22 +0000 (+0200)
Subject: * src/lread.c (Fload): Fix for manual eln load.
X-Git-Tag: emacs-28.0.90~2727^2~466
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba0a61d10a5aedaf4b7bb61aa3626f385d6aba12;p=emacs.git

* src/lread.c (Fload): Fix for manual eln load.
---

diff --git a/src/lread.c b/src/lread.c
index ac5b2838eef..80d36f571c2 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1328,9 +1328,15 @@ Return t if the file exists and loads successfully.  */)
       /* Reconstruct the .elc filename.  */
       Lisp_Object src_name = Fgethash (Ffile_name_nondirectory (found),
 				       Vcomp_eln_to_el_h, Qnil);
-      if (suffix_p (src_name, "el.gz"))
-	src_name = Fsubstring (src_name, make_fixnum (0), make_fixnum (-3));
-      found_for_hist = concat2 (src_name, build_string ("c"));
+      if (NILP (src_name))
+	/* Manual eln load.  */
+	found_for_hist = found;
+      else
+	{
+	  if (suffix_p (src_name, "el.gz"))
+	    src_name = Fsubstring (src_name, make_fixnum (0), make_fixnum (-3));
+	  found_for_hist = concat2 (src_name, build_string ("c"));
+	}
     }
   else
     found_for_hist = found;