Mercurial > hg > xemacs-beta

comparison lisp/mule/latin.el @ 464:5aa1854ad537 r21-2-47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-47
author cvs
date Mon, 13 Aug 2007 11:45:51 +0200
parents
children 7039e6323819
comparison
equal deleted inserted replaced
463:a158004111cd 464:5aa1854ad537
1 ;;; latin.el --- Support for Latin charsets.
2
3 ;; Copyright (C) 2001 Free Software Foundation, Inc.
4
5 ;; Author: Hrvoje Niksic <hniksic@xemacs.org>
6 ;; Maintainer: XEmacs Development Team
7 ;; Keywords: multilingual, European, dumped
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 ;; This file is meant to provide support for Latin character sets.
29 ;; The place for that used to be `european.el', but I am hesitant to
30 ;; change that file, as it is full of old cruft that I hope to phase
31 ;; out. Currently this file provides only the case table setup.
32
33
34 ;;; Code:
35
36 ;; Case table setup. We set up all the case tables using
37 ;; put-case-table-pair. The data for this comes from FSF Emacs 20.7
38 ;; (lisp/international/latin-*.el), written by several people and
39 ;; updated by Erik Naggum.
40
41 (defun setup-case-pairs (charset pairs)
42 (let ((tbl (standard-case-table)))
43 (loop for (uc lc) in pairs do
44 (put-case-table-pair (make-char charset uc) (make-char charset lc) tbl))))
45
46 ;; Latin 1.
47
48 (setup-case-pairs
49 'latin-iso8859-1
50 '((192 224) ;latin letter a with grave
51 (193 225) ;latin letter a with acute
52 (194 226) ;latin letter a with circumflex
53 (195 227) ;latin letter a with tilde
54 (196 228) ;latin letter a with diaeresis
55 (197 229) ;latin letter a with ring above
56 (198 230) ;latin letter ae
57 (199 231) ;latin letter c with cedilla
58 (200 232) ;latin letter e with grave
59 (201 233) ;latin letter e with acute
60 (202 234) ;latin letter e with circumflex
61 (203 235) ;latin letter e with diaeresis
62 (204 236) ;latin letter i with grave
63 (205 237) ;latin letter i with acute
64 (206 238) ;latin letter i with circumflex
65 (207 239) ;latin letter i with diaeresis
66 (208 240) ;latin letter eth
67 (209 241) ;latin letter n with tilde
68 (210 242) ;latin letter o with grave
69 (211 243) ;latin letter o with acute
70 (212 244) ;latin letter o with circumflex
71 (213 245) ;latin letter o with tilde
72 (214 246) ;latin letter o with diaeresis
73 (216 248) ;latin letter o with stroke
74 (217 249) ;latin letter u with grave
75 (218 250) ;latin letter u with acute
76 (219 251) ;latin letter u with circumflex
77 (220 252) ;latin letter u with diaeresis
78 (221 253) ;latin letter y with acute
79 (222 254) ;latin letter thorn
80 ))
81
82 ;; Latin 2.
83
84 (setup-case-pairs
85 'latin-iso8859-2
86 '((161 177) ;latin letter a with ogonek
87 (163 179) ;latin letter l with stroke
88 (165 181) ;latin letter l with caron
89 (166 182) ;latin letter s with acute
90 (169 185) ;latin letter s with caron
91 (170 186) ;latin letter s with cedilla
92 (171 187) ;latin letter t with caron
93 (172 188) ;latin letter z with acute
94 (174 190) ;latin letter z with caron
95 (175 191) ;latin letter z with dot above
96 (192 224) ;latin letter r with acute
97 (193 225) ;latin letter a with acute
98 (194 226) ;latin letter a with circumflex
99 (195 227) ;latin letter a with breve
100 (196 228) ;latin letter a with diaeresis
101 (197 229) ;latin letter l with acute
102 (198 230) ;latin letter c with acute
103 (199 231) ;latin letter c with cedilla
104 (200 232) ;latin letter c with caron
105 (201 233) ;latin letter e with acute
106 (202 234) ;latin letter e with ogonek
107 (203 235) ;latin letter e with diaeresis
108 (204 236) ;latin letter e with caron
109 (205 237) ;latin letter i with acute
110 (206 238) ;latin letter i with circumflex
111 (207 239) ;latin letter d with caron
112 (208 240) ;latin letter d with stroke
113 (209 241) ;latin letter n with acute
114 (210 242) ;latin letter n with caron
115 (211 243) ;latin letter o with acute
116 (212 244) ;latin letter o with circumflex
117 (213 245) ;latin letter o with double acute
118 (214 246) ;latin letter o with diaeresis
119 (216 248) ;latin letter r with caron
120 (217 249) ;latin letter u with ring above
121 (218 250) ;latin letter u with acute
122 (219 251) ;latin letter u with double acute
123 (220 252) ;latin letter u with diaeresis
124 (221 253) ;latin letter y with acute
125 (222 254) ;latin letter t with cedilla
126 ))
127
128 ;; Latin 3.
129
130 (setup-case-pairs
131 'latin-iso8859-3
132 '((161 177) ;latin letter h with stroke
133 (166 182) ;latin letter h with circumflex
134 (170 186) ;latin letter s with cedilla
135 (171 187) ;latin letter g with breve
136 (172 188) ;latin letter j with circumflex
137 (175 191) ;latin letter z with dot above
138 (192 224) ;latin letter a with grave
139 (193 225) ;latin letter a with acute
140 (194 226) ;latin letter a with circumflex
141 (196 228) ;latin letter a with diaeresis
142 (197 229) ;latin letter c with dot above
143 (198 230) ;latin letter c with circumflex
144 (199 231) ;latin letter c with cedilla
145 (200 232) ;latin letter e with grave
146 (201 233) ;latin letter e with acute
147 (202 234) ;latin letter e with circumflex
148 (203 235) ;latin letter e with diaeresis
149 (204 236) ;latin letter i with grave
150 (205 237) ;latin letter i with acute
151 (206 238) ;latin letter i with circumflex
152 (207 239) ;latin letter i with diaeresis
153 (209 241) ;latin letter n with tilde
154 (210 242) ;latin letter o with grave
155 (211 243) ;latin letter o with acute
156 (212 244) ;latin letter o with circumflex
157 (213 245) ;latin letter g with dot above
158 (214 246) ;latin letter o with diaeresis
159 (216 248) ;latin letter g with circumflex
160 (217 249) ;latin letter u with grave
161 (218 250) ;latin letter u with acute
162 (219 251) ;latin letter u with circumflex
163 (220 252) ;latin letter u with diaeresis
164 (221 253) ;latin letter u with breve
165 (222 254) ;latin letter s with circumflex
166 ))
167
168 ;; Latin 4.
169
170 (setup-case-pairs
171 'latin-iso8859-4
172 '((161 177) ;latin letter a with ogonek
173 (163 179) ;latin letter r with cedilla
174 (165 181) ;latin letter i with tilde
175 (166 182) ;latin letter l with cedilla
176 (169 185) ;latin letter s with caron
177 (170 186) ;latin letter e with macron
178 (171 187) ;latin letter g with cedilla
179 (172 188) ;latin letter t with stroke
180 (174 190) ;latin letter z with caron
181 (189 191) ;eng
182 (192 224) ;latin letter a with macron
183 (193 225) ;latin letter a with acute
184 (194 226) ;latin letter a with circumflex
185 (195 227) ;latin letter a with tilde
186 (196 228) ;latin letter a with diaeresis
187 (197 229) ;latin letter a with ring above
188 (198 230) ;latin letter ae
189 (199 231) ;latin letter i with ogonek
190 (200 232) ;latin letter c with caron
191 (201 233) ;latin letter e with acute
192 (202 234) ;latin letter e with ogonek
193 (203 235) ;latin letter e with diaeresis
194 (204 236) ;latin letter e with dot above
195 (205 237) ;latin letter i with acute
196 (206 238) ;latin letter i with circumflex
197 (207 239) ;latin letter i with macron
198 (208 240) ;latin letter d with stroke
199 (209 241) ;latin letter n with cedilla
200 (210 242) ;latin letter o with macron
201 (211 243) ;latin letter k with cedilla
202 (212 244) ;latin letter o with circumflex
203 (213 245) ;latin letter o with tilde
204 (214 246) ;latin letter o with diaeresis
205 (216 248) ;latin letter o with stroke
206 (217 249) ;latin letter u with ogonek
207 (218 250) ;latin letter u with acute
208 (219 251) ;latin letter u with circumflex
209 (220 252) ;latin letter u with diaeresis
210 (221 253) ;latin letter u with tilde
211 (222 254) ;latin letter u with macron
212 ))
213
214 ;; Latin 5. Currently unsupported.
215
216 ;(setup-case-pairs
217 ; 'latin-iso8859-5
218 ; '((192 224) ;latin letter a with grave
219 ; (193 225) ;latin letter a with acute
220 ; (194 226) ;latin letter a with circumflex
221 ; (195 227) ;latin letter a with tilde
222 ; (196 228) ;latin letter a with diaeresis
223 ; (197 229) ;latin letter a with ring above
224 ; (198 230) ;latin letter ae
225 ; (199 231) ;latin letter c with cedilla
226 ; (200 232) ;latin letter e with grave
227 ; (201 233) ;latin letter e with acute
228 ; (203 235) ;latin letter e with diaeresis
229 ; (205 237) ;latin letter i with acute
230 ; (206 238) ;latin letter i with circumflex
231 ; (208 240) ;latin letter g with breve
232 ; (209 241) ;latin letter n with tilde
233 ; (210 242) ;latin letter o with grave
234 ; (211 243) ;latin letter o with acute
235 ; (212 244) ;latin letter o with circumflex
236 ; (213 245) ;latin letter o with tilde
237 ; (214 246) ;latin letter o with diaeresis
238 ; (216 248) ;latin letter o with stroke
239 ; (217 249) ;latin letter u with grave
240 ; (218 250) ;latin letter u with acute
241 ; (219 251) ;latin letter u with circumflex
242 ; (220 252) ;latin letter u with diaeresis
243 ; (222 254) ;latin letter s with cedilla
244 ; ))
245
246 ;; This is our utility function; we don't want it in the dumped XEmacs.
247
248 (fmakunbound 'setup-case-pairs)