Mercurial > emacs
changeset 14300:f777822a5d81
(syms_of_lread): Set Vsource_directory here.
(init_lread): Not here.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 24 Jan 1996 23:40:40 +0000 |
| parents | 037a89c9d068 |
| children | 621f53083d60 |
| files | src/lread.c |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lread.c Wed Jan 24 23:40:09 1996 +0000 +++ b/src/lread.c Wed Jan 24 23:40:40 1996 +0000 @@ -2249,9 +2249,6 @@ from the default before dumping, don't override that value. */ if (initialized) { - Vsource_directory = Fexpand_file_name (build_string ("../"), - Fcar (Fcdr (dump_path))); - if (! NILP (Fequal (dump_path, Vload_path))) { Vload_path = decode_env_path (0, normal); @@ -2424,7 +2421,12 @@ DEFVAR_LISP ("source-directory", &Vsource_directory, "Directory in which Emacs sources were found when Emacs was built.\n\ You cannot count on them to still be there!"); - Vsource_directory = Qnil; + Vsource_directory + = Fexpand_file_name (build_string ("../"), + Fcar (decode_env_path (0, PATH_DUMPLOADSEARCH))); + + /* Vsource_directory was initialized in init_lread. */ + load_descriptor_list = Qnil; staticpro (&load_descriptor_list);