Mercurial > emacs

changeset 18665:6d7b8b35d878

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Vpreloaded_file_list): New variable. (syms_of_lread): Set up Lisp variable. (Fload): Add to Vpreloaded_file_list, if dumping.
author Richard M. Stallman <rms@gnu.org>
date Mon, 07 Jul 1997 19:00:25 +0000
parents ccd57f42a3c4
children e97df3d7af25
files src/lread.c
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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;