# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1087006881 0
# Node ID 13758b690c5c0e78b7b0babdc2357346ec440aa6
# Parent  7dc1250b3b2f9c92ae6f9db83d531eff7f0e1e7e
(set-language-environment): Load subst tables if necessary.

diff -r 7dc1250b3b2f -r 13758b690c5c lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Sat Jun 12 02:20:10 2004 +0000
+++ b/lisp/international/mule-cmds.el	Sat Jun 12 02:21:21 2004 +0000
@@ -1834,6 +1834,15 @@
   (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))