Mercurial > hg > xemacs-beta
annotate lisp/mule/greek.el @ 4967:0d4c9d0f6a8d
rewrite dynarr code
-------------------- ChangeLog entries follow: --------------------
src/ChangeLog addition:
2010-02-03 Ben Wing <ben@xemacs.org>
* device-x.c (x_get_resource_prefix):
* device-x.c (Fx_get_resource):
* device-x.c (Fx_get_resource_prefix):
* device-x.c (Fx_put_resource):
* dialog-msw.c:
* dialog-msw.c (handle_question_dialog_box):
* dired-msw.c (mswindows_sort_files):
* dired-msw.c (mswindows_get_files):
* extents.c (extent_fragment_sort_by_priority):
* extents.c (Fset_extent_parent):
* file-coding.c (coding_reader):
* file-coding.c (coding_writer):
* file-coding.c (gzip_convert):
* frame.c (generate_title_string):
* gutter.c (calculate_gutter_size_from_display_lines):
* indent.c (vmotion_1):
* lread.c (read_bit_vector):
* mule-coding.c (iso2022_decode):
* rangetab.c:
* rangetab.c (Fcopy_range_table):
* rangetab.c (Fget_range_table):
* rangetab.c (unified_range_table_copy_data):
* redisplay-msw.c (mswindows_output_string):
* redisplay-output.c (output_display_line):
* redisplay-output.c (redisplay_move_cursor):
* redisplay-output.c (redisplay_clear_bottom_of_window):
* redisplay-tty.c (tty_output_ichar_dynarr):
* redisplay-tty.c (set_foreground_to):
* redisplay-tty.c (set_background_to):
* redisplay-xlike-inc.c (XLIKE_output_string):
* redisplay.c (redisplay_window_text_width_string):
* redisplay.c (redisplay_text_width_string):
* redisplay.c (create_text_block):
* redisplay.c (SET_CURRENT_MODE_CHARS_PIXSIZE):
* redisplay.c (generate_fstring_runes):
* redisplay.c (regenerate_modeline):
* redisplay.c (ensure_modeline_generated):
* redisplay.c (real_current_modeline_height):
* redisplay.c (create_string_text_block):
* redisplay.c (regenerate_window):
* redisplay.c (REGEN_INC_FIND_START_END):
* redisplay.c (point_visible):
* redisplay.c (redisplay_window):
* redisplay.c (mark_glyph_block_dynarr):
* redisplay.c (line_start_cache_start):
* redisplay.c (start_with_line_at_pixpos):
* redisplay.c (update_line_start_cache):
* redisplay.c (glyph_to_pixel_translation):
* redisplay.c (pixel_to_glyph_translation):
* sysdep.c (qxe_readdir):
* text.c (dfc_convert_to_external_format):
* text.c (dfc_convert_to_internal_format):
* toolbar-common.c (common_output_toolbar_button):
* window.c (window_modeline_height):
* window.c (Fwindow_last_line_visible_height):
* window.c (window_displayed_height):
* window.c (window_scroll):
* window.c (get_current_pixel_pos):
Use Dynarr_begin() in place of Dynarr_atp (foo, 0).
* dynarr.c (Dynarr_realloc):
* dynarr.c (Dynarr_lisp_realloc):
* dynarr.c (Dynarr_resize):
* dynarr.c (Dynarr_insert_many):
* dynarr.c (Dynarr_delete_many):
* dynarr.c (Dynarr_memory_usage):
* dynarr.c (stack_like_malloc):
* dynarr.c (stack_like_free):
* lisp.h:
* lisp.h (DECLARE_DYNARR_LISP_IMP):
* lisp.h (XD_DYNARR_DESC):
* lisp.h (Dynarr_pop):
* gutter.c (output_gutter):
* redisplay-output.c (sync_rune_structs):
* redisplay-output.c (redisplay_output_window):
Redo the dynarr code, add greater checks.
Rename the `len', `largest' and `max' members to `len_',
`largest_' and `max_' to try and catch existing places that might
directly modify these values. Make new accessors Dynarr_largest()
and Dynarr_max() and make them and existing Dynarr_length() be
non-lvalues by adding '+ 0' to them; fix a couple of places in the
redisplay code that tried to modify the length directly by setting
Dynarr_length(). Use the accessors whenever possible even in the
dynarr code itself. The accessors also verify that 0 <= len <=
largest <= max. Rename settor function Dynarr_set_size() to
Dynarr_set_length() and use it more consistently; also create
lower-level Dynarr_set_length_1(). This latter function should be
the only function that directly modifies the `len_' member of a
Dynarr, and in the process makes sure that the `largest' value is
kept correct.
Consistently use ERROR_CHECK_STRUCTURES instead of
ERROR_CHECK_TYPES for error-checking code. Reintroduce the
temporarily disabled verification code on the positions of
Dynarr_at(), Dynarr_atp() and Dynarr_atp_past_end().
Also create Dynarr_resize_if() in place of a repeated
code fragment. Clean up all the functions that modify Dynarrs to
use the new macros and functions and verify the correctness of the
Dynarr both before and after the change.
Note that there are two kinds of verification -- one for accessing
and one for modifying. The difference is that the modify
verification additionally checks to make sure that the Dynarr
isn't locked. (This is used in redisplay to check for problems
with reentrancy.)
* lrecord.h: Move XD_DYNARR_DESC to lisp.h, grouping with the dynarr code.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Wed, 03 Feb 2010 20:51:18 -0600 |
parents | 257b468bf2ca |
children | 308d34e9f07d |
rev | line source |
---|---|
502 | 1 ;;; greek.el --- Support for Greek -*- coding: iso-2022-7bit; -*- |
428 | 2 |
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. | |
4 ;; Licensed to the Free Software Foundation. | |
5 ;; Copyright (C) 1997 MORIOKA Tomohiko | |
6 | |
3767 | 7 ;; Keywords: multilingual, Greek, dumped |
428 | 8 |
9 ;; This file is part of XEmacs. | |
10 | |
11 ;; XEmacs is free software; you can redistribute it and/or modify it | |
12 ;; under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; XEmacs is distributed in the hope that it will be useful, but | |
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
19 ;; General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with XEmacs; see the file COPYING. If not, write to the Free | |
23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA | |
24 ;; 02111-1307, USA. | |
25 | |
26 ;;; Commentary: | |
27 | |
28 ;; For Greek, the character set ISO8859-7 is supported. | |
29 | |
30 ;;; Code: | |
31 | |
3767 | 32 ;; Case table: |
3748 | 33 (loop |
34 for (upper lower) | |
35 in '((#xdb #xfb) ;; UPSILON WITH DIALYTIKA | |
36 (#xda #xfa) ;; IOTA WITH DIALYTIKA | |
37 (#xd9 #xf9) ;; OMEGA | |
38 (#xd8 #xf8) ;; PSI | |
39 (#xd7 #xf7) ;; CHI | |
40 (#xd6 #xf6) ;; PHI | |
41 (#xd5 #xf5) ;; UPSILON | |
42 (#xd4 #xf4) ;; TAU | |
43 (#xd3 #xf3) ;; SIGMA | |
44 (#xd1 #xf1) ;; RHO | |
45 (#xd0 #xf0) ;; PI | |
46 (#xcf #xef) ;; OMICRON | |
47 (#xce #xee) ;; XI | |
48 (#xcd #xed) ;; NU | |
49 (#xcc #xec) ;; MU | |
50 (#xcb #xeb) ;; LAMDA | |
51 (#xca #xea) ;; KAPPA | |
52 (#xc9 #xe9) ;; IOTA | |
53 (#xc8 #xe8) ;; THETA | |
54 (#xc7 #xe7) ;; ETA | |
55 (#xc6 #xe6) ;; ZETA | |
56 (#xc5 #xe5) ;; EPSILON | |
57 (#xc4 #xe4) ;; DELTA | |
58 (#xc3 #xe3) ;; GAMMA | |
59 (#xc2 #xe2) ;; BETA | |
60 (#xc1 #xe1) ;; ALPHA | |
61 (#xbf #xfe) ;; OMEGA WITH TONOS | |
62 (#xbe #xfd) ;; UPSILON WITH TONOS | |
63 (#xbc #xfc) ;; OMICRON WITH TONOS | |
64 (#xba #xdf) ;; IOTA WITH TONOS | |
65 (#xb9 #xde) ;; ETA WITH TONOS | |
66 (#xb8 #xdd) ;; EPSILON WITH TONOS | |
67 (#xb6 #xdc) ;; ALPHA WITH TONOS | |
68 (#xD3 #xF2)) ;; FINAL SIGMA | |
69 ;; No case mappings for: | |
70 ;; | |
71 ;; (#xE0 "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS") | |
72 ;; (#xC0 "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS") | |
73 ;; | |
74 with case-table = (standard-case-table) | |
75 do | |
76 (put-case-table-pair (make-char 'greek-iso8859-7 upper) | |
77 (make-char 'greek-iso8859-7 lower) case-table)) | |
778 | 78 |
3767 | 79 ;; Now, syntax. Copy from appropriate characters in Latin 1. |
80 | |
81 ;; This code requires that the guillemets not have parenthesis syntax. | |
82 | |
83 (assert (not (memq (char-syntax (make-char 'latin-iso8859-1 #xAB)) '(?\( ?\)))) | |
84 t "This code assumes \xAB does not have parenthesis syntax. ") | |
85 | |
86 (assert (not (memq (char-syntax (make-char 'latin-iso8859-1 #xBB)) '(?\( ?\)))) | |
87 t "This code assumes \xBB does not have parenthesis syntax. ") | |
428 | 88 |
3767 | 89 (loop |
90 for (greek latin-1) | |
91 in '((#xA0 #xA0) ;; NO BREAK SPACE | |
92 (#xA1 #xAB) ;; LEFT SINGLE QUOTATION MARK, LEFT DOUBLE ANGLE QUOTE | |
93 (#xA2 #xBB) ;; RIGHT SINGLE QUOTATION MARK, RIGHT DOUBLE ANGLE QUOTE | |
94 (#xA3 #xA3) ;; POUND SIGN | |
95 (#xA4 #xA3) ;; EURO SIGN, POUND SIGN | |
96 (#xA5 #xA3) ;; DRACHMA SIGN, POUND SIGN | |
97 (#xA6 #xA6) ;; BROKEN BAR | |
98 (#xA7 #xA7) ;; SECTION SIGN | |
99 (#xA8 #xA8) ;; DIAERESIS | |
100 (#xA9 #xA9) ;; COPYRIGHT SIGN | |
101 (#xAA #xB4) ;; GREEK YPOGEGRAMMENI (iota subscript), ACUTE ACCENT | |
102 (#xAB #xAB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK | |
103 (#xAC #xAC) ;; NOT SIGN | |
104 (#xAD #xAD) ;; SOFT HYPHEN | |
105 (#xAF #xA6) ;; HORIZONTAL BAR, BROKEN BAR | |
106 (#xB0 #xB0) ;; DEGREE SIGN | |
107 (#xB1 #xB1) ;; PLUS-MINUS SIGN | |
108 (#xB2 #xB2) ;; SUPERSCRIPT TWO | |
109 (#xB3 #xB3) ;; SUPERSCRIPT THREE | |
110 (#xB4 #xB4) ;; GREEK TONOS, ACUTE ACCENT | |
111 (#xB5 #xB4) ;; GREEK DIALYTIKA TONOS, ACUTE ACCENT | |
112 (#xB7 #xB7) ;; MIDDLE DOT | |
113 (#xBB #xBB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK | |
114 (#xBD #xBD)) ;; VULGAR FRACTION ONE HALF | |
115 with syntax-table = (standard-syntax-table) | |
116 do (modify-syntax-entry | |
117 (make-char 'greek-iso8859-7 greek) | |
118 (string (char-syntax (make-char 'latin-iso8859-1 latin-1))) | |
119 syntax-table)) | |
428 | 120 |
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 | 250 aliases (greek-iso-8bit))) |
428 | 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 | 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 | 371 ISO-8859-7; it provides several widely-used punctuation marks in the C1 |
372 ISO-2022 area, which makes it incompatbile with the latter standard, but | |
373 that latter standard is not used in Greece, " | |
4299 | 374 aliases (cp1253))) |
4090 | 375 |
428 | 376 (set-language-info-alist |
377 "Greek" '((charset greek-iso8859-7) | |
378 (coding-system iso-8859-7) | |
379 (coding-priority iso-8859-7) | |
3769 | 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 | 382 (locale "el") |
428 | 383 (input-method . "greek") |
771 | 384 (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B") |
428 | 385 (documentation . t))) |
386 | |
4090 | 387 ;; Greek (WINDOWS-1253) will be generated automatically under Unix. |
388 | |
428 | 389 ;;; greek.el ends here |