/[emacs]/emacs/src/w32.c
ViewVC logotype

Diff of /emacs/src/w32.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.83.6.2 by miles, Mon Jun 28 07:29:24 2004 UTC revision 1.83.6.3 by miles, Fri Oct 22 10:13:35 2004 UTC
# Line 1005  init_environment (char ** argv) Line 1005  init_environment (char ** argv)
1005            _snprintf (buf, sizeof(buf)-1, "emacs_dir=%s", modname);            _snprintf (buf, sizeof(buf)-1, "emacs_dir=%s", modname);
1006            _putenv (strdup (buf));            _putenv (strdup (buf));
1007          }          }
1008          /* Handle running emacs from the build directory: src/oo-spd/i386/  */
1009    
1010          /* FIXME: should use substring of get_emacs_configuration ().
1011             But I don't think the Windows build supports alpha, mips etc
1012             anymore, so have taken the easy option for now.  */
1013          else if (p && stricmp (p, "\\i386") == 0)
1014            {
1015              *p = 0;
1016              p = strrchr (modname, '\\');
1017              if (p != NULL)
1018                {
1019                  *p = 0;
1020                  p = strrchr (modname, '\\');
1021                  if (p && stricmp (p, "\\src") == 0)
1022                    {
1023                      char buf[SET_ENV_BUF_SIZE];
1024    
1025                      *p = 0;
1026                      for (p = modname; *p; p++)
1027                        if (*p == '\\') *p = '/';
1028    
1029                      _snprintf (buf, sizeof(buf)-1, "emacs_dir=%s", modname);
1030                      _putenv (strdup (buf));
1031                    }
1032                }
1033            }
1034      }      }
1035    
1036      for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)      for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)

Legend:
Removed from v.1.83.6.2  
changed lines
  Added in v.1.83.6.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26