From 4116ab9febff1722c87e9b49c1bee3eb48afeb90 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 5 Jun 1999 01:15:26 +0000 Subject: [PATCH] (Vuser_init_file): New variable. (syms_of_lread): Set up Lisp variable. (Fload): Store the file name there, if var was t before. --- src/lread.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/lread.c b/src/lread.c index 00a07cf4b70..479281c8c05 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; -- 2.39.5