set-language-environment

[Yoichi NAKAYAMA]

docstring of the variable current-language-environment says:
> This variable should be set only with M-x customize, which is equivalent
> to using the function `set-language-environment'.

Although (set-language-environment "jApAnEse") does set
current-language-environment to the wrong value (so the above two
are not "equivalent").  Following patch will fix it.

Index: mule-cmds.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.237
diff -u -r1.237 mule-cmds.el
--- mule-cmds.el        29 Jun 2003 10:36:59 -0000      1.237
+++ mule-cmds.el        5 Jul 2003 17:10:11 -0000
@@ -1707,7 +1707,9 @@
       (if (symbolp language-name)
          (setq language-name (symbol-name language-name)))
     (setq language-name "English"))
-  (or (assoc-ignore-case language-name language-info-alist)
+  (or (setq language-name
+           (car-safe
+            (assoc-ignore-case language-name language-info-alist)))
       (error "Language environment not defined: %S" language-name))
   (if current-language-environment
       (let ((func (get-language-info current-language-environment

Regards,
-- 
Yoichi Nakayama