Mercurial > hg > xemacs-beta

annotate lisp/mule/greek.el @ 5287:cd167465bf69

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More permission consistency.
author Stephen J. Turnbull <stephen@xemacs.org>
date Mon, 14 Jun 2010 15:03:08 +0900
parents 257b468bf2ca
children 308d34e9f07d
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
4690
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
121 (make-coding-system
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
122 'iso-8859-7 'fixed-width "ISO-8859-7 (Greek)"
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
123 '(unicode-map
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
124 ((#x80 ?\u0080) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
125 (#x81 ?\u0081) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
126 (#x82 ?\u0082) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
127 (#x83 ?\u0083) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
128 (#x84 ?\u0084) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
129 (#x85 ?\u0085) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
130 (#x86 ?\u0086) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
131 (#x87 ?\u0087) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
132 (#x88 ?\u0088) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
133 (#x89 ?\u0089) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
134 (#x8A ?\u008A) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
135 (#x8B ?\u008B) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
136 (#x8C ?\u008C) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
137 (#x8D ?\u008D) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
138 (#x8E ?\u008E) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
139 (#x8F ?\u008F) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
140 (#x90 ?\u0090) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
141 (#x91 ?\u0091) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
142 (#x92 ?\u0092) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
143 (#x93 ?\u0093) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
144 (#x94 ?\u0094) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
145 (#x95 ?\u0095) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
146 (#x96 ?\u0096) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
147 (#x97 ?\u0097) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
148 (#x98 ?\u0098) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
149 (#x99 ?\u0099) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
150 (#x9A ?\u009A) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
151 (#x9B ?\u009B) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
152 (#x9C ?\u009C) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
153 (#x9D ?\u009D) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
154 (#x9E ?\u009E) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
155 (#x9F ?\u009F) ;; <control>
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
156 (#xA0 ?\u00A0) ;; NO-BREAK SPACE
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
157 (#xA1 ?\u2018) ;; LEFT SINGLE QUOTATION MARK
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
158 (#xA2 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
159 (#xA3 ?\u00A3) ;; POUND SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
160 (#xA4 ?\u20AC) ;; EURO SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
161 (#xA5 ?\u20AF) ;; DRACHMA SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
162 (#xA6 ?\u00A6) ;; BROKEN BAR
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
163 (#xA7 ?\u00A7) ;; SECTION SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
164 (#xA8 ?\u00A8) ;; DIAERESIS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
165 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
166 (#xAA ?\u037A) ;; GREEK YPOGEGRAMMENI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
167 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
168 (#xAC ?\u00AC) ;; NOT SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
169 (#xAD ?\u00AD) ;; SOFT HYPHEN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
170 (#xAF ?\u2015) ;; HORIZONTAL BAR
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
171 (#xB0 ?\u00B0) ;; DEGREE SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
172 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
173 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
174 (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
175 (#xB4 ?\u0384) ;; GREEK TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
176 (#xB5 ?\u0385) ;; GREEK DIALYTIKA TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
177 (#xB6 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
178 (#xB7 ?\u00B7) ;; MIDDLE DOT
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
179 (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
180 (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
181 (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
182 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
183 (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
184 (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
185 (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
186 (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
187 (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
188 (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
189 (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
190 (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
191 (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
192 (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
193 (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
194 (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
195 (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
196 (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
197 (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
198 (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
199 (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
200 (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
201 (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
202 (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
203 (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
204 (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
205 (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
206 (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
207 (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
208 (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
209 (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
210 (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
211 (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
212 (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
213 (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
214 (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
215 (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
216 (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
217 (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
218 (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
219 (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
220 (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
221 (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
222 (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
223 (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
224 (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
225 (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
226 (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
227 (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
228 (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
229 (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
230 (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
231 (#xED ?\u03BD) ;; GREEK SMALL LETTER NU
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
232 (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
233 (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
234 (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
235 (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
236 (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
237 (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
238 (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
239 (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
240 (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
241 (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
242 (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
243 (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
244 (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
245 (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
246 (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
247 (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
248 (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
249 mnemonic "Grk"
4299
f4c3ffe60a4f [xemacs-hg @ 2007-12-01 14:24:46 by aidan]
aidan
parents: 4090
diff changeset
250 aliases (greek-iso-8bit)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251
4690
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
252 (make-coding-system
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
253 'windows-1253 'fixed-width "Microsoft's CP1253"
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
254 '(unicode-map
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
255 ((#x80 ?\u20AC) ;; EURO SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
256 (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
257 (#x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
258 (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
259 (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
260 (#x86 ?\u2020) ;; DAGGER
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
261 (#x87 ?\u2021) ;; DOUBLE DAGGER
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
262 (#x89 ?\u2030) ;; PER MILLE SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
263 (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
264 (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
265 (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
266 (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
267 (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
268 (#x95 ?\u2022) ;; BULLET
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
269 (#x96 ?\u2013) ;; EN DASH
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
270 (#x97 ?\u2014) ;; EM DASH
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
271 (#x99 ?\u2122) ;; TRADE MARK SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
272 (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
273 (#xA0 ?\u00A0) ;; NO-BREAK SPACE
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
274 (#xA1 ?\u0385) ;; GREEK DIALYTIKA TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
275 (#xA2 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
276 (#xA3 ?\u00A3) ;; POUND SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
277 (#xA4 ?\u00A4) ;; CURRENCY SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
278 (#xA5 ?\u00A5) ;; YEN SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
279 (#xA6 ?\u00A6) ;; BROKEN BAR
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
280 (#xA7 ?\u00A7) ;; SECTION SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
281 (#xA8 ?\u00A8) ;; DIAERESIS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
282 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
283 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
284 (#xAC ?\u00AC) ;; NOT SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
285 (#xAD ?\u00AD) ;; SOFT HYPHEN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
286 (#xAE ?\u00AE) ;; REGISTERED SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
287 (#xAF ?\u2015) ;; HORIZONTAL BAR
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
288 (#xB0 ?\u00B0) ;; DEGREE SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
289 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
290 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
291 (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
292 (#xB4 ?\u0384) ;; GREEK TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
293 (#xB5 ?\u00B5) ;; MICRO SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
294 (#xB6 ?\u00B6) ;; PILCROW SIGN
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
295 (#xB7 ?\u00B7) ;; MIDDLE DOT
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
296 (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
297 (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
298 (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
299 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
300 (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
301 (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
302 (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
303 (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
304 (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
305 (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
306 (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
307 (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
308 (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
309 (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
310 (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
311 (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
312 (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
313 (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
314 (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
315 (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
316 (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
317 (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
318 (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
319 (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
320 (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
321 (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
322 (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
323 (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
324 (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
325 (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
326 (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
327 (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
328 (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
329 (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
330 (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
331 (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
332 (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
333 (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
334 (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
335 (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
336 (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
337 (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
338 (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
339 (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
340 (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
341 (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
342 (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
343 (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
344 (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
345 (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
346 (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
347 (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
348 (#xED ?\u03BD) ;; GREEK SMALL LETTER NU
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
349 (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
350 (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
351 (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
352 (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
353 (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
354 (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
355 (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
356 (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
357 (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
358 (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
359 (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
360 (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
361 (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
362 (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
363 (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
364 (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
365 (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
366 mnemonic "GrkW"
4299
f4c3ffe60a4f [xemacs-hg @ 2007-12-01 14:24:46 by aidan]
aidan
parents: 4090
diff changeset
367 documentation
4690
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
368 "Microsoft's Code Page 1253, for monotonic Greek.
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
369
257b468bf2ca Move the #'query-coding-region implementation to C.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4604
diff changeset
370 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
371 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
372 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
373 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
374 aliases (cp1253)))
4090
751ae075e76e [xemacs-hg @ 2007-08-01 13:53:32 by aidan]
aidan
parents: 3769
diff changeset
375
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 (set-language-info-alist
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 "Greek" '((charset greek-iso8859-7)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 (coding-system iso-8859-7)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 (coding-priority iso-8859-7)
3769
fbf54025c136 [xemacs-hg @ 2006-12-30 17:04:26 by aidan]
aidan
parents: 3767
diff changeset
380 (native-coding-system iso-8859-7)
4490
67fbcaf3dbdc error-sequence -> invalid-sequence
Aidan Kehoe <kehoea@parhasard.net>
parents: 4489
diff changeset
381 (invalid-sequence-coding-system iso-8859-7)
4090
751ae075e76e [xemacs-hg @ 2007-08-01 13:53:32 by aidan]
aidan
parents: 3769
diff changeset
382 (locale "el")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 (input-method . "greek")
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
384 (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 (documentation . t)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386
4090
751ae075e76e [xemacs-hg @ 2007-08-01 13:53:32 by aidan]
aidan
parents: 3769
diff changeset
387 ;; 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
388
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 ;;; greek.el ends here