From 4b104c4137b187b36513da3b4f7b3264bc06a9d3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 7 Jul 1997 19:00:25 +0000 Subject: [PATCH] (Vpreloaded_file_list): New variable. (syms_of_lread): Set up Lisp variable. (Fload): Add to Vpreloaded_file_list, if dumping. --- src/lread.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/lread.c b/src/lread.c index fb4d7554f92..22acdda6bfa 100644 --- a/src/lread.c +++ b/src/lread.c @@ -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; -- 2.39.2