X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/1879b9055eaf5c9f3fd126c2c21450cdd8c83262..73f0715df53c6a12a3d9039ac1a1664d30c293ff:/src/callproc.c

diff --git a/src/callproc.c b/src/callproc.c
index 7008b916da..e8d089cf20 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -1375,6 +1375,20 @@ getenv_internal (const char *var, ptrdiff_t varlen, char **value,
 			 Vprocess_environment))
     return *value ? 1 : 0;
 
+  /* On Windows we make some modifications to Emacs' enviroment
+     without recording them in Vprocess_environment.  */
+#ifdef WINDOWSNT
+  {
+    char* tmpval = getenv (var);
+    if (tmpval)
+      {
+        *value = tmpval;
+        *valuelen = strlen (tmpval);
+        return 1;
+      }
+  }
+#endif
+
   /* For DISPLAY try to get the values from the frame or the initial env.  */
   if (strcmp (var, "DISPLAY") == 0)
     {