# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 928545326 0
# Node ID 3e8c8a06329b6db93e77a8cdaa5666e11bd0db6b
# Parent  cc789d9ef186d89a417beec48e746fb154c5723e
(Vuser_init_file): New variable.
(syms_of_lread): Set up Lisp variable.
(Fload): Store the file name there, if var was t before.

diff -r cc789d9ef186 -r 3e8c8a06329b src/lread.c
--- a/src/lread.c	Sat Jun 05 01:13:36 1999 +0000
+++ b/src/lread.c	Sat Jun 05 01:15:26 1999 +0000
@@ -92,6 +92,9 @@
 /* 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 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 @@
     "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;