summaryrefslogtreecommitdiff
path: root/src/lread.c
diff options
context:
space:
mode:
authorAndrea Corallo <akrl@sdf.org>2020-04-13 11:07:11 +0100
committerAndrea Corallo <akrl@sdf.org>2020-04-13 11:07:36 +0100
commit1c5548f1c51b44b78d05deb11a31b8678df7b4e7 (patch)
tree3a0b6410b0751c7b99b6f8349f8d590b476a7f79 /src/lread.c
parent3effa2d674691b069cefd978187100911296f738 (diff)
downloademacs-1c5548f1c51b44b78d05deb11a31b8678df7b4e7.tar.gz
emacs-1c5548f1c51b44b78d05deb11a31b8678df7b4e7.tar.bz2
emacs-1c5548f1c51b44b78d05deb11a31b8678df7b4e7.zip
* src/lread.c (Fload): Add comment.
Diffstat (limited to 'src/lread.c')
-rw-r--r--src/lread.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/lread.c b/src/lread.c
index 937b4566851..18a56d0969c 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1469,6 +1469,11 @@ Return t if the file exists and loads successfully. */)
if (is_native_elisp)
{
+ /* Many packages use `load-file-name' as a way to obtain the
+ package location (see bug#40099). .eln files are not in the
+ same folder of their respective sources therfore not to break
+ packages we fake `load-file-name' here. The non faked
+ version of it is `load-true-file-name'. */
Lisp_Object dir = Ffile_name_directory (found);
Lisp_Object parent_dir =
Ffile_name_directory (Fsubstring (dir,