[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el [lexbind]

[Miles Bader]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.194.2.8 
emacs/lisp/international/mule-cmds.el:1.194.2.9
*** emacs/lisp/international/mule-cmds.el:1.194.2.8     Tue May 11 02:34:46 2004
--- emacs/lisp/international/mule-cmds.el       Tue Jul  6 10:10:48 2004
***************
*** 1834,1839 ****
--- 1834,1848 ----
    (let ((func (get-language-info language-name 'setup-function)))
      (if (functionp func)
        (funcall func)))
+   (if (and utf-translate-cjk-mode
+          utf-translate-cjk-lang-env
+          (not (eq utf-translate-cjk-lang-env language-name))
+          (catch 'tag
+            (dolist (charset (get-language-info language-name 'charset))
+              (if (memq charset utf-translate-cjk-charsets)
+                  (throw 'tag t)))
+            nil))
+       (utf-translate-cjk-load-tables))
    (run-hooks 'set-language-environment-hook)
    (force-mode-line-update t))