# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822526840 0
# Node ID f777822a5d8126e79203d091e31e3b3f983ee1a6
# Parent  037a89c9d06819114951a2bce7c707540dffd0aa
(syms_of_lread): Set Vsource_directory here.
(init_lread): Not here.

diff -r 037a89c9d068 -r f777822a5d81 src/lread.c
--- 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);