5 |
;; Copyright (C) 2001, 2002 |
;; Copyright (C) 2001, 2002 |
6 |
;; National Institute of Advanced Industrial Science and Technology (AIST) |
;; National Institute of Advanced Industrial Science and Technology (AIST) |
7 |
;; Registration Number H13PRO009 |
;; Registration Number H13PRO009 |
8 |
;; Copyright (C) 2002 Free Software Foundation, Inc. |
;; Copyright (C) 2002, 2003 Free Software Foundation, Inc. |
9 |
|
|
10 |
;; Keywords: i18n, mule, multilingual, character set, coding system |
;; Keywords: i18n, mule, multilingual, character set, coding system |
11 |
|
|
419 |
:iso-final-char ?C |
:iso-final-char ?C |
420 |
:emacs-mule-id 147 |
:emacs-mule-id 147 |
421 |
:code-space [33 126 33 126] |
:code-space [33 126 33 126] |
422 |
:code-offset #x279f94 |
:code-offset #x279f94 ; ... #x27c217 |
423 |
:unify-map "ksc5601-1987") |
:unify-map "ksc5601-1987") |
424 |
|
|
425 |
|
(define-charset 'big5-hkscs |
426 |
|
"Big5-HKSCS (Chinese traditional, Hong Kong supplement)" |
427 |
|
:short-name "Big5" |
428 |
|
:code-space [#x40 #xFE #xA1 #xFE] |
429 |
|
:code-offset #x27c218 ; ... #x280839 |
430 |
|
:unify-map "big5-hkscs") |
431 |
|
|
432 |
;; Fixme: Korean cp949/UHC |
;; Fixme: Korean cp949/UHC |
433 |
|
|
434 |
(define-charset 'chinese-sisheng |
(define-charset 'chinese-sisheng |
537 |
:code-space [0 255] |
:code-space [0 255] |
538 |
:map "georgian-ps") |
:map "georgian-ps") |
539 |
|
|
540 |
|
(define-charset 'georgian-academy |
541 |
|
"GEORGIAN-ACADEMY" |
542 |
|
:short-name "GEORGIAN-ACADEMY" |
543 |
|
:ascii-compatible-p t |
544 |
|
:code-space [0 255] |
545 |
|
:map "georgian-academy") |
546 |
|
|
547 |
(define-charset 'windows-1250 |
(define-charset 'windows-1250 |
548 |
"WINDOWS-1250 (Central Europe)" |
"WINDOWS-1250 (Central Europe)" |
549 |
:short-name "WINDOWS-1250" |
:short-name "WINDOWS-1250" |
959 |
|
|
960 |
(define-charset 'ibm1047 |
(define-charset 'ibm1047 |
961 |
;; Says groff: |
;; Says groff: |
962 |
"IBM1047, some form of EBCDIC used by OS/390 Unix." |
"IBM1047, `EBCDIC Latin 1/Open Systems' used by OS/390 Unix." |
963 |
:short-name "IBM1047" |
:short-name "IBM1047" |
964 |
:code-space [0 255] |
:code-space [0 255] |
965 |
:mime-charset 'ibm1047 |
:mime-charset 'ibm1047 |
1008 |
:short-name "PT154" |
:short-name "PT154" |
1009 |
:ascii-compatible-p t |
:ascii-compatible-p t |
1010 |
:code-space [0 255] |
:code-space [0 255] |
1011 |
|
:mime-charset 'pt154 |
1012 |
:map "pt154") |
:map "pt154") |
1013 |
|
(define-charset-alias 'ptcp154 'pt154) |
1014 |
|
(define-charset-alias 'cp154 'pt154) |
1015 |
|
|
1016 |
(define-charset 'gb18030-2-byte |
(define-charset 'gb18030-2-byte |
1017 |
"GB18030 2-byte (0x814E..0xFEFE)" |
"GB18030 2-byte (0x814E..0xFEFE)" |
1069 |
(unify-charset 'chinese-big5-2) |
(unify-charset 'chinese-big5-2) |
1070 |
(unify-charset 'vietnamese-viscii-lower) |
(unify-charset 'vietnamese-viscii-lower) |
1071 |
(unify-charset 'vietnamese-viscii-upper) |
(unify-charset 'vietnamese-viscii-upper) |
1072 |
;; Fixme: unifying sucks in the charset tables, which may be large. |
(unify-charset 'big5-hkscs) |
|
;; (Can we avoid that and do it anyhow (with lazy loading)?) |
|
1073 |
(unify-charset 'chinese-sisheng) |
(unify-charset 'chinese-sisheng) |
1074 |
(unify-charset 'korean-ksc5601) |
(unify-charset 'korean-ksc5601) |
1075 |
(unify-charset 'ipa) |
(unify-charset 'ipa) |