(default-coded-charset-priority-list): Add `chinese-big5-cdp'.

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

diff --git a/lisp/mule/mule-charset.el b/lisp/mule/mule-charset.el
index 9dd8fef..6f602bd 100644 (file)
--- a/lisp/mule/mule-charset.el
+++ b/lisp/mule/mule-charset.el
@@ -3,6 +3,7 @@
 ;; Copyright (C) 1992 Free Software Foundation, Inc.
 ;; Copyright (C) 1995 Amdahl Corporation.
 ;; Copyright (C) 1996 Sun Microsystems.
+;; Copyright (C) 1999,2000,2001 MORIOKA Tomohiko
 
 ;; Author: Unknown
 ;; Keywords: i18n, mule, internal
@@ -258,4 +259,90 @@ DESCRIPTION (string) is the description string of the charset."
     (put-char-table (car l) t auto-fill-chars)
     (setq l (cdr l))))
 
+
+;;; @ Coded character set
+;;;
+
+(when (featurep 'utf-2000)
+  (setq default-coded-charset-priority-list
+       '(ascii
+         control-1
+         latin-iso8859-1
+         latin-iso8859-2
+         latin-iso8859-3
+         latin-iso8859-4
+         latin-iso8859-9
+         latin-jisx0201
+         cyrillic-iso8859-5
+         greek-iso8859-7
+         thai-tis620
+         japanese-jisx0208
+         japanese-jisx0208-1990
+         japanese-jisx0212
+         korean-ksc5601
+         japanese-jisx0213-1
+         japanese-jisx0213-2
+         japanese-jisx0208-1978
+         chinese-gb2312
+         chinese-cns11643-1
+         chinese-cns11643-2
+         chinese-cns11643-3
+         chinese-cns11643-4
+         chinese-cns11643-5
+         chinese-cns11643-6
+         chinese-cns11643-7
+         chinese-big5-cdp
+         chinese-big5
+         chinese-isoir165
+         katakana-jisx0201
+         hebrew-iso8859-8
+         latin-viscii
+         latin-viscii-lower
+         latin-viscii-upper
+         ipa
+         lao
+         ethiopic-ucs
+         ethiopic
+         ideograph-daikanwa
+         ideograph-gt-pj-1
+         ideograph-gt-pj-2
+         ideograph-gt-pj-3
+         ideograph-gt-pj-4
+         ideograph-gt-pj-5
+         ideograph-gt-pj-6
+         ideograph-gt-pj-7
+         ideograph-gt-pj-8
+         ideograph-gt-pj-9
+         ideograph-gt-pj-10
+         ideograph-gt-pj-11
+         chinese-gb12345
+         arabic-digit
+         arabic-1-column
+         arabic-2-column
+         mojikyo
+;;;      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
+         ucs-bmp
+         mojikyo-2022-1
+         arabic-iso8859-6)))
+
 ;;; mule-charset.el ends here