Mercurial > emacs
changeset 24817:3e8c8a06329b
(Vuser_init_file): New variable.
(syms_of_lread): Set up Lisp variable.
(Fload): Store the file name there, if var was t before.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 05 Jun 1999 01:15:26 +0000 |
| parents | cc789d9ef186 |
| children | 6486c94c16ae |
| files | src/lread.c |
| diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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;