# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 876955535 0
# Node ID 5324d8b2322b3eda2f5bb482de83867f011128ef
# Parent  735f0cdfc5b90301c18828a21d0561cd7d46e24c
(read_list): Don't recognize Vload_file_name
specially if it is nil.

diff -r 735f0cdfc5b9 -r 5324d8b2322b src/lread.c
--- a/src/lread.c	Wed Oct 15 22:41:09 1997 +0000
+++ b/src/lread.c	Wed Oct 15 22:45:35 1997 +0000
@@ -130,7 +130,8 @@
 static int read_from_string_index;
 static int read_from_string_limit;
 
-/* This contains the last string skipped with #@.  */
+/* This contains the last string skipped with #@, but only on some systems.
+     On other systems we can't put the string here.  */
 static char *saved_doc_string;
 /* Length of buffer allocated in saved_doc_string.  */
 static int saved_doc_string_size;
@@ -1517,6 +1518,7 @@
 	      for (i = 0; i < nskip && c >= 0; i++)
 		c = READCHAR;
 	    }
+
 	  goto retry;
 	}
       if (c == '$')
@@ -1942,6 +1944,7 @@
 
       /* While building, if the list starts with #$, treat it specially.  */
       if (EQ (elt, Vload_file_name)
+	  && ! NILP (elt)
 	  && !NILP (Vpurify_flag))
 	{
 	  if (NILP (Vdoc_file_name))
@@ -1960,6 +1963,7 @@
 			   Ffile_name_nondirectory (elt));
 	}
       else if (EQ (elt, Vload_file_name)
+	       && ! NILP (elt)
 	       && load_force_doc_strings)
 	doc_reference = 2;