(decode_env_path): Ensure path elements use proper directory separator.

diff --git a/src/emacs.c b/src/emacs.c
index 31a2b6995e0828838720a4e4e1709c65c5d02d1c..e29724a38d75bc5ac6a7e7bbec67c250bb1ad36c 100644 (file)
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -1576,6 +1576,20 @@ decode_env_path (evarname, defalt)
     path = 0;
   if (!path)
     path = defalt;
+#ifdef DOS_NT
+  /* Ensure values from the environment use the proper directory separator.  */
+  if (path)
+    {
+      p = alloca (strlen (path) + 1);
+      strcpy (p, path);
+      path = p;
+
+      if ('/' == DIRECTORY_SEP)
+       dostounix_filename (path);
+      else
+       unixtodos_filename (path);
+    }
+#endif
   lpath = Qnil;
   while (1)
     {