From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 17 Jan 1994 00:44:38 +0000 (+0000)
Subject: (init_lread): Use Vinstallation_directory.
X-Git-Tag: emacs-19.34~10234
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=74180aa4ea4bf379947251a929eae8ff8a35de43;p=emacs.git

(init_lread): Use Vinstallation_directory.
---

diff --git a/src/lread.c b/src/lread.c
index 6c2854a15b8..2ee7fbf12cc 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1849,15 +1849,14 @@ init_lread ()
       if (! NILP (Fequal (dump_path, Vload_path)))
 	{
 	  Vload_path = decode_env_path (0, normal);
-	  if (!NILP (Vinvocation_directory))
+	  if (!NILP (Vinstallation_directory))
 	    {
-	      /* Add to the path the ../lisp dir of the Emacs executable,
-		 if that dir exists.  */
-	      Lisp_Object tem, tem1;
-	      tem = Fexpand_file_name (build_string ("../lisp"),
-				       Vinvocation_directory);
-	      tem1 = Ffile_exists_p (tem);
-	      if (!NILP (tem1) && NILP (Fmember (tem, Vload_path)))
+	      /* Add to the path the lisp subdir of the
+		 installation dir.  */
+	      Lisp_Object tem;
+	      tem = Fexpand_file_name (build_string ("lisp"),
+				       Vinstallation_directory);
+	      if (NILP (Fmember (tem, Vload_path)))
 		Vload_path = nconc2 (Vload_path, Fcons (tem, Qnil));
 	    }
 	}