Commit 4b104c41 authored by Richard M. Stallman's avatar Richard M. Stallman

(Vpreloaded_file_list): New variable.

(syms_of_lread): Set up Lisp variable.
(Fload): Add to Vpreloaded_file_list, if dumping.
parent 368d104a
......@@ -95,6 +95,9 @@ Lisp_Object Vload_history;
/* 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 @@ Return t if file exists.")
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 @@ You cannot count on them to still be there!");
= 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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment