Mercurial > emacs
changeset 103913:e942d6c3216e
(set-language-environment-charset):
If coding-system-charset-list returns `iso-2022' or `emacs-mule',
ignore them.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 15 Jul 2009 12:28:09 +0000 |
| parents | 82443f7c8da8 |
| children | 49527a6bbe0b |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Wed Jul 15 12:22:38 2009 +0000 +++ b/lisp/international/mule-cmds.el Wed Jul 15 12:28:09 2009 +0000 @@ -2035,7 +2035,9 @@ ;; coding systems of higher priorities in this environment. (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)))) + (let ((list (coding-system-charset-list coding))) + (if (consp list) + (setq charsets (append charsets list))))) (if charsets (apply 'set-charset-priority charsets))))