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);