From a90ba1e21696f9fa1ff7d6f8e166eeb5c488afba Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 24 Jan 1996 23:40:40 +0000 Subject: [PATCH] (syms_of_lread): Set Vsource_directory here. (init_lread): Not here. --- src/lread.c | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/lread.c b/src/lread.c index 4b36678e89c..90e3b2acf56 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2249,9 +2249,6 @@ init_lread () 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 @@ This is useful when the file being loaded is a temporary copy."); 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); -- 2.39.2