Mercurial > hg > xemacs-beta

comparison lisp/mule/greek.el @ 4090:751ae075e76e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-08-01 13:53:32 by aidan] Add some more locale information, Windows-1253, fix a make-8-bit-coding-system bug.
author aidan
date Wed, 01 Aug 2007 13:53:41 +0000
parents fbf54025c136
children f4c3ffe60a4f
comparison
equal deleted inserted replaced
4089:094d7cbe2c62 4090:751ae075e76e
124 charset-g1 greek-iso8859-7 124 charset-g1 greek-iso8859-7
125 charset-g2 t 125 charset-g2 t
126 charset-g3 t 126 charset-g3 t
127 mnemonic "Grk")) 127 mnemonic "Grk"))
128 128
129 ;; Windows 1253 may be provided automatically on Windows, in which case
130 ;; we don't need to provide it.
131 (unless (find-coding-system 'windows-1253)
132 (make-8-bit-coding-system
133 'windows-1253
134 '((#x80 ?\u20AC) ;; EURO SIGN
135 (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK
136 (#x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK
137 (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK
138 (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS
139 (#x86 ?\u2020) ;; DAGGER
140 (#x87 ?\u2021) ;; DOUBLE DAGGER
141 (#x89 ?\u2030) ;; PER MILLE SIGN
142 (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK
143 (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK
144 (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK
145 (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK
146 (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK
147 (#x95 ?\u2022) ;; BULLET
148 (#x96 ?\u2013) ;; EN DASH
149 (#x97 ?\u2014) ;; EM DASH
150 (#x99 ?\u2122) ;; TRADE MARK SIGN
151 (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
152 (#xA0 ?\u00A0) ;; NO-BREAK SPACE
153 (#xA1 ?\u0385) ;; GREEK DIALYTIKA TONOS
154 (#xA2 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS
155 (#xA3 ?\u00A3) ;; POUND SIGN
156 (#xA4 ?\u00A4) ;; CURRENCY SIGN
157 (#xA5 ?\u00A5) ;; YEN SIGN
158 (#xA6 ?\u00A6) ;; BROKEN BAR
159 (#xA7 ?\u00A7) ;; SECTION SIGN
160 (#xA8 ?\u00A8) ;; DIAERESIS
161 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
162 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
163 (#xAC ?\u00AC) ;; NOT SIGN
164 (#xAD ?\u00AD) ;; SOFT HYPHEN
165 (#xAE ?\u00AE) ;; REGISTERED SIGN
166 (#xAF ?\u2015) ;; HORIZONTAL BAR
167 (#xB0 ?\u00B0) ;; DEGREE SIGN
168 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
169 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO
170 (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE
171 (#xB4 ?\u0384) ;; GREEK TONOS
172 (#xB5 ?\u00B5) ;; MICRO SIGN
173 (#xB6 ?\u00B6) ;; PILCROW SIGN
174 (#xB7 ?\u00B7) ;; MIDDLE DOT
175 (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS
176 (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS
177 (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS
178 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
179 (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS
180 (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF
181 (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS
182 (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS
183 (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
184 (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA
185 (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA
186 (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA
187 (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA
188 (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON
189 (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA
190 (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA
191 (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA
192 (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA
193 (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA
194 (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA
195 (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU
196 (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU
197 (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI
198 (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON
199 (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI
200 (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO
201 (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA
202 (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU
203 (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON
204 (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI
205 (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI
206 (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI
207 (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA
208 (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
209 (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
210 (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS
211 (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS
212 (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS
213 (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS
214 (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
215 (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA
216 (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA
217 (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA
218 (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA
219 (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON
220 (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA
221 (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA
222 (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA
223 (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA
224 (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA
225 (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA
226 (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU
227 (#xED ?\u03BD) ;; GREEK SMALL LETTER NU
228 (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI
229 (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON
230 (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI
231 (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO
232 (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA
233 (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA
234 (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU
235 (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON
236 (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI
237 (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI
238 (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI
239 (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA
240 (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA
241 (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA
242 (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS
243 (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS
244 (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS
245 "Microsoft's Code Page 1253, for monotonic Greek. "
246 '(mnemonic "GrkW"
247 documentation
248 "This ASCII-compatible encoding is slightly incompatibile with
249 ISO-8859-7; it provides several widely-used punctuation marks in the C1
250 ISO-2022 area, which makes it incompatbile with the latter standard, but
251 that latter standard is not used in Greece, "
252 aliases (cp1253))))
253
129 (set-language-info-alist 254 (set-language-info-alist
130 "Greek" '((charset greek-iso8859-7) 255 "Greek" '((charset greek-iso8859-7)
131 (coding-system iso-8859-7) 256 (coding-system iso-8859-7)
132 (coding-priority iso-8859-7) 257 (coding-priority iso-8859-7)
133 (native-coding-system iso-8859-7) 258 (native-coding-system iso-8859-7)
134 (locale "el_GR.iso88597" "el_GR.greek8" "el_GR" "greek" "el") 259 (locale "el")
135 (input-method . "greek") 260 (input-method . "greek")
136 (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B") 261 (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B")
137 (documentation . t))) 262 (documentation . t)))
138 263
264 ;; Greek (WINDOWS-1253) will be generated automatically under Unix.
265
139 ;;; greek.el ends here 266 ;;; greek.el ends here