mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

(set-language-environment): Put higher priority to charsets listed in

Browse Source 
`charset' property of the language environment.
This commit is contained in:
Kenichi Handa 2003-11-24 08:29:16 +00:00
parent c2e3456e63
commit 9d0ca2a33f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/international/mule-cmds.el
View File

@ -1700,7 +1700,7 @@ specifies the character set for the major languages of Western Europe."
;; 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