* src/lread.c (Fload): Add comment.

diff --git a/src/lread.c b/src/lread.c
index 937b4566851bbb2c9486780369bb86c6356a63bf..18a56d0969cf3fa65f7c4bbfa98eadf26008ec22 100644 (file)
--- 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,