(default-coded-charset-priority-list-for-font): Setup in UTF-2000.

[chise/xemacs-chise.git] / lisp / mule / mule-charset.el

diff --git a/lisp/mule/mule-charset.el b/lisp/mule/mule-charset.el
index 671e5ee..607666f 100644 (file)
--- a/lisp/mule/mule-charset.el
+++ b/lisp/mule/mule-charset.el
@@ -256,7 +256,7 @@ DESCRIPTION (string) is the description string of the charset."
 ;;;
 
 (when (featurep 'utf-2000)
-  (setq default-coded-charset-priority-list
+  (setq default-coded-charset-priority-list-for-font
        '(ascii
          control-1
          latin-iso8859-1
@@ -267,7 +267,16 @@ DESCRIPTION (string) is the description string of the charset."
          latin-jisx0201
          cyrillic-iso8859-5
          greek-iso8859-7
-         vietnamese-viscii-lower
-         vietnamese-viscii-upper)))
+         thai-tis620
+          ;; hiragana-jisx0208
+          ;; katakana-jisx0208
+         japanese-jisx0208
+         hebrew-iso8859-8
+         latin-viscii))
+  (setq default-coded-charset-priority-list
+       (append default-coded-charset-priority-list-for-font
+               '(vietnamese-viscii-lower
+                 vietnamese-viscii-upper)))
+  )
 
 ;;; mule-charset.el ends here