Mercurial > hg > xemacs-beta
annotate lisp/mule/greek.el @ 5818:15b0715c204d
Avoid passing patterns to with charset property to FcNameUnparse.
Prevents crash reported by Raymond Toy.
| author | Stephen J. Turnbull <stephen@xemacs.org> |
|---|---|
| date | Sat, 18 Oct 2014 21:20:42 +0900 |
| 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 |
