mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 05:01:02 -08:00
Code Issues Projects Releases Wiki Activity

(init_environment): Set LANG environment variable based on

Browse source 
locale settings, if not set.
This commit is contained in:
Jason Rumney 2000-11-24 21:30:06 +00:00
parent d3416cca6b
commit 69fb0241f4
1 changed files with 19 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/w32.c
View file

@ -702,6 +702,7 @@ init_environment (char ** argv)
int i;
LPBYTE lpval;
DWORD dwType;
char locale_name[32];
static struct env_entry
{
@ -721,9 +722,25 @@ init_environment (char ** argv)
is then ignored. */
/* {"INFOPATH", "%emacs_dir%/info"}, */
{"EMACSDOC", "%emacs_dir%/etc"},
{"TERM", "cmd"}
{"TERM", "cmd"},
{"LANG", NULL},
};
/* Get default locale info and use it for LANG. */
if (GetLocaleInfo (LOCALE_USER_DEFAULT,
LOCALE_SABBREVLANGNAME | LOCALE_USE_CP_ACP,
locale_name, sizeof (locale_name)))
{
for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)
{
if (strcmp (env_vars[i].name, "LANG") == 0)
{
env_vars[i].def_value = locale_name;
break;
}
}
}
#define SET_ENV_BUF_SIZE (4 * MAX_PATH) /* to cover EMACSLOADPATH */
/* Treat emacs_dir specially: set it unconditionally based on our
@ -752,7 +769,7 @@ init_environment (char ** argv)
}
}
for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)
for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)
{
if (!getenv (env_vars[i].name))
{