* emacs.c (fixup_locale): Don't bother to record initial locale.

(synchronize_locale): If the desired locale is nil,
treat it as if it were the empty string,
so that we set the locale from the environment.

diff --git a/src/ChangeLog b/src/ChangeLog
index a9c1983a7a29536f059054515d471cdf90d89e02..b53b9d7c24c75c3d880cf8b1c89fd9ad2b10ccd5 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+1999-11-25  Paul Eggert  <eggert@twinsun.com>
+
+       * emacs.c (fixup_locale): Don't bother to record initial locale.
+       (synchronize_locale): If the desired locale is nil,
+       treat it as if it were the empty string,
+       so that we set the locale from the environment.
+
 1999-11-25  Kenichi Handa  <handa@etl.go.jp>
 
        * fileio.c (Finsert_file_contents): Set buffer-file-coding-system

diff --git a/src/emacs.c b/src/emacs.c
index 4ec6e612a638eb05ab479bd1baecc5bd278ae202..91b0c773645b4b1b751e497d116777ec38fbf5a5 100644 (file)
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -1911,30 +1911,26 @@ You must run Emacs in batch mode in order to dump it.")
 void
 fixup_locale ()
 {
-  char *l;
-
   /* The Emacs Lisp reader needs LC_NUMERIC to be "C",
      so that numbers are read and printed properly for Emacs Lisp.  */
   setlocale (LC_NUMERIC, "C");
-
-#ifdef LC_MESSAGES
-  l = setlocale (LC_MESSAGES, (char *) 0);
-  Vprevious_system_messages_locale = l ? build_string (l) : Qnil;
-#endif
-  l = setlocale (LC_TIME, (char *) 0);
-  Vprevious_system_time_locale = l ? build_string (l) : Qnil;
 }
 
+/* Set system locale CATEGORY, with previous locale *PLOCALE, to
+   DESIRED_LOCALE.  */
 static void
 synchronize_locale (category, plocale, desired_locale)
      int category;
      Lisp_Object *plocale;
      Lisp_Object desired_locale;
 {
-  if (STRINGP (desired_locale)
-      && (NILP (*plocale) || NILP (Fstring_equal (*plocale, desired_locale)))
-      && setlocale (category, XSTRING (desired_locale)->data))
-    *plocale = desired_locale;
+  if (! EQ (*plocale, desired_locale))
+    {
+      *plocale = desired_locale;
+      setlocale (category, (STRINGP (desired_locale)
+                           ? XSTRING (desired_locale)->data
+                           : ""));
+    }
 }
 
 /* Set system time locale to match Vsystem_time_locale, if possible.  */