# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1057891201 0
# Node ID 4510b8eaa84a8d9377b2bf935259b5667e3bc67d
# Parent  6edc2212d82e18a425ed6c5313271d0db7985793
(set-language-environment): Set
current-language-environment to the correct string.

diff -r 6edc2212d82e -r 4510b8eaa84a lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Thu Jul 10 22:29:13 2003 +0000
+++ b/lisp/international/mule-cmds.el	Fri Jul 11 02:40:01 2003 +0000
@@ -1708,8 +1708,10 @@
       (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)))