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

[Kenichi Handa]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.256 
emacs/lisp/international/mule-cmds.el:1.257
*** emacs/lisp/international/mule-cmds.el:1.256 Sun May  9 15:39:00 2004
--- emacs/lisp/international/mule-cmds.el       Sat Jun 12 02:21:21 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))