+;; Lao script.
+;; ISO10646's 0x0E80..0x0EDF are mapped to 0x20..0x7F.
+(make-charset 'lao "Lao script"
+ '(registry "MuleLao-1"
+ dimension 1
+ chars 94
+ final ?1
+ graphic 1))
+
+;; IPA (International Phonetic Alphabet)
+(make-charset 'ipa "International Phonetic Alphabet"
+ '(registry "MuleIPA"
+ dimension 1
+ chars 96
+ final ?0
+ graphic 1))
+
+;; Ethiopic
+(make-charset 'ethiopic "Ethiopic"
+ '(registry "Ethio"
+ dimension 2
+ chars 94
+ final ?3
+ graphic 0
+ ))
+
+;; 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.
+(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.
+;; By the time you get to Plane 7, we're talking about characters
+;; that appear once in some ancient manuscript and whose meaning
+;; is unknown.
+
+(flet
+ ((make-chinese-cns11643-charset
+ (name iso-ir plane final)
+ (make-charset
+ name (concat "CNS 11643 Plane " plane " (Chinese traditional)")
+ `(iso-ir ,iso-ir
+ registry
+ ,(concat "CNS11643[.-]\\(.*[.-]\\)?" plane "$")
+ dimension 2
+ chars 94
+ final ,final
+ graphic 0))
+ ))
+ (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
+(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"
+ '(registry "jisx0213\\(\\.2000\\)-1"
+ dimension 2
+ chars 94
+ final ?O
+ graphic 0))
+ (make-charset
+ 'japanese-jisx0213-2
+ "JIS X 0213:2000 Plain 2"
+ '(registry "jisx0213\\(\\.2000\\)-2"
+ dimension 2
+ chars 94
+ final ?P
+ graphic 0))
+ ))
+
+(when (featurep 'utf-2000)
+ (define-charset-alias 'ucs '=ucs)
+ (define-charset-alias '=jis-x0208-1990 '=jis-x0208@1990)
+ (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208@1990)
+
+ (make-charset
+ '==jis-x0208
+ "JIS X 0208 abstract glyph-forms (unchanged part)."
+ '(registry "jisx0208\\.1990"
+ dimension 2
+ chars 94
+ mother =jis-x0208
+ =>iso-ir 168
+ ;; final ?B
+ graphic 0))
+ (make-charset
+ '==jis-x0208@1978
+ "JIS X 0208:1978 abstract glyph-forms."
+ '(registry "jisx0208\\.1978"
+ dimension 2
+ chars 94
+ mother ==jis-x0208
+ =>iso-ir 42
+ ;; final ?@
+ graphic 0))
+ (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."
+ '(registry "jisx0208\\.1978"
+ =>iso-ir 42
+ dimension 2
+ chars 94
+ mother ==jis-x0208@1978/-4pr
+ ;; final ?@
+ graphic 0))
+ (make-charset
+ '==jis-x0208@1978/1pr/fixed
+ "JIS X 0208:1978, correct glyph in the errata of 1st impression."
+ '(registry "jisx0208\\.1978"
+ dimension 2
+ chars 94
+ mother ==jis-x0208@1978/1pr
+ =>iso-ir 42
+ ;; final ?@
+ graphic 0
+ partial t))
+ (make-charset
+ '==jis-x0208@1978/2-pr
+ "JIS X 0208:1978, 2nd impression or later."
+ '(registry "jisx0208\\.1978"
+ dimension 2
+ chars 94
+ ;; mother =jis-x0208@1978/1er-pr
+ mother ==jis-x0208@1978
+ =>iso-ir 42
+ ;; final ?@
+ graphic 0
+ ;; partial t
+ ))
+ (make-charset
+ '==jis-x0208@1983
+ "JIS X 0208:1983 abstract glyph-forms."
+ '(registry "jisx0208\\.1983"
+ dimension 2
+ chars 94
+ mother ==jis-x0208
+ =>iso-ir 87
+ graphic 0))
+ (make-charset
+ '==jis-x0208@1990
+ "JIS X 0208:1990 abstract glyph-forms."
+ '(registry "jisx0208\\.1990"
+ dimension 2
+ chars 94
+ mother ==jis-x0208
+ =>iso-ir 168
+ ;; final ?B
+ graphic 0))
+
+ (make-charset
+ '==jis-x0213-1
+ "JIS X 0213 Plain 1 abstract glyph-forms (unchanged part)"
+ '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
+ dimension 2
+ chars 94
+ mother =jis-x0213-1
+ =>iso-ir 228
+ ;; final ?O
+ graphic 0
+ ;; partial t
+ ))
+ (make-charset
+ '==jis-x0213-1@2000
+ "JIS X 0213:2000 Plain 1 abstract glyph-forms"
+ '(registry "jisx0213\\(\\.2000\\)-1"
+ dimension 2
+ chars 94
+ mother ==jis-x0213-1
+ =>iso-ir 228
+ ;; final ?O
+ graphic 0
+ ;; partial t
+ ))
+ (make-charset
+ '==jis-x0213-1@2004
+ "JIS X 0213:2004 Plain 1 abstract glyph-forms"
+ '(mother ==jis-x0213-1
+ =>iso-ir 233
+ ;; registry "jisx0213\\(\\.2004\\)-1"
+ dimension 2
+ chars 94
+ graphic 0))
+
+ (make-charset
+ '==jis-x0213-2
+ "JIS X 0213 Plain 2 abstract glyph-forms"
+ '(mother =jis-x0213-2
+ =>iso-ir 229
+ registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
+ dimension 2
+ chars 94
+ graphic 0))
+
+ (make-charset
+ '==jis-x0212
+ "JIS X 0212 representative glyph-images."
+ '(registry "jisx0212"
+ dimension 2
+ chars 94
+ mother =jis-x0212
+ =>iso-ir 159
+ ;; final ?D
+ graphic 0))
+
+ (make-charset
+ '==gb2312
+ "GB 2312 representative glyph-images."
+ '(registry "gb2312"
+ dimension 2
+ chars 94
+ mother =gb2312
+ =>iso-ir 58
+ ;; final ?A
+ graphic 0))
+ (make-charset
+ '==iso-ir165
+ "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
+ '(registry "isoir165"
+ =>iso-ir 165
+ dimension 2
+ chars 94
+ mother =iso-ir165
+ ;; final ?E
+ graphic 0))
+ (make-charset
+ '==gb12345
+ "GB 12345 representative glyph-images."
+ '(registry "gb12345"
+ dimension 2
+ chars 94
+ mother =gb12345
+ graphic 0))
+
+ (make-charset
+ '==ks-x1001
+ "KS X 1001 representative glyph-images."
+ '(registry "ksc5601"
+ dimension 2
+ chars 94
+ mother =ks-x1001
+ =>iso-ir 149
+ ;; final ?C
+ graphic 0))
+
+ (define-charset-alias '=>>>jis-x0208 '==jis-x0208)
+ (define-charset-alias '=>>>jis-x0208@1978 '==jis-x0208@1978)
+ (define-charset-alias '=>>>jis-x0208@1983 '==jis-x0208@1983)
+ (define-charset-alias '=>>>jis-x0208@1990 '==jis-x0208@1990)
+
+ (define-charset-alias '=>>>jis-x0213-1 '==jis-x0213-1)
+ (define-charset-alias '=>>>jis-x0213-1@2000 '==jis-x0213-1@2000)
+ (define-charset-alias '=>>>jis-x0213-1@2004 '==jis-x0213-1@2004)
+ (define-charset-alias '=>>>jis-x0213-2 '==jis-x0213-2)
+
+ (make-charset
+ '===jis-x0208
+ "JIS X 0208 detailed representative glyph-images (unchanged part)."
+ '(registry "jisx0208\\.1990"
+ dimension 2
+ chars 94
+ mother ==jis-x0208
+ =>iso-ir 168
+ ;; final ?B
+ graphic 0))
+ (make-charset
+ '===jis-x0208@1978
+ "JIS X 0208:1978 detailed representative glyph-images."
+ '(registry "jisx0208\\.1978"
+ dimension 2
+ chars 94
+ mother ===jis-x0208
+ =>iso-ir 42
+ ;; final ?@
+ graphic 0))
+ (make-charset
+ '===jis-x0208@1983
+ "JIS X 0208:1983 detailed representative glyph-images."
+ '(registry "jisx0208\\.1983"
+ dimension 2
+ chars 94
+ mother ===jis-x0208
+ =>iso-ir 87
+ graphic 0))
+ (make-charset
+ '===jis-x0208@1990
+ "JIS X 0208:1990 detailed representative glyph-images."
+ '(registry "jisx0208\\.1990"
+ dimension 2
+ chars 94
+ mother ===jis-x0208
+ =>iso-ir 168
+ ;; final ?B
+ graphic 0))
+
+ (make-charset
+ '===jis-x0213-1
+ "JIS X 0213 Plain 1 detailed representative glyph-images (unchanged part)."
+ '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
+ dimension 2
+ chars 94
+ mother ==jis-x0213-1
+ =>iso-ir 228
+ ;; final ?O
+ graphic 0
+ ;; partial t
+ ))
+ (make-charset
+ '===jis-x0213-1@2000
+ "JIS X 0213:2000 Plain 1 detailed representative glyph-images."
+ '(registry "jisx0213\\(\\.2000\\)-1"
+ dimension 2
+ chars 94
+ mother ===jis-x0213-1
+ =>iso-ir 228
+ ;; final ?O
+ graphic 0
+ ;; partial t
+ ))
+ (make-charset
+ '===jis-x0213-1@2004
+ "JIS X 0213:2004 Plain 1 detailed representative glyph-images."
+ '(mother ===jis-x0213-1
+ =>iso-ir 233
+ ;; registry "jisx0213\\(\\.2004\\)-1"
+ dimension 2
+ chars 94
+ graphic 0))
+ (make-charset
+ '===jis-x0213-2
+ "JIS X 0213 Plain 2 detailed representative glyph-images."
+ '(mother ==jis-x0213-2
+ =>iso-ir 229
+ registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
+ dimension 2
+ chars 94
+ graphic 0))
+
+ (make-charset
+ '===jis-x0212
+ "JIS X 0212 representative glyph-images."
+ '(registry "jisx0212"
+ dimension 2
+ chars 94
+ mother ==jis-x0212
+ =>iso-ir 159
+ ;; final ?D
+ graphic 0))
+
+ (make-charset
+ '===ks-x1001
+ "KS X 1001 representative glyph-images."
+ '(registry "ksc5601"
+ dimension 2
+ chars 94
+ mother ==ks-x1001
+ =>iso-ir 149
+ ;; final ?C
+ graphic 0))
+
+ (make-charset
+ '=>>jis-x0208
+ "JIS X 0208 abstract glyphs (unchanged part)."
+ '(registry "jisx0208\\.1990"
+ dimension 2
+ chars 94
+ mother =jis-x0208
+ =>iso-ir 168
+ ;; final ?B
+ graphic 0))
+ (make-charset
+ '=>>jis-x0208@1978
+ "JIS X 0208:1978 abstract glyphs."
+ '(registry "jisx0208\\.1978"
+ dimension 2
+ chars 94
+ mother =>>jis-x0208
+ =>iso-ir 42
+ ;; final ?@
+ graphic 0))
+ (make-charset
+ '=>>jis-x0208@1983
+ "JIS X 0208:1983 abstract glyphs."
+ '(registry "jisx0208\\.1983"
+ dimension 2
+ chars 94
+ mother =>>jis-x0208
+ =>iso-ir 87
+ graphic 0))
+ (make-charset
+ '=>>jis-x0208@1990
+ "JIS X 0208:1990 abstract glyphs."
+ '(registry "jisx0208\\.1990"
+ dimension 2
+ chars 94
+ mother =>>jis-x0208
+ =>iso-ir 168
+ graphic 0))
+
+ (make-charset
+ '=>>jis-x0213-1
+ "JIS X 0213 Plain 1 abstract glyphs (unchanged part)"
+ '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
+ dimension 2
+ chars 94
+ mother =jis-x0213-1
+ =>iso-ir 228
+ ;; final ?O
+ graphic 0
+ ;; partial t
+ ))
+ (make-charset
+ '=>>jis-x0213-1@2000
+ "JIS X 0213:2000 Plain 1 abstract glyphs"
+ '(registry "jisx0213\\(\\.2000\\)-1"
+ dimension 2
+ chars 94
+ mother =>>jis-x0213-1
+ =>iso-ir 228
+ ;; final ?O
+ graphic 0
+ ;; partial t
+ ))
+ (make-charset
+ '=>>jis-x0213-2
+ "JIS X 0213 Plain 2 abstract glyphs"
+ '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
+ dimension 2
+ chars 94
+ mother =jis-x0213-2
+ =>iso-ir 229
+ ;; final ?P
+ graphic 0))
+ (make-charset
+ '=>>jis-x0213-1@2004
+ "JIS X 0213:2004 Plain 1 abstract glyphs"
+ '(registry "jisx0213\\(\\.2004\\)-1"
+ dimension 2
+ chars 94
+ mother =>>jis-x0213-1
+ =>iso-ir 233
+ ;; final ?Q
+ graphic 0
+ ;; partial t
+ ))
+
+ (make-charset
+ '=+>jis-x0208
+ "JIS X 0208 based on usual unification."
+ '(registry "jisx0208\\.1990"
+ dimension 2
+ chars 94
+ mother =>>jis-x0208
+ =>iso-ir 168
+ ;; final ?B
+ graphic 0))
+ (define-charset-alias '=>jis-x0208@usual '=+>jis-x0208)
+ (make-charset
+ '=+>jis-x0208@1978
+ "JIS X 0208:1978 unified abstract glyphs."
+ '(registry "jisx0208\\.1978"
+ dimension 2
+ chars 94
+ mother =+>jis-x0208
+ =>iso-ir 42
+ ;; final ?@
+ graphic 0))
+ (make-charset
+ '=+>jis-x0208@1983
+ "JIS X 0208:1983 unified abstract glyphs."
+ '(registry "jisx0208\\.1983"
+ dimension 2
+ chars 94
+ mother =+>jis-x0208
+ =>iso-ir 87
+ graphic 0))
+ (make-charset
+ '=+>jis-x0208@1990
+ "JIS X 0208:1990 unified abstract glyphs."
+ '(registry "jisx0208\\.1990"
+ dimension 2
+ chars 94
+ mother =+>jis-x0208
+ =>iso-ir 168
+ graphic 0))
+ (make-charset
+ '=+>jis-x0213-1
+ "JIS X 0213 Plain 1 unified abstract glyphs (unchanged part)"
+ '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
+ dimension 2
+ chars 94
+ mother =>>jis-x0213-1
+ =>iso-ir 228
+ ;; final ?O
+ graphic 0
+ ;; partial t
+ ))
+ (make-charset
+ '=+>jis-x0213-1@2000
+ "JIS X 0213:2000 Plain 1 unified abstract glyphs"
+ '(registry "jisx0213\\(\\.2000\\)-1"
+ dimension 2
+ chars 94
+ mother =+>jis-x0213-1
+ =>iso-ir 228
+ ;; final ?O
+ graphic 0
+ ;; partial t
+ ))
+ (make-charset
+ '=+>jis-x0213-1@2004
+ "JIS X 0213:2004 Plain 1 unified abstract glyphs"
+ '(registry "jisx0213\\(\\.2004\\)-1"
+ dimension 2
+ chars 94
+ mother =+>jis-x0213-1
+ =>iso-ir 233
+ ;; final ?Q
+ graphic 0
+ ;; partial t
+ ))
+
+ (make-charset
+ '=>jis-x0208
+ "JIS X 0208 based on the unchanged unification rules."
+ '(registry "jisx0208\\.1990"
+ dimension 2
+ chars 94
+ mother =+>jis-x0208
+ =>iso-ir 168
+ ;; final ?B
+ graphic 0))
+ (define-charset-alias '<=>jis-x0208 '=>jis-x0208)
+ (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
+ =>iso-ir 168
+ ;; final ?B
+ graphic 0))
+ (define-charset-alias '<=>jis-x0208@1997 '=>jis-x0208@1997)
+ (define-charset-alias ' =jis-x0208@1997 '=>jis-x0208@1997)
+
+ (make-charset
+ '=>jis-x0213-1
+ "JIS X 0213 Plain 1 abstract characters (unchanged part)"
+ '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
+ dimension 2
+ chars 94
+ mother =+>jis-x0213-1
+ =>iso-ir 228
+ ;; final ?O
+ graphic 0
+ ;; partial t
+ ))
+ (define-charset-alias '<=>jis-x0213-1 '=>jis-x0213-1)
+ (make-charset
+ '=>jis-x0213-1@2000
+ "JIS X 0213:2000 Plain 1 abstract characters"
+ '(registry "jisx0213\\(\\.2000\\)-1"
+ dimension 2
+ chars 94
+ mother =>jis-x0213-1
+ =>iso-ir 228
+ ;; final ?O
+ graphic 0
+ ;; partial t
+ ))
+ (define-charset-alias '<=>jis-x0213-1@2000 '=>jis-x0213-1@2000)
+ (make-charset
+ '=>jis-x0213-1@2004
+ "JIS X 0213:2004 Plain 1 abstract characters"
+ '(registry "jisx0213\\(\\.2004\\)-1"
+ dimension 2
+ chars 94
+ mother =>jis-x0213-1
+ =>iso-ir 233
+ ;; final ?Q
+ graphic 0
+ ;; partial t
+ ))
+ (define-charset-alias '<=>jis-x0213-1@2004 '=>jis-x0213-1@2004)
+ (make-charset
+ '=+>jis-x0213-2
+ "JIS X 0213 Plain 2 based on usual unification."
+ '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
+ dimension 2
+ chars 94
+ mother =>>jis-x0213-2
+ =>iso-ir 229
+ ;; final ?P
+ graphic 0))
+ (define-charset-alias '=>jis-x0213-2@usual '=+>jis-x0213-2)
+ (make-charset
+ '=>jis-x0213-2
+ "JIS X 0213 Plain 2 abstract characters"
+ '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
+ dimension 2
+ chars 94
+ mother =+>jis-x0213-2
+ =>iso-ir 229
+ ;; final ?P
+ graphic 0))
+
+ (make-charset
+ '==cns11643-1
+ "CNS 11643 Plane 1 representative glyph-images."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
+ dimension 2
+ chars 94
+ mother =cns11643-1
+ =>iso-ir 171
+ graphic 0))
+ (make-charset
+ '==cns11643-2
+ "CNS 11643 Plane 2 representative glyph-images."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
+ dimension 2
+ chars 94
+ mother =cns11643-2
+ =>iso-ir 172
+ graphic 0))
+ (make-charset
+ '==cns11643-3
+ "CNS 11643 Plane 3 representative glyph-images."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?3$"
+ dimension 2
+ chars 94
+ mother =cns11643-3
+ =>iso-ir 183
+ graphic 0))
+ (make-charset
+ '==cns11643-4
+ "CNS 11643 Plane 4 representative glyph-images."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
+ dimension 2
+ chars 94
+ mother =cns11643-4
+ =>iso-ir 184
+ graphic 0))
+ (make-charset
+ '==cns11643-5
+ "CNS 11643 Plane 5 representative glyph-images."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
+ dimension 2
+ chars 94
+ mother =cns11643-5
+ =>iso-ir 185
+ graphic 0))
+ (make-charset
+ '==cns11643-6
+ "CNS 11643 Plane 6 representative glyph-images."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
+ dimension 2
+ chars 94
+ mother =cns11643-6
+ =>iso-ir 186
+ graphic 0))
+ (make-charset
+ '==cns11643-7
+ "CNS 11643 Plane 7 representative glyph-images."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
+ dimension 2
+ chars 94
+ mother =cns11643-7
+ =>iso-ir 187
+ graphic 0))
+
+ (make-charset
+ '===cns11643-1
+ "CNS 11643 Plane 1 representative glyph-images."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
+ dimension 2
+ chars 94
+ mother ==cns11643-1
+ =>iso-ir 171
+ graphic 0))
+ (make-charset
+ '===cns11643-2
+ "CNS 11643 Plane 2 representative glyph-images."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
+ dimension 2
+ chars 94
+ mother ==cns11643-2
+ =>iso-ir 172
+ graphic 0))
+ (make-charset
+ '===cns11643-3
+ "CNS 11643 Plane 3 representative glyph-images."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?3$"
+ dimension 2
+ chars 94
+ mother ==cns11643-3
+ =>iso-ir 183
+ graphic 0))
+ (make-charset
+ '===cns11643-4
+ "CNS 11643 Plane 4 representative glyph-images."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
+ dimension 2
+ chars 94
+ mother ==cns11643-4
+ =>iso-ir 184
+ graphic 0))
+ (make-charset
+ '===cns11643-5
+ "CNS 11643 Plane 5 representative glyph-images."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
+ dimension 2
+ chars 94
+ mother ==cns11643-5
+ =>iso-ir 185
+ graphic 0))
+ (make-charset
+ '===cns11643-6
+ "CNS 11643 Plane 6 representative glyph-images."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
+ dimension 2
+ chars 94
+ mother ==cns11643-6
+ =>iso-ir 186
+ graphic 0))
+ (make-charset
+ '===cns11643-7
+ "CNS 11643 Plane 7 representative glyph-images."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
+ dimension 2
+ chars 94
+ mother ==cns11643-7
+ =>iso-ir 187
+ graphic 0))
+
+ (make-charset
+ '=>>cns11643-1
+ "CNS 11643 Plane 1 abstract glyphs."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?1$"
+ dimension 2
+ chars 94
+ mother =cns11643-1
+ =>iso-ir 184
+ graphic 0))
+ (make-charset
+ '=>>cns11643-4
+ "CNS 11643 Plane 4 abstract glyphs."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
+ dimension 2
+ chars 94
+ mother =cns11643-4
+ =>iso-ir 184
+ graphic 0))
+
+ (make-charset
+ '=>cns11643-2
+ "CNS 11643 Plane 2 abstract characters."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
+ dimension 2
+ chars 94
+ mother =cns11643-2
+ =>iso-ir 172
+ graphic 0))
+ (make-charset
+ '=>cns11643-6
+ "CNS 11643 Plane 6 abstract characters."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
+ dimension 2
+ chars 94
+ mother =cns11643-6
+ =>iso-ir 186
+ graphic 0))
+ (make-charset
+ '=>cns11643-7
+ "CNS 11643 Plane 7 abstract characters."
+ '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
+ dimension 2
+ chars 94
+ mother =cns11643-7
+ =>iso-ir 187
+ graphic 0))
+
+ (make-charset '=big5-eten
+ "Big5 ETEN"
+ '(long-name "Big5-ETEN"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ mother chinese-big5
+ min-code #x8140
+ max-code #xFEFE
+ registry "Big5\\.ETEN"))
+ (define-charset-alias 'chinese-big5-eten '=big5-eten)
+ (make-charset 'chinese-big5-eten-a
+ "Big5 ETEN (#xF9D6 .. #xF9FE)"
+ '(long-name "Big5-ETEN-a"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ mother chinese-big5
+ min-code #xF9D6
+ max-code #xF9FE
+ registry "Big5\\.ETEN"))
+ (make-charset 'chinese-big5-eten-b
+ "Big5 ETEN (#xC6A1 .. #xC8FE)"
+ '(long-name "Big5-ETEN-b"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ mother chinese-big5
+ min-code #xC6A1
+ max-code #xC8FE
+ registry "Big5\\.ETEN"))
+
+ (make-charset '=big5-cdp
+ "Big5 with CDP extension"
+ '(long-name "Big5-CDP"
+ 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)