62 |
'help-echo "mouse-2, RET: show table of characters for this character set") |
'help-echo "mouse-2, RET: show table of characters for this character set") |
63 |
|
|
64 |
;;;###autoload |
;;;###autoload |
65 |
(defvar non-iso-charset-alist nil |
(defvar non-iso-charset-alist |
66 |
|
`((mac-roman |
67 |
|
(ascii latin-iso8859-1 mule-unicode-2500-33ff |
68 |
|
mule-unicode-0100-24ff mule-unicode-e000-ffff) |
69 |
|
mac-roman-decoder |
70 |
|
((0 255))) |
71 |
|
(viscii |
72 |
|
(ascii vietnamese-viscii-lower vietnamese-viscii-upper) |
73 |
|
viet-viscii-nonascii-translation-table |
74 |
|
((0 255))) |
75 |
|
(vietnamese-tcvn |
76 |
|
(ascii vietnamese-viscii-lower vietnamese-viscii-upper) |
77 |
|
viet-tcvn-nonascii-translation-table |
78 |
|
((0 255))) |
79 |
|
(koi8-r |
80 |
|
(ascii cyrillic-iso8859-5) |
81 |
|
cyrillic-koi8-r-nonascii-translation-table |
82 |
|
((32 255))) |
83 |
|
(alternativnyj |
84 |
|
(ascii cyrillic-iso8859-5) |
85 |
|
cyrillic-alternativnyj-nonascii-translation-table |
86 |
|
((32 255))) |
87 |
|
(koi8-u |
88 |
|
(ascii cyrillic-iso8859-5 mule-unicode-0100-24ff) |
89 |
|
cyrillic-koi8-u-nonascii-translation-table |
90 |
|
((32 255))) |
91 |
|
(big5 |
92 |
|
(ascii chinese-big5-1 chinese-big5-2) |
93 |
|
decode-big5-char |
94 |
|
((32 127) |
95 |
|
((?\xA1 ?\xFE) . (?\x40 ?\x7E ?\xA1 ?\xFE)))) |
96 |
|
(sjis |
97 |
|
(ascii katakana-jisx0201 japanese-jisx0208) |
98 |
|
decode-sjis-char |
99 |
|
((32 127 ?\xA1 ?\xDF) |
100 |
|
((?\x81 ?\x9F ?\xE0 ?\xEF) . (?\x40 ?\x7E ?\x80 ?\xFC))))) |
101 |
"Alist of charset names vs the corresponding information. |
"Alist of charset names vs the corresponding information. |
102 |
This is mis-named for historical reasons. The charsets are actually |
This is mis-named for historical reasons. The charsets are actually |
103 |
non-built-in ones. They correspond to Emacs coding systems, not Emacs |
non-built-in ones. They correspond to Emacs coding systems, not Emacs |
128 |
The second form is used for 2-byte codes. The car part is the ranges |
The second form is used for 2-byte codes. The car part is the ranges |
129 |
of the first byte, and the cdr part is the ranges of the second byte.") |
of the first byte, and the cdr part is the ranges of the second byte.") |
130 |
|
|
|
;; Set it like this in case code-pages &c has been loaded previously, |
|
|
;; in which case defvar would be useless. |
|
|
(setq non-iso-charset-alist |
|
|
(append |
|
|
non-iso-charset-alist |
|
|
`((mac-roman |
|
|
(ascii latin-iso8859-1 mule-unicode-2500-33ff |
|
|
mule-unicode-0100-24ff mule-unicode-e000-ffff) |
|
|
mac-roman-decoder |
|
|
((0 255))) |
|
|
(viscii |
|
|
(ascii vietnamese-viscii-lower vietnamese-viscii-upper) |
|
|
viet-viscii-nonascii-translation-table |
|
|
((0 255))) |
|
|
(vietnamese-tcvn |
|
|
(ascii vietnamese-viscii-lower vietnamese-viscii-upper) |
|
|
viet-tcvn-nonascii-translation-table |
|
|
((0 255))) |
|
|
(koi8-r |
|
|
(ascii cyrillic-iso8859-5) |
|
|
cyrillic-koi8-r-nonascii-translation-table |
|
|
((32 255))) |
|
|
(alternativnyj |
|
|
(ascii cyrillic-iso8859-5) |
|
|
cyrillic-alternativnyj-nonascii-translation-table |
|
|
((32 255))) |
|
|
(koi8-u |
|
|
(ascii cyrillic-iso8859-5 mule-unicode-0100-24ff) |
|
|
cyrillic-koi8-u-nonascii-translation-table |
|
|
((32 255))) |
|
|
(big5 |
|
|
(ascii chinese-big5-1 chinese-big5-2) |
|
|
decode-big5-char |
|
|
((32 127) |
|
|
((?\xA1 ?\xFE) . (?\x40 ?\x7E ?\xA1 ?\xFE)))) |
|
|
(sjis |
|
|
(ascii katakana-jisx0201 japanese-jisx0208) |
|
|
decode-sjis-char |
|
|
((32 127 ?\xA1 ?\xDF) |
|
|
((?\x81 ?\x9F ?\xE0 ?\xEF) . (?\x40 ?\x7E ?\x80 ?\xFC))))))) |
|
|
|
|
131 |
;;;###autoload |
;;;###autoload |
132 |
(defun list-character-sets (arg) |
(defun list-character-sets (arg) |
133 |
"Display a list of all character sets. |
"Display a list of all character sets. |