# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 744786066 0
# Node ID 09d0f4b26641b0bc621ac8d448d2dee267e21ef1
# Parent  c40febdb9967d4ad90846c15ed87cbad25921595
(init_lread): Normally put Vinvocation_directory
at end of Vload_path, if not present already.

diff -r c40febdb9967 -r 09d0f4b26641 src/lread.c
--- a/src/lread.c	Sun Aug 08 05:00:25 1993 +0000
+++ b/src/lread.c	Sun Aug 08 05:01:06 1993 +0000
@@ -1784,7 +1784,20 @@
 
       dump_path = decode_env_path (0, PATH_DUMPLOADSEARCH);
       if (! NILP (Fequal (dump_path, Vload_path)))
-	Vload_path = decode_env_path (0, normal);
+	{
+	  Vload_path = decode_env_path (0, normal);
+	  if (!NILP (Vinvocation_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)))
+		Vload_path = nconc2 (Vload_path, Fcons (tem, Qnil));
+	    }
+	}
     }
   else
     Vload_path = decode_env_path (0, normal);