b615ac47ad939e6ecec4feff243935eb1a344496
[chise/xemacs-chise.git.1] / lisp / mule / mule-conf.el
1 ;;; mule-conf.el --- configure multilingual environment
2
3 ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 1997, 1999, 2000, 2002, 2003, 2004, 2005, 2006, 2008,
6 ;;   2009 MORIOKA Tomohiko
7
8 ;; Keywords: mule, multilingual, character set, coding system
9
10 ;; This file is part of XEmacs.
11
12 ;; XEmacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; any later version.
16
17 ;; XEmacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
20 ;; GNU General Public License for more details.
21
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with XEmacs; see the file COPYING.  If not, write to the
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25 ;; Boston, MA 02111-1307, USA.
26
27 ;;; Code:
28
29 (cond
30  ((featurep 'utf-2000)
31   (make-charset
32    '=jis-x0208@1978
33    "JIS X 0208:1978, unchanged part."
34    '(registry "jisx0208\\.1978"
35               dimension 2
36               chars 94
37               mother =jis-x0208
38               =>iso-ir 42
39               final ?@
40               graphic 0
41               partial t))
42   (make-charset
43    '=jis-x0208@1978/-4pr
44    "JIS X 0208:1978, 1st - 3rd impressions."
45    '(registry "jisx0208\\.1978"
46               dimension 2
47               chars 94
48               mother =jis-x0208@1978
49               =>iso-ir 42
50               final ?@
51               graphic 0
52               partial t))
53   (make-charset
54    '=jis-x0208@1978/1pr
55    "JIS X 0208:1978, 1st impression."
56    '(iso-ir 42
57             registry "jisx0208\\.1978"
58             dimension 2
59             chars 94
60             mother =jis-x0208@1978/-4pr
61             final ?@
62             graphic 0))
63   (make-charset
64    '=jis-x0208@1978/-4X
65    "JIS X 0208:1978, index before the 4th impression."
66    '(registry "jisx0208\\.1978"
67               dimension 2
68               chars 94
69               mother =jis-x0208@1978
70               =>iso-ir 42
71               ;; final ?@
72               graphic 0
73               partial t))
74   (make-charset
75    '=jis-x0208@1978/4-pr
76    "JIS X 0208:1978, 4th impression or later."
77    '(registry "jisx0208\\.1978"
78               dimension 2
79               chars 94
80               mother =jis-x0208@1978
81               =>iso-ir 42
82               ;; final ?@
83               graphic 0
84               partial t))
85   (define-charset-alias '=jis-x0208@1978/i1 '=jis-x0208@1978/1pr)
86   (define-charset-alias '=jis-x0208@1978/i-4 '=jis-x0208@1978/-4pr)
87   (define-charset-alias '=jis-x0208@1978/i4- '=jis-x0208@1978/4-pr)
88   )
89  (t
90   (make-charset
91    '=jis-x0208@1978
92    "JIS X0208:1978 Japanese Kanji (so called \"old JIS\")."
93    '(iso-ir 42
94             registry "jisx0208\\.1978"
95             dimension 2
96             chars 94
97             mother =jis-x0208
98             final ?@
99             graphic 0))
100   ))
101
102 (define-charset-alias '=jis-x0208-1978          '=jis-x0208@1978)
103 (define-charset-alias 'japanese-jisx0208-1978   '=jis-x0208@1978)
104 (define-charset-alias 'chinese-gb2312           '=gb2312)
105 (define-charset-alias '=jis-x0208-1983          '=jis-x0208@1983)
106 (define-charset-alias 'japanese-jisx0208        '=jis-x0208@1983)
107 (define-charset-alias 'korean-ksc5601           '=ks-x1001)
108 (define-charset-alias 'japanese-jisx0212        '=jis-x0212)
109 (define-charset-alias 'chinese-cns11643-1       '=cns11643-1)
110 (define-charset-alias 'chinese-cns11643-2       '=cns11643-2)
111 (define-charset-alias 'chinese-gb12345          '=gb12345)
112 (define-charset-alias 'chinese-big5             '=big5)
113
114 ;; PinYin-ZhuYin
115 (make-charset 'sisheng "PinYin-ZhuYin"
116               '(registry "sisheng_cwnn\\|OMRON_UDC_ZH"
117                 dimension 1
118                 chars 94
119                 final ?0
120                 graphic 0
121                 ))
122
123 ;; Lao script.
124 ;; ISO10646's 0x0E80..0x0EDF are mapped to 0x20..0x7F.
125 (make-charset 'lao "Lao script"
126               '(registry "MuleLao-1"
127                 dimension 1
128                 chars 94
129                 final ?1
130                 graphic 1))
131
132 ;; IPA (International Phonetic Alphabet)
133 (make-charset 'ipa "International Phonetic Alphabet"
134               '(registry "MuleIPA"
135                 dimension 1
136                 chars 96
137                 final ?0
138                 graphic 1))
139
140 ;; Ethiopic
141 (make-charset 'ethiopic "Ethiopic"
142               '(registry "Ethio"
143                 dimension 2
144                 chars 94
145                 final ?3
146                 graphic 0
147                 ))
148
149 ;; ISO-IR-165 (CCITT Extended GB)
150 ;;    It is based on CCITT Recommendation T.101, includes GB 2312-80 +
151 ;;    GB 8565-88 table A4 + 293 characters.
152 (if (featurep 'utf-2000)
153     (progn
154       (make-charset '=iso-ir165
155                     "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
156                     '(iso-ir 165
157                              dimension 2
158                              chars 94
159                              mother =gb2312
160                              final ?E
161                              registry "isoir165"
162                              graphic 0))
163       (define-charset-alias 'chinese-isoir165 '=iso-ir165))
164   (make-charset 'chinese-isoir165
165                 "ISO-IR-165 (CCITT Extended GB; Chinese simplified)"
166                 '(iso-ir 165
167                          dimension 2
168                          chars 94
169                          final ?E
170                          registry "isoir165"
171                          graphic 0)))
172
173 ;; CNS11643 Plane3 thru Plane7
174 ;; These represent more and more obscure Chinese characters.
175 ;; By the time you get to Plane 7, we're talking about characters
176 ;; that appear once in some ancient manuscript and whose meaning
177 ;; is unknown.
178
179 (flet
180     ((make-chinese-cns11643-charset
181       (name iso-ir plane final)
182       (make-charset
183        name (concat "CNS 11643 Plane " plane " (Chinese traditional)")
184        `(iso-ir ,iso-ir
185          registry 
186          ,(concat "CNS11643[.-]\\(.*[.-]\\)?" plane "$")
187          dimension 2
188          chars 94
189          final ,final
190          graphic 0))
191       ))
192   (make-chinese-cns11643-charset '=cns11643-3 183 "3" ?I)
193   (make-chinese-cns11643-charset '=cns11643-4 184 "4" ?J)
194   (make-chinese-cns11643-charset '=cns11643-5 185 "5" ?K)
195   (make-chinese-cns11643-charset '=cns11643-6 186 "6" ?L)
196   (make-chinese-cns11643-charset '=cns11643-7 187 "7" ?M)
197   (define-charset-alias 'chinese-cns11643-3     '=cns11643-3)
198   (define-charset-alias 'chinese-cns11643-4     '=cns11643-4)
199   (define-charset-alias 'chinese-cns11643-5     '=cns11643-5)
200   (define-charset-alias 'chinese-cns11643-6     '=cns11643-6)
201   (define-charset-alias 'chinese-cns11643-7     '=cns11643-7)
202   )
203
204 ;; JIS X 0213:2000
205 (cond
206  ((featurep 'utf-2000)
207   (make-charset
208    '=jis-x0213-1
209    "JIS X 0213 Plain 1 (unchanged part)"
210    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
211               dimension 2
212               chars 94
213               =>iso-ir 228
214               final ?O
215               graphic 0
216               partial t))
217
218   (make-charset
219    '=jis-x0213-1@2000
220    "JIS X 0213:2000 Plain 1"
221    '(iso-ir 228
222             registry "jisx0213\\(\\.2000\\)-1"
223             dimension 2
224             chars 94
225             mother =jis-x0213-1
226             final ?O
227             graphic 0))
228   (make-charset
229    '=jis-x0213-2
230    "JIS X 0213 Plain 2"
231    '(iso-ir 229
232             registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
233             dimension 2
234             chars 94
235             final ?P
236             graphic 0))
237
238   (make-charset
239    '=jis-x0213-1@2004
240    "JIS X 0213:2004 Plain 1"
241    '(iso-ir 233
242             registry "jisx0213\\(\\.2004\\)-1"
243             dimension 2
244             chars 94
245             mother =jis-x0213-1
246             final ?Q
247             graphic 0))
248
249   (define-charset-alias 'japanese-jisx0213-1 '=jis-x0213-1@2000)
250   (define-charset-alias 'japanese-jisx0213-2 '=jis-x0213-2)
251   (define-charset-alias '=jis-x0213-1-2000 '=jis-x0213-1@2000)
252   (define-charset-alias '=jis-x0213-2-2000 '=jis-x0213-2)
253   )
254  (t
255   (make-charset
256    'japanese-jisx0213-1
257    "JIS X 0213:2000 Plain 1"
258    '(registry "jisx0213\\(\\.2000\\)-1"
259               dimension 2
260               chars 94
261               final ?O
262               graphic 0))
263   (make-charset
264    'japanese-jisx0213-2
265    "JIS X 0213:2000 Plain 2"
266    '(registry "jisx0213\\(\\.2000\\)-2"
267               dimension 2
268               chars 94
269               final ?P
270               graphic 0))
271   ))
272
273 (when (featurep 'utf-2000)
274   (define-charset-alias 'ucs '=ucs)
275   (define-charset-alias '=jis-x0208-1990 '=jis-x0208@1990)
276   (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208@1990)
277
278   (make-charset
279    '=>>jis-x0213-1
280    "JIS X 0213 Plain 1 abstract glyphs (unchanged part)"
281    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
282               dimension 2
283               chars 94
284               mother =jis-x0213-1
285               =>iso-ir 228
286               ;; final ?O
287               graphic 0
288               ;; partial t
289               ))
290   (make-charset
291    '=>>jis-x0213-1@2000
292    "JIS X 0213:2000 Plain 1 abstract glyphs"
293    '(registry "jisx0213\\(\\.2000\\)-1"
294               dimension 2
295               chars 94
296               mother =>>jis-x0213-1
297               =>iso-ir 228
298               ;; final ?O
299               graphic 0
300               ;; partial t
301               ))
302   (make-charset
303    '=>>jis-x0213-1@2004
304    "JIS X 0213:2004 Plain 1 abstract glyphs"
305    '(registry "jisx0213\\(\\.2004\\)-1"
306               dimension 2
307               chars 94
308               mother =>>jis-x0213-1
309               =>iso-ir 233
310               ;; final ?Q
311               graphic 0
312               ;; partial t
313               ))
314
315   (make-charset
316    '=>jis-x0208
317    "JIS X 0208 based on the unchanged unification rules."
318    '(registry "jisx0208\\.1990"
319               dimension 2
320               chars 94
321               mother =jis-x0208
322               =>iso-ir 168
323               ;; final ?B
324               graphic 0))
325   (define-charset-alias '<=>jis-x0208 '=>jis-x0208)
326   (make-charset
327    '=>jis-x0208@1997
328    "JIS X 0208 based on the unification rule of 1997 edition."
329    '(registry "jisx0208\\.1990"
330               dimension 2
331               chars 94
332               mother =>jis-x0208
333               =>iso-ir 168
334               ;; final ?B
335               graphic 0))
336   (define-charset-alias '<=>jis-x0208@1997 '=>jis-x0208@1997)
337   (define-charset-alias '  =jis-x0208@1997 '=>jis-x0208@1997)
338
339   (make-charset
340    '=>jis-x0213-1
341    "JIS X 0213 Plain 1 abstract characters (unchanged part)"
342    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
343               dimension 2
344               chars 94
345               mother =>>jis-x0213-1
346               =>iso-ir 228
347               ;; final ?O
348               graphic 0
349               ;; partial t
350               ))
351   (define-charset-alias '<=>jis-x0213-1 '=>jis-x0213-1)
352   (make-charset
353    '=>jis-x0213-1@2000
354    "JIS X 0213:2000 Plain 1 abstract characters"
355    '(registry "jisx0213\\(\\.2000\\)-1"
356               dimension 2
357               chars 94
358               mother =>jis-x0213-1
359               =>iso-ir 228
360               ;; final ?O
361               graphic 0
362               ;; partial t
363               ))
364   (define-charset-alias '<=>jis-x0213-1@2000 '=>jis-x0213-1@2000)
365   (make-charset
366    '=>jis-x0213-1@2004
367    "JIS X 0213:2004 Plain 1 abstract characters"
368    '(registry "jisx0213\\(\\.2004\\)-1"
369               dimension 2
370               chars 94
371               mother =>jis-x0213-1
372               =>iso-ir 233
373               ;; final ?Q
374               graphic 0
375               ;; partial t
376               ))
377   (define-charset-alias '<=>jis-x0213-1@2004 '=>jis-x0213-1@2004)
378
379   (make-charset '=big5-cdp
380                 "Big5 with CDP extension"
381                 '(long-name     "Big5-CDP"
382                   chars         256
383                   dimension     2
384                   columns       2
385                   graphic       2
386                   direction     l2r
387                   registry      "big5\\.cdp-0"
388                   mother        chinese-big5
389                   min-code      #x8140
390                   max-code      #x8DFE))
391   (define-charset-alias 'chinese-big5-cdp '=big5-cdp)
392
393   (make-charset '=gt
394                 "GT 2000"
395                 `(long-name     "GT"
396                   chars         256
397                   dimension     3
398                   columns       2
399                   graphic       2
400                   direction     l2r
401                   registry      ""
402                   min-code      ,(lsh #x6100 16)
403                   max-code      ,(+ (lsh #x6100 16) 67547)
404                   code-offset   ,(lsh #x6100 16)))
405   (define-charset-alias 'ideograph-gt '=gt)
406   (make-charset '=>>gt
407                 "GT 2000 abstract glyphs"
408                 `(long-name     "abstract GT"
409                   chars         256
410                   dimension     3
411                   columns       2
412                   graphic       2
413                   direction     l2r
414                   mother        =gt))
415   (define-charset-alias '<=>gt '=>>gt)
416   (define-charset-alias '<==>gt '=>>gt)
417   (make-charset '=gt-k
418                 "Ideographic components of GT"
419                 `(long-name     "GT components"
420                   chars         256
421                   dimension     2
422                   columns       2
423                   graphic       2
424                   direction     l2r
425                   registry      ""
426                   min-code      ,(lsh #x6110 16)
427                   max-code      ,(+ (lsh #x6110 16) 17090)
428                   code-offset   ,(lsh #x6110 16)))
429   (define-charset-alias 'ideograph-gt-k '=gt-k)
430   (let ((i 1))
431     (while (<= i 11)
432       (make-charset
433        (intern (format "=gt-pj-%d" i))
434        (format "GT 2000 (pseudo JIS encoding) part %d" i)
435        `(long-name ,(format "GT PJ %d" i)
436                    chars 94
437                    dimension 2
438                    columns 2
439                    graphic 0
440                    direction l2r
441                    registry ,(format "\\(GTpj-%d\\|jisx0208\\.GT-%d\\)$" i i)))
442       (define-charset-alias
443         (intern (format "ideograph-gt-pj-%d" i))
444         (intern (format "=gt-pj-%d" i)))
445       (setq i (1+ i))))
446   (make-charset
447    '=gt-pj-k1
448    "Ideographic parts of GT (pseudo JIS encoding) part 1"
449    '(long-name "GT K1"
450                chars 94
451                dimension 2
452                columns 2
453                graphic 0
454                direction l2r
455                registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
456   (define-charset-alias 'ideograph-gt-pj-k1 '=gt-pj-k1)
457   (make-charset
458    '=gt-pj-k2
459    "Ideographic parts of GT (pseudo JIS encoding) part 2"
460    '(long-name "GT K2"
461                chars 94
462                dimension 2
463                columns 2
464                graphic 0
465                direction l2r
466                registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
467   (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2)
468
469   (make-charset '=daikanwa
470                 "Daikanwa dictionary (revised version 2)"
471                 `(long-name     "Daikanwa"
472                   chars         256
473                   dimension     2
474                   columns       2
475                   graphic       2
476                   direction     l2r
477                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
478                   min-code      #xE00000
479                   max-code      ,(+ #xE00000 50100)
480                   code-offset   #xE00000))
481   (define-charset-alias 'ideograph-daikanwa '=daikanwa)
482
483   (make-charset '=daikanwa@rev1
484                 "Daikanwa dictionary (revised version)"
485                 `(long-name     "Daikanwa Rev."
486                   chars         256
487                   dimension     2
488                   columns       2
489                   graphic       2
490                   direction     l2r
491                   registry      "Daikanwa\\(\\.[0-9]+\\)?-2"
492                   mother        =daikanwa
493                   ))
494   (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa@rev1)
495   (define-charset-alias '=daikanwa-rev1 '=daikanwa@rev1)
496
497   (make-charset '=daikanwa@rev2
498                 "Daikanwa dictionary (revised version 2)"
499                 `(long-name     "Daikanwa"
500                   chars         256
501                   dimension     2
502                   columns       2
503                   graphic       2
504                   direction     l2r
505                   registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
506                   mother        =daikanwa
507                   min-code      1
508                   max-code      49964
509                   ;; min-code   #xE00000
510                   ;; max-code   ,(+ #xE00000 50100)
511                   ;; code-offset        #xE00000
512                   ))
513   (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2)
514
515   (make-charset '=shinjigen
516                 "Kadokawa ShinJigen dictionary (common parts)"
517                 `(long-name     "Shinjigen common parts"
518                   chars         256
519                   dimension     2
520                   columns       2
521                   graphic       2
522                   direction     l2r
523                   registry      "Shinjigen\\(\\.[0-9]+\\)?-*"))
524
525   (make-charset '=shinjigen@1ed
526                 "Kadokawa ShinJigen dictionary (the first edition)"
527                 `(long-name     "Shinjigen-1"
528                   chars         256
529                   dimension     2
530                   columns       2
531                   graphic       2
532                   direction     l2r
533                   mother        =shinjigen
534                   registry      "Shinjigen\\(\\.[0-9]+\\)?-1"))
535   (define-charset-alias 'shinjigen-1 '=shinjigen@1ed)
536
537   (make-charset '=shinjigen@1ed/24pr
538                 "Kadokawa ShinJigen dictionary (the 24th impression)"
539                 `(long-name     "Shinjigen-1 24pr"
540                   chars         256
541                   dimension     2
542                   columns       2
543                   graphic       2
544                   direction     l2r
545                   mother        =shinjigen@1ed))
546
547   (make-charset '=shinjigen@rev
548                 "Kadokawa ShinJigen dictionary (the revised edition)"
549                 `(long-name     "Shinjigen-2"
550                   chars         256
551                   dimension     2
552                   columns       2
553                   graphic       2
554                   direction     l2r
555                   mother        =shinjigen
556                   registry      "Shinjigen\\(\\.[0-9]+\\)?-2"))
557   (define-charset-alias 'shinjigen-2 '=shinjigen@rev)
558   (make-charset '=shinjigen/+p@rev
559                 "ShinJigen (the second edition) number with '"
560                 `(long-name     "Shinjigen-2 with '"
561                   chars         256
562                   dimension     2
563                   columns       2
564                   graphic       2
565                   direction     l2r))
566   (define-charset-alias 'shinjigen-2-p '=shinjigen/+p@rev)
567
568   (make-charset '=big5-pua
569                 "Big5 with private used area"
570                 '(long-name     "Big5-PUA"
571                   chars         256
572                   dimension     2
573                   columns       2
574                   graphic       2
575                   direction     l2r
576                   mother        chinese-big5
577                   registry      "Big5\\.ETEN"))
578   (define-charset-alias 'chinese-big5-pua '=big5-pua)
579   (make-charset '=big5-eten
580                 "Big5 ETEN"
581                 '(long-name     "Big5-ETEN"
582                   chars         256
583                   dimension     2
584                   columns       2
585                   graphic       2
586                   direction     l2r
587                   mother        chinese-big5
588                   min-code      #x8140
589                   max-code      #xFEFE
590                   registry      "Big5\\.ETEN"))
591   (define-charset-alias 'chinese-big5-eten '=big5-eten)
592   (make-charset 'chinese-big5-eten-a
593                 "Big5 ETEN (#xF9D6 .. #xF9FE)"
594                 '(long-name     "Big5-ETEN-a"
595                   chars         256
596                   dimension     2
597                   columns       2
598                   graphic       2
599                   direction     l2r
600                   mother        chinese-big5
601                   min-code      #xF9D6
602                   max-code      #xF9FE
603                   registry      "Big5\\.ETEN"))
604   (make-charset 'chinese-big5-eten-b
605                 "Big5 ETEN (#xC6A1 .. #xC8FE)"
606                 '(long-name     "Big5-ETEN-b"
607                   chars         256
608                   dimension     2
609                   columns       2
610                   graphic       2
611                   direction     l2r
612                   mother        chinese-big5
613                   min-code      #xC6A1
614                   max-code      #xC8FE
615                   registry      "Big5\\.ETEN"))
616
617   (let* ((i 1)
618          (hzk-min (+ (lsh #x6200 16) 65536))
619          (hzk-max (+ hzk-min 65535)))
620     (while (<= i 12)
621       (make-charset
622        (intern (format "=hanziku-%d" i))
623        (format "HANZIKU (pseudo BIG5 encoding) part %d" i)
624        `(long-name ,(format "HANZIKU-%d" i)
625                    chars 256
626                    dimension 2
627                    columns 2
628                    graphic 2
629                    direction l2r
630                    registry ,(format "hanziku-%d$" i i)
631                    min-code ,hzk-min
632                    max-code ,hzk-max
633                    code-offset ,hzk-min))
634       (define-charset-alias
635         (intern (format "ideograph-hanziku-%d" i))
636         (intern (format "=hanziku-%d" i)))
637       (setq hzk-min (1+ hzk-max)
638             hzk-max (+ hzk-min 65535))
639       (setq i (1+ i))))
640
641   (make-charset '=cbeta "CBETA private characters"
642                 '(long-name     "CBETA PUA"
643                   chars         256
644                   dimension     2
645                   registry      "cbeta-0"
646                   graphic       2
647                   min-code      #xE20000
648                   max-code      #xE2FFFF
649                   code-offset   #xE20000
650                   columns       2
651                   direction     l2r))
652   (define-charset-alias 'ideograph-cbeta '=cbeta)
653
654   (make-charset '=zinbun-oracle
655                 "Oracle Bones Script"
656                 `(long-name     "Oracle Bones Script in Zinbun, Kyoto Univ."
657                   chars         256
658                   dimension     2
659                   registry      "zob1968-0"
660                   graphic       2
661                   min-code      #xE70000
662                   max-code      ,(+ #xE70000 8192)
663                   code-offset   #xE70000
664                   columns       2
665                   direction     l2r))
666
667   (make-charset '=jef-china3
668                 "JEF + CHINA3 private characters"
669                 '(long-name     "JEF + CHINA3"
670                   chars         256
671                   dimension     2
672                   columns       2
673                   graphic       2
674                   direction     l2r
675                   registry      "china3jef-0"
676                   min-code      #xE80000
677                   max-code      #xE8FFFF
678                   code-offset   #xE80000))
679   (define-charset-alias 'china3-jef '=jef-china3)
680
681   (make-charset '=ruimoku-v6
682                 "private characters used in RUIMOKU Version.6"
683                 `(long-name     "RUI6"
684                   chars         256
685                   dimension     2
686                   columns       2
687                   graphic       2
688                   direction     l2r
689                   registry      "rui6-0"
690                   ;; mother     ucs
691                   min-code      #xE90000 ; #xE000
692                   max-code      #xE908FF ; #xE8FF
693                   code-offset   ,(- #xE90000 #xE000)))
694
695   (make-charset '=ucs@iso
696                 "ISO/IEC 10646 for its representative glyphs"
697                 '(long-name     "UCS for ISO"
698                   chars         256
699                   dimension     3
700                   columns       2
701                   graphic       2
702                   direction     l2r
703                   =>iso-ir      177
704                   mother        =ucs))
705   (make-charset '=ucs@unicode
706                 "Unicode for its representative glyphs"
707                 '(long-name     "UCS for Unicode"
708                   chars         256
709                   dimension     3
710                   columns       2
711                   graphic       2
712                   direction     l2r
713                   =>iso-ir      177
714                   mother        =ucs@iso))
715   (make-charset '=ucs@gb
716                 "ISO/IEC 10646 for GB"
717                 '(long-name     "UCS for GB"
718                   chars         256
719                   dimension     3
720                   columns       2
721                   graphic       2
722                   direction     l2r
723                   =>iso-ir      177
724                   mother        =ucs@unicode))
725   (define-charset-alias 'ucs-gb '=ucs@gb)
726   (make-charset '=ucs@gb/fw
727                 "ISO/IEC 10646 for GB with fullwidth"
728                 '(long-name     "UCS for GB-fullwidth"
729                   chars         256
730                   dimension     3
731                   columns       2
732                   graphic       2
733                   direction     l2r
734                   =>iso-ir      177
735                   mother        =ucs@gb))
736   (make-charset '=ucs-bmp@gb
737                 "ISO/IEC 10646 BMP for GB"
738                 '(long-name     "BMP for GB"
739                   chars         256
740                   dimension     3
741                   columns       2
742                   graphic       2
743                   direction     l2r
744                   mother        =ucs@gb
745                   min-code      #x0000
746                   max-code      #xFFFF))
747   (make-charset '=ucs@cns
748                 "ISO/IEC 10646 for CNS 11643"
749                 '(long-name     "UCS for CNS"
750                   chars         256
751                   dimension     3
752                   columns       2
753                   graphic       2
754                   direction     l2r
755                   =>iso-ir      177
756                   mother        =ucs@unicode))
757   (define-charset-alias 'ucs-cns '=ucs@cns)
758   (make-charset '=ucs@cns/fw
759                 "ISO/IEC 10646 for CNS 11643 with fullwidth"
760                 '(long-name     "UCS for CNS-fullwidth"
761                   chars         256
762                   dimension     3
763                   columns       2
764                   graphic       2
765                   direction     l2r
766                   =>iso-ir      177
767                   mother        =ucs@cns))
768   (make-charset '=ucs-bmp@cns
769                 "ISO/IEC 10646 BMP for CNS"
770                 '(long-name     "BMP for CNS"
771                   chars         256
772                   dimension     3
773                   columns       2
774                   graphic       2
775                   direction     l2r
776                   mother        =ucs@cns
777                   min-code      #x0000
778                   max-code      #xFFFF))
779   (make-charset '=ucs@jis
780                 "ISO/IEC 10646 for JIS X0208/0212/0213"
781                 '(long-name     "UCS for JIS"
782                   chars         256
783                   dimension     3
784                   columns       2
785                   graphic       2
786                   direction     l2r
787                   =>iso-ir      177
788                   mother        =ucs@unicode))
789   (define-charset-alias 'ucs-jis '=ucs@jis)
790   (make-charset '=ucs@jis/fw
791                 "ISO/IEC 10646 for JIS X0208/0212/0213 with fullwidth"
792                 '(long-name     "UCS for JIS-fullwidth"
793                   chars         256
794                   dimension     3
795                   columns       2
796                   graphic       2
797                   direction     l2r
798                   =>iso-ir      177
799                   mother        =ucs@jis))
800   (make-charset '=ucs-bmp@jis
801                 "ISO/IEC 10646 BMP for JIS"
802                 '(long-name     "BMP for JIS"
803                   chars         256
804                   dimension     3
805                   columns       2
806                   graphic       2
807                   direction     l2r
808                   mother        =ucs@jis
809                   min-code      #x0000
810                   max-code      #xFFFF))
811   (make-charset '=ucs@jis/1990
812                 "ISO/IEC 10646 for JIS X 0208/0212:1990"
813                 '(long-name     "UCS for JIS:1990"
814                   chars         256
815                   dimension     3
816                   columns       2
817                   graphic       2
818                   direction     l2r
819                   =>iso-ir      177
820                   mother        ucs-jis))
821   (define-charset-alias '=ucs@jis-1990 '=ucs@jis/1990)
822   (define-charset-alias '=ucs-jis-1990 '=ucs@jis/1990)
823   (make-charset '=ucs@jis/2000
824                 "ISO/IEC 10646 for JIS X 0213:2000"
825                 '(long-name     "UCS for JIS:2000"
826                   chars         256
827                   dimension     3
828                   columns       2
829                   graphic       2
830                   direction     l2r
831                   =>iso-ir      177
832                   mother        ucs-jis))
833   (define-charset-alias '=ucs@jis-2000 '=ucs@jis/2000)
834   (define-charset-alias '=ucs-jis-2000 '=ucs@jis/2000)
835   (make-charset '=ucs@jis/2004
836                 "ISO/IEC 10646 for JIS X 0213:2004"
837                 '(long-name     "UCS for JIS:2004"
838                   chars         256
839                   dimension     3
840                   columns       2
841                   graphic       2
842                   direction     l2r
843                   =>iso-ir      177
844                   mother        ucs-jis))
845   (make-charset '=ucs@JP
846                 "UCS for common glyphs used in Japan"
847                 '(long-name     "UCS for Japan"
848                   chars         256
849                   dimension     3
850                   columns       2
851                   graphic       2
852                   direction     l2r
853                   =>iso-ir      177
854                   mother        =ucs@jis/2004))
855   (define-charset-alias '=ucs@jp '=ucs@JP)
856   (make-charset '=ucs@ks
857                 "ISO/IEC 10646 for Korean Standards"
858                 '(long-name     "UCS for KS"
859                   chars         256
860                   dimension     3
861                   columns       2
862                   graphic       2
863                   direction     l2r
864                   =>iso-ir      177
865                   mother        =ucs@unicode))
866   (define-charset-alias 'ucs-ks '=ucs@ks)
867   (make-charset '=ucs-bmp@ks
868                 "ISO/IEC 10646 BMP for KS"
869                 '(long-name     "BMP for KS"
870                   chars         256
871                   dimension     3
872                   columns       2
873                   graphic       2
874                   direction     l2r
875                   mother        =ucs@ks
876                   min-code      #x0000
877                   max-code      #xFFFF))
878   (make-charset '=ucs@big5
879                 "ISO/IEC 10646 for Big5"
880                 '(long-name     "UCS for Big5"
881                   chars         256
882                   dimension     3
883                   columns       2
884                   graphic       2
885                   direction     l2r
886                   =>iso-ir      177
887                   mother        =ucs@unicode))
888   (define-charset-alias 'ucs-big5 '=ucs@big5)
889   (make-charset '=ucs@big5/cns11643
890                 "ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw"
891                 '(long-name     "UCS for Big5@CNS11643"
892                   chars         256
893                   dimension     3
894                   columns       2
895                   graphic       2
896                   direction     l2r
897                   =>iso-ir      177
898                   mother        =ucs@big5))
899   (make-charset '=ucs@cns11643
900                 "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw"
901                 '(long-name     "UCS for CNS11643"
902                   chars         256
903                   dimension     3
904                   columns       2
905                   graphic       2
906                   direction     l2r
907                   =>iso-ir      177
908                   mother        =ucs@cns))
909   
910   (make-charset
911    '=ucs-radicals
912    "CJK Radicals of UCS"
913    '(long-name "UCS-Radicals"
914                chars 256
915                dimension 2
916                columns 2
917                graphic 2
918                direction l2r
919                registry "-zhRadicals-.*-ucs-0"
920                mother ucs-bmp
921                min-code #x2E00 max-code #x2FFF))
922   (make-charset
923    '=ucs-radicals@unicode
924    "CJK Radicals of UCS"
925    '(long-name "UCS-Radicals"
926                chars 256
927                dimension 2
928                columns 2
929                graphic 2
930                direction l2r
931                registry "-zhRadicals-.*-ucs-0"
932                mother =ucs@unicode
933                min-code #x2E00 max-code #x2FFF))
934   (make-charset
935    '=ucs-hangul
936    "Hangul Syllables of UCS"
937    '(long-name "UCS-Hangul-Syllables"
938                chars 256
939                dimension 2
940                columns 2
941                graphic 2
942                direction l2r
943                registry "-Hangul-.*-ucs-0"
944                mother =ucs
945                min-code #xAC00 max-code #xD7AF))
946   (make-charset
947    '=ucs-bmp-cjk
948    "CJK Characters in BMP of UCS"
949    '(long-name "UCS-BMP-CJK"
950                chars 256
951                dimension 2
952                columns 2
953                graphic 2
954                direction l2r
955                registry "-zh-.*-ucs-0"
956                mother ucs-bmp
957                min-code #x2E00
958                max-code #x9FA5
959                ;; max-code #xA4CF
960                ))
961   (make-charset
962    '=ucs-bmp-cjk@unicode
963    "CJK Characters in BMP of Unicode"
964    '(long-name "Unicode-BMP-CJK"
965                chars 256
966                dimension 2
967                columns 2
968                graphic 2
969                direction l2r
970                registry "-zh-.*-ucs-0"
971                mother =ucs@unicode
972                min-code #x2E00
973                max-code #x9FA5
974                ;; max-code #xA4CF
975                ))
976   (make-charset
977    '=ucs-sip-ext-b
978    "CJK Ideographs Extension B"
979    '(long-name "UCS CJK Ext-B"
980                chars 256
981                dimension 2
982                columns 2
983                graphic 2
984                direction l2r
985                registry "\\(iso10646\\|ucs02\\)-2$"
986                mother ucs
987                min-code #x20000 max-code #x2A6D6
988                code-offset #x20000))
989   (make-charset
990    '=ucs-sip-ext-b@iso
991    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
992    '(long-name "UCS CJK Ext-B"
993                chars 256
994                dimension 2
995                columns 2
996                graphic 2
997                direction l2r
998                registry "\\(iso10646\\|ucs02\\)-2$"
999                mother =ucs@iso
1000                min-code #x20000 max-code #x2A6D6
1001                code-offset #x20000))
1002
1003   (make-charset
1004    '=adobe-japan1-0
1005    "Adobe-Japan1-0 Character Collection for CID-Keyed Fonts"
1006    '(long-name "Adobe-Japan1-0"
1007                chars 256
1008                dimension 2
1009                columns 2
1010                graphic 2
1011                direction l2r
1012                registry "AdobeJapan1-0$"))
1013   (make-charset
1014    '=adobe-japan1-1
1015    "Adobe-Japan1-1 Character Collection for CID-Keyed Fonts"
1016    '(long-name "Adobe-Japan1-1"
1017                chars 256
1018                dimension 2
1019                columns 2
1020                graphic 2
1021                direction l2r
1022                mother =adobe-japan1-0
1023                registry "AdobeJapan1-1$"))
1024   (make-charset
1025    '=adobe-japan1-2
1026    "Adobe-Japan1-2 Character Collection for CID-Keyed Fonts"
1027    '(long-name "Adobe-Japan1-2"
1028                chars 256
1029                dimension 2
1030                columns 2
1031                graphic 2
1032                direction l2r
1033                mother =adobe-japan1-1
1034                registry "AdobeJapan1-2$"))
1035   (make-charset
1036    '=adobe-japan1-3
1037    "Adobe-Japan1-3 Character Collection for CID-Keyed Fonts"
1038    '(long-name "Adobe-Japan1-3"
1039                chars 256
1040                dimension 2
1041                columns 2
1042                graphic 2
1043                direction l2r
1044                mother =adobe-japan1-2
1045                registry "AdobeJapan1-3$"))
1046   (make-charset
1047    '=adobe-japan1-4
1048    "Adobe-Japan1-4 Character Collection for CID-Keyed Fonts"
1049    '(long-name "Adobe-Japan1-4"
1050                chars 256
1051                dimension 2
1052                columns 2
1053                graphic 2
1054                direction l2r
1055                mother =adobe-japan1-3
1056                registry "AdobeJapan1-4$"))
1057   (make-charset
1058    '=adobe-japan1-5
1059    "Adobe-Japan1-5 Character Collection for CID-Keyed Fonts"
1060    '(long-name "Adobe-Japan1-5"
1061                chars 256
1062                dimension 2
1063                columns 2
1064                graphic 2
1065                direction l2r
1066                mother =adobe-japan1-4
1067                registry "AdobeJapan1-5$"))
1068   (make-charset
1069    '=adobe-japan1-6
1070    "Adobe-Japan1-6 Character Collection for CID-Keyed Fonts"
1071    '(long-name "Adobe-Japan1-6"
1072                chars 256
1073                dimension 2
1074                columns 2
1075                graphic 2
1076                direction l2r
1077                mother =adobe-japan1-5
1078                registry "AdobeJapan1-6$"))
1079   )
1080
1081 ;;; mule-conf.el ends here