Mercurial > hg > xemacs-beta

annotate lisp/mule/greek.el @ 5591:c40d3f96af55 g++-warning-removal-2008-10-28

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