Commit bf974dc9 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(set-language-environment-charset):

If coding-system-charset-list returns `iso-2022' or `emacs-mule',
ignore them.
parent 6c875452
2009-07-15 Kenichi Handa <handa@m17n.org>
* international/mule-cmds.el (set-language-environment-charset):
If coding-system-charset-list returns `iso-2022' or `emacs-mule',
ignore them.
* language/misc-lang.el ("IPA"): Change coding systems to utf-8.
Delete unibyte-display.
......
......@@ -2035,7 +2035,9 @@ See `set-language-info-alist' for use in programs."
;; 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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment