X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-charset.el;h=bf7fea42c7c6880cb1f90004fb46be66416171a0;hb=99e28816a59888a86724e2d0253bdcfbe6b88cd6;hp=9dd8fef3f4e1d308ac79712beebfb064d318e6fd;hpb=2fd9701a4f902054649dde9143a3f77809afee8f;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mule/mule-charset.el b/lisp/mule/mule-charset.el
index 9dd8fef..bf7fea4 100644
--- 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,104 @@ 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
+	  chinese-big5-cdp
+	  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
+	  chinese-gb12345
+	  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
+	  ideograph-hanziku-1
+	  ideograph-hanziku-2
+	  ideograph-hanziku-3
+	  ideograph-hanziku-4
+	  ideograph-hanziku-5
+	  ideograph-hanziku-6
+	  ideograph-hanziku-7
+	  ideograph-hanziku-8
+	  ideograph-hanziku-9
+	  ideograph-hanziku-10
+	  ideograph-hanziku-11
+	  ideograph-hanziku-12
+	  arabic-digit
+	  arabic-1-column
+	  arabic-2-column
+	  mojikyo
+	  china3-jef
+	  ideograph-cbeta
+;;; 	  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