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