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

2 files changed, 6 insertions, 1 deletions

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)))))