feature/native-comp 1c5548f: * src/lread.c (Fload): Add comment.

[Andrea Corallo]

branch: feature/native-comp
commit 1c5548f1c51b44b78d05deb11a31b8678df7b4e7
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>

    * src/lread.c (Fload): Add comment.
---
 src/lread.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/lread.c b/src/lread.c
index 937b456..18a56d0 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,