(remove_char_attribute): New function.

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

diff --git a/lisp/mule/mule-charset.el b/lisp/mule/mule-charset.el
index 607666f..891232b 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-for-font
+  (setq default-coded-charset-priority-list
        '(ascii
          control-1
          latin-iso8859-1
@@ -268,15 +268,52 @@ DESCRIPTION (string) is the description string of the charset."
          cyrillic-iso8859-5
          greek-iso8859-7
          thai-tis620
-          ;; hiragana-jisx0208
-          ;; katakana-jisx0208
          japanese-jisx0208
+         japanese-jisx0208-1978
+         japanese-jisx0212
+         japanese-jisx0208-1990
+         chinese-cns11643-1
+         chinese-cns11643-2
+         chinese-cns11643-3
+         chinese-cns11643-4
+         chinese-cns11643-5
+         chinese-cns11643-6
+         chinese-cns11643-7
+         korean-ksc5601
+         chinese-gb2312
+         katakana-jisx0201
          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)))
-  )
+         latin-viscii
+         latin-viscii-lower
+         latin-viscii-upper
+         ipa
+         lao
+         ethiopic-ucs
+         ethiopic
+         mojikyo-pj-1
+         mojikyo-pj-2
+         mojikyo-pj-3
+         mojikyo-pj-4
+         mojikyo-pj-5
+         mojikyo-pj-6
+         mojikyo-pj-7
+         mojikyo-pj-8
+         mojikyo-pj-9
+         mojikyo-pj-10
+         mojikyo-pj-11
+         mojikyo-pj-12
+         mojikyo-pj-13
+         mojikyo-pj-14
+         mojikyo-pj-15
+         mojikyo-pj-16
+         mojikyo-pj-17
+         mojikyo-pj-18
+         mojikyo-pj-19
+         mojikyo-pj-20
+         mojikyo-pj-21
+         ideograph-daikanwa
+         ucs-bmp
+         arabic-iso8859-6
+         ucs)))
 
 ;;; mule-charset.el ends here