diff options
author | Andrea Corallo <akrl@sdf.org> | 2020-04-13 11:07:11 +0100 |
---|---|---|
committer | Andrea Corallo <akrl@sdf.org> | 2020-04-13 11:07:36 +0100 |
commit | 1c5548f1c51b44b78d05deb11a31b8678df7b4e7 (patch) | |
tree | 3a0b6410b0751c7b99b6f8349f8d590b476a7f79 /src/lread.c | |
parent | 3effa2d674691b069cefd978187100911296f738 (diff) | |
download | emacs-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.c | 5 |
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, |