latin-pre.el

Revision 4220, 26.6 kB (checked in by miyoshi, 9 months ago)
Sync up with Emacs22.2.
Property svn:eol-style set to `LF`

Line
1	;;; latin-pre.el --- Quail packages for inputting various European characters --coding: iso-2022-7bit;--
2
3	;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
4	;; 2006, 2007, 2008
5	;; Free Software Foundation, Inc.
6	;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
7	;; 2006, 2007, 2008
8	;; National Institute of Advanced Industrial Science and Technology (AIST)
9	;; Registration Number H14PRO021
10
11	;; Keywords: mule, multilingual, latin, input method
12
13	;; This file is part of GNU Emacs.
14
15	;; GNU Emacs is free software; you can redistribute it and/or modify
16	;; it under the terms of the GNU General Public License as published by
17	;; the Free Software Foundation; either version 3, or (at your option)
18	;; any later version.
19
20	;; GNU Emacs is distributed in the hope that it will be useful,
21	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23	;; GNU General Public License for more details.
24
25	;; You should have received a copy of the GNU General Public License
26	;; along with GNU Emacs; see the file COPYING. If not, write to the
27	;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
28	;; Boston, MA 02110-1301, USA.
29
30	;;; Commentary:
31
32	;; Key translation maps were originally copied from iso-acc.el.
33	;; latin-1-prefix: extra special characters added, adapted from the vim
34	;; digraphs (from J.H.M.Dassen <jdassen@wi.leidenuniv.nl>)
35	;; by R.F. Smith <rsmith@xs4all.nl>
36	;;
37	;; polish-slash:
38	;; Author: W,B3(Bodek Bzyl <matwb@univ.gda.pl>
39	;; Maintainer: W,B3(Bodek Bzyl <matwb@univ.gda.pl>
40	;;
41	;; latin-[89]-prefix: Dave Love <fx@gnu.org>
42
43	;; You might make extra input sequences on the basis of the X
44	;; locale//Compose files (which have both prefix and postfix*
45	;; sequences), but bear in mind that sequences which are logical in
46	;; that context may not be sensible when they're not signalled with
47	;; the Compose key. An example is a double space for NBSP.
48
49	;;; Code:
50
51	(require 'quail)
52
53	(quail-define-package
54	"latin-1-prefix" "Latin-1" "1>" t
55	"Latin-1 characters input method with prefix modifiers
56
57	effect \| prefix \| examples
58	------------+--------+----------
59	acute \| ' \| 'a -> ,Aa(B, '' -> ,A4(B
60	grave \| ` \| `a -> ,A`(B
61	circumflex \| ^ \| ^a -> ,Ab(B
62	diaeresis \| \" \| \"a -> ,Ad(B \"\" -> ,A((B
63	tilde \| ~ \| ~a -> ,Ac(B
64	cedilla \| ~ \| ~c -> ,Ag(B
65	misc \| \" ~ / \| \"s -> ,A_(B ~d -> ,Ap(B ~t -> ,A~(B /a -> ,Ae(B /e -> ,Af(B /o -> ,Ax(B
66	symbol \| ~ \| ~> -> ,A;(B ~< -> ,A+(B ~! -> ,A!(B ~? -> ,A?(B ~~ -> ,A8(B
67	\| ~ \| ~s -> ,A'(B ~x -> ,A$(B ~. -> ,A7(B ~$ -> ,A#(B ~u -> ,A5(B
68	\| ~ \| ~p -> ,A6(B ~- -> ,A-(B ~= -> ,A/(B ~\| -> ,A&(B
69	*symbol \| _ / \| _o -> ,A:(B _a -> ,A(B // -> ,A0(B /\\ -> ,AW(B _y -> ,A%(B**
70	\| _ / \| _: -> ,Aw(B /c -> ,A"(B /2 -> ,A=(B /4 -> ,A<(B /3 -> ,A>(B
71	\| _ / \| /= -> ,A,(B
72	symbol \| ^ \| ^r -> ,A.(B ^c -> ,A)(B ^1 -> ,A9(B ^2 -> ,A2(B ^3 -> ,A3(B
73	" nil t nil nil nil nil nil nil nil nil t)
74
75	(quail-define-rules
76	("'A" ?,AA(B)
77	("'E" ?,AI(B)
78	("'I" ?,AM(B)
79	("'O" ?,AS(B)
80	("'U" ?,AZ(B)
81	("'Y" ?,A](B)
82	("'a" ?,Aa(B)
83	("'e" ?,Ai(B)
84	("'i" ?,Am(B)
85	("'o" ?,As(B)
86	("'u" ?,Az(B)
87	("'y" ?,A}(B)
88	("''" ?,A4(B)
89	("' " ?')
90	("`A" ?,A@(B)
91	("`E" ?,AH(B)
92	("`I" ?,AL(B)
93	("`O" ?,AR(B)
94	("`U" ?,AY(B)
95	("`a" ?,A`(B)
96	("`e" ?,Ah(B)
97	("`i" ?,Al(B)
98	("`o" ?,Ar(B)
99	("`u" ?,Ay(B)
100	("``" ?`)
101	("` " ?`)
102	("^A" ?,AB(B)
103	("^E" ?,AJ(B)
104	("^I" ?,AN(B)
105	("^O" ?,AT(B)
106	("^U" ?,A[(B)
107	("^a" ?,Ab(B)
108	("^e" ?,Aj(B)
109	("^i" ?,An(B)
110	("^o" ?,At(B)
111	("^u" ?,A{(B)
112	("^^" ?^)
113	("^ " ?^)
114	("\"A" ?,AD(B)
115	("\"E" ?,AK(B)
116	("\"I" ?,AO(B)
117	("\"O" ?,AV(B)
118	("\"U" ?,A\(B)
119	("\"a" ?,Ad(B)
120	("\"e" ?,Ak(B)
121	("\"i" ?,Ao(B)
122	("\"o" ?,Av(B)
123	("\"s" ?,A_(B)
124	("\"u" ?,A\|(B)
125	("\"y" ?,A(B)
126	("\"\"" ?,A((B)
127	("\" " ?\")
128	("~A" ?,AC(B)
129	("~C" ?,AG(B)
130	("~D" ?,AP(B)
131	("~N" ?,AQ(B)
132	("~O" ?,AU(B)
133	("~T" ?,A^(B)
134	("~a" ?,Ac(B)
135	("~c" ?,Ag(B)
136	("~d" ?,Ap(B)
137	("~n" ?,Aq(B)
138	("~o" ?,Au(B)
139	("~t" ?,A~(B)
140	("~>" ?\,A;(B)
141	("~<" ?\,A+(B)
142	("~!" ?,A!(B)
143	("~?" ?,A?(B)
144	("~~" ?,A8(B)
145	("~ " ?~)
146	("/A" ?,AE(B)
147	("/E" ?,AF(B)
148	("/O" ?,AX(B)
149	("/a" ?,Ae(B)
150	("/e" ?,Af(B)
151	("/o" ?,Ax(B)
152	("//" ?,A0(B)
153	("/ " ?/)
154	("_o" ?,A:(B)
155	("_a" ?,A*(B)
156	("_ " ?,A (B)
157	;; Symbols added by Roland Smith <rsmith@xs4all.nl>
158	("_+" ?,A1(B)
159	("_y" ?,A%(B)
160	("_:" ?,Aw(B)
161	("__" ?_)
162	("/c" ?,A"(B)
163	("/\\" ?,AW(B)
164	("/2" ?,A=(B)
165	("/4" ?,A<(B)
166	("/3" ?,A>(B)
167	("~s" ?,A'(B)
168	("~p" ?,A6(B)
169	("~x" ?,A$(B)
170	("~." ?,A7(B)
171	("~$" ?,A#(B)
172	("~u" ?,A5(B)
173	("^r" ?,A.(B)
174	("^c" ?,A)(B)
175	("^1" ?,A9(B)
176	("^2" ?,A2(B)
177	("^3" ?,A3(B)
178	("~-" ?,A-(B)
179	("~\|" ?,A&(B)
180	("/=" ?,A,(B)
181	("~=" ?,A/(B)
182	)
183
184	(quail-define-package
185	"catalan-prefix" "Latin-1" "CA>" t
186	"Catalan and Spanish input method with prefix modifiers
187
188	effect \| prefix \| examples
189	------------+--------+----------
190	acute \| ' \| 'a -> ,Aa(B '' -> ,A4(B
191	grave \| ` \| `a -> ,A`(B
192	diaeresis \| \" \| \"i -> ,Ao(B \"\" -> ,A((B
193	tilde \| ~ \| ~n -> ,Aq(B
194	cedilla \| ~ \| ~c -> ,Ag(B
195	symbol \| ~ \| ~> -> ,A;(B ~< -> ,A+(B ~! -> ,A!(B ~? -> ,A?(B
196	" nil t nil nil nil nil nil nil nil nil t)
197
198	(quail-define-rules
199	("'A" ?,AA(B)
200	("'E" ?,AI(B)
201	("'I" ?,AM(B)
202	("'O" ?,AS(B)
203	("'U" ?,AZ(B)
204	("'a" ?,Aa(B)
205	("'e" ?,Ai(B)
206	("'i" ?,Am(B)
207	("'o" ?,As(B)
208	("'u" ?,Az(B)
209	("' " ?')
210	("`A" ?,A@(B)
211	("`E" ?,AH(B)
212	("`O" ?,AR(B)
213	("`a" ?,A`(B)
214	("`e" ?,Ah(B)
215	("`o" ?,Ar(B)
216	("` " ?`)
217	("\"I" ?,AO(B)
218	("\"U" ?,A\(B)
219	("\"i" ?,Ao(B)
220	("\"u" ?,A\|(B)
221	("\" " ?\")
222	("~C" ?,AG(B)
223	("~N" ?,AQ(B)
224	("~c" ?,Ag(B)
225	("~n" ?,Aq(B)
226	("~>" ?\,A;(B)
227	("~<" ?\,A+(B)
228	("~!" ?,A!(B)
229	("~?" ?,A?(B)
230	("~ " ?~)
231	)
232
233	(quail-define-package
234	"esperanto-prefix" "Latin-3" "EO>" t
235	"Esperanto input method with prefix modifiers
236	Key translation rules are:
237	^H -> ?,C&(B ^J -> ?,C,(B ^h -> ?,C6(B ^j -> ?,C<(B ^C -> ?,CF(B ^G -> ?,CX(B,
238	^S -> ?,C^(B ^c -> ?,Cf(B ^g -> ?,Cx(B ^s -> ?,C~(B ~U -> ?,C](B ~u -> ?,C}(B
239	" nil t nil nil nil nil nil nil nil nil t)
240
241	(quail-define-rules
242	("^H" ?,C&(B)
243	("^J" ?,C,(B)
244	("^h" ?,C6(B)
245	("^j" ?,C<(B)
246	("^C" ?,CF(B)
247	("^G" ?,CX(B)
248	("^S" ?,C^(B)
249	("^c" ?,Cf(B)
250	("^g" ?,Cx(B)
251	("^s" ?,C~(B)
252	("^^" ?^)
253	("^ " ?^)
254	("~U" ?,C](B)
255	("~u" ?,C}(B)
256	("~ " ?~)
257	)
258
259	(quail-define-package
260	"french-prefix" "French" "FR>" t
261	"French (Fran,Ag(Bais) input method with prefix modifiers
262
263	effect \| prefix \| examples
264	------------+--------+----------
265	acute \| ' \| 'e -> ,Ai(B
266	grave \| ` \| `a -> ,A`(B
267	circumflex \| ^ \| ^a -> ,Ab(B
268	diaeresis \| \" \| \"i -> ,Ao(B
269	cedilla \| ~ or , \| ~c -> ,Ag(B ,c -> ,Ag(B
270	symbol \| ~ \| ~> -> ,A;(B ~< -> ,A+(B
271	" nil t nil nil nil nil nil nil nil nil t)
272
273	(quail-define-rules
274	("'E" ?,AI(B)
275	("'C" ?,AG(B)
276	("'e" ?,Ai(B)
277	("'c" ?,Ag(B)
278	("' " ?')
279	("`A" ?,A@(B)
280	("`E" ?,AH(B)
281	("`U" ?,AY(B)
282	("`a" ?,A`(B)
283	("`e" ?,Ah(B)
284	("`u" ?,Ay(B)
285	("` " ?`)
286	("^A" ?,AB(B)
287	("^E" ?,AJ(B)
288	("^I" ?,AN(B)
289	("^O" ?,AT(B)
290	("^U" ?,A[(B)
291	("^a" ?,Ab(B)
292	("^e" ?,Aj(B)
293	("^i" ?,An(B)
294	("^o" ?,At(B)
295	("^u" ?,A{(B)
296	("^ " ?^)
297	("\"E" ?,AK(B)
298	("\"I" ?,AO(B)
299	("\"e" ?,Ak(B)
300	("\"i" ?,Ao(B)
301	("\" " ?\")
302	("~<" ?\,A+(B)
303	("~>" ?\,A;(B)
304	("~C" ?,AG(B)
305	("~c" ?,Ag(B)
306	("~ " ?~)
307	(",C" ?,AG(B)
308	(",c" ?,Ag(B)
309	(", " ?,)
310	)
311
312	(quail-define-package
313	"romanian-prefix" "Romanian" "RO>" t
314	"Romanian (rom,Bb(Bne,B:(Bte) input method with prefix modifiers
315
316	effect \| prefix \| examples
317	------------+--------+------------------
318	tilde \| ~ \| ~a -> ,Bc(B
319	circumflex \| ^ \| ^a -> ,Bb(B, ^i -> ,Bn(B
320	cedilla \| , \| ,s -> ,B:(B, ,t -> ,B~(B
321	~ \| ~ \| ~~ -> ~
322	^ \| ^ \| ^^ -> ^
323	, \| , \| ,, -> ,
324	" nil t nil nil nil nil nil nil nil nil t)
325
326	(quail-define-rules
327	("~A" ?,BC(B) ("~a" ?,Bc(B)
328	("^A" ?,BB(B) ("^a" ?,Bb(B)
329	("^I" ?,BN(B) ("^i" ?,Bn(B)
330	(",S" ?,B*(B) (",s" ?,B:(B)
331	(",T" ?,B^(B) (",t" ?,B~(B)
332	("^^" ?^) ("~~" ?~) (",," ?,))
333
334	(quail-define-package
335	"romanian-alt-prefix" "Romanian" "RO>" t
336	"Alternative Romanian (rom,Bb(Bne,B:(Bte) input method with prefix modifiers
337
338	effect \| prefix \| examples
339	------------+--------+------------------
340	tilde \| \" \| \"a -> ,Bb(B
341	circumflex \| ' \| 'a -> ,Bb(B, 'i -> ,Bn(B
342	cedilla \| ' \| 's -> ,B:(B, 't -> ,B~(B
343	' \| ' \| '' -> '
344	\" \| \" \| \"\" -> \"
345	" nil t nil nil nil nil nil nil nil nil t)
346
347	(quail-define-rules
348	("'A" ?,BC(B) ("'a" ?,Bc(B)
349	("\"A" ?,BB(B) ("\"a" ?,Bb(B)
350	("'I" ?,BN(B) ("'i" ?,Bn(B)
351	("'S" ?,B(B) ("'s"* ?,B:(B)
352	("'T" ?,B^(B) ("'t" ?,B~(B)
353	("''" ?') ("\"\"" ?\"))
354
355	(quail-define-package
356	"german-prefix" "German" "DE>" t
357	"German (Deutsch) input method with prefix modifiers
358	Key translation rules are:
359	\"A -> ,AD(B -> \"O -> ,AV(B \"U -> ,A\(B \"s -> ,A_(B
360	" nil t nil nil nil nil nil nil nil nil t)
361
362	(quail-define-rules
363	("\"A" ?,AD(B)
364	("\"O" ?,AV(B)
365	("\"U" ?,A\(B)
366	("\"a" ?,Ad(B)
367	("\"o" ?,Av(B)
368	("\"u" ?,A\|(B)
369	("\"s" ?,A_(B)
370	("\" " ?\")
371	)
372
373	(quail-define-package
374	"irish-prefix" "Latin-1" "GA>" t
375	"Irish input method with prefix modifiers
376	Key translation rules are:
377	'A -> ,AA(B 'E -> ,AI(B 'I -> ,AM(B 'O -> ,AS(B 'U -> ,AZ(B
378	" nil t nil nil nil nil nil nil nil nil t)
379
380	(quail-define-rules
381	("'A" ?,AA(B)
382	("'E" ?,AI(B)
383	("'I" ?,AM(B)
384	("'O" ?,AS(B)
385	("'U" ?,AZ(B)
386	("'a" ?,Aa(B)
387	("'e" ?,Ai(B)
388	("'i" ?,Am(B)
389	("'o" ?,As(B)
390	("'u" ?,Az(B)
391	("' " ?')
392	)
393
394	(quail-define-package
395	"portuguese-prefix" "Latin-1" "PT>" t
396	"Portuguese input method with prefix modifiers
397
398	effect \| prefix \| examples
399	------------+--------+----------
400	acute \| ' \| 'a -> ,Aa(B '' -> ,A4(B
401	grave \| ` \| `a -> ,A`(B
402	circumflex \| ^ \| ^a -> ,Ab(B
403	diaeresis \| \" \| \"u -> ,A\|(B
404	tilde \| ~ \| ~a -> ,Ac(B
405	cedilla \| ' or , \| 'c -> ,Ag(B ,c -> ,Ag(B
406	" nil t nil nil nil nil nil nil nil nil t)
407
408	(quail-define-rules
409	("'A" ?,AA(B)
410	("'E" ?,AI(B)
411	("'I" ?,AM(B)
412	("'O" ?,AS(B)
413	("'U" ?,AZ(B)
414	("'C" ?,AG(B)
415	("'a" ?,Aa(B)
416	("'e" ?,Ai(B)
417	("'i" ?,Am(B)
418	("'o" ?,As(B)
419	("'u" ?,Az(B)
420	("'c" ?,Ag(B)
421	("' " ?')
422	("`A" ?,A@(B)
423	("`a" ?,A`(B)
424	("` " ?`)
425	("^A" ?,AB(B)
426	("^E" ?,AJ(B)
427	("^O" ?,AT(B)
428	("^a" ?,Ab(B)
429	("^e" ?,Aj(B)
430	("^o" ?,At(B)
431	("^ " ?^)
432	("\"U" ?,A\(B)
433	("\"u" ?,A\|(B)
434	("\" " ?\")
435	("~A" ?,AC(B)
436	("~O" ?,AU(B)
437	("~a" ?,Ac(B)
438	("~o" ?,Au(B)
439	("~ " ?~)
440	(",c" ?,Ag(B)
441	(",C" ?,AG(B)
442	(",," ?,)
443	)
444
445	(quail-define-package
446	"spanish-prefix" "Spanish" "ES>" t
447	"Spanish (Espa,Aq(Bol) input method with prefix modifiers
448
449	effect \| prefix \| examples
450	------------+--------+----------
451	acute \| ' \| 'a -> ,Aa(B
452	diaeresis \| \" \| \"u -> ,A\|(B
453	tilde \| ~ \| ~n -> ,Aq(B
454	symbol \| ~ \| ~> -> ,A;(B ~< -> ,A+(B ~! -> ,A!(B ~? -> ,A?(B
455	" nil t nil nil nil nil nil nil nil nil t)
456
457	(quail-define-rules
458	("'A" ?,AA(B)
459	("'E" ?,AI(B)
460	("'I" ?,AM(B)
461	("'O" ?,AS(B)
462	("'U" ?,AZ(B)
463	("'a" ?,Aa(B)
464	("'e" ?,Ai(B)
465	("'i" ?,Am(B)
466	("'o" ?,As(B)
467	("'u" ?,Az(B)
468	("' " ?')
469	("\"U" ?,A\(B)
470	("\"u" ?,A\|(B)
471	("\" " ?\")
472	("~N" ?,AQ(B)
473	("~n" ?,Aq(B)
474	("~>" ?\,A;(B)
475	("~<" ?\,A+(B)
476	("~!" ?,A!(B)
477	("~?" ?,A?(B)
478	("~ " ?~)
479	)
480
481	(quail-define-package
482	"latin-2-prefix" "Latin-2" "2>" t
483	"Latin-2 characters input method with prefix modifiers
484
485	effect \| prefix \| examples
486	------------+--------+----------
487	acute \| ' \| 'a -> ,Ba(B '' -> ?,B4(B
488	circumflex \| ^ \| ^a -> ,Bb(B
489	diaeresis \| \" \| \"a -> ,Bd(B \"\" -> ,B((B
490	breve \| ~ \| ~a -> ,Bc(B
491	caron \| ~ \| ~c -> ,Bh(B
492	cedilla \| ` \| `c -> ,Bg(B `e -> ?,Bj(B
493	misc \| ' ` ~ \| 'd -> ,Bp(B `l -> ,B3(B `z -> ,B?(B ~o -> ,Bu(B ~u -> ,B{(B
494	symbol \| ~ \| `. -> ,B(B ~~ -> ,B"(B ~. -> ?,B8(B
495	" nil t nil nil nil nil nil nil nil nil t)
496
497	(quail-define-rules
498	("'A" ?,BA(B)
499	("'C" ?,BF(B)
500	("'D" ?,BP(B)
501	("'E" ?,BI(B)
502	("'I" ?,BM(B)
503	("'L" ?,BE(B)
504	("'N" ?,BQ(B)
505	("'O" ?,BS(B)
506	("'R" ?,B@(B)
507	("'S" ?,B&(B)
508	("'U" ?,BZ(B)
509	("'Y" ?,B](B)
510	("'Z" ?,B,(B)
511	("'a" ?,Ba(B)
512	("'c" ?,Bf(B)
513	("'d" ?,Bp(B)
514	("'e" ?,Bi(B)
515	("'i" ?,Bm(B)
516	("'l" ?,Be(B)
517	("'n" ?,Bq(B)
518	("'o" ?,Bs(B)
519	("'r" ?,B`(B)
520	("'s" ?,B6(B)
521	("'u" ?,Bz(B)
522	("'y" ?,B}(B)
523	("'z" ?,B<(B)
524	("''" ?,B4(B)
525	("' " ?')
526	("`A" ?,B!(B)
527	("`C" ?,BG(B)
528	("`E" ?,BJ(B)
529	("`L" ?,B#(B)
530	("`S" ?,B*(B)
531	("`T" ?,B^(B)
532	("`Z" ?,B/(B)
533	("`a" ?,B1(B)
534	("`l" ?,B3(B)
535	("`c" ?,Bg(B)
536	("`e" ?,Bj(B)
537	("`s" ?,B:(B)
538	("`t" ?,B~(B)
539	("`z" ?,B?(B)
540	("``*" ?,B(B)**
541	("`." ?,B(B)
542	("` " ?`)
543	("^A" ?,BB(B)
544	("^I" ?,BN(B)
545	("^O" ?,BT(B)
546	("^a" ?,Bb(B)
547	("^i" ?,Bn(B)
548	("^o" ?,Bt(B)
549	("^^" ?^)
550	("^ " ?^)
551	("\"A" ?,BD(B)
552	("\"E" ?,BK(B)
553	("\"O" ?,BV(B)
554	("\"U" ?,B\(B)
555	("\"a" ?,Bd(B)
556	("\"e" ?,Bk(B)
557	("\"o" ?,Bv(B)
558	("\"s" ?,B_(B)
559	("\"u" ?,B\|(B)
560	("\"\"" ?,B((B)
561	("\" " ?\")
562	("~A" ?,BC(B)
563	("~C" ?,BH(B)
564	("~D" ?,BO(B)
565	("~E" ?,BL(B)
566	("~L" ?,B%(B)
567	("~N" ?,BR(B)
568	("~O" ?,BU(B)
569	("~R" ?,BX(B)
570	("~S" ?,B)(B)
571	("~T" ?,B+(B)
572	("~U" ?,B[(B)
573	("~Z" ?,B.(B)
574	("~a" ?,Bc(B)
575	("~c" ?,Bh(B)
576	("~d" ?,Bo(B)
577	("~e" ?,Bl(B)
578	("~l" ?,B5(B)
579	("~n" ?,Br(B)
580	("~o" ?,Bu(B)
581	("~r" ?,Bx(B)
582	("~s" ?,B9(B)
583	("~t" ?,B;(B)
584	("~u" ?,B{(B)
585	("~z" ?,B>(B)
586	("~v" ?,B"(B)
587	("~~" ?,B"(B)
588	("~." ?,B8(B)
589	("~ " ?~)
590	)
591
592	(quail-define-package
593	"latin-3-prefix" "Latin-3" "3>" t
594	"Latin-3 characters input method with prefix modifiers
595
596	effect \| prefix \| examples
597	------------+--------+----------
598	acute \| ' \| 'a -> ,Ca(B '' -> ?,C4(B
599	grave \| ` \| `a -> ,C`(B
600	circumflex \| ^ \| ^a -> ,Cb(B
601	diaeresis \| \" \| \"a -> ,Cd(B \"\" -> ,C((B
602	cedilla \| ~ \| ~c -> ,Cg(B ~s -> ,C:(B ~~ -> ,C8(B
603	dot above \| / . \| /g -> ,Cu(B .o -> ,Cu(B
604	misc \| \" ~ / \| \"s -> ,C_(B ~g -> ,C;(B ~u -> ,C}(B /h -> ,C1(B /i -> ,C9(B
605	symbol \| ~ \| ~` -> ,C"(B /# -> ,C#(B /$ -> ,C$(B // -> ,C0(B
606	" nil t nil nil nil nil nil nil nil nil t)
607
608	(quail-define-rules
609	("'A" ?,CA(B)
610	("'E" ?,CI(B)
611	("'I" ?,CM(B)
612	("'O" ?,CS(B)
613	("'U" ?,CZ(B)
614	("'a" ?,Ca(B)
615	("'e" ?,Ci(B)
616	("'i" ?,Cm(B)
617	("'o" ?,Cs(B)
618	("'u" ?,Cz(B)
619	("''" ?,C4(B)
620	("' " ?')
621	("`A" ?,C@(B)
622	("`E" ?,CH(B)
623	("`I" ?,CL(B)
624	("`O" ?,CR(B)
625	("`U" ?,CY(B)
626	("`a" ?,C`(B)
627	("`e" ?,Ch(B)
628	("`i" ?,Cl(B)
629	("`o" ?,Cr(B)
630	("`u" ?,Cy(B)
631	("``" ?`)
632	("` " ?`)
633	("^A" ?,CB(B)
634	("^C" ?,CF(B)
635	("^E" ?,CJ(B)
636	("^G" ?,CX(B)
637	("^H" ?,C&(B)
638	("^I" ?,CN(B)
639	("^J" ?,C,(B)
640	("^O" ?,CT(B)
641	("^S" ?,C^(B)
642	("^U" ?,C[(B)
643	("^a" ?,Cb(B)
644	("^c" ?,Cf(B)
645	("^e" ?,Cj(B)
646	("^g" ?,Cx(B)
647	("^h" ?,C6(B)
648	("^i" ?,Cn(B)
649	("^j" ?,C<(B)
650	("^o" ?,Ct(B)
651	("^s" ?,C~(B)
652	("^u" ?,C{(B)
653	("^^" ?^)
654	("^ " ?^)
655	("\"A" ?,CD(B)
656	("\"E" ?,CK(B)
657	("\"I" ?,CO(B)
658	("\"O" ?,CV(B)
659	("\"U" ?,C\(B)
660	("\"a" ?,Cd(B)
661	("\"e" ?,Ck(B)
662	("\"i" ?,Co(B)
663	("\"o" ?,Cv(B)
664	("\"u" ?,C\|(B)
665	("\"s" ?,C_(B)
666	("\"\"" ?,C((B)
667	("\" " ?\")
668	("~C" ?,CG(B)
669	("~N" ?,CQ(B)
670	("~c" ?,Cg(B)
671	("~n" ?,Cq(B)
672	("~S" ?,C*(B)
673	("~s" ?,C:(B)
674	("~G" ?,C+(B)
675	("~g" ?,C;(B)
676	("~U" ?,C](B)
677	("~u" ?,C}(B)
678	("~`" ?,C"(B)
679	("~~" ?,C8(B)
680	("~ " ?~)
681	("/C" ?,CE(B)
682	("/G" ?,CU(B)
683	("/H" ?,C!(B)
684	("/I" ?,C)(B)
685	("/Z" ?,C/(B)
686	("/c" ?,Ce(B)
687	("/g" ?,Cu(B)
688	("/h" ?,C1(B)
689	("/i" ?,C9(B)
690	("/z" ?,C?(B)
691	("/." ?,C(B)
692	("/#" ?,C#(B)
693	("/$" ?,C$(B)
694	("//" ?,C0(B)
695	("/ " ?/)
696	(".C" ?,CE(B)
697	(".G" ?,CU(B)
698	(".I" ?,C)(B)
699	(".Z" ?,C/(B)
700	(".c" ?,Ce(B)
701	(".g" ?,Cu(B)
702	(".z" ?,C?(B)
703	)
704
705
706	(quail-define-package
707	"polish-slash" "Polish" "PL>" nil
708	"Polish diacritics and slash character are input as `/[acelnosxzACELNOSXZ/]'.
709	For example, the character named `aogonek' is obtained by `/a'."
710	nil t t t nil nil nil nil nil nil t)
711
712	(quail-define-rules
713	("//" ?/)
714	("/a" ?,B1(B)
715	("/c" ?,Bf(B)
716	("/e" ?,Bj(B)
717	("/l" ?,B3(B)
718	("/n" ?,Bq(B)
719	("/o" ?,Bs(B)
720	("/s" ?,B6(B)
721	("/x" ?,B<(B)
722	("/z" ?,B?(B)
723	("/A" ?,B!(B)
724	("/C" ?,BF(B)
725	("/E" ?,BJ(B)
726	("/L" ?,B#(B)
727	("/N" ?,BQ(B)
728	("/O" ?,BS(B)
729	("/S" ?,B&(B)
730	("/X" ?,B,(B)
731	("/Z" ?,B/(B))
732
733	(quail-define-package
734	"latin-9-prefix" "Latin-9" "0>" t
735	"Latin-9 characters input method with prefix modifiers
736
737	effect \| prefix \| examples
738	------------+--------+----------
739	acute \| ' \| 'a -> ,ba(B
740	grave \| ` \| `a -> ,b`(B
741	circumflex \| ^ \| ^a -> ,bb(B
742	diaeresis \| \" \| \"a -> ,bd(B, \"Y -> ,b>(B
743	tilde \| ~ \| ~a -> ,bc(B
744	caron \| ~ \| ~z -> ,b8(B
745	cedilla \| ~ \| ~c -> ,bg(B
746	misc \| \" ~ / \| \"s -> ,b_(B ~d -> ,bp(B ~t -> ,b~(B /a -> ,be(B /e -> ,bf(B /o -> ,bx(B
747	\| \" ~ / \| /o -> ,b=(B
748	symbol \| ~ \| ~> -> ,b;(B ~< -> ,b+(B ~! -> ,b!(B ~? -> ,b?(B ~~ -> ,b8(B
749	\| ~ \| ~s -> ,b'(B ~e -> ,b$(B ~. -> ,b7(B ~$ -> ,b#(B ~u -> ,b5(B
750	\| ~ \| ~- -> ,b-(B ~= -> ,b/(B
751	*symbol \| _ / \| _o -> ,b:(B _a -> ,b(B // -> ,b0(B /\\ -> ,bW(B _y -> ,b%(B**
752	\| _ / \| _: -> ,bw(B /c -> ,b"(B ~p -> ,b6(B
753	\| _ / \| /= -> ,b,(B
754	symbol \| ^ \| ^r -> ,b.(B ^c -> ,b)(B ^1 -> ,b9(B ^2 -> ,b2(B ^3 -> ,b3(B _a -> ,b*(B
755	" nil t nil nil nil nil nil nil nil nil t)
756
757	(quail-define-rules
758	("'A" ?,bA(B)
759	("'E" ?,bI(B)
760	("'I" ?,bM(B)
761	("'O" ?,bS(B)
762	("'U" ?,bZ(B)
763	("'Y" ?,b](B)
764	("'a" ?,ba(B)
765	("'e" ?,bi(B)
766	("'i" ?,bm(B)
767	("'o" ?,bs(B)
768	("'u" ?,bz(B)
769	("'y" ?,b}(B)
770	("' " ?')
771	("`A" ?,b@(B)
772	("`E" ?,bH(B)
773	("`I" ?,bL(B)
774	("`O" ?,bR(B)
775	("`U" ?,bY(B)
776	("`a" ?,b`(B)
777	("`e" ?,bh(B)
778	("`i" ?,bl(B)
779	("`o" ?,br(B)
780	("`u" ?,by(B)
781	("``" ?`)
782	(&