# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766917813 0
# Node ID e9667f7a0cbc3697c49c471ca46181aebc9d73cc
# Parent  4ef78a2b2ceed94d7e703bef980bbffe98d9a502
(init_cmdargs): Just check for etc and lib-src subdirs
when setting Vinstallation_directory.

diff -r 4ef78a2b2cee -r e9667f7a0cbc src/emacs.c
--- a/src/emacs.c	Thu Apr 21 08:33:48 1994 +0000
+++ b/src/emacs.c	Thu Apr 21 08:43:33 1994 +0000
@@ -210,57 +210,39 @@
       name = Fexpand_file_name (Vinvocation_name, dir);
       while (1)
 	{
-	  Lisp_Object tem, lisp_exists, lib_src_exists;
+	  Lisp_Object tem, lib_src_exists;
 	  Lisp_Object etc_exists, info_exists;
 
-	  /* See if dir contains subdirs for use by Emacs.  */
-	  tem = Fexpand_file_name (build_string ("lisp"), dir);
-	  lisp_exists = Ffile_exists_p (tem);
-	  if (!NILP (lisp_exists))
+	  /* See if dir contains subdirs for use by Emacs.
+	     Check for the ones that would exist in a build directory,
+	     not including lisp and info.  */
+	  tem = Fexpand_file_name (build_string ("lib-src"), dir);
+	  lib_src_exists = Ffile_exists_p (tem);
+	  if (!NILP (lib_src_exists))
 	    {
-	      tem = Fexpand_file_name (build_string ("lib-src"), dir);
-	      lib_src_exists = Ffile_exists_p (tem);
-	      if (!NILP (lib_src_exists))
+	      tem = Fexpand_file_name (build_string ("etc"), dir);
+	      etc_exists = Ffile_exists_p (tem);
+	      if (!NILP (etc_exists))
 		{
-		  tem = Fexpand_file_name (build_string ("etc"), dir);
-		  etc_exists = Ffile_exists_p (tem);
-		  if (!NILP (etc_exists))
-		    {
-		      tem = Fexpand_file_name (build_string ("info"), dir);
-		      info_exists = Ffile_exists_p (tem);
-		      if (!NILP (info_exists))
-			{
-			  Vinstallation_directory
-			    = Ffile_name_as_directory (dir);
-			  break;
-			}
-		    }
+		  Vinstallation_directory
+		    = Ffile_name_as_directory (dir);
+		  break;
 		}
 	    }
 
 	  /* See if dir's parent contains those subdirs.  */
-	  tem = Fexpand_file_name (build_string ("../lisp"), dir);
-	  lisp_exists = Ffile_exists_p (tem);
-	  if (!NILP (lisp_exists))
+	  tem = Fexpand_file_name (build_string ("../lib-src"), dir);
+	  lib_src_exists = Ffile_exists_p (tem);
+	  if (!NILP (lib_src_exists))
 	    {
-	      tem = Fexpand_file_name (build_string ("../lib-src"), dir);
-	      lib_src_exists = Ffile_exists_p (tem);
-	      if (!NILP (lib_src_exists))
+	      tem = Fexpand_file_name (build_string ("../etc"), dir);
+	      etc_exists = Ffile_exists_p (tem);
+	      if (!NILP (etc_exists))
 		{
-		  tem = Fexpand_file_name (build_string ("../etc"), dir);
-		  etc_exists = Ffile_exists_p (tem);
-		  if (!NILP (etc_exists))
-		    {
-		      tem = Fexpand_file_name (build_string ("../info"), dir);
-		      info_exists = Ffile_exists_p (tem);
-		      if (!NILP (info_exists))
-			{
-			  tem = Fexpand_file_name (build_string (".."), dir);
-			  Vinstallation_directory
-			    = Ffile_name_as_directory (tem);
-			  break;
-			}
-		    }
+		  tem = Fexpand_file_name (build_string (".."), dir);
+		  Vinstallation_directory
+		    = Ffile_name_as_directory (tem);
+		  break;
 		}
 	    }