diff src/lread.c @ 621:eca8812e61cd

*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Fri, 24 Apr 1992 08:11:54 +0000
parents cde1f15848c6
children 40b255f55df3
line wrap: on
line diff
--- a/src/lread.c	Fri Apr 24 08:11:28 1992 +0000
+++ b/src/lread.c	Fri Apr 24 08:11:54 1992 +0000
@@ -1448,14 +1448,15 @@
      uses ../lisp, instead of the path of the installed elisp
      libraries.  However, if it appears that Vload_path was changed
      from the default before dumping, don't override that value.  */
-  {
-    Lisp_Object normal_path;
+  if (initialized)
+    {
+      Lisp_Object dump_path;
 
-    normal_path = decode_env_path ("", normal);
-
-    if (
-  if (initialized
-      || EQ (Vload_path, initial_path))
+      dump_path = decode_env_path ("", PATH_DUMPLOADSEARCH);
+      if (! NILP (Fequal (dump_path, Vload_path)))
+	Vload_path = decode_env_path ("", normal);
+    }
+  else
     Vload_path = decode_env_path ("", normal);
 #endif
 
@@ -1487,11 +1488,6 @@
 
   Vvalues = Qnil;
 
-  if (initialized)
-    initial_path = Qnil;
-  else
-    initial_path = Vload_path;
-
   load_in_progress = 0;
 }