# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 868302025 0
# Node ID 6d7b8b35d878d21f1822d23aa60e81706efe5016
# Parent  ccd57f42a3c4207c15155747651512b0d3613d9c
(Vpreloaded_file_list): New variable.
(syms_of_lread): Set up Lisp variable.
(Fload): Add to Vpreloaded_file_list, if dumping.

diff -r ccd57f42a3c4 -r 6d7b8b35d878 src/lread.c
--- a/src/lread.c	Mon Jul 07 18:27:33 1997 +0000
+++ b/src/lread.c	Mon Jul 07 19:00:25 1997 +0000
@@ -95,6 +95,9 @@
 /* This is used to build the load history. */
 Lisp_Object Vcurrent_load_list;
 
+/* List of files that were preloaded.  */
+Lisp_Object Vpreloaded_file_list;
+
 /* Name of file actually being read by `load'.  */
 Lisp_Object Vload_file_name;
 
@@ -501,6 +504,9 @@
       error ("Failure to create stdio stream for %s", XSTRING (file)->data);
     }
 
+  if (! NILP (Vpurify_flag))
+    Vpreloaded_file_list = Fcons (file, Vpreloaded_file_list);
+
   if (NILP (nomessage))
     {
       if (newer)
@@ -2721,6 +2727,10 @@
     = Fexpand_file_name (build_string ("../"),
 			 Fcar (decode_env_path (0, PATH_DUMPLOADSEARCH)));
 
+  DEFVAR_LISP ("preloaded-file-list", &Vpreloaded_file_list,
+     "List of files that were preloaded (when dumping Emacs).");
+  Vpreloaded_file_list = Qnil;
+
   /* Vsource_directory was initialized in init_lread.  */
 
   load_descriptor_list = Qnil;