108 |
:code-space [32 127] |
:code-space [32 127] |
109 |
:code-offset 160) |
:code-offset 160) |
110 |
|
|
111 |
(define-charset 'eight-bit-control |
;; Name perhaps not ideal, but is XEmacs-compatible. |
112 |
|
(define-charset 'control-1 |
113 |
"8-bit control code (0x80..0x9F)" |
"8-bit control code (0x80..0x9F)" |
114 |
:short-name "8-bit control code" |
:short-name "8-bit control code" |
115 |
:code-space [128 159] |
:code-space [128 159] |
116 |
:code-offset 128) |
:code-offset 128) |
117 |
|
|
118 |
|
(define-charset 'eight-bit-control |
119 |
|
"Raw bytes in the range 0x80..0x9F (usually produced from invalid encodings)" |
120 |
|
:short-name "Raw bytes 0x80..0x9F" |
121 |
|
:code-space [128 159] |
122 |
|
:code-offset #x3FFF80) ; see character.h |
123 |
|
|
124 |
(define-charset 'eight-bit-graphic |
(define-charset 'eight-bit-graphic |
125 |
"8-bit graphic code (0xA0..0xFF)" |
"Raw bytes in the range 0xA0..0xFF (usually produced from invalid encodings)" |
126 |
:short-name "8-bit graphic code" |
:short-name "Raw bytes 0xA0..0xFF" |
127 |
:code-space [160 255] |
:code-space [160 255] |
128 |
:code-offset 160) |
:code-offset #x3FFFA0) ; see character.h |
129 |
|
|
130 |
(defmacro define-iso-single-byte-charset (symbol iso-symbol name nickname |
(defmacro define-iso-single-byte-charset (symbol iso-symbol name nickname |
131 |
iso-ir iso-final |
iso-ir iso-final |
409 |
:iso-final-char ?C |
:iso-final-char ?C |
410 |
:emacs-mule-id 147 |
:emacs-mule-id 147 |
411 |
:code-space [33 126 33 126] |
:code-space [33 126 33 126] |
412 |
:map "ksc5601-1987") |
:code-offset #x279f94 |
413 |
|
:unify-map "ksc5601-1987") |
414 |
|
|
415 |
;; Fixme: Korean cp949/UHC |
;; Fixme: Korean cp949/UHC |
416 |
|
|
424 |
:unify-map "sisheng" |
:unify-map "sisheng" |
425 |
:code-offset #x200000) |
:code-offset #x200000) |
426 |
|
|
427 |
|
;; A subset of the 1989 version of IPA. It consists of the consonant |
428 |
|
;; signs used in English, French, German and Italian, and all vowels |
429 |
|
;; signs in the table. [says old MULE doc] |
430 |
(define-charset 'ipa |
(define-charset 'ipa |
431 |
"IPA (International Phonetic Association)" |
"IPA (International Phonetic Association)" |
432 |
:short-name "IPA" |
:short-name "IPA" |