Mercurial > hg > xemacs-beta
annotate lisp/mule/greek.el @ 5750:66d2f63df75f
Correct some spelling and formatting in behavior.el.
Mentioned in tracker issue 826, the third thing mentioned there (the file
name at the bottom of the file) had already been fixed.
lisp/ChangeLog addition:
2013-08-05 Aidan Kehoe <kehoea@parhasard.net>
* behavior.el:
(override-behavior):
Correct some spelling and formatting here, thank you Steven
Mitchell in tracker issue 826.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Mon, 05 Aug 2013 10:05:32 +0100 |
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 |