feature/native-comp 38b0ead 3/6: * Back using `load-file-name' when reading '#$' (bug#42961)

[Andrea Corallo]

branch: feature/native-comp
commit 38b0ead7c1a8475bef7f811b07beed2c23cbc593
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * Back using `load-file-name' when reading '#$' (bug#42961)
    
        * src/lread.c (read1, read_list): Use again load-file-name when
        reading '#$'.
        (syms_of_lread): Update `load-file-name' doc.
---
 src/lread.c | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/src/lread.c b/src/lread.c
index 5b77868..326af30 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -3261,7 +3261,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool 
first_in_list)
          goto retry;
        }
       if (c == '$')
-       return Vload_true_file_name;
+       return Vload_file_name;
       if (c == '\'')
        return list2 (Qfunction, read0 (readcharfun));
       /* #:foo is the uninterned symbol named foo.  */
@@ -4062,7 +4062,7 @@ read_list (bool flag, Lisp_Object readcharfun)
       first_in_list = 0;
 
       /* While building, if the list starts with #$, treat it specially.  */
-      if (EQ (elt, Vload_true_file_name)
+      if (EQ (elt, Vload_file_name)
          && ! NILP (elt)
          && !NILP (Vpurify_flag))
        {
@@ -4083,7 +4083,7 @@ read_list (bool flag, Lisp_Object readcharfun)
              elt = concat2 (dot_dot_lisp, Ffile_name_nondirectory (elt));
            }
        }
-      else if (EQ (elt, Vload_true_file_name)
+      else if (EQ (elt, Vload_file_name)
               && ! NILP (elt)
               && load_force_doc_strings)
        doc_reference = 2;
@@ -5039,8 +5039,10 @@ directory.  These file names are converted to absolute 
at startup.  */);
 
   DEFVAR_LISP ("load-file-name", Vload_file_name,
               doc: /* Full name of file being loaded by `load'.
-In case a .eln file is being loaded this is unreliable and 
`load-true-file-name'
-should be used instead.  */);
+
+In case of native code being loaded this is indicating the
+corresponding bytecode filename.  Use `load-true-file-name' to obtain
+the .eln filename.  */);
   Vload_file_name = Qnil;
 
   DEFVAR_LISP ("load-true-file-name", Vload_true_file_name,