[7638] mingw32 USERPROFILE

[gavinsmith0123]

Revision: 7638
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7638
Author:   gavin
Date:     2017-01-21 08:54:06 -0500 (Sat, 21 Jan 2017)
Log Message:
-----------
mingw32 USERPROFILE

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/info/infomap.c

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2017-01-21 13:49:15 UTC (rev 7637)
+++ trunk/ChangeLog     2017-01-21 13:54:06 UTC (rev 7638)
@@ -1,5 +1,10 @@
 2017-01-21  Jason Hood  <address@hidden>  (tiny change)
 
+       * info/infomap.c (fetch_user_maps) [__MINGW32__]: Try to get
+       home directory from value of 'USERPROFILE' environment variable.
+
+2017-01-21  Jason Hood  <address@hidden>  (tiny change)
+
         * doc/info-stnd.texi (Colors and Styles): Correct "nocolour" to 
         "bgnocolour".
 

Modified: trunk/info/infomap.c
===================================================================
--- trunk/info/infomap.c        2017-01-21 13:49:15 UTC (rev 7637)
+++ trunk/info/infomap.c        2017-01-21 13:54:06 UTC (rev 7638)
@@ -583,7 +583,11 @@
   /* Find and open file. */
   if (init_file)
     filename = xstrdup (init_file);
-  else if ((homedir = getenv ("HOME")) != NULL)
+  else if ((homedir = getenv ("HOME")) != NULL
+#ifdef __MINGW32__
+           || (homedir = getenv ("USERPROFILE")) != NULL
+#endif
+         )
     {
       filename = xmalloc (strlen (homedir) + 2 + strlen (INFOKEY_FILE));
       strcpy (filename, homedir);