# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1098212938 0
# Node ID 5aefaad0a5f1733ed4fb6a55415c1e249f61834e
# Parent  e0b59ff186d057cae80d18f5dedbccb0e71e5286
(init_environment): Set emacs_dir correctly when running
emacs from the build directory.

diff -r e0b59ff186d0 -r 5aefaad0a5f1 src/w32.c
--- a/src/w32.c	Tue Oct 19 16:58:30 2004 +0000
+++ b/src/w32.c	Tue Oct 19 19:08:58 2004 +0000
@@ -1005,6 +1005,32 @@
 	  _snprintf (buf, sizeof(buf)-1, "emacs_dir=%s", modname);
 	  _putenv (strdup (buf));
 	}
+      /* Handle running emacs from the build directory: src/oo-spd/i386/  */
+
+      /* FIXME: should use substring of get_emacs_configuration ().
+	 But I don't think the Windows build supports alpha, mips etc
+         anymore, so have taken the easy option for now.  */
+      else if (p && stricmp (p, "\\i386") == 0)
+	{
+	  *p = 0;
+	  p = strrchr (modname, '\\');
+	  if (p != NULL)
+	    {
+	      *p = 0;
+	      p = strrchr (modname, '\\');
+	      if (p && stricmp (p, "\\src") == 0)
+		{
+		  char buf[SET_ENV_BUF_SIZE];
+
+		  *p = 0;
+		  for (p = modname; *p; p++)
+		    if (*p == '\\') *p = '/';
+
+		  _snprintf (buf, sizeof(buf)-1, "emacs_dir=%s", modname);
+		  _putenv (strdup (buf));
+		}
+	    }
+	}
     }
 
     for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)