Mercurial > hg > xemacs-beta
diff lisp/mule/greek.el @ 4299:f4c3ffe60a4f
[xemacs-hg @ 2007-12-01 14:24:46 by aidan]
Switch away from ISO 2022 for the ISO-8859 character sets.
| author | aidan |
|---|---|
| date | Sat, 01 Dec 2007 14:24:52 +0000 |
| parents | 751ae075e76e |
| children | b75b075a9041 |
line wrap: on
line diff
--- a/lisp/mule/greek.el Sat Dec 01 13:40:07 2007 +0000 +++ b/lisp/mule/greek.el Sat Dec 01 14:24:52 2007 +0000 @@ -118,138 +118,210 @@ (string (char-syntax (make-char 'latin-iso8859-1 latin-1))) syntax-table)) -(make-coding-system - 'iso-8859-7 'iso2022 "ISO-8859-7 (Greek)" - '(charset-g0 ascii - charset-g1 greek-iso8859-7 - charset-g2 t - charset-g3 t - mnemonic "Grk")) +(make-8-bit-coding-system + 'iso-8859-7 + '((#xA1 ?\u2018) ;; LEFT SINGLE QUOTATION MARK + (#xA2 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK + (#xA4 ?\u20AC) ;; EURO SIGN + (#xA5 ?\u20AF) ;; DRACHMA SIGN + (#xAA ?\u037A) ;; GREEK YPOGEGRAMMENI + (#xAF ?\u2015) ;; HORIZONTAL BAR + (#xB4 ?\u0384) ;; GREEK TONOS + (#xB5 ?\u0385) ;; GREEK DIALYTIKA TONOS + (#xB6 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS + (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS + (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS + (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS + (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS + (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS + (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS + (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS + (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA + (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA + (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA + (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA + (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON + (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA + (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA + (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA + (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA + (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA + (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA + (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU + (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU + (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI + (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON + (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI + (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO + (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA + (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU + (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON + (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI + (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI + (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI + (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA + (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA + (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA + (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS + (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS + (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS + (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS + (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS + (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA + (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA + (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA + (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA + (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON + (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA + (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA + (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA + (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA + (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA + (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA + (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU + (#xED ?\u03BD) ;; GREEK SMALL LETTER NU + (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI + (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON + (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI + (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO + (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA + (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA + (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU + (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON + (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI + (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI + (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI + (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA + (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA + (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA + (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS + (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS + (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS + "ISO-8859-7 (Greek)" + '(mnemonic "Grk" + aliases (greek-iso-8bit))) -;; Windows 1253 may be provided automatically on Windows, in which case -;; we don't need to provide it. -(unless (find-coding-system 'windows-1253) - (make-8-bit-coding-system - 'windows-1253 - '((#x80 ?\u20AC) ;; EURO SIGN - (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK - (#x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK - (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK - (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS - (#x86 ?\u2020) ;; DAGGER - (#x87 ?\u2021) ;; DOUBLE DAGGER - (#x89 ?\u2030) ;; PER MILLE SIGN - (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK - (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK - (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK - (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK - (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK - (#x95 ?\u2022) ;; BULLET - (#x96 ?\u2013) ;; EN DASH - (#x97 ?\u2014) ;; EM DASH - (#x99 ?\u2122) ;; TRADE MARK SIGN - (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK - (#xA0 ?\u00A0) ;; NO-BREAK SPACE - (#xA1 ?\u0385) ;; GREEK DIALYTIKA TONOS - (#xA2 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS - (#xA3 ?\u00A3) ;; POUND SIGN - (#xA4 ?\u00A4) ;; CURRENCY SIGN - (#xA5 ?\u00A5) ;; YEN SIGN - (#xA6 ?\u00A6) ;; BROKEN BAR - (#xA7 ?\u00A7) ;; SECTION SIGN - (#xA8 ?\u00A8) ;; DIAERESIS - (#xA9 ?\u00A9) ;; COPYRIGHT SIGN - (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK - (#xAC ?\u00AC) ;; NOT SIGN - (#xAD ?\u00AD) ;; SOFT HYPHEN - (#xAE ?\u00AE) ;; REGISTERED SIGN - (#xAF ?\u2015) ;; HORIZONTAL BAR - (#xB0 ?\u00B0) ;; DEGREE SIGN - (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN - (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO - (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE - (#xB4 ?\u0384) ;; GREEK TONOS - (#xB5 ?\u00B5) ;; MICRO SIGN - (#xB6 ?\u00B6) ;; PILCROW SIGN - (#xB7 ?\u00B7) ;; MIDDLE DOT - (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS - (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS - (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS - (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK - (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS - (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF - (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS - (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS - (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS - (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA - (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA - (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA - (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA - (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON - (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA - (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA - (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA - (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA - (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA - (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA - (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU - (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU - (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI - (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON - (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI - (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO - (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA - (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU - (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON - (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI - (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI - (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI - (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA - (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA - (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA - (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS - (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS - (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS - (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS - (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS - (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA - (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA - (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA - (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA - (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON - (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA - (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA - (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA - (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA - (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA - (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA - (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU - (#xED ?\u03BD) ;; GREEK SMALL LETTER NU - (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI - (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON - (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI - (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO - (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA - (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA - (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU - (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON - (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI - (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI - (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI - (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA - (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA - (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA - (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS - (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS - (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS - "Microsoft's Code Page 1253, for monotonic Greek. " - '(mnemonic "GrkW" - documentation - "This ASCII-compatible encoding is slightly incompatibile with +(make-8-bit-coding-system + 'windows-1253 + '((#x80 ?\u20AC) ;; EURO SIGN + (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK + (#x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK + (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK + (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS + (#x86 ?\u2020) ;; DAGGER + (#x87 ?\u2021) ;; DOUBLE DAGGER + (#x89 ?\u2030) ;; PER MILLE SIGN + (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK + (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK + (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK + (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK + (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK + (#x95 ?\u2022) ;; BULLET + (#x96 ?\u2013) ;; EN DASH + (#x97 ?\u2014) ;; EM DASH + (#x99 ?\u2122) ;; TRADE MARK SIGN + (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK + (#xA0 ?\u00A0) ;; NO-BREAK SPACE + (#xA1 ?\u0385) ;; GREEK DIALYTIKA TONOS + (#xA2 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS + (#xA3 ?\u00A3) ;; POUND SIGN + (#xA4 ?\u00A4) ;; CURRENCY SIGN + (#xA5 ?\u00A5) ;; YEN SIGN + (#xA6 ?\u00A6) ;; BROKEN BAR + (#xA7 ?\u00A7) ;; SECTION SIGN + (#xA8 ?\u00A8) ;; DIAERESIS + (#xA9 ?\u00A9) ;; COPYRIGHT SIGN + (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK + (#xAC ?\u00AC) ;; NOT SIGN + (#xAD ?\u00AD) ;; SOFT HYPHEN + (#xAE ?\u00AE) ;; REGISTERED SIGN + (#xAF ?\u2015) ;; HORIZONTAL BAR + (#xB0 ?\u00B0) ;; DEGREE SIGN + (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN + (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO + (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE + (#xB4 ?\u0384) ;; GREEK TONOS + (#xB5 ?\u00B5) ;; MICRO SIGN + (#xB6 ?\u00B6) ;; PILCROW SIGN + (#xB7 ?\u00B7) ;; MIDDLE DOT + (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS + (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS + (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS + (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK + (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS + (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF + (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS + (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS + (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS + (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA + (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA + (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA + (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA + (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON + (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA + (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA + (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA + (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA + (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA + (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA + (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU + (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU + (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI + (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON + (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI + (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO + (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA + (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU + (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON + (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI + (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI + (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI + (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA + (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA + (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA + (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS + (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS + (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS + (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS + (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS + (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA + (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA + (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA + (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA + (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON + (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA + (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA + (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA + (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA + (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA + (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA + (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU + (#xED ?\u03BD) ;; GREEK SMALL LETTER NU + (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI + (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON + (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI + (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO + (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA + (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA + (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU + (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON + (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI + (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI + (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI + (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA + (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA + (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA + (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS + (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS + (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS + "Microsoft's Code Page 1253, for monotonic Greek. " + '(mnemonic "GrkW" + documentation + "This ASCII-compatible encoding is slightly incompatibile with ISO-8859-7; it provides several widely-used punctuation marks in the C1 ISO-2022 area, which makes it incompatbile with the latter standard, but that latter standard is not used in Greece, " - aliases (cp1253)))) + aliases (cp1253))) (set-language-info-alist "Greek" '((charset greek-iso8859-7)