From: Glenn Morris <rgm@gnu.org>
Date: Sun, 17 Feb 2008 23:13:59 +0000 (+0000)
Subject: (set-locale-environment): Pass `frame' to getenv for LC_MESSAGES.
X-Git-Tag: emacs-pretest-23.0.90~7888
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=739b776471d9ee3f193a10c93704c577515ac485;p=emacs.git

(set-locale-environment): Pass `frame' to getenv for LC_MESSAGES.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b579d17c124..7a236b3f620 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-02-17  Glenn Morris  <rgm@gnu.org>
+
+	* international/mule-cmds.el (set-locale-environment): Pass
+	`frame' to getenv for LC_MESSAGES.
+
 2008-02-17  Juri Linkov  <juri@jurta.org>
 
 	* time.el (emacs-init-time): Use format instead of format-seconds.
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 9ff771d7137..45b3543b0ee 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -2516,7 +2516,7 @@ See also `locale-charset-language-names', `locale-language-names',
 
     (setq woman-locale
           (or system-messages-locale
-              (let ((msglocale (getenv "LC_MESSAGES")))
+              (let ((msglocale (getenv "LC_MESSAGES" frame)))
                 (if (zerop (length msglocale))
                     locale
                   (locale-translate msglocale)))))