(set-language-environment): Set

current-language-environment to the correct string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 974c2c80d7f0dd23f8af333a3c272d2552fef7d2..1e50aa1d4383446f543283a749a5bbbc96a2e7cc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-11  Kenichi Handa  <handa@m17n.org>
+
+       * international/mule-cmds.el (set-language-environment): Set
+       current-language-environment to the correct string.
+
 2003-07-10  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
        * ps-print.el: Print line number correctly in a region.  Reported by

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 49eaa1db9adfc06bfcd69b76cd47070893c96a62..d56c382c990a2b15a788e1944ae9f74cd3ef5460 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1708,8 +1708,10 @@ specifies the character set for the major languages of Western Europe."
       (if (symbolp language-name)
          (setq language-name (symbol-name language-name)))
     (setq language-name "English"))
-  (or (assoc-ignore-case language-name language-info-alist)
+  (let ((slot (assoc-ignore-case language-name language-info-alist)))
+    (unless slot
       (error "Language environment not defined: %S" language-name))
+    (setq language-name (car slot)))
   (if current-language-environment
       (let ((func (get-language-info current-language-environment
                                     'exit-function)))