diff options
| author | Kenichi Handa | 2005-09-23 02:13:36 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2005-09-23 02:13:36 +0000 |
| commit | 8fb7dc777bed8eaeb26741a834775484719b3bc1 (patch) | |
| tree | cde2234d0b453610fff376d892d66d6010b3a2e8 | |
| parent | 39739f21c6f483440e870242a73f436081b78bba (diff) | |
| download | emacs-8fb7dc777bed8eaeb26741a834775484719b3bc1.tar.gz emacs-8fb7dc777bed8eaeb26741a834775484719b3bc1.zip | |
(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.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/international/mule-cmds.el | 1 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9b33c9c0ea2..dd1ff52baac 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2005-09-23 Kenichi Handa <handa@m17n.org> | ||
| 2 | |||
| 3 | * international/mule-cmds.el (set-language-environment): Don't | ||
| 4 | check utf-translate-cjk-lang-env is nil or not on deciding if we | ||
| 5 | have to call utf-translate-cjk-load-tables. | ||
| 6 | |||
| 1 | 2005-09-22 Stefan Monnier <monnier@iro.umontreal.ca> | 7 | 2005-09-22 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 8 | ||
| 3 | * mouse.el (mouse-move-drag-overlay): Fix last change. | 9 | * mouse.el (mouse-move-drag-overlay): Fix last change. |
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index c79349f3e57..8f491560ecc 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -1901,7 +1901,6 @@ specifies the character set for the major languages of Western Europe." | |||
| 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)) |