Mercurial > hg > xemacs-beta
comparison lisp/mule/greek.el @ 4690:257b468bf2ca
Move the #'query-coding-region implementation to C.
This is necessary because there is no reasonable way to access the
corresponding mswindows-multibyte functionality from Lisp, and we need such
functionality if we're going to have a reliable and portable
#'query-coding-region implementation. However, this change doesn't yet
provide #'query-coding-region for the mswindow-multibyte coding systems,
there should be no functional differences between an XEmacs with this change
and one without it.
src/ChangeLog addition:
2009-09-19 Aidan Kehoe <kehoea@parhasard.net>
Move the #'query-coding-region implementation to C.
This is necessary because there is no reasonable way to access the
corresponding mswindows-multibyte functionality from Lisp, and we
need such functionality if we're going to have a reliable and
portable #'query-coding-region implementation. However, this
change doesn't yet provide #'query-coding-region for the
mswindow-multibyte coding systems, there should be no functional
differences between an XEmacs with this change and one without it.
* mule-coding.c (struct fixed_width_coding_system):
Add a new coding system type, fixed_width, and implement it. It
uses the CCL infrastructure but has a much simpler creation API,
and its own query_method, formerly in lisp/mule/mule-coding.el.
* unicode.c:
Move the Unicode query method implementation here from
unicode.el.
* lisp.h: Declare Fmake_coding_system_internal, Fcopy_range_table
here.
* intl-win32.c (complex_vars_of_intl_win32):
Use Fmake_coding_system_internal, not Fmake_coding_system.
* general-slots.h: Add Qsucceeded, Qunencodable, Qinvalid_sequence
here.
* file-coding.h (enum coding_system_variant):
Add fixed_width_coding_system here.
(struct coding_system_methods):
Add query_method and query_lstream_method to the coding system
methods.
Provide flags for the query methods.
Declare the default query method; initialise it correctly in
INITIALIZE_CODING_SYSTEM_TYPE.
* file-coding.c (default_query_method):
New function, the default query method for coding systems that do
not set it. Moved from coding.el.
(make_coding_system_1):
Accept new elements in PROPS in #'make-coding-system; aliases, a
list of aliases; safe-chars and safe-charsets (these were
previously accepted but not saved); and category.
(Fmake_coding_system_internal):
New function, what used to be #'make-coding-system--on Mule
builds, we've now moved some of the functionality of this to
Lisp.
(Fcoding_system_canonical_name_p):
Move this earlier in the file, since it's now called from within
make_coding_system_1.
(Fquery_coding_region):
Move the implementation of this here, from coding.el.
(complex_vars_of_file_coding):
Call Fmake_coding_system_internal, not Fmake_coding_system;
specify safe-charsets properties when we're a mule build.
* extents.h (mouse_highlight_priority, Fset_extent_priority,
Fset_extent_face, Fmap_extents):
Make these available to other C files.
lisp/ChangeLog addition:
2009-09-19 Aidan Kehoe <kehoea@parhasard.net>
Move the #'query-coding-region implementation to C.
* coding.el:
Consolidate code that depends on the presence or absence of Mule
at the end of this file.
(default-query-coding-region, query-coding-region):
Move these functions to C.
(default-query-coding-region-safe-charset-skip-chars-map):
Remove this variable, the corresponding C variable is
Vdefault_query_coding_region_chartab_cache in file-coding.c.
(query-coding-string): Update docstring to reflect actual multiple
values, be more careful about not modifying a range table that
we're currently mapping over.
(encode-coding-char): Make the implementation of this simpler.
(featurep 'mule): Autoload #'make-coding-system from
mule/make-coding-system.el if we're a mule build; provide an
appropriate compiler macro.
Do various non-mule compatibility things if we're not a mule
build.
* update-elc.el (additional-dump-dependencies):
Add mule/make-coding-system as a dump time dependency if we're a
mule build.
* unicode.el (ccl-encode-to-ucs-2):
(decode-char):
(encode-char):
Move these earlier in the file, for the sake of some byte compile
warnings.
(unicode-query-coding-region):
Move this to unicode.c
* mule/make-coding-system.el:
New file, not dumped. Contains the functionality to rework the
arguments necessary for fixed-width coding systems, and contains
the implementation of #'make-coding-system, which now calls
#'make-coding-system-internal.
* mule/vietnamese.el (viscii):
* mule/latin.el (iso-8859-2):
(windows-1250):
(iso-8859-3):
(iso-8859-4):
(iso-8859-14):
(iso-8859-15):
(iso-8859-16):
(iso-8859-9):
(macintosh):
(windows-1252):
* mule/hebrew.el (iso-8859-8):
* mule/greek.el (iso-8859-7):
(windows-1253):
* mule/cyrillic.el (iso-8859-5):
(koi8-r):
(koi8-u):
(windows-1251):
(alternativnyj):
(koi8-ru):
(koi8-t):
(koi8-c):
(koi8-o):
* mule/arabic.el (iso-8859-6):
(windows-1256):
Move all these coding systems to being of type fixed-width, not of
type CCL. This allows the distinct query-coding-region for them to
be in C, something which will eventually allow us to implement
query-coding-region for the mswindows-multibyte coding systems.
* mule/general-late.el (posix-charset-to-coding-system-hash):
Document why we're pre-emptively persuading the byte compiler that
the ELC for this file needs to be written using escape-quoted.
Call #'set-unicode-query-skip-chars-args, now the Unicode
query-coding-region implementation is in C.
* mule/thai-xtis.el (tis-620):
Don't bother checking whether we're XEmacs or not here.
* mule/mule-coding.el:
Move the eight bit fixed-width functionality from this file to
make-coding-system.el.
tests/ChangeLog addition:
2009-09-19 Aidan Kehoe <kehoea@parhasard.net>
* automated/mule-tests.el:
Check a coding system's type, not an 8-bit-fixed property, for
whether that coding system should be treated as a fixed-width
coding system.
* automated/query-coding-tests.el:
Don't test the query coding functionality for mswindows-multibyte
coding systems, it's not yet implemented.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sat, 19 Sep 2009 22:53:13 +0100 |
parents | e0a8715fdb1f |
children | 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
4689:0636c6ccb430 | 4690:257b468bf2ca |
---|---|
116 do (modify-syntax-entry | 116 do (modify-syntax-entry |
117 (make-char 'greek-iso8859-7 greek) | 117 (make-char 'greek-iso8859-7 greek) |
118 (string (char-syntax (make-char 'latin-iso8859-1 latin-1))) | 118 (string (char-syntax (make-char 'latin-iso8859-1 latin-1))) |
119 syntax-table)) | 119 syntax-table)) |
120 | 120 |
121 (make-8-bit-coding-system | 121 (make-coding-system |
122 'iso-8859-7 | 122 'iso-8859-7 'fixed-width "ISO-8859-7 (Greek)" |
123 '((#x80 ?\u0080) ;; <control> | 123 '(unicode-map |
124 (#x81 ?\u0081) ;; <control> | 124 ((#x80 ?\u0080) ;; <control> |
125 (#x82 ?\u0082) ;; <control> | 125 (#x81 ?\u0081) ;; <control> |
126 (#x83 ?\u0083) ;; <control> | 126 (#x82 ?\u0082) ;; <control> |
127 (#x84 ?\u0084) ;; <control> | 127 (#x83 ?\u0083) ;; <control> |
128 (#x85 ?\u0085) ;; <control> | 128 (#x84 ?\u0084) ;; <control> |
129 (#x86 ?\u0086) ;; <control> | 129 (#x85 ?\u0085) ;; <control> |
130 (#x87 ?\u0087) ;; <control> | 130 (#x86 ?\u0086) ;; <control> |
131 (#x88 ?\u0088) ;; <control> | 131 (#x87 ?\u0087) ;; <control> |
132 (#x89 ?\u0089) ;; <control> | 132 (#x88 ?\u0088) ;; <control> |
133 (#x8A ?\u008A) ;; <control> | 133 (#x89 ?\u0089) ;; <control> |
134 (#x8B ?\u008B) ;; <control> | 134 (#x8A ?\u008A) ;; <control> |
135 (#x8C ?\u008C) ;; <control> | 135 (#x8B ?\u008B) ;; <control> |
136 (#x8D ?\u008D) ;; <control> | 136 (#x8C ?\u008C) ;; <control> |
137 (#x8E ?\u008E) ;; <control> | 137 (#x8D ?\u008D) ;; <control> |
138 (#x8F ?\u008F) ;; <control> | 138 (#x8E ?\u008E) ;; <control> |
139 (#x90 ?\u0090) ;; <control> | 139 (#x8F ?\u008F) ;; <control> |
140 (#x91 ?\u0091) ;; <control> | 140 (#x90 ?\u0090) ;; <control> |
141 (#x92 ?\u0092) ;; <control> | 141 (#x91 ?\u0091) ;; <control> |
142 (#x93 ?\u0093) ;; <control> | 142 (#x92 ?\u0092) ;; <control> |
143 (#x94 ?\u0094) ;; <control> | 143 (#x93 ?\u0093) ;; <control> |
144 (#x95 ?\u0095) ;; <control> | 144 (#x94 ?\u0094) ;; <control> |
145 (#x96 ?\u0096) ;; <control> | 145 (#x95 ?\u0095) ;; <control> |
146 (#x97 ?\u0097) ;; <control> | 146 (#x96 ?\u0096) ;; <control> |
147 (#x98 ?\u0098) ;; <control> | 147 (#x97 ?\u0097) ;; <control> |
148 (#x99 ?\u0099) ;; <control> | 148 (#x98 ?\u0098) ;; <control> |
149 (#x9A ?\u009A) ;; <control> | 149 (#x99 ?\u0099) ;; <control> |
150 (#x9B ?\u009B) ;; <control> | 150 (#x9A ?\u009A) ;; <control> |
151 (#x9C ?\u009C) ;; <control> | 151 (#x9B ?\u009B) ;; <control> |
152 (#x9D ?\u009D) ;; <control> | 152 (#x9C ?\u009C) ;; <control> |
153 (#x9E ?\u009E) ;; <control> | 153 (#x9D ?\u009D) ;; <control> |
154 (#x9F ?\u009F) ;; <control> | 154 (#x9E ?\u009E) ;; <control> |
155 (#xA0 ?\u00A0) ;; NO-BREAK SPACE | 155 (#x9F ?\u009F) ;; <control> |
156 (#xA1 ?\u2018) ;; LEFT SINGLE QUOTATION MARK | 156 (#xA0 ?\u00A0) ;; NO-BREAK SPACE |
157 (#xA2 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK | 157 (#xA1 ?\u2018) ;; LEFT SINGLE QUOTATION MARK |
158 (#xA3 ?\u00A3) ;; POUND SIGN | 158 (#xA2 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK |
159 (#xA4 ?\u20AC) ;; EURO SIGN | 159 (#xA3 ?\u00A3) ;; POUND SIGN |
160 (#xA5 ?\u20AF) ;; DRACHMA SIGN | 160 (#xA4 ?\u20AC) ;; EURO SIGN |
161 (#xA6 ?\u00A6) ;; BROKEN BAR | 161 (#xA5 ?\u20AF) ;; DRACHMA SIGN |
162 (#xA7 ?\u00A7) ;; SECTION SIGN | 162 (#xA6 ?\u00A6) ;; BROKEN BAR |
163 (#xA8 ?\u00A8) ;; DIAERESIS | 163 (#xA7 ?\u00A7) ;; SECTION SIGN |
164 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN | 164 (#xA8 ?\u00A8) ;; DIAERESIS |
165 (#xAA ?\u037A) ;; GREEK YPOGEGRAMMENI | 165 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN |
166 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK | 166 (#xAA ?\u037A) ;; GREEK YPOGEGRAMMENI |
167 (#xAC ?\u00AC) ;; NOT SIGN | 167 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK |
168 (#xAD ?\u00AD) ;; SOFT HYPHEN | 168 (#xAC ?\u00AC) ;; NOT SIGN |
169 (#xAF ?\u2015) ;; HORIZONTAL BAR | 169 (#xAD ?\u00AD) ;; SOFT HYPHEN |
170 (#xB0 ?\u00B0) ;; DEGREE SIGN | 170 (#xAF ?\u2015) ;; HORIZONTAL BAR |
171 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN | 171 (#xB0 ?\u00B0) ;; DEGREE SIGN |
172 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO | 172 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN |
173 (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE | 173 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO |
174 (#xB4 ?\u0384) ;; GREEK TONOS | 174 (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE |
175 (#xB5 ?\u0385) ;; GREEK DIALYTIKA TONOS | 175 (#xB4 ?\u0384) ;; GREEK TONOS |
176 (#xB6 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS | 176 (#xB5 ?\u0385) ;; GREEK DIALYTIKA TONOS |
177 (#xB7 ?\u00B7) ;; MIDDLE DOT | 177 (#xB6 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS |
178 (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS | 178 (#xB7 ?\u00B7) ;; MIDDLE DOT |
179 (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS | 179 (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS |
180 (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS | 180 (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS |
181 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK | 181 (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS |
182 (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS | 182 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK |
183 (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF | 183 (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS |
184 (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS | 184 (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF |
185 (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS | 185 (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS |
186 (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS | 186 (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS |
187 (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA | 187 (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS |
188 (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA | 188 (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA |
189 (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA | 189 (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA |
190 (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA | 190 (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA |
191 (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON | 191 (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA |
192 (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA | 192 (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON |
193 (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA | 193 (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA |
194 (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA | 194 (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA |
195 (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA | 195 (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA |
196 (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA | 196 (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA |
197 (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA | 197 (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA |
198 (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU | 198 (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA |
199 (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU | 199 (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU |
200 (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI | 200 (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU |
201 (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON | 201 (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI |
202 (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI | 202 (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON |
203 (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO | 203 (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI |
204 (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA | 204 (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO |
205 (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU | 205 (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA |
206 (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON | 206 (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU |
207 (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI | 207 (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON |
208 (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI | 208 (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI |
209 (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI | 209 (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI |
210 (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA | 210 (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI |
211 (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA | 211 (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA |
212 (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA | 212 (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA |
213 (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS | 213 (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA |
214 (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS | 214 (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS |
215 (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS | 215 (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS |
216 (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS | 216 (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS |
217 (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS | 217 (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS |
218 (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA | 218 (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS |
219 (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA | 219 (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA |
220 (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA | 220 (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA |
221 (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA | 221 (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA |
222 (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON | 222 (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA |
223 (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA | 223 (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON |
224 (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA | 224 (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA |
225 (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA | 225 (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA |
226 (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA | 226 (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA |
227 (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA | 227 (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA |
228 (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA | 228 (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA |
229 (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU | 229 (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA |
230 (#xED ?\u03BD) ;; GREEK SMALL LETTER NU | 230 (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU |
231 (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI | 231 (#xED ?\u03BD) ;; GREEK SMALL LETTER NU |
232 (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON | 232 (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI |
233 (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI | 233 (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON |
234 (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO | 234 (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI |
235 (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA | 235 (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO |
236 (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA | 236 (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA |
237 (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU | 237 (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA |
238 (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON | 238 (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU |
239 (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI | 239 (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON |
240 (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI | 240 (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI |
241 (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI | 241 (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI |
242 (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA | 242 (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI |
243 (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA | 243 (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA |
244 (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA | 244 (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA |
245 (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS | 245 (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA |
246 (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS | 246 (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS |
247 (#xFE ?\u03CE));; GREEK SMALL LETTER OMEGA WITH TONOS | 247 (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS |
248 "ISO-8859-7 (Greek)" | 248 (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS |
249 '(mnemonic "Grk" | 249 mnemonic "Grk" |
250 aliases (greek-iso-8bit))) | 250 aliases (greek-iso-8bit))) |
251 | 251 |
252 (make-8-bit-coding-system | 252 (make-coding-system |
253 'windows-1253 | 253 'windows-1253 'fixed-width "Microsoft's CP1253" |
254 '((#x80 ?\u20AC) ;; EURO SIGN | 254 '(unicode-map |
255 (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK | 255 ((#x80 ?\u20AC) ;; EURO SIGN |
256 (#x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK | 256 (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK |
257 (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK | 257 (#x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK |
258 (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS | 258 (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK |
259 (#x86 ?\u2020) ;; DAGGER | 259 (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS |
260 (#x87 ?\u2021) ;; DOUBLE DAGGER | 260 (#x86 ?\u2020) ;; DAGGER |
261 (#x89 ?\u2030) ;; PER MILLE SIGN | 261 (#x87 ?\u2021) ;; DOUBLE DAGGER |
262 (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK | 262 (#x89 ?\u2030) ;; PER MILLE SIGN |
263 (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK | 263 (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK |
264 (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK | 264 (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK |
265 (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK | 265 (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK |
266 (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK | 266 (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK |
267 (#x95 ?\u2022) ;; BULLET | 267 (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK |
268 (#x96 ?\u2013) ;; EN DASH | 268 (#x95 ?\u2022) ;; BULLET |
269 (#x97 ?\u2014) ;; EM DASH | 269 (#x96 ?\u2013) ;; EN DASH |
270 (#x99 ?\u2122) ;; TRADE MARK SIGN | 270 (#x97 ?\u2014) ;; EM DASH |
271 (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK | 271 (#x99 ?\u2122) ;; TRADE MARK SIGN |
272 (#xA0 ?\u00A0) ;; NO-BREAK SPACE | 272 (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK |
273 (#xA1 ?\u0385) ;; GREEK DIALYTIKA TONOS | 273 (#xA0 ?\u00A0) ;; NO-BREAK SPACE |
274 (#xA2 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS | 274 (#xA1 ?\u0385) ;; GREEK DIALYTIKA TONOS |
275 (#xA3 ?\u00A3) ;; POUND SIGN | 275 (#xA2 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS |
276 (#xA4 ?\u00A4) ;; CURRENCY SIGN | 276 (#xA3 ?\u00A3) ;; POUND SIGN |
277 (#xA5 ?\u00A5) ;; YEN SIGN | 277 (#xA4 ?\u00A4) ;; CURRENCY SIGN |
278 (#xA6 ?\u00A6) ;; BROKEN BAR | 278 (#xA5 ?\u00A5) ;; YEN SIGN |
279 (#xA7 ?\u00A7) ;; SECTION SIGN | 279 (#xA6 ?\u00A6) ;; BROKEN BAR |
280 (#xA8 ?\u00A8) ;; DIAERESIS | 280 (#xA7 ?\u00A7) ;; SECTION SIGN |
281 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN | 281 (#xA8 ?\u00A8) ;; DIAERESIS |
282 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK | 282 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN |
283 (#xAC ?\u00AC) ;; NOT SIGN | 283 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK |
284 (#xAD ?\u00AD) ;; SOFT HYPHEN | 284 (#xAC ?\u00AC) ;; NOT SIGN |
285 (#xAE ?\u00AE) ;; REGISTERED SIGN | 285 (#xAD ?\u00AD) ;; SOFT HYPHEN |
286 (#xAF ?\u2015) ;; HORIZONTAL BAR | 286 (#xAE ?\u00AE) ;; REGISTERED SIGN |
287 (#xB0 ?\u00B0) ;; DEGREE SIGN | 287 (#xAF ?\u2015) ;; HORIZONTAL BAR |
288 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN | 288 (#xB0 ?\u00B0) ;; DEGREE SIGN |
289 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO | 289 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN |
290 (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE | 290 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO |
291 (#xB4 ?\u0384) ;; GREEK TONOS | 291 (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE |
292 (#xB5 ?\u00B5) ;; MICRO SIGN | 292 (#xB4 ?\u0384) ;; GREEK TONOS |
293 (#xB6 ?\u00B6) ;; PILCROW SIGN | 293 (#xB5 ?\u00B5) ;; MICRO SIGN |
294 (#xB7 ?\u00B7) ;; MIDDLE DOT | 294 (#xB6 ?\u00B6) ;; PILCROW SIGN |
295 (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS | 295 (#xB7 ?\u00B7) ;; MIDDLE DOT |
296 (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS | 296 (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS |
297 (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS | 297 (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS |
298 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK | 298 (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS |
299 (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS | 299 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK |
300 (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF | 300 (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS |
301 (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS | 301 (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF |
302 (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS | 302 (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS |
303 (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS | 303 (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS |
304 (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA | 304 (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS |
305 (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA | 305 (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA |
306 (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA | 306 (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA |
307 (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA | 307 (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA |
308 (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON | 308 (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA |
309 (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA | 309 (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON |
310 (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA | 310 (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA |
311 (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA | 311 (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA |
312 (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA | 312 (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA |
313 (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA | 313 (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA |
314 (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA | 314 (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA |
315 (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU | 315 (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA |
316 (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU | 316 (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU |
317 (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI | 317 (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU |
318 (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON | 318 (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI |
319 (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI | 319 (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON |
320 (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO | 320 (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI |
321 (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA | 321 (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO |
322 (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU | 322 (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA |
323 (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON | 323 (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU |
324 (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI | 324 (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON |
325 (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI | 325 (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI |
326 (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI | 326 (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI |
327 (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA | 327 (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI |
328 (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA | 328 (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA |
329 (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA | 329 (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA |
330 (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS | 330 (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA |
331 (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS | 331 (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS |
332 (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS | 332 (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS |
333 (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS | 333 (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS |
334 (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS | 334 (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS |
335 (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA | 335 (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS |
336 (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA | 336 (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA |
337 (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA | 337 (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA |
338 (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA | 338 (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA |
339 (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON | 339 (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA |
340 (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA | 340 (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON |
341 (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA | 341 (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA |
342 (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA | 342 (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA |
343 (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA | 343 (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA |
344 (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA | 344 (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA |
345 (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA | 345 (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA |
346 (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU | 346 (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA |
347 (#xED ?\u03BD) ;; GREEK SMALL LETTER NU | 347 (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU |
348 (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI | 348 (#xED ?\u03BD) ;; GREEK SMALL LETTER NU |
349 (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON | 349 (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI |
350 (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI | 350 (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON |
351 (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO | 351 (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI |
352 (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA | 352 (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO |
353 (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA | 353 (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA |
354 (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU | 354 (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA |
355 (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON | 355 (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU |
356 (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI | 356 (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON |
357 (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI | 357 (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI |
358 (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI | 358 (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI |
359 (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA | 359 (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI |
360 (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA | 360 (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA |
361 (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA | 361 (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA |
362 (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS | 362 (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA |
363 (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS | 363 (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS |
364 (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS | 364 (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS |
365 "Microsoft's Code Page 1253, for monotonic Greek. " | 365 (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS |
366 '(mnemonic "GrkW" | 366 mnemonic "GrkW" |
367 documentation | 367 documentation |
368 "This ASCII-compatible encoding is slightly incompatibile with | 368 "Microsoft's Code Page 1253, for monotonic Greek. |
369 | |
370 This ASCII-compatible encoding is slightly incompatibile with | |
369 ISO-8859-7; it provides several widely-used punctuation marks in the C1 | 371 ISO-8859-7; it provides several widely-used punctuation marks in the C1 |
370 ISO-2022 area, which makes it incompatbile with the latter standard, but | 372 ISO-2022 area, which makes it incompatbile with the latter standard, but |
371 that latter standard is not used in Greece, " | 373 that latter standard is not used in Greece, " |
372 aliases (cp1253))) | 374 aliases (cp1253))) |
373 | 375 |