Mercurial > hg > xemacs-beta
annotate lisp/mule/greek.el @ 5408:9fc91aa3a927
Converted tooltalk to GPLv3 according to GPLv3 source survey analysis.
author | Mats Lidell <matsl@xemacs.org> |
---|---|
date | Tue, 19 Oct 2010 23:34:53 +0200 |
parents | 308d34e9f07d |
children |
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 | |
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4690
diff
changeset
|
11 ;; XEmacs is free software: you can redistribute it and/or modify it |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4690
diff
changeset
|
12 ;; under the terms of the GNU General Public License as published by the |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4690
diff
changeset
|
13 ;; Free Software Foundation, either version 3 of the License, or (at your |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4690
diff
changeset
|
14 ;; option) any later version. |
428 | 15 |
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4690
diff
changeset
|
16 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4690
diff
changeset
|
17 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4690
diff
changeset
|
18 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4690
diff
changeset
|
19 ;; for more details. |
428 | 20 |
21 ;; You should have received a copy of the GNU General Public License | |
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
4690
diff
changeset
|
22 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
428 | 23 |
24 ;;; Commentary: | |
25 | |
26 ;; For Greek, the character set ISO8859-7 is supported. | |
27 | |
28 ;;; Code: | |
29 | |
3767 | 30 ;; Case table: |
3748 | 31 (loop |
32 for (upper lower) | |
33 in '((#xdb #xfb) ;; UPSILON WITH DIALYTIKA | |
34 (#xda #xfa) ;; IOTA WITH DIALYTIKA | |
35 (#xd9 #xf9) ;; OMEGA | |
36 (#xd8 #xf8) ;; PSI | |
37 (#xd7 #xf7) ;; CHI | |
38 (#xd6 #xf6) ;; PHI | |
39 (#xd5 #xf5) ;; UPSILON | |
40 (#xd4 #xf4) ;; TAU | |
41 (#xd3 #xf3) ;; SIGMA | |
42 (#xd1 #xf1) ;; RHO | |
43 (#xd0 #xf0) ;; PI | |
44 (#xcf #xef) ;; OMICRON | |
45 (#xce #xee) ;; XI | |
46 (#xcd #xed) ;; NU | |
47 (#xcc #xec) ;; MU | |
48 (#xcb #xeb) ;; LAMDA | |
49 (#xca #xea) ;; KAPPA | |
50 (#xc9 #xe9) ;; IOTA | |
51 (#xc8 #xe8) ;; THETA | |
52 (#xc7 #xe7) ;; ETA | |
53 (#xc6 #xe6) ;; ZETA | |
54 (#xc5 #xe5) ;; EPSILON | |
55 (#xc4 #xe4) ;; DELTA | |
56 (#xc3 #xe3) ;; GAMMA | |
57 (#xc2 #xe2) ;; BETA | |
58 (#xc1 #xe1) ;; ALPHA | |
59 (#xbf #xfe) ;; OMEGA WITH TONOS | |
60 (#xbe #xfd) ;; UPSILON WITH TONOS | |
61 (#xbc #xfc) ;; OMICRON WITH TONOS | |
62 (#xba #xdf) ;; IOTA WITH TONOS | |
63 (#xb9 #xde) ;; ETA WITH TONOS | |
64 (#xb8 #xdd) ;; EPSILON WITH TONOS | |
65 (#xb6 #xdc) ;; ALPHA WITH TONOS | |
66 (#xD3 #xF2)) ;; FINAL SIGMA | |
67 ;; No case mappings for: | |
68 ;; | |
69 ;; (#xE0 "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS") | |
70 ;; (#xC0 "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS") | |
71 ;; | |
72 with case-table = (standard-case-table) | |
73 do | |
74 (put-case-table-pair (make-char 'greek-iso8859-7 upper) | |
75 (make-char 'greek-iso8859-7 lower) case-table)) | |
778 | 76 |
3767 | 77 ;; Now, syntax. Copy from appropriate characters in Latin 1. |
78 | |
79 ;; This code requires that the guillemets not have parenthesis syntax. | |
80 | |
81 (assert (not (memq (char-syntax (make-char 'latin-iso8859-1 #xAB)) '(?\( ?\)))) | |
82 t "This code assumes \xAB does not have parenthesis syntax. ") | |
83 | |
84 (assert (not (memq (char-syntax (make-char 'latin-iso8859-1 #xBB)) '(?\( ?\)))) | |
85 t "This code assumes \xBB does not have parenthesis syntax. ") | |
428 | 86 |
3767 | 87 (loop |
88 for (greek latin-1) | |
89 in '((#xA0 #xA0) ;; NO BREAK SPACE | |
90 (#xA1 #xAB) ;; LEFT SINGLE QUOTATION MARK, LEFT DOUBLE ANGLE QUOTE | |
91 (#xA2 #xBB) ;; RIGHT SINGLE QUOTATION MARK, RIGHT DOUBLE ANGLE QUOTE | |
92 (#xA3 #xA3) ;; POUND SIGN | |
93 (#xA4 #xA3) ;; EURO SIGN, POUND SIGN | |
94 (#xA5 #xA3) ;; DRACHMA SIGN, POUND SIGN | |
95 (#xA6 #xA6) ;; BROKEN BAR | |
96 (#xA7 #xA7) ;; SECTION SIGN | |
97 (#xA8 #xA8) ;; DIAERESIS | |
98 (#xA9 #xA9) ;; COPYRIGHT SIGN | |
99 (#xAA #xB4) ;; GREEK YPOGEGRAMMENI (iota subscript), ACUTE ACCENT | |
100 (#xAB #xAB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK | |
101 (#xAC #xAC) ;; NOT SIGN | |
102 (#xAD #xAD) ;; SOFT HYPHEN | |
103 (#xAF #xA6) ;; HORIZONTAL BAR, BROKEN BAR | |
104 (#xB0 #xB0) ;; DEGREE SIGN | |
105 (#xB1 #xB1) ;; PLUS-MINUS SIGN | |
106 (#xB2 #xB2) ;; SUPERSCRIPT TWO | |
107 (#xB3 #xB3) ;; SUPERSCRIPT THREE | |
108 (#xB4 #xB4) ;; GREEK TONOS, ACUTE ACCENT | |
109 (#xB5 #xB4) ;; GREEK DIALYTIKA TONOS, ACUTE ACCENT | |
110 (#xB7 #xB7) ;; MIDDLE DOT | |
111 (#xBB #xBB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK | |
112 (#xBD #xBD)) ;; VULGAR FRACTION ONE HALF | |
113 with syntax-table = (standard-syntax-table) | |
114 do (modify-syntax-entry | |
115 (make-char 'greek-iso8859-7 greek) | |
116 (string (char-syntax (make-char 'latin-iso8859-1 latin-1))) | |
117 syntax-table)) | |
428 | 118 |
4690
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
119 (make-coding-system |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
120 '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
|
121 '(unicode-map |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
122 ((#x80 ?\u0080) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
123 (#x81 ?\u0081) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
124 (#x82 ?\u0082) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
125 (#x83 ?\u0083) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
126 (#x84 ?\u0084) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
127 (#x85 ?\u0085) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
128 (#x86 ?\u0086) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
129 (#x87 ?\u0087) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
130 (#x88 ?\u0088) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
131 (#x89 ?\u0089) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
132 (#x8A ?\u008A) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
133 (#x8B ?\u008B) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
134 (#x8C ?\u008C) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
135 (#x8D ?\u008D) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
136 (#x8E ?\u008E) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
137 (#x8F ?\u008F) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
138 (#x90 ?\u0090) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
139 (#x91 ?\u0091) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
140 (#x92 ?\u0092) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
141 (#x93 ?\u0093) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
142 (#x94 ?\u0094) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
143 (#x95 ?\u0095) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
144 (#x96 ?\u0096) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
145 (#x97 ?\u0097) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
146 (#x98 ?\u0098) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
147 (#x99 ?\u0099) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
148 (#x9A ?\u009A) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
149 (#x9B ?\u009B) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
150 (#x9C ?\u009C) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
151 (#x9D ?\u009D) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
152 (#x9E ?\u009E) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
153 (#x9F ?\u009F) ;; <control> |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
154 (#xA0 ?\u00A0) ;; NO-BREAK SPACE |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
155 (#xA1 ?\u2018) ;; LEFT SINGLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
156 (#xA2 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
157 (#xA3 ?\u00A3) ;; POUND SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
158 (#xA4 ?\u20AC) ;; EURO SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
159 (#xA5 ?\u20AF) ;; DRACHMA SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
160 (#xA6 ?\u00A6) ;; BROKEN BAR |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
161 (#xA7 ?\u00A7) ;; SECTION SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
162 (#xA8 ?\u00A8) ;; DIAERESIS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
163 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
164 (#xAA ?\u037A) ;; GREEK YPOGEGRAMMENI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
165 (#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
|
166 (#xAC ?\u00AC) ;; NOT SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
167 (#xAD ?\u00AD) ;; SOFT HYPHEN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
168 (#xAF ?\u2015) ;; HORIZONTAL BAR |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
169 (#xB0 ?\u00B0) ;; DEGREE SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
170 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
171 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
172 (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
173 (#xB4 ?\u0384) ;; GREEK TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
174 (#xB5 ?\u0385) ;; GREEK DIALYTIKA TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
175 (#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
|
176 (#xB7 ?\u00B7) ;; MIDDLE DOT |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
177 (#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
|
178 (#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
|
179 (#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
|
180 (#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
|
181 (#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
|
182 (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
183 (#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
|
184 (#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
|
185 (#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
|
186 (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
187 (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
188 (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
189 (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
190 (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
191 (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
192 (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
193 (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
194 (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
195 (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
196 (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
197 (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
198 (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
199 (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
200 (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
201 (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
202 (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
203 (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
204 (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
205 (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
206 (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
207 (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
208 (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
209 (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
210 (#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
|
211 (#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
|
212 (#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
|
213 (#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
|
214 (#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
|
215 (#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
|
216 (#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
|
217 (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
218 (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
219 (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
220 (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
221 (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
222 (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
223 (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
224 (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
225 (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
226 (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
227 (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
228 (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
229 (#xED ?\u03BD) ;; GREEK SMALL LETTER NU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
230 (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
231 (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
232 (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
233 (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
234 (#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
|
235 (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
236 (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
237 (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
238 (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
239 (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
240 (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
241 (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
242 (#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
|
243 (#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
|
244 (#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
|
245 (#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
|
246 (#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
|
247 mnemonic "Grk" |
4299 | 248 aliases (greek-iso-8bit))) |
428 | 249 |
4690
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
250 (make-coding-system |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
251 '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
|
252 '(unicode-map |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
253 ((#x80 ?\u20AC) ;; EURO SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
254 (#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
|
255 (#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
|
256 (#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
|
257 (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
258 (#x86 ?\u2020) ;; DAGGER |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
259 (#x87 ?\u2021) ;; DOUBLE DAGGER |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
260 (#x89 ?\u2030) ;; PER MILLE SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
261 (#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
|
262 (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
263 (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
264 (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
265 (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
266 (#x95 ?\u2022) ;; BULLET |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
267 (#x96 ?\u2013) ;; EN DASH |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
268 (#x97 ?\u2014) ;; EM DASH |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
269 (#x99 ?\u2122) ;; TRADE MARK SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
270 (#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
|
271 (#xA0 ?\u00A0) ;; NO-BREAK SPACE |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
272 (#xA1 ?\u0385) ;; GREEK DIALYTIKA TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
273 (#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
|
274 (#xA3 ?\u00A3) ;; POUND SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
275 (#xA4 ?\u00A4) ;; CURRENCY SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
276 (#xA5 ?\u00A5) ;; YEN SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
277 (#xA6 ?\u00A6) ;; BROKEN BAR |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
278 (#xA7 ?\u00A7) ;; SECTION SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
279 (#xA8 ?\u00A8) ;; DIAERESIS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
280 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
281 (#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
|
282 (#xAC ?\u00AC) ;; NOT SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
283 (#xAD ?\u00AD) ;; SOFT HYPHEN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
284 (#xAE ?\u00AE) ;; REGISTERED SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
285 (#xAF ?\u2015) ;; HORIZONTAL BAR |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
286 (#xB0 ?\u00B0) ;; DEGREE SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
287 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
288 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
289 (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
290 (#xB4 ?\u0384) ;; GREEK TONOS |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
291 (#xB5 ?\u00B5) ;; MICRO SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
292 (#xB6 ?\u00B6) ;; PILCROW SIGN |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
293 (#xB7 ?\u00B7) ;; MIDDLE DOT |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
294 (#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
|
295 (#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
|
296 (#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
|
297 (#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
|
298 (#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
|
299 (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
300 (#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
|
301 (#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
|
302 (#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
|
303 (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
304 (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
305 (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
306 (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
307 (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
308 (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
309 (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
310 (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
311 (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
312 (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
313 (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
314 (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
315 (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
316 (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
317 (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
318 (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
319 (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
320 (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
321 (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
322 (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
323 (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
324 (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
325 (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
326 (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
327 (#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
|
328 (#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
|
329 (#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
|
330 (#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
|
331 (#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
|
332 (#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
|
333 (#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
|
334 (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
335 (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
336 (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
337 (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
338 (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
339 (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
340 (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
341 (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
342 (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
343 (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
344 (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
345 (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
346 (#xED ?\u03BD) ;; GREEK SMALL LETTER NU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
347 (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
348 (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
349 (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
350 (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
351 (#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
|
352 (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
353 (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
354 (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
355 (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
356 (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
357 (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
358 (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
359 (#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
|
360 (#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
|
361 (#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
|
362 (#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
|
363 (#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
|
364 mnemonic "GrkW" |
4299 | 365 documentation |
4690
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
366 "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
|
367 |
257b468bf2ca
Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4604
diff
changeset
|
368 This ASCII-compatible encoding is slightly incompatibile with |
4090 | 369 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 | |
371 that latter standard is not used in Greece, " | |
4299 | 372 aliases (cp1253))) |
4090 | 373 |
428 | 374 (set-language-info-alist |
375 "Greek" '((charset greek-iso8859-7) | |
376 (coding-system iso-8859-7) | |
377 (coding-priority iso-8859-7) | |
3769 | 378 (native-coding-system iso-8859-7) |
4490
67fbcaf3dbdc
error-sequence -> invalid-sequence
Aidan Kehoe <kehoea@parhasard.net>
parents:
4489
diff
changeset
|
379 (invalid-sequence-coding-system iso-8859-7) |
4090 | 380 (locale "el") |
428 | 381 (input-method . "greek") |
771 | 382 (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B") |
428 | 383 (documentation . t))) |
384 | |
4090 | 385 ;; Greek (WINDOWS-1253) will be generated automatically under Unix. |
386 | |
428 | 387 ;;; greek.el ends here |