Commit 4116ab9f authored by Karl Heuer's avatar Karl Heuer

(Vuser_init_file): New variable.

(syms_of_lread): Set up Lisp variable.
(Fload): Store the file name there, if var was t before.
parent 445ebb94
......@@ -92,6 +92,9 @@ Lisp_Object Vsource_directory;
/* Search path for files to be loaded. */
Lisp_Object Vload_path;
/* File name of user's init file. */
Lisp_Object Vuser_init_file;
/* This is the user-visible association list that maps features to
lists of defs in their load files. */
Lisp_Object Vload_history;
......@@ -652,6 +655,9 @@ Return t if file exists.")
return Qnil;
}
if (EQ (Qt, Vuser_init_file))
Vuser_init_file = found;
/* If FD is 0, that means openp found a magic file. */
if (fd == 0)
{
......@@ -3211,6 +3217,10 @@ or variables, and cons cells `(provide . FEATURE)' and `(require . FEATURE)'.");
"Full name of file being loaded by `load'.");
Vload_file_name = Qnil;
DEFVAR_LISP ("user-init-file", &Vuser_init_file,
"File name, including directory, of user's initialization file.");
Vuser_init_file = Qnil;
DEFVAR_LISP ("current-load-list", &Vcurrent_load_list,
"Used for internal purposes by `load'.");
Vcurrent_load_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