diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-08-31 22:21:22 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-08-31 22:40:47 +0200 |
| commit | ba0a61d10a5aedaf4b7bb61aa3626f385d6aba12 (patch) | |
| tree | a74ab519aea11f340c39068012150d5a24226f89 /src/lread.c | |
| parent | c6f42387e32a4e99cd9ddd203ab51f3c5694054e (diff) | |
| download | emacs-ba0a61d10a5aedaf4b7bb61aa3626f385d6aba12.tar.gz emacs-ba0a61d10a5aedaf4b7bb61aa3626f385d6aba12.tar.bz2 emacs-ba0a61d10a5aedaf4b7bb61aa3626f385d6aba12.zip | |
* src/lread.c (Fload): Fix for manual eln load.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 12 |
1 files changed, 9 insertions, 3 deletions
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; |