update.
[chise/xemacs-chise.git.1] / lisp / mule / latin.el
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 \f
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 \f
246 ;; This is our utility function; we don't want it in the dumped XEmacs.
247
248 (fmakunbound 'setup-case-pairs)