(Vuser_init_file): New variable.

(syms_of_lread): Set up Lisp variable.
(Fload): Store the file name there, if var was t before.

1 files changed, 10 insertions, 0 deletions

diff --git a/src/lread.c b/src/lread.c
index 00a07cf4b7..479281c8c0 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -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;