procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(set-language-environment): Load subst tables if necessary.

Browse source
This commit is contained in:
Kenichi Handa 2004-06-12 02:21:21 +00:00
parent 8458c8b93d
commit 60d334c367
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/international/mule-cmds.el
View file

@ -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))