X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-conf.el;h=1542db1bd837af4f441b6e16a091f027b046b8e0;hb=16fff617722bc4cf6f56b88ab782acd7fdeacb2b;hp=a68ef82a9043529125f2927de2fdd8c46d9d4e74;hpb=360a1294f54bac5116fe1e89fe253ffbac2809e9;p=chise%2Fxemacs-chise.git diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el index a68ef82..1542db1 100644 --- a/lisp/mule/mule-conf.el +++ b/lisp/mule/mule-conf.el @@ -2,7 +2,8 @@ ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. -;; Copyright (C) 1997,1999,2000,2002,2003 MORIOKA Tomohiko +;; Copyright (C) 1997, 1999, 2000, 2002, 2003, 2004, 2005, 2006, 2008, +;; 2009 MORIOKA Tomohiko ;; Keywords: mule, multilingual, character set, coding system @@ -25,6 +26,80 @@ ;;; Code: +(cond + ((featurep 'utf-2000) + (make-charset + '=jis-x0208@1978 + "JIS X 0208:1978, unchanged part." + '(registry "jisx0208\\.1978" + dimension 2 + chars 94 + mother =jis-x0208 + =>iso-ir 42 + final ?@ + graphic 0 + partial t)) + (make-charset + '=jis-x0208@1978/-4pr + "JIS X 0208:1978, 1st - 3rd impressions." + '(registry "jisx0208\\.1978" + dimension 2 + chars 94 + mother =jis-x0208@1978 + =>iso-ir 42 + final ?@ + graphic 0 + partial t)) + (make-charset + '=jis-x0208@1978/1pr + "JIS X 0208:1978, 1st impression." + '(iso-ir 42 + registry "jisx0208\\.1978" + dimension 2 + chars 94 + mother =jis-x0208@1978/-4pr + final ?@ + graphic 0)) + (make-charset + '=jis-x0208@1978/4-pr + "JIS X 0208:1978, 4th impression or later." + '(registry "jisx0208\\.1978" + dimension 2 + chars 94 + mother =jis-x0208@1978 + =>iso-ir 42 + ;; final ?@ + graphic 0 + partial t)) + (define-charset-alias '=jis-x0208@1978/i1 '=jis-x0208@1978/1pr) + (define-charset-alias '=jis-x0208@1978/i-4 '=jis-x0208@1978/-4pr) + (define-charset-alias '=jis-x0208@1978/i4- '=jis-x0208@1978/4-pr) + ) + (t + (make-charset + '=jis-x0208@1978 + "JIS X0208:1978 Japanese Kanji (so called \"old JIS\")." + '(iso-ir 42 + registry "jisx0208\\.1978" + dimension 2 + chars 94 + mother =jis-x0208 + final ?@ + graphic 0)) + )) + +(define-charset-alias '=jis-x0208-1978 '=jis-x0208@1978) +(define-charset-alias 'japanese-jisx0208-1978 '=jis-x0208@1978) +(define-charset-alias 'chinese-gb2312 '=gb2312) +(define-charset-alias '=jis-x0208-1983 '=jis-x0208@1983) +(define-charset-alias 'japanese-jisx0208 '=jis-x0208@1983) +(define-charset-alias 'korean-ksc5601 '=ks-x1001) +(define-charset-alias 'japanese-jisx0212 '=jis-x0212) +(define-charset-alias 'chinese-cns11643-1 '=cns11643-1) +(define-charset-alias 'chinese-cns11643-2 '=cns11643-2) +(define-charset-alias 'chinese-gb12345 '=gb12345) +(define-charset-alias 'chinese-big5 '=big5) + ;; PinYin-ZhuYin (make-charset 'sisheng "PinYin-ZhuYin" '(registry "sisheng_cwnn\\|OMRON_UDC_ZH" @@ -63,15 +138,26 @@ ;; ISO-IR-165 (CCITT Extended GB) ;; It is based on CCITT Recommendation T.101, includes GB 2312-80 + ;; GB 8565-88 table A4 + 293 characters. -(make-charset - 'chinese-isoir165 - "ISO-IR-165 (CCITT Extended GB; Chinese simplified)" - `(iso-ir 165 - registry "isoir165" - dimension 2 - chars 94 - final ?E - graphic 0)) +(if (featurep 'utf-2000) + (progn + (make-charset '=iso-ir165 + "ISO-IR-165 (CCITT Extended GB; Chinese simplified)" + '(iso-ir 165 + dimension 2 + chars 94 + mother =gb2312 + final ?E + registry "isoir165" + graphic 0)) + (define-charset-alias 'chinese-isoir165 '=iso-ir165)) + (make-charset 'chinese-isoir165 + "ISO-IR-165 (CCITT Extended GB; Chinese simplified)" + '(iso-ir 165 + dimension 2 + chars 94 + final ?E + registry "isoir165" + graphic 0))) ;; CNS11643 Plane3 thru Plane7 ;; These represent more and more obscure Chinese characters. @@ -92,38 +178,69 @@ final ,final graphic 0)) )) - (make-chinese-cns11643-charset 'chinese-cns11643-3 183 "3" ?I) - (make-chinese-cns11643-charset 'chinese-cns11643-4 184 "4" ?J) - (make-chinese-cns11643-charset 'chinese-cns11643-5 185 "5" ?K) - (make-chinese-cns11643-charset 'chinese-cns11643-6 186 "6" ?L) - (make-chinese-cns11643-charset 'chinese-cns11643-7 187 "7" ?M) + (make-chinese-cns11643-charset '=cns11643-3 183 "3" ?I) + (make-chinese-cns11643-charset '=cns11643-4 184 "4" ?J) + (make-chinese-cns11643-charset '=cns11643-5 185 "5" ?K) + (make-chinese-cns11643-charset '=cns11643-6 186 "6" ?L) + (make-chinese-cns11643-charset '=cns11643-7 187 "7" ?M) + (define-charset-alias 'chinese-cns11643-3 '=cns11643-3) + (define-charset-alias 'chinese-cns11643-4 '=cns11643-4) + (define-charset-alias 'chinese-cns11643-5 '=cns11643-5) + (define-charset-alias 'chinese-cns11643-6 '=cns11643-6) + (define-charset-alias 'chinese-cns11643-7 '=cns11643-7) ) ;; JIS X 0213:2000 -(if (featurep 'utf-2000) - (progn - (make-charset - '=jis-x0213-1-2000 - "JIS X 0213:2000 Plain 1" - '(iso-ir 228 - registry "jisx0213\\(\\.2000\\)-1" - dimension 2 - chars 94 - mother =jis-x0208-1990 - final ?O - graphic 0)) - (make-charset - '=jis-x0213-2-2000 - "JIS X 0213:2000 Plain 2" - '(iso-ir 229 - registry "jisx0213\\(\\.2000\\)-2" - dimension 2 - chars 94 - final ?P - graphic 0)) - (define-charset-alias 'japanese-jisx0213-1 '=jis-x0213-1-2000) - (define-charset-alias 'japanese-jisx0213-2 '=jis-x0213-2-2000) - ) +(cond + ((featurep 'utf-2000) + (make-charset + '=jis-x0213-1 + "JIS X 0213 Plain 1 (unchanged part)" + '(registry "jisx0213\\(\\.[0-9]+\\)?-1" + dimension 2 + chars 94 + =>iso-ir 228 + final ?O + graphic 0 + partial t)) + + (make-charset + '=jis-x0213-1@2000 + "JIS X 0213:2000 Plain 1" + '(iso-ir 228 + registry "jisx0213\\(\\.2000\\)-1" + dimension 2 + chars 94 + mother =jis-x0213-1 + final ?O + graphic 0)) + (make-charset + '=jis-x0213-2 + "JIS X 0213 Plain 2" + '(iso-ir 229 + registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2" + dimension 2 + chars 94 + final ?P + graphic 0)) + + (make-charset + '=jis-x0213-1@2004 + "JIS X 0213:2004 Plain 1" + '(iso-ir 233 + registry "jisx0213\\(\\.2004\\)-1" + dimension 2 + chars 94 + mother =jis-x0213-1 + final ?Q + graphic 0)) + + (define-charset-alias 'japanese-jisx0213-1 '=jis-x0213-1@2000) + (define-charset-alias 'japanese-jisx0213-2 '=jis-x0213-2) + (define-charset-alias '=jis-x0213-1-2000 '=jis-x0213-1@2000) + (define-charset-alias '=jis-x0213-2-2000 '=jis-x0213-2) + ) + (t (make-charset 'japanese-jisx0213-1 "JIS X 0213:2000 Plain 1" @@ -140,122 +257,212 @@ chars 94 final ?P graphic 0)) - ) + )) (when (featurep 'utf-2000) (define-charset-alias 'ucs '=ucs) - (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208-1990) - (make-charset '=ucs@gb - "UCS for GB" - `(long-name "ISO/IEC 10646 for GB" + (define-charset-alias '=jis-x0208-1990 '=jis-x0208@1990) + (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208@1990) + (make-charset + '=jis-x0208@1997 + "JIS X 0208 based on the unification rule of 1997 edition." + '(registry "jisx0208\\.1990" + dimension 2 + chars 94 + mother =jis-x0208 + ;; final ?B + graphic 0)) + + (make-charset '=big5-cdp + "Big5 with CDP extension" + '(long-name "Big5-CDP" chars 256 - dimension 3 + dimension 2 columns 2 graphic 2 direction l2r - mother =ucs)) - (define-charset-alias 'ucs-gb '=ucs@gb) - (make-charset '=ucs@cns - "UCS for CNS" - `(long-name "ISO/IEC 10646 for CNS 11643" + registry "big5\\.cdp-0" + mother chinese-big5 + min-code #x8140 + max-code #x8DFE)) + (define-charset-alias 'chinese-big5-cdp '=big5-cdp) + + (make-charset '=gt + "GT 2000" + `(long-name "GT" chars 256 dimension 3 columns 2 graphic 2 direction l2r - mother =ucs)) - (define-charset-alias 'ucs-cns '=ucs@cns) - (make-charset '=ucs@jis - "UCS for JIS" - `(long-name "ISO/IEC 10646 for JIS X0208/0212/0213" + registry "" + min-code ,(lsh #x6100 16) + max-code ,(+ (lsh #x6100 16) 67547) + code-offset ,(lsh #x6100 16))) + (define-charset-alias 'ideograph-gt '=gt) + (make-charset '<=>gt + "GT 2000 abstract characters" + `(long-name "abstract GT" chars 256 dimension 3 columns 2 graphic 2 direction l2r - mother =ucs)) - (define-charset-alias 'ucs-jis '=ucs@jis) - (make-charset '=ucs@jis-1990 - "UCS for JIS:1990" - `(long-name "ISO/IEC 10646 for JIS X 0208/0212:1990" + mother =gt)) + (make-charset '=gt-k + "Ideographic components of GT" + `(long-name "GT components" chars 256 - dimension 3 + dimension 2 columns 2 graphic 2 direction l2r - mother ucs-jis)) - (define-charset-alias '=ucs-jis-1990 '=ucs@jis-1990) - (make-charset '=ucs@jis-2000 - "UCS for JIS:2000" - `(long-name "ISO/IEC 10646 for JIS X 0213:2000" + registry "" + min-code ,(lsh #x6110 16) + max-code ,(+ (lsh #x6110 16) 17090) + code-offset ,(lsh #x6110 16))) + (define-charset-alias 'ideograph-gt-k '=gt-k) + (let ((i 1)) + (while (<= i 11) + (make-charset + (intern (format "=gt-pj-%d" i)) + (format "GT 2000 (pseudo JIS encoding) part %d" i) + `(long-name ,(format "GT PJ %d" i) + chars 94 + dimension 2 + columns 2 + graphic 0 + direction l2r + registry ,(format "\\(GTpj-%d\\|jisx0208\\.GT-%d\\)$" i i))) + (define-charset-alias + (intern (format "ideograph-gt-pj-%d" i)) + (intern (format "=gt-pj-%d" i))) + (setq i (1+ i)))) + (make-charset + '=gt-pj-k1 + "Ideographic parts of GT (pseudo JIS encoding) part 1" + '(long-name "GT K1" + chars 94 + dimension 2 + columns 2 + graphic 0 + direction l2r + registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$")) + (define-charset-alias 'ideograph-gt-pj-k1 '=gt-pj-k1) + (make-charset + '=gt-pj-k2 + "Ideographic parts of GT (pseudo JIS encoding) part 2" + '(long-name "GT K2" + chars 94 + dimension 2 + columns 2 + graphic 0 + direction l2r + registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$")) + (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2) + + (make-charset '=daikanwa + "Daikanwa dictionary (revised version 2)" + `(long-name "Daikanwa" chars 256 - dimension 3 + dimension 2 columns 2 graphic 2 direction l2r - mother ucs-jis)) - (define-charset-alias '=ucs-jis-2000 '=ucs@jis-2000) - (make-charset '=ucs@ks - "UCS for KS" - `(long-name "ISO/IEC 10646 for Korean Standards" + registry "Daikanwa\\(\\.[0-9]+\\)?-3" + min-code #xE00000 + max-code ,(+ #xE00000 50100) + code-offset #xE00000)) + (define-charset-alias 'ideograph-daikanwa '=daikanwa) + + (make-charset '=daikanwa@rev1 + "Daikanwa dictionary (revised version)" + `(long-name "Daikanwa Rev." chars 256 - dimension 3 + dimension 2 columns 2 graphic 2 direction l2r - mother =ucs)) - (define-charset-alias 'ucs-ks '=ucs@ks) - (make-charset '=ucs@big5 - "UCS for Big5" - `(long-name "ISO/IEC 10646 for Big5" + registry "Daikanwa\\(\\.[0-9]+\\)?-2" + mother =daikanwa + )) + (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa@rev1) + (define-charset-alias '=daikanwa-rev1 '=daikanwa@rev1) + + (make-charset '=daikanwa@rev2 + "Daikanwa dictionary (revised version 2)" + `(long-name "Daikanwa" chars 256 - dimension 3 + dimension 2 columns 2 graphic 2 direction l2r - mother =ucs)) - (define-charset-alias 'ucs-big5 '=ucs@big5) + registry "Daikanwa\\(\\.[0-9]+\\)?-3" + mother =daikanwa + min-code 1 + max-code 49964 + ;; min-code #xE00000 + ;; max-code ,(+ #xE00000 50100) + ;; code-offset #xE00000 + )) + (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2) - (make-charset 'ideograph-daikanwa - "Daikanwa" - `(long-name "Daikanwa dictionary (revised version 2)" + (make-charset '=shinjigen + "Kadokawa ShinJigen dictionary (common parts)" + `(long-name "Shinjigen common parts" chars 256 dimension 2 columns 2 graphic 2 direction l2r - registry "Daikanwa\\(\\.[0-9]+\\)?-3" - min-code #xE00000 - max-code ,(+ #xE00000 50100) - code-offset #xE00000)) + registry "Shinjigen\\(\\.[0-9]+\\)?-*")) - (make-charset '=daikanwa-rev1 - "Daikanwa Rev." - `(long-name "Daikanwa dictionary (revised version)" + (make-charset '=shinjigen@1ed + "Kadokawa ShinJigen dictionary (the first edition)" + `(long-name "Shinjigen-1" chars 256 dimension 2 columns 2 graphic 2 direction l2r - registry "Daikanwa\\(\\.[0-9]+\\)?-2")) - (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa-rev1) + mother =shinjigen + registry "Shinjigen\\(\\.[0-9]+\\)?-1")) + (define-charset-alias 'shinjigen-1 '=shinjigen@1ed) - (make-charset '=daikanwa-rev2 - "Daikanwa" - `(long-name "Daikanwa dictionary (revised version 2)" + (make-charset '=shinjigen@1ed/24pr + "Kadokawa ShinJigen dictionary (the 24th impression)" + `(long-name "Shinjigen-1 24pr" chars 256 dimension 2 columns 2 graphic 2 direction l2r - registry "Daikanwa\\(\\.[0-9]+\\)?-3" - min-code #xE00000 - max-code ,(+ #xE00000 50100) - code-offset #xE00000)) + mother =shinjigen@1ed)) + + (make-charset '=shinjigen@rev + "Kadokawa ShinJigen dictionary (the revised edition)" + `(long-name "Shinjigen-2" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =shinjigen + registry "Shinjigen\\(\\.[0-9]+\\)?-2")) + (define-charset-alias 'shinjigen-2 '=shinjigen@rev) + (make-charset '=shinjigen/+p@rev + "ShinJigen (the second edition) number with '" + `(long-name "Shinjigen-2 with '" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r)) + (define-charset-alias 'shinjigen-2-p '=shinjigen/+p@rev) (make-charset '=big5-pua - "Big5-PUA" - `(long-name "Big5 with private used area" + "Big5 with private used area" + '(long-name "Big5-PUA" chars 256 dimension 2 columns 2 @@ -265,8 +472,8 @@ registry "Big5\\.ETEN")) (define-charset-alias 'chinese-big5-pua '=big5-pua) (make-charset '=big5-eten - "Big5-ETEN" - `(long-name "Big5 ETEN" + "Big5 ETEN" + '(long-name "Big5-ETEN" chars 256 dimension 2 columns 2 @@ -278,8 +485,8 @@ registry "Big5\\.ETEN")) (define-charset-alias 'chinese-big5-eten '=big5-eten) (make-charset 'chinese-big5-eten-a - "Big5-ETEN-a" - `(long-name "Big5 ETEN (#xF9D6 .. #xF9FE)" + "Big5 ETEN (#xF9D6 .. #xF9FE)" + '(long-name "Big5-ETEN-a" chars 256 dimension 2 columns 2 @@ -290,8 +497,8 @@ max-code #xF9FE registry "Big5\\.ETEN")) (make-charset 'chinese-big5-eten-b - "Big5-ETEN-b" - `(long-name "Big5 ETEN (#xC6A1 .. #xC8FE)" + "Big5 ETEN (#xC6A1 .. #xC8FE)" + '(long-name "Big5-ETEN-b" chars 256 dimension 2 columns 2 @@ -301,27 +508,15 @@ min-code #xC6A1 max-code #xC8FE registry "Big5\\.ETEN")) - (make-charset '=big5-cdp - "Big5-CDP" - `(long-name "Big5 with CDP extension" - chars 256 - dimension 2 - columns 2 - graphic 2 - direction l2r - registry "big5\\.cdp-0" - mother chinese-big5 - min-code #x8140 - max-code #x8DFE)) - (define-charset-alias 'chinese-big5-cdp '=big5-cdp) + (let* ((i 1) (hzk-min (+ (lsh #x6200 16) 65536)) (hzk-max (+ hzk-min 65535))) (while (<= i 12) (make-charset (intern (format "=hanziku-%d" i)) - (format "HANZIKU-%d" i) - `(long-name ,(format "HANZIKU (pseudo BIG5 encoding) part %d" i) + (format "HANZIKU (pseudo BIG5 encoding) part %d" i) + `(long-name ,(format "HANZIKU-%d" i) chars 256 dimension 2 columns 2 @@ -338,72 +533,8 @@ hzk-max (+ hzk-min 65535)) (setq i (1+ i)))) - (make-charset '=gt - "GT" - `(long-name "GT 2000" - chars 256 - dimension 3 - columns 2 - graphic 2 - direction l2r - registry "" - min-code ,(lsh #x6100 16) - max-code ,(+ (lsh #x6100 16) 67547) - code-offset ,(lsh #x6100 16))) - (define-charset-alias 'ideograph-gt '=gt) - (make-charset '=gt-k - "GT parts" - `(long-name "Ideographic parts of GT" - chars 256 - dimension 2 - columns 2 - graphic 2 - direction l2r - registry "" - min-code ,(lsh #x6110 16) - max-code ,(+ (lsh #x6110 16) 17090) - code-offset ,(lsh #x6110 16))) - (define-charset-alias 'ideograph-gt-k '=gt-k) - (let ((i 1)) - (while (<= i 11) - (make-charset - (intern (format "=gt-pj-%d" i)) - (format "GT PJ %d" i) - `(long-name ,(format "GT 2000 (pseudo JIS encoding) part %d" i) - chars 94 - dimension 2 - columns 2 - graphic 0 - direction l2r - registry ,(format "\\(GTpj-%d\\|jisx0208\\.GT-%d\\)$" i i))) - (define-charset-alias - (intern (format "ideograph-gt-pj-%d" i)) - (intern (format "=gt-pj-%d" i))) - (setq i (1+ i)))) - (make-charset - '=gt-pj-k1 - "GT K1" - `(long-name "Ideographic parts of GT (pseudo JIS encoding) part 1" - chars 94 - dimension 2 - columns 2 - graphic 0 - direction l2r - registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$")) - (define-charset-alias 'ideograph-gt-pj-k1 '=gt-pj-k1) - (make-charset - '=gt-pj-k2 - "GT K2" - `(long-name "Ideographic parts of GT (pseudo JIS encoding) part 2" - chars 94 - dimension 2 - columns 2 - graphic 0 - direction l2r - registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$")) - (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2) - (make-charset '=cbeta "CBETA PUA" - '(long-name "CBETA private characters" + (make-charset '=cbeta "CBETA private characters" + '(long-name "CBETA PUA" chars 256 dimension 2 registry "cbeta-0" @@ -414,9 +545,23 @@ columns 2 direction l2r)) (define-charset-alias 'ideograph-cbeta '=cbeta) + + (make-charset '=zinbun-oracle + "Oracle Bones Script" + `(long-name "Oracle Bones Script in Zinbun, Kyoto Univ." + chars 256 + dimension 2 + registry "zob1968-0" + graphic 2 + min-code #xE70000 + max-code ,(+ #xE70000 8192) + code-offset #xE70000 + columns 2 + direction l2r)) + (make-charset '=jef-china3 - "JEF + CHINA3" - `(long-name "JEF + CHINA3 private characters" + "JEF + CHINA3 private characters" + '(long-name "JEF + CHINA3" chars 256 dimension 2 columns 2 @@ -427,6 +572,405 @@ max-code #xE8FFFF code-offset #xE80000)) (define-charset-alias 'china3-jef '=jef-china3) + + (make-charset '=ruimoku-v6 + "private characters used in RUIMOKU Version.6" + `(long-name "RUI6" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "rui6-0" + ;; mother ucs + min-code #xE90000 ; #xE000 + max-code #xE908FF ; #xE8FF + code-offset ,(- #xE90000 #xE000))) + + (make-charset '=ucs@iso + "ISO/IEC 10646 for its representative glyphs" + '(long-name "UCS for ISO" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs)) + (make-charset '=ucs@unicode + "Unicode for its representative glyphs" + '(long-name "UCS for Unicode" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs@iso)) + (make-charset '=ucs@gb + "ISO/IEC 10646 for GB" + '(long-name "UCS for GB" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs@unicode)) + (define-charset-alias 'ucs-gb '=ucs@gb) + (make-charset '=ucs@gb/fw + "ISO/IEC 10646 for GB with fullwidth" + '(long-name "UCS for GB-fullwidth" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs@gb)) + (make-charset '=ucs-bmp@gb + "ISO/IEC 10646 BMP for GB" + '(long-name "BMP for GB" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs@gb + min-code #x0000 + max-code #xFFFF)) + (make-charset '=ucs@cns + "ISO/IEC 10646 for CNS 11643" + '(long-name "UCS for CNS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs@unicode)) + (define-charset-alias 'ucs-cns '=ucs@cns) + (make-charset '=ucs@cns/fw + "ISO/IEC 10646 for CNS 11643 with fullwidth" + '(long-name "UCS for CNS-fullwidth" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs@cns)) + (make-charset '=ucs-bmp@cns + "ISO/IEC 10646 BMP for CNS" + '(long-name "BMP for CNS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs@cns + min-code #x0000 + max-code #xFFFF)) + (make-charset '=ucs@jis + "ISO/IEC 10646 for JIS X0208/0212/0213" + '(long-name "UCS for JIS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs@unicode)) + (define-charset-alias 'ucs-jis '=ucs@jis) + (make-charset '=ucs@jis/fw + "ISO/IEC 10646 for JIS X0208/0212/0213 with fullwidth" + '(long-name "UCS for JIS-fullwidth" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs@jis)) + (make-charset '=ucs-bmp@jis + "ISO/IEC 10646 BMP for JIS" + '(long-name "BMP for JIS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs@jis + min-code #x0000 + max-code #xFFFF)) + (make-charset '=ucs@jis/1990 + "ISO/IEC 10646 for JIS X 0208/0212:1990" + '(long-name "UCS for JIS:1990" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother ucs-jis)) + (define-charset-alias '=ucs@jis-1990 '=ucs@jis/1990) + (define-charset-alias '=ucs-jis-1990 '=ucs@jis/1990) + (make-charset '=ucs@jis/2000 + "ISO/IEC 10646 for JIS X 0213:2000" + '(long-name "UCS for JIS:2000" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother ucs-jis)) + (define-charset-alias '=ucs@jis-2000 '=ucs@jis/2000) + (define-charset-alias '=ucs-jis-2000 '=ucs@jis/2000) + (make-charset '=ucs@jis/2004 + "ISO/IEC 10646 for JIS X 0213:2004" + '(long-name "UCS for JIS:2004" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother ucs-jis)) + (make-charset '=ucs@JP + "UCS for common glyphs used in Japan" + '(long-name "UCS for Japan" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs@jis/2004)) + (define-charset-alias '=ucs@jp '=ucs@JP) + (make-charset '=ucs@ks + "ISO/IEC 10646 for Korean Standards" + '(long-name "UCS for KS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs@unicode)) + (define-charset-alias 'ucs-ks '=ucs@ks) + (make-charset '=ucs-bmp@ks + "ISO/IEC 10646 BMP for KS" + '(long-name "BMP for KS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs@ks + min-code #x0000 + max-code #xFFFF)) + (make-charset '=ucs@big5 + "ISO/IEC 10646 for Big5" + '(long-name "UCS for Big5" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs@unicode)) + (define-charset-alias 'ucs-big5 '=ucs@big5) + (make-charset '=ucs@big5/cns11643 + "ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw" + '(long-name "UCS for Big5@CNS11643" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs@big5)) + (make-charset '=ucs@cns11643 + "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw" + '(long-name "UCS for CNS11643" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs@cns)) + + (make-charset + '=ucs-radicals + "CJK Radicals of UCS" + '(long-name "UCS-Radicals" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "-zhRadicals-.*-ucs-0" + mother ucs-bmp + min-code #x2E00 max-code #x2FFF)) + (make-charset + '=ucs-radicals@unicode + "CJK Radicals of UCS" + '(long-name "UCS-Radicals" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "-zhRadicals-.*-ucs-0" + mother =ucs@unicode + min-code #x2E00 max-code #x2FFF)) + (make-charset + '=ucs-hangul + "Hangul Syllables of UCS" + '(long-name "UCS-Hangul-Syllables" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "-Hangul-.*-ucs-0" + mother =ucs + min-code #xAC00 max-code #xD7AF)) + (make-charset + '=ucs-bmp-cjk + "CJK Characters in BMP of UCS" + '(long-name "UCS-BMP-CJK" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "-zh-.*-ucs-0" + mother ucs-bmp + min-code #x2E00 + max-code #x9FA5 + ;; max-code #xA4CF + )) + (make-charset + '=ucs-bmp-cjk@unicode + "CJK Characters in BMP of Unicode" + '(long-name "Unicode-BMP-CJK" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "-zh-.*-ucs-0" + mother =ucs@unicode + min-code #x2E00 + max-code #x9FA5 + ;; max-code #xA4CF + )) + (make-charset + '=ucs-sip-ext-b + "CJK Ideographs Extension B" + '(long-name "UCS CJK Ext-B" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "\\(iso10646\\|ucs02\\)-2$" + mother ucs + min-code #x20000 max-code #x2A6D6 + code-offset #x20000)) + (make-charset + '=ucs-sip-ext-b@iso + "CJK Ideographs Extension B (ISO/IEC 10646-2)" + '(long-name "UCS CJK Ext-B" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "\\(iso10646\\|ucs02\\)-2$" + mother =ucs@iso + min-code #x20000 max-code #x2A6D6 + code-offset #x20000)) + + (make-charset + '=adobe-japan1-0 + "Adobe-Japan1-0 Character Collection for CID-Keyed Fonts" + '(long-name "Adobe-Japan1-0" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "AdobeJapan1-0$")) + (make-charset + '=adobe-japan1-1 + "Adobe-Japan1-1 Character Collection for CID-Keyed Fonts" + '(long-name "Adobe-Japan1-1" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =adobe-japan1-0 + registry "AdobeJapan1-1$")) + (make-charset + '=adobe-japan1-2 + "Adobe-Japan1-2 Character Collection for CID-Keyed Fonts" + '(long-name "Adobe-Japan1-2" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =adobe-japan1-1 + registry "AdobeJapan1-2$")) + (make-charset + '=adobe-japan1-3 + "Adobe-Japan1-3 Character Collection for CID-Keyed Fonts" + '(long-name "Adobe-Japan1-3" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =adobe-japan1-2 + registry "AdobeJapan1-3$")) + (make-charset + '=adobe-japan1-4 + "Adobe-Japan1-4 Character Collection for CID-Keyed Fonts" + '(long-name "Adobe-Japan1-4" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =adobe-japan1-3 + registry "AdobeJapan1-4$")) + (make-charset + '=adobe-japan1-5 + "Adobe-Japan1-5 Character Collection for CID-Keyed Fonts" + '(long-name "Adobe-Japan1-5" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =adobe-japan1-4 + registry "AdobeJapan1-5$")) + (make-charset + '=adobe-japan1-6 + "Adobe-Japan1-6 Character Collection for CID-Keyed Fonts" + '(long-name "Adobe-Japan1-6" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =adobe-japan1-5 + registry "AdobeJapan1-6$")) ) ;;; mule-conf.el ends here