1834 |
(let ((func (get-language-info language-name 'setup-function))) |
(let ((func (get-language-info language-name 'setup-function))) |
1835 |
(if (functionp func) |
(if (functionp func) |
1836 |
(funcall func))) |
(funcall func))) |
1837 |
|
(if (and utf-translate-cjk-mode |
1838 |
|
utf-translate-cjk-lang-env |
1839 |
|
(not (eq utf-translate-cjk-lang-env language-name)) |
1840 |
|
(catch 'tag |
1841 |
|
(dolist (charset (get-language-info language-name 'charset)) |
1842 |
|
(if (memq charset utf-translate-cjk-charsets) |
1843 |
|
(throw 'tag t))) |
1844 |
|
nil)) |
1845 |
|
(utf-translate-cjk-load-tables)) |
1846 |
(run-hooks 'set-language-environment-hook) |
(run-hooks 'set-language-environment-hook) |
1847 |
(force-mode-line-update t)) |
(force-mode-line-update t)) |
1848 |
|
|