- (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)