From 60d334c36712e5a0fe5e12ef96b8bfc243b36ff0 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 12 Jun 2004 02:21:21 +0000 Subject: [PATCH] (set-language-environment): Load subst tables if necessary. --- lisp/international/mule-cmds.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 24664f9fc64..0d4abab120c 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1834,6 +1834,15 @@ specifies the character set for the major languages of Western Europe." (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)) -- 2.39.5