procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Andrea Corallo 2020-08-31 22:21:22 +02:00
parent c6f42387e3
commit ba0a61d10a
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/lread.c
View file

@ -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;