74 |
;; :code-space [128 255] |
;; :code-space [128 255] |
75 |
;; :code-offset #x3FFF80) |
;; :code-offset #x3FFF80) |
76 |
;; |
;; |
77 |
|
;; (define-charset 'eight-bit |
78 |
|
;; "" |
79 |
|
;; :dimension 1 |
80 |
|
;; :code-space [128 255] |
81 |
|
;; :code-offset #x3FFF80) |
82 |
|
;; |
83 |
;; We now set :docstring, :short-name, and :long-name properties. |
;; We now set :docstring, :short-name, and :long-name properties. |
84 |
|
|
85 |
(put-charset-property |
(put-charset-property |
807 |
:unify-map "is13194" |
:unify-map "is13194" |
808 |
:code-offset #x180000) |
:code-offset #x180000) |
809 |
|
|
810 |
|
(define-charset 'devanagari-glyph |
811 |
|
"Glyphs for Devanagari script. Subset of `indian-glyph'." |
812 |
|
:short-name "Devanagari glyph" |
813 |
|
:code-space [0 255] |
814 |
|
:code-offset #x180100) |
815 |
|
|
816 |
|
;; These would be necessary for supporting the complete set of Indian |
817 |
|
;; scripts. See also fontset.el. |
818 |
|
|
819 |
|
;; (let ((i 0)) |
820 |
|
;; (dolist (script '(sanskrit bengali tamil telugu assamese |
821 |
|
;; oriya kannada malayalam gujarati punjabi)) |
822 |
|
;; (define-charset (intern (concat (symbol-name script) "-glyph")) |
823 |
|
;; (concat "Glyphs for " (capitalize (symbol-name script)) |
824 |
|
;; " script. Subset of `indian-glyph'.") |
825 |
|
;; :short-name (concat (capitalize (symbol-name script)) " glyph") |
826 |
|
;; :code-space [0 255] |
827 |
|
;; :code-offset (+ #x180100 (* 256 i))) |
828 |
|
;; (setq i (1+ i)))) |
829 |
|
|
830 |
(define-charset 'indian-glyph |
(define-charset 'indian-glyph |
831 |
"Glyphs for Indian characters." |
"Glyphs for Indian characters." |
832 |
:short-name "Indian glyph" |
:short-name "Indian glyph" |
835 |
:code-space [32 127 32 127] |
:code-space [32 127 32 127] |
836 |
:code-offset #x180100) |
:code-offset #x180100) |
837 |
|
|
|
(define-charset 'devanagari-glyph |
|
|
"Glyphs for Devanagari script. Subset of `indian-glyph'." |
|
|
:short-name "Devanagari glyph" |
|
|
:code-space [0 255] |
|
|
:code-offset #x180100) |
|
|
|
|
|
|
|
838 |
;; Actual Glyph for 1-column width. |
;; Actual Glyph for 1-column width. |
839 |
(define-charset 'indian-1-column |
(define-charset 'indian-1-column |
840 |
"Indian charset for 1-column width glyphs" |
"Indian charset for 1-column width glyphs" |
910 |
:code-space [0 255 0 255] |
:code-space [0 255 0 255] |
911 |
:subset '(unicode 0 #xFFFF 0)) |
:subset '(unicode 0 #xFFFF 0)) |
912 |
|
|
913 |
|
(define-charset 'unicode-bmp |
914 |
|
"Unicode Basic Multilingual Plane" |
915 |
|
:short-name "Unicode BMP" |
916 |
|
:code-space [0 255 0 255] |
917 |
|
:subset '(unicode 0 #xFFFF 0)) |
918 |
|
|
919 |
(define-charset 'ethiopic |
(define-charset 'ethiopic |
920 |
"Ethiopic characters for Amharic and Tigrigna." |
"Ethiopic characters for Amharic and Tigrigna." |
921 |
:short-name "Ethiopic" |
:short-name "Ethiopic" |
1099 |
|
|
1100 |
(define-coding-system 'iso-latin-1 |
(define-coding-system 'iso-latin-1 |
1101 |
"ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)." |
"ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)." |
1102 |
:coding-type 'iso-2022 |
:coding-type 'charset |
1103 |
:mnemonic ?1 |
:mnemonic ?1 |
1104 |
:charset-list '(ascii latin-iso8859-1) |
:charset-list '(iso-8859-1) |
|
:designation [ascii latin-iso8859-1 nil nil] |
|
1105 |
:mime-charset 'iso-8859-1) |
:mime-charset 'iso-8859-1) |
1106 |
|
|
1107 |
(define-coding-system-alias 'iso-8859-1 'iso-latin-1) |
(define-coding-system-alias 'iso-8859-1 'iso-latin-1) |
1112 |
(define-coding-system 'emacs-mule |
(define-coding-system 'emacs-mule |
1113 |
"Emacs 21 internal format used in buffer and string." |
"Emacs 21 internal format used in buffer and string." |
1114 |
:coding-type 'emacs-mule |
:coding-type 'emacs-mule |
|
:charset-list 'emacs-mule |
|
1115 |
:mnemonic ?M) |
:mnemonic ?M) |
1116 |
|
|
1117 |
(define-coding-system 'utf-8 |
(define-coding-system 'utf-8 |
1173 |
"ISO 2022 based 7-bit encoding using only G0." |
"ISO 2022 based 7-bit encoding using only G0." |
1174 |
:coding-type 'iso-2022 |
:coding-type 'iso-2022 |
1175 |
:mnemonic ?J |
:mnemonic ?J |
|
:charset-list 'iso-2022 |
|
1176 |
:designation [(ascii t) nil nil nil] |
:designation [(ascii t) nil nil nil] |
1177 |
:flags '(short ascii-at-eol ascii-at-cntl 7-bit designation composition)) |
:flags '(short ascii-at-eol ascii-at-cntl 7-bit designation composition)) |
1178 |
|
|
1180 |
"ISO 2022 based 7-bit encoding using SS2 for 96-charset." |
"ISO 2022 based 7-bit encoding using SS2 for 96-charset." |
1181 |
:coding-type 'iso-2022 |
:coding-type 'iso-2022 |
1182 |
:mnemonic ?$ |
:mnemonic ?$ |
|
:charset-list 'iso-2022 |
|
1183 |
:designation [(ascii 94) nil (nil 96) nil] |
:designation [(ascii 94) nil (nil 96) nil] |
1184 |
:flags '(short ascii-at-eol ascii-at-cntl 7-bit |
:flags '(short ascii-at-eol ascii-at-cntl 7-bit |
1185 |
designation single-shift composition)) |
designation single-shift composition)) |
1188 |
"ISO-2022 coding system using Locking-Shift for 96-charset." |
"ISO-2022 coding system using Locking-Shift for 96-charset." |
1189 |
:coding-type 'iso-2022 |
:coding-type 'iso-2022 |
1190 |
:mnemonic ?& |
:mnemonic ?& |
|
:charset-list 'iso-2022 |
|
1191 |
:designation [(ascii 94) (nil 96) nil nil] |
:designation [(ascii 94) (nil 96) nil nil] |
1192 |
:flags '(ascii-at-eol ascii-at-cntl 7-bit |
:flags '(ascii-at-eol ascii-at-cntl 7-bit |
1193 |
designation locking-shift composition)) |
designation locking-shift composition)) |
1219 |
"ISO 2022 based 8-bit encoding using SS2 for 96-charset." |
"ISO 2022 based 8-bit encoding using SS2 for 96-charset." |
1220 |
:coding-type 'iso-2022 |
:coding-type 'iso-2022 |
1221 |
:mnemonic ?@ |
:mnemonic ?@ |
|
:charset-list 'iso-2022 |
|
1222 |
:designation [(ascii 94) nil (nil 96) nil] |
:designation [(ascii 94) nil (nil 96) nil] |
1223 |
:flags '(ascii-at-eol ascii-at-cntl designation single-shift composition)) |
:flags '(ascii-at-eol ascii-at-cntl designation single-shift composition)) |
1224 |
|
|
1228 |
This coding system does not support ICCCM Extended Segments." |
This coding system does not support ICCCM Extended Segments." |
1229 |
:coding-type 'iso-2022 |
:coding-type 'iso-2022 |
1230 |
:mnemonic ?x |
:mnemonic ?x |
|
:charset-list 'iso-2022 |
|
1231 |
:designation [(ascii 94) (latin-iso8859-1 katakana-jisx0201 96) nil nil] |
:designation [(ascii 94) (latin-iso8859-1 katakana-jisx0201 96) nil nil] |
1232 |
:flags '(ascii-at-eol ascii-at-cntl |
:flags '(ascii-at-eol ascii-at-cntl |
1233 |
designation locking-shift single-shift composition) |
designation locking-shift single-shift composition) |
1249 |
Like `compound-text', but does not produce escape sequences for compositions." |
Like `compound-text', but does not produce escape sequences for compositions." |
1250 |
:coding-type 'iso-2022 |
:coding-type 'iso-2022 |
1251 |
:mnemonic ?x |
:mnemonic ?x |
|
:charset-list 'iso-2022 |
|
1252 |
:designation [(ascii 94) (latin-iso8859-1 katakana-jisx0201 96) nil nil] |
:designation [(ascii 94) (latin-iso8859-1 katakana-jisx0201 96) nil nil] |
1253 |
:flags '(ascii-at-eol ascii-at-cntl |
:flags '(ascii-at-eol ascii-at-cntl |
1254 |
designation locking-shift single-shift)) |
designation locking-shift single-shift)) |