+(when (featurep 'utf-2000)
+ (make-charset
+ 'chinese-big5-eten
+ "Big5-ETEN"
+ `(long-name "Big5 ETEN"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ mother chinese-big5
+ registry "Big5\\.ETEN"))
+ (make-charset
+ 'chinese-big5-cdp
+ "Big5-CDP"
+ `(long-name "Big5 with CDP extension"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "big5\\.cdp-0"
+ min-code ,(lsh #x6200 16)
+ max-code ,(+ (lsh #x6200 16) #xFFFF)
+ code-offset ,(lsh #x6200 16)))
+ )
+