Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 65652:447bc22e8322
(set-language-environment): Don't
check utf-translate-cjk-lang-env is nil or not on deciding if we
have to call utf-translate-cjk-load-tables.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 23 Sep 2005 02:12:37 +0000 |
| parents | bea70b37d446 |
| children | ed770a0a7846 |
comparison
equal
deleted
inserted
replaced
| 65651:b16e4baf1a72 | 65652:447bc22e8322 |
|---|---|
| 1899 | 1899 |
| 1900 (let ((func (get-language-info language-name 'setup-function))) | 1900 (let ((func (get-language-info language-name 'setup-function))) |
| 1901 (if (functionp func) | 1901 (if (functionp func) |
| 1902 (funcall func))) | 1902 (funcall func))) |
| 1903 (if (and utf-translate-cjk-mode | 1903 (if (and utf-translate-cjk-mode |
| 1904 utf-translate-cjk-lang-env | |
| 1905 (not (eq utf-translate-cjk-lang-env language-name)) | 1904 (not (eq utf-translate-cjk-lang-env language-name)) |
| 1906 (catch 'tag | 1905 (catch 'tag |
| 1907 (dolist (charset (get-language-info language-name 'charset)) | 1906 (dolist (charset (get-language-info language-name 'charset)) |
| 1908 (if (memq charset utf-translate-cjk-charsets) | 1907 (if (memq charset utf-translate-cjk-charsets) |
| 1909 (throw 'tag t))) | 1908 (throw 'tag t))) |