Mercurial > hg > xemacs-beta
annotate lisp/mule/greek.el @ 5015:d95c102a96d3
cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings)
-------------------- ChangeLog entries follow: --------------------
src/ChangeLog addition:
2010-02-08 Ben Wing <ben@xemacs.org>
* faces.c:
* faces.c (face_property_matching_instance):
* faces.c (ensure_face_cachel_contains_charset):
* faces.h (FACE_FONT):
* lisp.h:
* lisp.h (enum font_specifier_matchspec_stages):
* objects-msw.c:
* objects-msw.c (mswindows_font_spec_matches_charset):
* objects-msw.c (mswindows_find_charset_font):
* objects-tty.c:
* objects-tty.c (tty_font_spec_matches_charset):
* objects-tty.c (tty_find_charset_font):
* objects-xlike-inc.c:
* objects-xlike-inc.c (XFUN):
* objects-xlike-inc.c (xft_find_charset_font):
* objects.c:
* objects.c (font_instantiate):
* objects.c (FROB):
* specifier.c:
* specifier.c (charset_matches_specifier_tag_set_p):
* specifier.c (call_charset_predicate):
* specifier.c (define_specifier_tag):
* specifier.c (Fdefine_specifier_tag):
* specifier.c (setup_charset_initial_specifier_tags):
* specifier.c (specifier_instance_from_inst_list):
* specifier.c (FROB):
* specifier.c (vars_of_specifier):
* specifier.h:
Rename the specifier-font-matching stages in preparation for
eliminating shadowed warnings, some other related fixes from
ben-unicode-internal.
1. Rename raw enums:
initial -> STAGE_INITIAL
final -> STAGE_FINAL
impossible -> NUM_MATCHSPEC_STAGES
2. Move `enum font_specifier_matchspec_stages' from
specifier.h to lisp.h.
3. Whitespace changes to match coding standards.
4. Eliminate unused second argument STAGE in charset predicates
that don't use it -- the code that calls the charset predicates
is now smart enough to supply the right number of arguments
automatically.
5. Add some long(ish) comments and authorial notices, esp. in
objects.c.
6. In specifier.c, change Vcharset_tag_lists from a vector over
leading bytes to a hash table over charsets. This change is
unnecessary currently but doesn't hurt and will be required
when we merge in Unicode-internal.
7. In specifier.c, extract out the code that calls charset predicates
into a function call_charset_predicate().
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Mon, 08 Feb 2010 16:51:25 -0600 |
parents | 257b468bf2ca |
children | 308d34e9f07d |
rev | line source |
---|---|
502 | 1 ;;; greek.el --- Support for Greek -*- coding: iso-2022-7bit; -*- |
428 | 2 |
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. | |
4 ;; Licensed to the Free Software Foundation. | |
5 ;; Copyright (C) 1997 MORIOKA Tomohiko | |
6 | |
3767 | 7 ;; Keywords: multilingual, Greek, dumped |
428 | 8 |
9 ;; This file is part of XEmacs. | |
10 | |
11 ;; XEmacs is free software; you can redistribute it and/or modify it | |
12 ;; under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; XEmacs is distributed in the hope that it will be useful, but | |
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
19 ;; General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with XEmacs; see the file COPYING. If not, write to the Free | |
23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA | |
24 ;; 02111-1307, USA. | |
25 | |
26 ;;; Commentary: | |
27 | |
28 ;; For Greek, the character set ISO8859-7 is supported. | |
29 | |
30 ;;; Code: | |
31 | |
3767 | 32 ;; Case table: |
3748 | 33 (loop |
34 for (upper lower) | |
35 in '((#xdb #xfb) ;; UPSILON WITH DIALYTIKA | |
36 (#xda #xfa) ;; IOTA WITH DIALYTIKA | |
37 (#xd9 #xf9) ;; OMEGA | |
38 (#xd8 #xf8) ;; PSI | |
39 (#xd7 #xf7) ;; CHI | |
40 (#xd6 #xf6) ;; PHI | |
41 (#xd5 #xf5) ;; UPSILON | |
42 (#xd4 #xf4) ;; TAU | |
43 (#xd3 #xf3) ;; SIGMA | |
44 (#xd1 #xf1) ;; RHO | |
45 (#xd0 #xf0) ;; PI | |
46 (#xcf #xef) ;; OMICRON | |
47 (#xce #xee) ;; XI | |
48 (#xcd #xed) ;; NU | |
49 (#xcc #xec) ;; MU | |
50 (#xcb #xeb) ;; LAMDA | |
51 (#xca #xea) ;; KAPPA | |
52 (#xc9 #xe9) ;; IOTA | |
53 (#xc8 #xe8) ;; THETA | |
54 (#xc7 #xe7) ;; ETA | |
55 (#xc6 #xe6) ;; ZETA | |
56 (#xc5 #xe5) ;; EPSILON | |
57 (#xc4 #xe4) ;; DELTA | |
58 (#xc3 #xe3) ;; GAMMA | |
59 (#xc2 #xe2) ;; BETA | |
60 (#xc1 #xe1) ;; ALPHA | |
61 (#xbf #xfe) ;; OMEGA WITH TONOS | |
62 (#xbe #xfd) ;; UPSILON WITH TONOS | |
63 (#xbc #xfc) ;; OMICRON WITH TONOS | |
64 (#xba #xdf) ;; IOTA WITH TONOS | |
65 (#xb9 #xde) ;; ETA WITH TONOS | |
66 (#xb8 #xdd) ;; EPSILON WITH TONOS | |
67 (#xb6 #xdc) ;; ALPHA WITH TONOS | |
68 (#xD3 #xF2)) ;; FINAL SIGMA | |
69 ;; No case mappings for: | |
70 ;; | |
71 ;; (#xE0 "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS") | |
72 ;; (#xC0 "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS") | |
73 ;; | |
74 with case-table = (standard-case-table) | |
75 do | |
76 (put-case-table-pair (make-char 'greek-iso8859-7 upper) | |
77 (make-char 'greek-iso8859-7 lower) case-table)) | |
778 | 78 |
3767 | 79 ;; Now, syntax. Copy from appropriate characters in Latin 1. |
80 | |
81 ;; This code requires that the guillemets not have parenthesis syntax. | |
82 | |
83 (assert (not (memq (char-syntax (make-char 'latin-iso8859-1 #xAB)) '(?\( ?\)))) | |
84 t "This code assumes \xAB does not have parenthesis syntax. ") | |
85 | |
86 (assert (not (memq (char-syntax (make-char 'latin-iso8859-1 #xBB)) '(?\( ?\)))) | |
87 t "This code assumes \xBB does not have parenthesis syntax. ") | |
428 | 88 |
3767 | 89 (loop |
90 for (greek latin-1) | |
91 in '((#xA0 #xA0) ;; NO BREAK SPACE | |
92 (#xA1 #xAB) ;; LEFT SINGLE QUOTATION MARK, LEFT DOUBLE ANGLE QUOTE | |
93 (#xA2 #xBB) ;; RIGHT SINGLE QUOTATION MARK, RIGHT DOUBLE ANGLE QUOTE | |
94 (#xA3 #xA3) ;; POUND SIGN | |
95 (#xA4 #xA3) ;; EURO SIGN, POUND SIGN | |
96 (#xA5 #xA3) ;; DRACHMA SIGN, POUND SIGN | |
97 (#xA6 #xA6) ;; BROKEN BAR | |
98 (#xA7 #xA7) ;; SECTION SIGN | |
99 (#xA8 #xA8) ;; DIAERESIS | |
100 (#xA9 #xA9) ;; COPYRIGHT SIGN | |
101 (#xAA #xB4) ;; GREEK YPOGEGRAMMENI (iota subscript), ACUTE ACCENT | |
102 (#xAB #xAB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK | |
103 (#xAC #xAC) ;; NOT SIGN | |
104 (#xAD #xAD) ;; SOFT HYPHEN | |
105 (#xAF #xA6) ;; HORIZONTAL BAR, BROKEN BAR | |
106 (#xB0 #xB0) ;; DEGREE SIGN | |
107 (#xB1 #xB1) ;; PLUS-MINUS SIGN | |
108 (#xB2 #xB2) ;; SUPERSCRIPT TWO | |
109 (#xB3 #xB3) ;; SUPERSCRIPT THREE | |
110 (#xB4 #xB4) ;; GREEK TONOS, ACUTE ACCENT | |
111 (#xB5 #xB4) ;; GREEK DIALYTIKA TONOS, ACUTE ACCENT | |
112 (#xB7 #xB7) ;; MIDDLE DOT | |
113 (#xBB #xBB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK | |
114 (#xBD #xBD)) ;; VULGAR FRACTION ONE HALF | |
115 with syntax-table = (standard-syntax-table) | |
116 do (modify-syntax-entry | |
117 (make-char 'greek-iso8859-7 greek) | |
118 (string (char-syntax (make-char 'latin-iso8859-1 latin-1))) | |
119 syntax-table)) | |
428 | 120 |
4690
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
121 (make-coding-system |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
122 'iso-8859-7 'fixed-width "ISO-8859-7 (Greek)" |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
123 '(unicode-map |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
124 ((#x80 ?\u0080) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
125 (#x81 ?\u0081) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
126 (#x82 ?\u0082) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
127 (#x83 ?\u0083) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
128 (#x84 ?\u0084) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
129 (#x85 ?\u0085) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
130 (#x86 ?\u0086) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
131 (#x87 ?\u0087) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
132 (#x88 ?\u0088) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
133 (#x89 ?\u0089) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
134 (#x8A ?\u008A) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
135 (#x8B ?\u008B) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
136 (#x8C ?\u008C) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
137 (#x8D ?\u008D) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
138 (#x8E ?\u008E) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
139 (#x8F ?\u008F) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
140 (#x90 ?\u0090) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
141 (#x91 ?\u0091) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
142 (#x92 ?\u0092) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
143 (#x93 ?\u0093) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
144 (#x94 ?\u0094) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
145 (#x95 ?\u0095) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
146 (#x96 ?\u0096) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
147 (#x97 ?\u0097) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
148 (#x98 ?\u0098) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
149 (#x99 ?\u0099) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
150 (#x9A ?\u009A) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
151 (#x9B ?\u009B) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
152 (#x9C ?\u009C) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
153 (#x9D ?\u009D) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
154 (#x9E ?\u009E) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
155 (#x9F ?\u009F) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
156 (#xA0 ?\u00A0) ;; NO-BREAK SPACE |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
157 (#xA1 ?\u2018) ;; LEFT SINGLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
158 (#xA2 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
159 (#xA3 ?\u00A3) ;; POUND SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
160 (#xA4 ?\u20AC) ;; EURO SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
161 (#xA5 ?\u20AF) ;; DRACHMA SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
162 (#xA6 ?\u00A6) ;; BROKEN BAR |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
163 (#xA7 ?\u00A7) ;; SECTION SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
164 (#xA8 ?\u00A8) ;; DIAERESIS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
165 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
166 (#xAA ?\u037A) ;; GREEK YPOGEGRAMMENI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
167 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
168 (#xAC ?\u00AC) ;; NOT SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
169 (#xAD ?\u00AD) ;; SOFT HYPHEN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
170 (#xAF ?\u2015) ;; HORIZONTAL BAR |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
171 (#xB0 ?\u00B0) ;; DEGREE SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
172 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
173 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
174 (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
175 (#xB4 ?\u0384) ;; GREEK TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
176 (#xB5 ?\u0385) ;; GREEK DIALYTIKA TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
177 (#xB6 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
178 (#xB7 ?\u00B7) ;; MIDDLE DOT |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
179 (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
180 (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
181 (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
182 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
183 (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
184 (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
185 (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
186 (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
187 (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
188 (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
189 (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
190 (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
191 (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
192 (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
193 (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
194 (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
195 (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
196 (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
197 (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
198 (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
199 (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
200 (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
201 (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
202 (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
203 (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
204 (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
205 (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
206 (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
207 (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
208 (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
209 (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
210 (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
211 (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
212 (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
213 (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
214 (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
215 (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
216 (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
217 (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
218 (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
219 (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
220 (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
221 (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
222 (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
223 (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
224 (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
225 (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
226 (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
227 (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
228 (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
229 (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
230 (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
231 (#xED ?\u03BD) ;; GREEK SMALL LETTER NU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
232 (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
233 (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
234 (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
235 (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
236 (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
237 (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
238 (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
239 (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
240 (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
241 (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
242 (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
243 (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
244 (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
245 (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
246 (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
247 (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
248 (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
249 mnemonic "Grk" |
4299 | 250 aliases (greek-iso-8bit))) |
428 | 251 |
4690
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
252 (make-coding-system |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
253 'windows-1253 'fixed-width "Microsoft's CP1253" |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
254 '(unicode-map |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
255 ((#x80 ?\u20AC) ;; EURO SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
256 (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
257 (#x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
258 (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
259 (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
260 (#x86 ?\u2020) ;; DAGGER |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
261 (#x87 ?\u2021) ;; DOUBLE DAGGER |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
262 (#x89 ?\u2030) ;; PER MILLE SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
263 (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
264 (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
265 (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
266 (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
267 (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
268 (#x95 ?\u2022) ;; BULLET |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
269 (#x96 ?\u2013) ;; EN DASH |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
270 (#x97 ?\u2014) ;; EM DASH |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
271 (#x99 ?\u2122) ;; TRADE MARK SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
272 (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
273 (#xA0 ?\u00A0) ;; NO-BREAK SPACE |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
274 (#xA1 ?\u0385) ;; GREEK DIALYTIKA TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
275 (#xA2 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
276 (#xA3 ?\u00A3) ;; POUND SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
277 (#xA4 ?\u00A4) ;; CURRENCY SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
278 (#xA5 ?\u00A5) ;; YEN SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
279 (#xA6 ?\u00A6) ;; BROKEN BAR |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
280 (#xA7 ?\u00A7) ;; SECTION SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
281 (#xA8 ?\u00A8) ;; DIAERESIS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
282 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
283 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
284 (#xAC ?\u00AC) ;; NOT SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
285 (#xAD ?\u00AD) ;; SOFT HYPHEN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
286 (#xAE ?\u00AE) ;; REGISTERED SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
287 (#xAF ?\u2015) ;; HORIZONTAL BAR |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
288 (#xB0 ?\u00B0) ;; DEGREE SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
289 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
290 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
291 (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
292 (#xB4 ?\u0384) ;; GREEK TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
293 (#xB5 ?\u00B5) ;; MICRO SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
294 (#xB6 ?\u00B6) ;; PILCROW SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
295 (#xB7 ?\u00B7) ;; MIDDLE DOT |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
296 (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
297 (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
298 (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
299 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
300 (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
301 (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
302 (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
303 (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
304 (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
305 (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
306 (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
307 (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
308 (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
309 (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
310 (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
311 (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
312 (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
313 (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
314 (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
315 (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
316 (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
317 (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
318 (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
319 (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
320 (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
321 (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
322 (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
323 (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
324 (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
325 (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
326 (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
327 (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
328 (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
329 (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
330 (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
331 (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
332 (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
333 (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
334 (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
335 (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
336 (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
337 (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
338 (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
339 (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
340 (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
341 (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
342 (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
343 (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
344 (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
345 (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
346 (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
347 (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
348 (#xED ?\u03BD) ;; GREEK SMALL LETTER NU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
349 (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
350 (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
351 (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
352 (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
353 (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
354 (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
355 (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
356 (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
357 (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
358 (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
359 (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
360 (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
361 (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
362 (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
363 (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
364 (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
365 (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
366 mnemonic "GrkW" |
4299 | 367 documentation |
4690
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
368 "Microsoft's Code Page 1253, for monotonic Greek. |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
369 |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
370 This ASCII-compatible encoding is slightly incompatibile with |
4090 | 371 ISO-8859-7; it provides several widely-used punctuation marks in the C1 |
372 ISO-2022 area, which makes it incompatbile with the latter standard, but | |
373 that latter standard is not used in Greece, " | |
4299 | 374 aliases (cp1253))) |
4090 | 375 |
428 | 376 (set-language-info-alist |
377 "Greek" '((charset greek-iso8859-7) | |
378 (coding-system iso-8859-7) | |
379 (coding-priority iso-8859-7) | |
3769 | 380 (native-coding-system iso-8859-7) |
4490
67fbcaf3dbdc
error-sequence -> invalid-sequence
Aidan Kehoe <kehoea@parhasard.net>
parents:
4489
diff
changeset
|
381 (invalid-sequence-coding-system iso-8859-7) |
4090 | 382 (locale "el") |
428 | 383 (input-method . "greek") |
771 | 384 (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B") |
428 | 385 (documentation . t))) |
386 | |
4090 | 387 ;; Greek (WINDOWS-1253) will be generated automatically under Unix. |
388 | |
428 | 389 ;;; greek.el ends here |