# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1069662556 0
# Node ID 6f848cbaeb524ccb0c35327ba826849d5e842a4f
# Parent  899286e38befca88d0c8c104b888b2ff429868cc
(set-language-environment): Put higher priority to charsets listed in
`charset' property of the language environment.

diff -r 899286e38bef -r 6f848cbaeb52 lisp/international/mule-cmds.el
--- 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