Mercurial > emacs
changeset 89658:6f848cbaeb52
(set-language-environment): Put higher priority to charsets listed in
`charset' property of the language environment.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 24 Nov 2003 08:29:16 +0000 |
| parents | 899286e38bef |
| children | 91f056b94e70 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Mon Nov 24 08:28:58 2003 +0000 +++ b/lisp/international/mule-cmds.el Mon Nov 24 08:29:16 2003 +0000 @@ -1700,7 +1700,7 @@ ;; Put higher priorities to such charsets that are supported by the ;; coding systems of higher priorities in this environment. - (let ((charsets nil)) + (let ((charsets (get-language-info language-name 'charset))) (dolist (coding (get-language-info language-name 'coding-priority)) (setq charsets (append charsets (coding-system-charset-list coding)))) (if charsets