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 |
|
|
9 |
;; Keywords: mule, multilingual, character set, coding system |
;; Keywords: i18n, mule, multilingual, character set, coding system |
10 |
|
|
11 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
12 |
|
|
33 |
|
|
34 |
;;; Definitions of character sets. |
;;; Definitions of character sets. |
35 |
|
|
36 |
;; The charsets `ascii' and `unicoe' are aleady defined in charset.c |
;; The charsets `ascii' and `unicode' are already defined in charset.c |
37 |
;; as below: |
;; as below: |
38 |
;; |
;; |
39 |
;; (define-charset 'ascii |
;; (define-charset 'ascii |
77 |
:supplementary-p t) |
:supplementary-p t) |
78 |
|
|
79 |
(define-charset 'iso-8859-1 |
(define-charset 'iso-8859-1 |
80 |
"Laint-1 (ISO/IEC 8859-1)" |
"Latin-1 (ISO/IEC 8859-1)" |
81 |
:short-name "Latin-1" |
:short-name "Latin-1" |
82 |
:ascii-compatible-p t |
:ascii-compatible-p t |
83 |
:code-space [0 255] |
:code-space [0 255] |
125 |
:short-name (format "RHP of %s" ,name) |
:short-name (format "RHP of %s" ,name) |
126 |
:long-name (format "RHP of %s (%s)" ,name ,nickname) |
:long-name (format "RHP of %s (%s)" ,name ,nickname) |
127 |
:iso-final-char ,iso-final |
:iso-final-char ,iso-final |
128 |
:emacs-mule-id ,emacs-mule-id |
:emacs-mule-id ,emacs-mule-id |
129 |
:code-space [32 127] |
:code-space [32 127] |
130 |
:parents (list (cons ,symbol 128)))))) |
:parents (list (cons ,symbol 128)))))) |
131 |
|
|
213 |
:unify-map "gb2312-1980") |
:unify-map "gb2312-1980") |
214 |
|
|
215 |
(define-charset 'chinese-gbk |
(define-charset 'chinese-gbk |
216 |
"GBK Chinese simpliefied." |
"GBK Chinese simplified." |
217 |
:short-name "GBK" |
:short-name "GBK" |
218 |
:long-name "GBK" |
:long-name "GBK" |
219 |
:code-space [#x40 #xFE #x81 #xFE] |
:code-space [#x40 #xFE #x81 #xFE] |
294 |
:unify-map "big5") |
:unify-map "big5") |
295 |
|
|
296 |
(define-charset 'chinese-big5-1 |
(define-charset 'chinese-big5-1 |
297 |
"Frequentry used part (A141-C67E) of Big5 (Chinese traditional)" |
"Frequently used part (A141-C67E) of Big5 (Chinese traditional)" |
298 |
:short-name "Big5 (Level-1)" |
:short-name "Big5 (Level-1)" |
299 |
:long-name "Big5 (Level-1) A141-C67F" |
:long-name "Big5 (Level-1) A141-C67F" |
300 |
:iso-final-char ?0 |
:iso-final-char ?0 |
304 |
:unify-map "big5-1") |
:unify-map "big5-1") |
305 |
|
|
306 |
(define-charset 'chinese-big5-2 |
(define-charset 'chinese-big5-2 |
307 |
"Less frequentry used part (C940-FEFE) of Big5 (Chinese traditional)" |
"Less frequently used part (C940-FEFE) of Big5 (Chinese traditional)" |
308 |
:short-name "Big5 (Level-2)" |
:short-name "Big5 (Level-2)" |
309 |
:long-name "Big5 (Level-2) C940-FEFE" |
:long-name "Big5 (Level-2) C940-FEFE" |
310 |
:iso-final-char ?1 |
:iso-final-char ?1 |
355 |
(define-charset 'japanese-jisx0213-2 |
(define-charset 'japanese-jisx0213-2 |
356 |
"JISX0213 Plane 2 (Japanese)" |
"JISX0213 Plane 2 (Japanese)" |
357 |
:short-name "JISX0213-2" |
:short-name "JISX0213-2" |
358 |
:long-name "JISX0213-2" |
:long-name "JISX0213-2" |
359 |
:iso-final-char ?P |
:iso-final-char ?P |
360 |
:emacs-mule-id 254 |
:emacs-mule-id 254 |
361 |
:code-space [33 126 33 126] |
:code-space [33 126 33 126] |
534 |
"Tibetan characters" |
"Tibetan characters" |
535 |
:iso-final-char ?7 |
:iso-final-char ?7 |
536 |
:short-name "Tibetan 2-col" |
:short-name "Tibetan 2-col" |
537 |
:long-name "Tibetan 2 column" |
:long-name "Tibetan 2 column" |
538 |
:iso-final-char ?7 |
:iso-final-char ?7 |
539 |
:emacs-mule-id 252 |
:emacs-mule-id 252 |
540 |
:code-space [33 126 33 126] |
:code-space [33 126 33 126] |
578 |
:code-offset #x100) |
:code-offset #x100) |
579 |
|
|
580 |
(define-charset 'ethiopic |
(define-charset 'ethiopic |
581 |
"Ethiopic characters for Amahric and Tigrigna." |
"Ethiopic characters for Amharic and Tigrigna." |
582 |
:short-name "Ethiopic" |
:short-name "Ethiopic" |
583 |
:long-name "Ethiopic characters" |
:long-name "Ethiopic characters" |
584 |
:iso-final-char ?3 |
:iso-final-char ?3 |