Commit | Line | Data |
---|---|---|
24b31c88 KH |
1 | ;; Quail packages for inputting various European characters. |
2 | ||
3 | ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. | |
4 | ;; Licensed to the Free Software Foundation. | |
5 | ||
6 | ;; Keywords: multilingual, input method, latin | |
7 | ||
8 | ;; This file is part of GNU Emacs. | |
9 | ||
10 | ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 | ;; it under the terms of the GNU General Public License as published by | |
12 | ;; the Free Software Foundation; either version 2, or (at your option) | |
13 | ;; any later version. | |
14 | ||
15 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 | ;; GNU General Public License for more details. | |
19 | ||
20 | ;; You should have received a copy of the GNU General Public License | |
21 | ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
22 | ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 | ;; Boston, MA 02111-1307, USA. | |
24 | ||
25 | ;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp> | |
26 | ||
27 | (require 'quail) | |
28 | ||
29 | (quail-define-package | |
30 | "latin-1-postfix" "Latin-1" "1+" t | |
31 | "Latin-1 characters input method with postfix modifiers | |
32 | ||
33 | effect | postfix | examples | |
34 | ------------+---------+---------- | |
35 | acute | ' | a' -> \e,Aa\e(B | |
36 | grave | ` | a` -> \e,A`\e(B | |
37 | circumflex | ^ | a^ -> \e,Ab\e(B | |
38 | diaeresis | \" | a\" -> \e,Ad\e(B | |
39 | tilde | ~ | a~ -> \e,Ac\e(B | |
40 | cedilla | , | c, -> \e,Ag\e(B | |
41 | nordic | / | d/ -> \e,Ap\e(B t/ -> \e,A~\e(B a/ -> \e,Ae\e(B e/ -> \e,Af\e(B o/ -> \e,Ax\e(B | |
42 | special | /<> | s/ -> \e,A_\e(B ?/ -> \e,A?\e(B !/ -> \e,A!\e(B << -> \e,A+\e(B >> -> \e,A;\e(B | |
43 | " nil t) | |
44 | ||
45 | (quail-define-rules | |
46 | ("A`" ?\e,A@\e(B) | |
47 | ("A'" ?\e,AA\e(B) | |
48 | ("A^" ?\e,AB\e(B) | |
49 | ("A~" ?\e,AC\e(B) | |
50 | ("A\"" ?\e,AD\e(B) | |
51 | ("A/" ?\e,AE\e(B) | |
52 | ("a`" ?\e,A`\e(B) | |
53 | ("a'" ?\e,Aa\e(B) | |
54 | ("a^" ?\e,Ab\e(B) | |
55 | ("a~" ?\e,Ac\e(B) | |
56 | ("a\"" ?\e,Ad\e(B) | |
57 | ("a/" ?\e,Ae\e(B) | |
58 | ||
59 | ("E`" ?\e,AH\e(B) | |
60 | ("E'" ?\e,AI\e(B) | |
61 | ("E^" ?\e,AJ\e(B) | |
62 | ("E\"" ?\e,AK\e(B) | |
63 | ("E/" ?\e,AF\e(B) | |
64 | ("e`" ?\e,Ah\e(B) | |
65 | ("e'" ?\e,Ai\e(B) | |
66 | ("e^" ?\e,Aj\e(B) | |
67 | ("e\"" ?\e,Ak\e(B) | |
68 | ("e/" ?\e,Af\e(B) | |
69 | ||
70 | ("I`" ?\e,AL\e(B) | |
71 | ("I'" ?\e,AM\e(B) | |
72 | ("I^" ?\e,AN\e(B) | |
73 | ("I\"" ?\e,AO\e(B) | |
74 | ("i`" ?\e,Al\e(B) | |
75 | ("i'" ?\e,Am\e(B) | |
76 | ("i^" ?\e,An\e(B) | |
77 | ("i\"" ?\e,Ao\e(B) | |
78 | ||
79 | ("O`" ?\e,AR\e(B) | |
80 | ("O'" ?\e,AS\e(B) | |
81 | ("O^" ?\e,AT\e(B) | |
82 | ("O~" ?\e,AU\e(B) | |
83 | ("O\"" ?\e,AV\e(B) | |
84 | ("O/" ?\e,AX\e(B) | |
85 | ("o`" ?\e,Ar\e(B) | |
86 | ("o'" ?\e,As\e(B) | |
87 | ("o^" ?\e,At\e(B) | |
88 | ("o~" ?\e,Au\e(B) | |
89 | ("o\"" ?\e,Av\e(B) | |
90 | ("o/" ?\e,Ax\e(B) | |
91 | ||
92 | ("U`" ?\e,AY\e(B) | |
93 | ("U'" ?\e,AZ\e(B) | |
94 | ("U^" ?\e,A[\e(B) | |
95 | ("U\"" ?\e,A\\e(B) | |
96 | ("u`" ?\e,Ay\e(B) | |
97 | ("u'" ?\e,Az\e(B) | |
98 | ("u^" ?\e,A{\e(B) | |
99 | ("u\"" ?\e,A|\e(B) | |
100 | ||
101 | ("Y'" ?\e,A]\e(B) | |
102 | ("y'" ?\e,A}\e(B) | |
103 | ||
104 | ("D/" ?\e,AP\e(B) | |
105 | ("d/" ?\e,Ap\e(B) | |
106 | ||
107 | ("T/" ?\e,A^\e(B) | |
108 | ("t/" ?\e,A~\e(B) | |
109 | ||
110 | ("s/" ?\e,A_\e(B) | |
111 | ||
112 | ("C," ?\e,AG\e(B) | |
113 | ("c," ?\e,Ag\e(B) | |
114 | ||
115 | ("N~" ?\e,AQ\e(B) | |
116 | ("n~" ?\e,Aq\e(B) | |
117 | ||
118 | ("?/" ?\e,A?\e(B) | |
119 | ("!/" ?\e,A!\e(B) | |
120 | ("<<" ?\e,A+\e(B) | |
121 | (">>" ?\e,A;\e(B)) | |
122 | ||
123 | (quail-define-package | |
124 | "latin-2-postfix" "Latin-2" "2+" t | |
125 | "Latin-2 characters input method with postfix modifiers | |
126 | ||
127 | effect | postfix | examples | |
128 | ------------+---------+---------- | |
129 | acute | ' | a' -> \e,Ba\e(B | |
130 | ogonek | , | a, -> \e,B1\e(B | |
131 | diaeresis | \" | a\" -> \e,Bd\e(B | |
132 | circumflex | ^ | a^ -> \e,Bb\e(B | |
133 | breve | ~ | a~ -> \e,Bc\e(B | |
134 | cedilla | , | c, -> \e,Bg\e(B | |
135 | caron | ~ | c~ -> \e,Bh\e(B | |
136 | dbl. acute | '' | o'' -> \e,Bu\e(B | |
137 | ring | . | u. -> \e,By\e(B | |
138 | dot | . | z. -> \e,B?\e(B | |
139 | stroke | / | d/ -> \e,Bp\e(B | |
140 | special | / | s/ -> \e,B_\e(B | |
141 | " nil t) | |
142 | ||
143 | (quail-define-rules | |
144 | ("A'" ?\e,BA\e(B) | |
145 | ("A," ?\e,B!\e(B) | |
146 | ("A\"" ?\e,BD\e(B) | |
147 | ("A^" ?\e,BB\e(B) | |
148 | ("A~" ?\e,BC\e(B) | |
149 | ("C'" ?\e,BF\e(B) | |
150 | ("C," ?\e,BG\e(B) | |
151 | ("C~" ?\e,BH\e(B) | |
152 | ("D/" ?\e,BP\e(B) | |
153 | ("D~" ?\e,BO\e(B) | |
154 | ("E'" ?\e,BI\e(B) | |
155 | ("E," ?\e,BJ\e(B) | |
156 | ("E\"" ?\e,BK\e(B) | |
157 | ("E~" ?\e,BL\e(B) | |
158 | ("I'" ?\e,BM\e(B) | |
159 | ("I^" ?\e,BN\e(B) | |
160 | ("L'" ?\e,BE\e(B) | |
161 | ("L/" ?\e,B#\e(B) | |
162 | ("L~" ?\e,B%\e(B) | |
163 | ("N'" ?\e,BQ\e(B) | |
164 | ("N~" ?\e,BR\e(B) | |
165 | ("O'" ?\e,BS\e(B) | |
166 | ("O''" ["\e,BU\e(B" "\e,BS\e(B'"]) | |
167 | ("O\"" ?\e,BV\e(B) | |
168 | ("O^" ?\e,BT\e(B) | |
169 | ("R'" ?\e,B@\e(B) | |
170 | ("R~" ?\e,BX\e(B) | |
171 | ("S'" ?\e,B&\e(B) | |
172 | ("S," ?\e,B*\e(B) | |
173 | ("S~" ?\e,B)\e(B) | |
174 | ("T," ?\e,B^\e(B) | |
175 | ("T~" ?\e,B+\e(B) | |
176 | ("U'" ?\e,BZ\e(B) | |
177 | ("U''" ["\e,B[\e(B" "\e,BZ\e(B'"]) | |
178 | ("U\"" ?\e,B\\e(B) | |
179 | ("U." ?\e,BY\e(B) | |
180 | ("Y'" ?\e,B]\e(B) | |
181 | ("Z'" ?\e,B,\e(B) | |
182 | ("Z." ?\e,B/\e(B) | |
183 | ("Z~" ?\e,B.\e(B) | |
184 | ("a'" ?\e,Ba\e(B) | |
185 | ("a," ?\e,B1\e(B) | |
186 | ("a\"" ?\e,Bd\e(B) | |
187 | ("a^" ?\e,Bb\e(B) | |
188 | ("a~" ?\e,Bc\e(B) | |
189 | ("c'" ?\e,Bf\e(B) | |
190 | ("c," ?\e,Bg\e(B) | |
191 | ("c~" ?\e,Bh\e(B) | |
192 | ("d/" ?\e,Bp\e(B) | |
193 | ("d~" ?\e,Bo\e(B) | |
194 | ("e'" ?\e,Bi\e(B) | |
195 | ("e," ?\e,Bj\e(B) | |
196 | ("e\"" ?\e,Bk\e(B) | |
197 | ("e~" ?\e,Bl\e(B) | |
198 | ("i'" ?\e,Bm\e(B) | |
199 | ("i^" ?\e,Bn\e(B) | |
200 | ("l'" ?\e,Be\e(B) | |
201 | ("l/" ?\e,B3\e(B) | |
202 | ("l~" ?\e,B5\e(B) | |
203 | ("n'" ?\e,Bq\e(B) | |
204 | ("n~" ?\e,Br\e(B) | |
205 | ("o'" ?\e,Bs\e(B) | |
206 | ("o''" ["\e,Bu\e(B" "\e,Bs\e(B'"]) | |
207 | ("o\"" ?\e,Bv\e(B) | |
208 | ("o^" ?\e,Bt\e(B) | |
209 | ("r'" ?\e,B`\e(B) | |
210 | ("r~" ?\e,Bx\e(B) | |
211 | ("s'" ?\e,B6\e(B) | |
212 | ("s," ?\e,B:\e(B) | |
213 | ("s/" ?\e,B_\e(B) | |
214 | ("s~" ?\e,B9\e(B) | |
215 | ("t," ?\e,B~\e(B) | |
216 | ("t~" ?\e,B;\e(B) | |
217 | ("u'" ?\e,Bz\e(B) | |
218 | ("u''" ["\e,B{\e(B" "\e,Bz\e(B'"]) | |
219 | ("u\"" ?\e,B|\e(B) | |
220 | ("u." ?\e,By\e(B) | |
221 | ("y'" ?\e,B}\e(B) | |
222 | ("z'" ?\e,B<\e(B) | |
223 | ("z." ?\e,B?\e(B) | |
224 | ("z~" ?\e,B>\e(B) | |
225 | ) | |
226 | ||
227 | (quail-define-package | |
228 | "latin-3-postfix" "Latin-3" "3+" t | |
229 | "Latin-3 characters input method with postfix modifiers | |
230 | ||
231 | effect | postfix | examples | |
232 | ------------+---------+---------- | |
233 | acute | ' | a' -> \e,Ca\e(B | |
234 | grave | ` | a` -> \e,C`\e(B | |
235 | circumflex | ^ | a^ -> \e,Cb\e(B | |
236 | diaeresis | \" | a\" -> \e,Cd\e(B | |
237 | dot | . | c. -> \e,Ce\e(B i. -> \e,C9\e(B I. -> \e,C)\e(B | |
238 | cedilla | , | c, -> \e,Cg\e(B | |
239 | breve | ~ | g~ -> \e,C;\e(B | |
240 | tilde | ~ | n~ -> \e,Cq\e(B | |
241 | stroke | / | h/ -> \e,C1\e(B | |
242 | special | / | s/ -> \e,C_\e(B | |
243 | " nil t) | |
244 | ||
245 | (quail-define-rules | |
246 | ("A`" ?\e,C@\e(B) | |
247 | ("A'" ?\e,CA\e(B) | |
248 | ("A^" ?\e,CB\e(B) | |
249 | ("A\"" ?\e,CD\e(B) | |
250 | ("C." ?\e,CE\e(B) | |
251 | ("C^" ?\e,CF\e(B) | |
252 | ("C," ?\e,CG\e(B) | |
253 | ("E`" ?\e,CH\e(B) | |
254 | ("E'" ?\e,CI\e(B) | |
255 | ("E^" ?\e,CJ\e(B) | |
256 | ("E\"" ?\e,CK\e(B) | |
257 | ("G~" ?\e,C+\e(B) | |
258 | ("G." ?\e,CU\e(B) | |
259 | ("G^" ?\e,CX\e(B) | |
260 | ("H/" ?\e,C!\e(B) | |
261 | ("H^" ?\e,C&\e(B) | |
262 | ("I." ?\e,C)\e(B) | |
263 | ("I`" ?\e,CL\e(B) | |
264 | ("I'" ?\e,CM\e(B) | |
265 | ("I^" ?\e,CN\e(B) | |
266 | ("I\"" ?\e,CO\e(B) | |
267 | ("J^" ?\e,C,\e(B) | |
268 | ("N~" ?\e,CQ\e(B) | |
269 | ("O`" ?\e,CR\e(B) | |
270 | ("O'" ?\e,CS\e(B) | |
271 | ("O^" ?\e,CT\e(B) | |
272 | ("O\"" ?\e,CV\e(B) | |
273 | ("S," ?\e,C*\e(B) | |
274 | ("S^" ?\e,C^\e(B) | |
275 | ("U`" ?\e,CY\e(B) | |
276 | ("U'" ?\e,CZ\e(B) | |
277 | ("U^" ?\e,C[\e(B) | |
278 | ("U\"" ?\e,C\\e(B) | |
279 | ("U~" ?\e,C]\e(B) | |
280 | ("Z." ?\e,C/\e(B) | |
281 | ("a`" ?\e,C`\e(B) | |
282 | ("a'" ?\e,Ca\e(B) | |
283 | ("a^" ?\e,Cb\e(B) | |
284 | ("a\"" ?\e,Cd\e(B) | |
285 | ("c." ?\e,Ce\e(B) | |
286 | ("c^" ?\e,Cf\e(B) | |
287 | ("c," ?\e,Cg\e(B) | |
288 | ("e`" ?\e,Ch\e(B) | |
289 | ("e'" ?\e,Ci\e(B) | |
290 | ("e^" ?\e,Cj\e(B) | |
291 | ("e\"" ?\e,Ck\e(B) | |
292 | ("g~" ?\e,C;\e(B) | |
293 | ("g." ?\e,Cu\e(B) | |
294 | ("g^" ?\e,Cx\e(B) | |
295 | ("h/" ?\e,C1\e(B) | |
296 | ("h^" ?\e,C6\e(B) | |
297 | ("i." ?\e,C9\e(B) | |
298 | ("i`" ?\e,Cl\e(B) | |
299 | ("i'" ?\e,Cm\e(B) | |
300 | ("i^" ?\e,Cn\e(B) | |
301 | ("i\"" ?\e,Co\e(B) | |
302 | ("j^" ?\e,C<\e(B) | |
303 | ("n~" ?\e,Cq\e(B) | |
304 | ("o`" ?\e,Cr\e(B) | |
305 | ("o'" ?\e,Cs\e(B) | |
306 | ("o^" ?\e,Ct\e(B) | |
307 | ("o\"" ?\e,Cv\e(B) | |
308 | ("s," ?\e,C:\e(B) | |
309 | ("s/" ?\e,C_\e(B) | |
310 | ("s^" ?\e,C~\e(B) | |
311 | ("u`" ?\e,Cy\e(B) | |
312 | ("u'" ?\e,Cz\e(B) | |
313 | ("u^" ?\e,C{\e(B) | |
314 | ("u\"" ?\e,C|\e(B) | |
315 | ("u~" ?\e,C}\e(B) | |
316 | ("z." ?\e,C?\e(B) | |
317 | ) | |
318 | ||
319 | (quail-define-package | |
320 | "latin-4-postfix" "Latin-4" "4+" t | |
321 | "Latin-4 characters input method with postfix modifiers | |
322 | ||
323 | effect | postfix | examples | |
324 | ------------+---------+---------- | |
325 | acute | ' | a' -> \e,Da\e(B | |
326 | circumflex | ^ | a^ -> \e,Db\e(B | |
327 | diaeresis | \" | a\" -> \e,Dd\e(B | |
328 | ogonek | , | a, -> \e,D1\e(B | |
329 | macron | - | a- -> \e,D`\e(B | |
330 | tilde | ~ | a~ -> \e,Dc\e(B | |
331 | caron | ~ | c~ -> \e,Dh\e(B | |
332 | dot | . | e. -> \e,Dl\e(B | |
333 | cedilla | , | k, -> \e,Ds\e(B g, -> \e,D;\e(B | |
334 | stroke | / | d/ -> \e,Dp\e(B | |
335 | nordic | / | a/ -> \e,De\e(B e/ -> \e,Df\e(B o/ -> \e,Dx\e(B | |
336 | special | / | s/ -> \e,D_\e(B n/ -> \e,D?\e(B k/ -> \e,D"\e(B | |
337 | " nil t) | |
338 | ||
339 | (quail-define-rules | |
340 | ("A," ?\e,D!\e(B) | |
341 | ("A-" ?\e,D@\e(B) | |
342 | ("A'" ?\e,DA\e(B) | |
343 | ("A^" ?\e,DB\e(B) | |
344 | ("A~" ?\e,DC\e(B) | |
345 | ("A\"" ?\e,DD\e(B) | |
346 | ("A/" ?\e,DE\e(B) | |
347 | ("C~" ?\e,DH\e(B) | |
348 | ("D/" ?\e,DP\e(B) | |
349 | ("E/" ?\e,DF\e(B) | |
350 | ("E-" ?\e,D*\e(B) | |
351 | ("E'" ?\e,DI\e(B) | |
352 | ("E," ?\e,DJ\e(B) | |
353 | ("E\"" ?\e,DK\e(B) | |
354 | ("E." ?\e,DL\e(B) | |
355 | ("G," ?\e,D+\e(B) | |
356 | ("I~" ?\e,D%\e(B) | |
357 | ("I," ?\e,DG\e(B) | |
358 | ("I'" ?\e,DM\e(B) | |
359 | ("I^" ?\e,DN\e(B) | |
360 | ("I-" ?\e,DO\e(B) | |
361 | ("K," ?\e,DS\e(B) | |
362 | ("L," ?\e,D&\e(B) | |
363 | ("N/" ?\e,D=\e(B) | |
364 | ("N," ?\e,DQ\e(B) | |
365 | ("O-" ?\e,DR\e(B) | |
366 | ("O^" ?\e,DT\e(B) | |
367 | ("O~" ?\e,DU\e(B) | |
368 | ("O\"" ?\e,DV\e(B) | |
369 | ("O/" ?\e,DX\e(B) | |
370 | ("R," ?\e,D#\e(B) | |
371 | ("S~" ?\e,D)\e(B) | |
372 | ("T/" ?\e,D,\e(B) | |
373 | ("U," ?\e,DY\e(B) | |
374 | ("U'" ?\e,DZ\e(B) | |
375 | ("U^" ?\e,D[\e(B) | |
376 | ("U\"" ?\e,D\\e(B) | |
377 | ("U~" ?\e,D]\e(B) | |
378 | ("U-" ?\e,D^\e(B) | |
379 | ("Z~" ?\e,D.\e(B) | |
380 | ("a," ?\e,D1\e(B) | |
381 | ("a-" ?\e,D`\e(B) | |
382 | ("a'" ?\e,Da\e(B) | |
383 | ("a^" ?\e,Db\e(B) | |
384 | ("a~" ?\e,Dc\e(B) | |
385 | ("a\"" ?\e,Dd\e(B) | |
386 | ("a/" ?\e,De\e(B) | |
387 | ("c~" ?\e,Dh\e(B) | |
388 | ("d/" ?\e,Dp\e(B) | |
389 | ("e/" ?\e,Df\e(B) | |
390 | ("e-" ?\e,D:\e(B) | |
391 | ("e'" ?\e,Di\e(B) | |
392 | ("e," ?\e,Dj\e(B) | |
393 | ("e\"" ?\e,Dk\e(B) | |
394 | ("e." ?\e,Dl\e(B) | |
395 | ("g," ?\e,D;\e(B) | |
396 | ("i~" ?\e,D5\e(B) | |
397 | ("i," ?\e,Dg\e(B) | |
398 | ("i'" ?\e,Dm\e(B) | |
399 | ("i^" ?\e,Dn\e(B) | |
400 | ("i-" ?\e,Do\e(B) | |
401 | ("k/" ?\e,D"\e(B) | |
402 | ("k," ?\e,Ds\e(B) | |
403 | ("l," ?\e,D6\e(B) | |
404 | ("n/" ?\e,D?\e(B) | |
405 | ("n," ?\e,Dq\e(B) | |
406 | ("o-" ?\e,Dr\e(B) | |
407 | ("o^" ?\e,Dt\e(B) | |
408 | ("o~" ?\e,Du\e(B) | |
409 | ("o\"" ?\e,Dv\e(B) | |
410 | ("o/" ?\e,Dx\e(B) | |
411 | ("r," ?\e,D3\e(B) | |
412 | ("s/" ?\e,D_\e(B) | |
413 | ("s~" ?\e,D9\e(B) | |
414 | ("t/" ?\e,D<\e(B) | |
415 | ("u," ?\e,Dy\e(B) | |
416 | ("u'" ?\e,Dz\e(B) | |
417 | ("u^" ?\e,D{\e(B) | |
418 | ("u\"" ?\e,D|\e(B) | |
419 | ("u~" ?\e,D}\e(B) | |
420 | ("u-" ?\e,D~\e(B) | |
421 | ("z~" ?\e,D>\e(B) | |
422 | ) | |
423 | ||
424 | (quail-define-package | |
425 | "latin-5-postfix" "Latin-5" "5+" t | |
426 | "Latin-5 characters input method with postfix modifiers | |
427 | ||
428 | effect | postfix | examples | |
429 | ------------+---------+---------- | |
430 | acute | ' | a' -> \e,Ma\e(B | |
431 | grave | ` | a` -> \e,M`\e(B | |
432 | circumflex | ^ | a^ -> \e,Mb\e(B | |
433 | diaeresis | \" | a\" -> \e,Md\e(B | |
434 | tilde | ~ | a~ -> \e,Mc\e(B | |
435 | breve | ~ | g~ -> \e,Mp\e(B | |
436 | cedilla | , | c, -> \e,Mg\e(B | |
437 | dot | . | i. -> \e,M}\e(B I. -> \e,M]\e(B | |
438 | nordic | / | a/ -> \e,Me\e(B e/ -> \e,Mf\e(B o/ -> \e,Mx\e(B | |
439 | special | / | s/ -> \e,M_\e(B | |
440 | " nil t) | |
441 | ||
442 | (quail-define-rules | |
443 | ("A'" ?\e,MA\e(B) | |
444 | ("A/" ?\e,ME\e(B) | |
445 | ("A\"" ?\e,MD\e(B) | |
446 | ("A^" ?\e,MB\e(B) | |
447 | ("A`" ?\e,M@\e(B) | |
448 | ("A~" ?\e,MC\e(B) | |
449 | ("C," ?\e,MG\e(B) | |
450 | ("E'" ?\e,MI\e(B) | |
451 | ("E/" ?\e,MF\e(B) | |
452 | ("E\"" ?\e,MK\e(B) | |
453 | ("E^" ?\e,MJ\e(B) | |
454 | ("E`" ?\e,MH\e(B) | |
455 | ("G~" ?\e,MP\e(B) | |
456 | ("I'" ?\e,MM\e(B) | |
457 | ("I." ?\e,M]\e(B) | |
458 | ("I\"" ?\e,MO\e(B) | |
459 | ("I^" ?\e,MN\e(B) | |
460 | ("I`" ?\e,ML\e(B) | |
461 | ("N~" ?\e,MQ\e(B) | |
462 | ("O'" ?\e,MS\e(B) | |
463 | ("O/" ?\e,MX\e(B) | |
464 | ("O\"" ?\e,MV\e(B) | |
465 | ("O^" ?\e,MT\e(B) | |
466 | ("O`" ?\e,MR\e(B) | |
467 | ("O~" ?\e,MU\e(B) | |
468 | ("S," ?\e,M^\e(B) | |
469 | ("U'" ?\e,MZ\e(B) | |
470 | ("U\"" ?\e,M\\e(B) | |
471 | ("U^" ?\e,M[\e(B) | |
472 | ("U`" ?\e,MY\e(B) | |
473 | ("a'" ?\e,Ma\e(B) | |
474 | ("a/" ?\e,Me\e(B) | |
475 | ("a\"" ?\e,Md\e(B) | |
476 | ("a^" ?\e,Mb\e(B) | |
477 | ("a`" ?\e,M`\e(B) | |
478 | ("a~" ?\e,Mc\e(B) | |
479 | ("c," ?\e,Mg\e(B) | |
480 | ("e'" ?\e,Mi\e(B) | |
481 | ("e/" ?\e,Mf\e(B) | |
482 | ("e\"" ?\e,Mk\e(B) | |
483 | ("e^" ?\e,Mj\e(B) | |
484 | ("e`" ?\e,Mh\e(B) | |
485 | ("g~" ?\e,Mp\e(B) | |
486 | ("i'" ?\e,Mm\e(B) | |
487 | ("i." ?\e,M}\e(B) | |
488 | ("i\"" ?\e,Mo\e(B) | |
489 | ("i^" ?\e,Mn\e(B) | |
490 | ("i`" ?\e,Ml\e(B) | |
491 | ("n~" ?\e,Mq\e(B) | |
492 | ("o'" ?\e,Ms\e(B) | |
493 | ("o/" ?\e,Mx\e(B) | |
494 | ("o\"" ?\e,Mv\e(B) | |
495 | ("o^" ?\e,Mt\e(B) | |
496 | ("o`" ?\e,Mr\e(B) | |
497 | ("o~" ?\e,Mu\e(B) | |
498 | ("s," ?\e,M~\e(B) | |
499 | ("s/" ?\e,M_\e(B) | |
500 | ("u'" ?\e,Mz\e(B) | |
501 | ("u\"" ?\e,M|\e(B) | |
502 | ("u^" ?\e,M{\e(B) | |
503 | ("u`" ?\e,My\e(B) | |
504 | ("y\"" ?\e,M\7f\e(B) | |
505 | ) | |
506 | ||
507 | (quail-define-package | |
508 | "danish-postfix" "Latin-1" "DA+" t | |
509 | "Danish input method (rule: AE -> \e,AF\e(B, OE -> \e,AX\e(B, AA -> \e,AE\e(B, E' -> \e,AI\e(B)" | |
510 | nil t) | |
511 | ||
512 | (quail-define-rules | |
513 | ("AE" ?\e,AF\e(B) | |
514 | ("ae" ?\e,Af\e(B) | |
515 | ||
516 | ("OE" ?\e,AX\e(B) | |
517 | ("oe" ?\e,Ax\e(B) | |
518 | ||
519 | ("AA" ?\e,AE\e(B) | |
520 | ("aa" ?\e,Ae\e(B) | |
521 | ||
522 | ("E'" ?\e,AI\e(B) | |
523 | ("e'" ?\e,Ai\e(B) | |
524 | ) | |
525 | ||
526 | (quail-define-package | |
527 | "esperanto-postfix" "Latin-3" "EO+" t | |
528 | "Esperanto input method with postfix modifiers | |
529 | ||
530 | Preceding ^ or following x will produce accented characters, | |
531 | e.g. ^C -> \e,CF\e(B, Gx -> \e,CX\e(B. | |
532 | " nil t) | |
533 | ||
534 | (quail-define-rules | |
535 | ("Cx" ?\e,CF\e(B) | |
536 | ("^C" ?\e,CF\e(B) | |
537 | ("cx" ?\e,Cf\e(B) | |
538 | ("^c" ?\e,Cf\e(B) | |
539 | ||
540 | ("Gx" ?\e,CX\e(B) | |
541 | ("^G" ?\e,CX\e(B) | |
542 | ("gx" ?\e,Cx\e(B) | |
543 | ("^g" ?\e,Cx\e(B) | |
544 | ||
545 | ("Hx" ?\e,C&\e(B) | |
546 | ("^H" ?\e,C&\e(B) | |
547 | ("hx" ?\e,C6\e(B) | |
548 | ("^h" ?\e,C6\e(B) | |
549 | ||
550 | ("Jx" ?\e,C,\e(B) | |
551 | ("^J" ?\e,C,\e(B) | |
552 | ("jx" ?\e,C<\e(B) | |
553 | ("^j" ?\e,C<\e(B) | |
554 | ||
555 | ("Sx" ?\e,C^\e(B) | |
556 | ("^S" ?\e,C^\e(B) | |
557 | ("sx" ?\e,C~\e(B) | |
558 | ("^s" ?\e,C~\e(B) | |
559 | ||
560 | ("Ux" ?\e,C]\e(B) | |
561 | ("^U" ?\e,C]\e(B) | |
562 | ("~U" ?\e,C]\e(B) | |
563 | ("ux" ?\e,C}\e(B) | |
564 | ("^u" ?\e,C}\e(B) | |
565 | ("~u" ?\e,C}\e(B) | |
566 | ) | |
567 | ||
568 | (quail-define-package | |
569 | "finnish-postfix" "Latin-1" "FI+" t | |
570 | "Finnish (Suomi) input method (rule: AE -> \e,AD\e(B, OE -> \e,AV\e(B)" | |
571 | nil t) | |
572 | ||
573 | (quail-define-rules | |
574 | ("AE" ?\e,AD\e(B) | |
575 | ("ae" ?\e,Ad\e(B) | |
576 | ||
577 | ("OE" ?\e,AV\e(B) | |
578 | ("oe" ?\e,Av\e(B) | |
579 | ) | |
580 | ||
581 | (quail-define-package | |
582 | "french-postfix" "Latin-1" "FR+" t | |
583 | "French (Fran\e,Ag\e(Bais) input method with postfix modifiers | |
584 | ||
585 | ` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr\e,Ai\e(Bma. | |
586 | Par exemple A` -> \e,A@\e(B, E' -> \e,AI\e(B. | |
587 | ||
588 | \e,AG\e(B, \e,A+\e(B, et \e,A;\e(B sont produits par C/, <<, et >>. | |
589 | ||
590 | <e dans l'o> n'est pas disponible." | |
591 | nil t) | |
592 | ||
593 | (quail-define-rules | |
594 | ("A`" ?\e,A@\e(B) | |
595 | ("A^" ?\e,AB\e(B) | |
596 | ("a`" ?\e,A`\e(B) | |
597 | ("a^" ?\e,Ab\e(B) | |
598 | ||
599 | ("E`" ?\e,AH\e(B) | |
600 | ("E'" ?\e,AI\e(B) | |
601 | ("E^" ?\e,AJ\e(B) | |
602 | ("E\"" ?\e,AK\e(B) | |
603 | ("e`" ?\e,Ah\e(B) | |
604 | ("e'" ?\e,Ai\e(B) | |
605 | ("e^" ?\e,Aj\e(B) | |
606 | ("e\"" ?\e,Ak\e(B) | |
607 | ||
608 | ("I^" ?\e,AN\e(B) | |
609 | ("I\"" ?\e,AO\e(B) | |
610 | ("i^" ?\e,An\e(B) | |
611 | ("i\"" ?\e,Ao\e(B) | |
612 | ||
613 | ("O^" ?\e,AT\e(B) | |
614 | ("o^" ?\e,At\e(B) | |
615 | ||
616 | ("U`" ?\e,AY\e(B) | |
617 | ("U^" ?\e,A[\e(B) | |
618 | ("U\"" ?\e,A\\e(B) | |
619 | ("u`" ?\e,Ay\e(B) | |
620 | ("u^" ?\e,A{\e(B) | |
621 | ("u\"" ?\e,A|\e(B) | |
622 | ||
623 | ("C/" ?\e,AG\e(B) | |
624 | ("c/" ?\e,Ag\e(B) | |
625 | ||
626 | ("<<" ?\e,A+\e(B) | |
627 | (">>" ?\e,A;\e(B) | |
628 | ) | |
629 | ||
630 | (quail-define-package | |
631 | "german-postfix" "Latin-1" "DE+" t | |
632 | "German (Deutsch) input method (rule: AE -> \e,AD\e(B, OE -> \e,AV\e(B, UE -> \e,A\\e(B, sz -> \e,A_\e(B) | |
633 | ||
634 | \e,A_\e(B can also be input by 'ss' followed by M-n." | |
635 | nil t) | |
636 | ||
637 | (quail-define-rules | |
638 | ("AE" ?\e,AD\e(B) | |
639 | ("ae" ?\e,Ad\e(B) | |
640 | ||
641 | ("OE" ?\e,AV\e(B) | |
642 | ("oe" ?\e,Av\e(B) | |
643 | ||
644 | ("UE" ?\e,A\\e(B) | |
645 | ("ue" ?\e,A|\e(B) | |
646 | ||
647 | ("sz" ?\e,A_\e(B) | |
648 | ("ss" ["ss" ?\e,A_\e(B]) | |
649 | ) | |
650 | ||
651 | (quail-define-package | |
652 | "icelandic-postfix" "Latin-1" "IS+" t | |
653 | "Icelandic (\e,AM\e(Bslenska) input method with postfix modifiers | |
654 | ||
655 | A' -> \e,AA\e(B | |
656 | E' -> \e,AI\e(B | |
657 | I' -> \e,AM\e(B | |
658 | O' -> \e,AS\e(B | |
659 | U' -> \e,AZ\e(B | |
660 | Y' -> \e,A]\e(B | |
661 | AE -> \e,AF\e(B | |
662 | OE -> \e,AV\e(B | |
663 | D/ -> \e,AP\e(B (eth) | |
664 | T/ -> \e,A^\e(B (thorn)" | |
665 | nil t) | |
666 | ||
667 | (quail-define-rules | |
668 | ("A'" ?\e,AA\e(B) | |
669 | ("a'" ?\e,Aa\e(B) | |
670 | ||
671 | ("E'" ?\e,AI\e(B) | |
672 | ("e'" ?\e,Ai\e(B) | |
673 | ||
674 | ("I'" ?\e,AM\e(B) | |
675 | ("i'" ?\e,Am\e(B) | |
676 | ||
677 | ("O'" ?\e,AS\e(B) | |
678 | ("o'" ?\e,As\e(B) | |
679 | ||
680 | ("U'" ?\e,AZ\e(B) | |
681 | ("u'" ?\e,Az\e(B) | |
682 | ||
683 | ("Y'" ?\e,A]\e(B) | |
684 | ("y'" ?\e,A}\e(B) | |
685 | ||
686 | ("AE" ?\e,AF\e(B) | |
687 | ("ae" ?\e,Af\e(B) | |
688 | ||
689 | ("OE" ?\e,AV\e(B) | |
690 | ("oe" ?\e,Av\e(B) | |
691 | ||
692 | ("D/" ?\e,AP\e(B) | |
693 | ("d/" ?\e,Ap\e(B) | |
694 | ||
695 | ("T/" ?\e,A^\e(B) | |
696 | ("t/" ?\e,A~\e(B) | |
697 | ) | |
698 | ||
699 | (quail-define-package | |
700 | "italian-postfix" "Latin-1" "IT+" t | |
701 | "Italian (Italiano) input method with postfix modifiers | |
702 | ||
703 | A` -> \e,A@\e(B | |
704 | E` -> \e,AH\e(B | |
705 | I` -> \e,AL\e(B | |
706 | O` -> \e,AR\e(B | |
707 | U` -> \e,AY\e(B | |
708 | " nil t) | |
709 | ||
710 | (quail-define-rules | |
711 | ("A`" ?\e,A@\e(B) | |
712 | ("a`" ?\e,A`\e(B) | |
713 | ||
714 | ("E`" ?\e,AH\e(B) | |
715 | ("e`" ?\e,Ah\e(B) | |
716 | ||
717 | ("I`" ?\e,AL\e(B) | |
718 | ("i`" ?\e,Al\e(B) | |
719 | ||
720 | ("O`" ?\e,AR\e(B) | |
721 | ("o`" ?\e,Ar\e(B) | |
722 | ||
723 | ("U`" ?\e,AY\e(B) | |
724 | ("u`" ?\e,Ay\e(B) | |
725 | ) | |
726 | ||
727 | (quail-define-package | |
728 | "norwegian-postfix" "Latin-1" "NO+" t | |
729 | "Norwegian (Norsk) input method (rule: AE->\e,AF\e(B, OE->\e,AX\e(B, AA->\e,AE\e(B, E'->\e,AI\e(B)" | |
730 | nil t) | |
731 | ||
732 | (quail-define-rules | |
733 | ("AE" ?\e,AF\e(B) | |
734 | ("ae" ?\e,Af\e(B) | |
735 | ||
736 | ("OE" ?\e,AX\e(B) | |
737 | ("oe" ?\e,Ax\e(B) | |
738 | ||
739 | ("AA" ?\e,AE\e(B) | |
740 | ("aa" ?\e,Ae\e(B) | |
741 | ||
742 | ("E'" ?\e,AI\e(B) | |
743 | ("e'" ?\e,Ai\e(B) | |
744 | ) | |
745 | ||
746 | (quail-define-package | |
747 | "scandinavian-postfix" "Latin-1" "SC+" t | |
748 | "Scandinavian input method (rule: AE->\e,AD\e(B/\e,AF\e(B, OE->\e,AV\e(B/\e,AX\e(B, AA->\e,AE\e(B, E'->\e,AI\e(B) | |
749 | ||
750 | Supported languages are Swidish, Norwegian, Danish, and Finnish. | |
751 | ||
752 | You can toggle between \e,AD\e(B and \e,AF\e(B, or between OE and \e,AV\e(B, by typing M-n | |
753 | when the character is underlined. | |
754 | " nil) | |
755 | ||
756 | (quail-define-rules | |
757 | ("AE" [?\e,AD\e(B ?\e,AF\e(B]) | |
758 | ("ae" [?\e,Ad\e(B ?\e,Af\e(B]) | |
759 | ||
760 | ("AA" ?\e,AE\e(B) | |
761 | ("aa" ?\e,Ae\e(B) | |
762 | ||
763 | ("OE" [?\e,AV\e(B ?\e,AX\e(B]) | |
764 | ("oe" [?\e,Av\e(B ?\e,Ax\e(B]) | |
765 | ||
766 | ("E'" ?\e,AI\e(B) | |
767 | ("e'" ?\e,Ai\e(B) | |
768 | ) | |
769 | ||
770 | (quail-define-package | |
771 | "spanish-postfix" "Latin-1" "ES+" t | |
772 | "Spanish (Espa\e,Aq\e(Bol) input method with postfix modifiers | |
773 | ||
774 | A' -> \e,AA\e(B | |
775 | E' -> \e,AI\e(B | |
776 | I' -> \e,AM\e(B | |
777 | O' -> \e,AS\e(B | |
778 | U' -> \e,AZ\e(B | |
779 | N~ -> \e,AQ\e(B | |
780 | !/ -> \e,A!\e(B | |
781 | ?/ -> \e,A?\e(B | |
782 | " nil t) | |
783 | ||
784 | (quail-define-rules | |
785 | ("A'" ?\e,AA\e(B) | |
786 | ("a'" ?\e,Aa\e(B) | |
787 | ||
788 | ("E'" ?\e,AI\e(B) | |
789 | ("e'" ?\e,Ai\e(B) | |
790 | ||
791 | ("I'" ?\e,AM\e(B) | |
792 | ("i'" ?\e,Am\e(B) | |
793 | ||
794 | ("O'" ?\e,AS\e(B) | |
795 | ("o'" ?\e,As\e(B) | |
796 | ||
797 | ("U'" ?\e,AZ\e(B) | |
798 | ("u'" ?\e,Az\e(B) | |
799 | ||
800 | ("N~" ?\e,AQ\e(B) | |
801 | ("n~" ?\e,Aq\e(B) | |
802 | ||
803 | ("?/" ?\e,A?\e(B) | |
804 | ("!/" ?\e,A!\e(B) | |
805 | ) | |
806 | ||
807 | (quail-define-package | |
808 | "swedish-postfix" "Latin-1" "SV" t | |
809 | "Swedish (Svenska) input method (rule: AA -> \e,AE\e(B, AE -> \e,AD\e(B, OE -> \e,AV\e(B, E' -> \e,AI\e(B)" | |
810 | nil t) | |
811 | ||
812 | (quail-define-rules | |
813 | ("AA" ?\e,AE\e(B) | |
814 | ("aa" ?\e,Ae\e(B) | |
815 | ||
816 | ("AE" ?\e,AD\e(B) | |
817 | ("ae" ?\e,Ad\e(B) | |
818 | ||
819 | ("OE" ?\e,AV\e(B) | |
820 | ("oe" ?\e,Av\e(B) | |
821 | ||
822 | ("E'" ?\e,AI\e(B) | |
823 | ("e'" ?\e,Ai\e(B) | |
824 | ) | |
825 | ||
826 | (quail-define-package | |
827 | "turkish-postfix" "Latin-3" "TR" t | |
828 | "Turkish (T\e,C|\e(Brk\e,Cg\e(Be) input method with postfix modifiers | |
829 | ||
830 | Note for I, \e,C9\e(B, \e,C)\e(B, i. | |
831 | ||
832 | A^ -> \e,CB\e(B | |
833 | C/ -> \e,CG\e(B | |
834 | G^ -> \e,C+\e(B | |
835 | I -> I | |
836 | i -> \e,C9\e(B | |
837 | I' -> \e,C)\e(B | |
838 | i' -> i | |
839 | O\" -> \e,CV\e(B | |
840 | S/ -> \e,C*\e(B | |
841 | U\" -> \e,C\\e(B | |
842 | U^ -> \e,C[\e(B | |
843 | " nil t) | |
844 | ||
845 | (quail-define-rules | |
846 | ("A^" ?\e,CB\e(B) | |
847 | ("a^" ?\e,Cb\e(B) | |
848 | ||
849 | ("C/" ?\e,CG\e(B) | |
850 | ("c/" ?\e,Cg\e(B) | |
851 | ||
852 | ("G^" ?\e,C+\e(B) | |
853 | ("g^" ?\e,C;\e(B) | |
854 | ||
855 | ("I'" ?\e,C)\e(B) | |
856 | ("i" ?\e,C9\e(B) | |
857 | ("i'" ?i) | |
858 | ||
859 | ("O\"" ?\e,CV\e(B) | |
860 | ("o\"" ?\e,Cv\e(B) | |
861 | ||
862 | ("S/" ?\e,C*\e(B) | |
863 | ("s/" ?\e,C:\e(B) | |
864 | ||
865 | ("U\"" ?\e,C\\e(B) | |
866 | ("u\"" ?\e,C|\e(B) | |
867 | ("U^" ?\e,C[\e(B) | |
868 | ("u^" ?\e,C{\e(B) | |
869 | ) | |
870 | ||
871 | (quail-define-package | |
872 | "british" "Latin-1" "\e,A#\e(B" t | |
873 | "British English input method with Latin-1 character \e,A#\e(B (# -> \e,A#\e(B)" | |
874 | nil t) | |
875 | ||
876 | (quail-define-rules | |
877 | ("#" [?\e,A#\e(B ?#]) | |
878 | ) | |
879 | ||
880 | ;; The following are various quail packages for those who think | |
881 | ;; the aboves are too awkward. Supported languages and their | |
882 | ;; package name are: | |
883 | ;; | |
884 | ;; French (frnch, azerty) | |
885 | ;; Icelandic (iclndc) | |
886 | ;; Denish (dnsh) | |
887 | ;; Norwegian (nrwgn) | |
888 | ;; Swedish (swdsh) | |
889 | ;; Finnish (fnnsh) | |
890 | ;; German (grmn) | |
891 | ;; Italian (itln) | |
892 | ;; Spanish (spnsh) | |
893 | ;; Dvorak (dvorak) | |
894 | ;; | |
895 | ;;; 92.12.15 created for Mule Ver.0.9.6 by Takahashi N. <ntakahas@etl.go.jp> | |
896 | ;;; 92.12.29 modified by Takahashi N. <ntakahas@etl.go.jp> | |
897 | ||
898 | ;; | |
899 | (quail-define-package | |
900 | "french-keyboard" "Latin-1" "Fr" t | |
901 | "French (Fran\e,Ag\e(Bais) input method simulating some French keyboard | |
902 | <e dans l'o> n'est pas disponible." nil t t t t) | |
903 | ||
904 | ;; \e,Aj\e(B1 \e,Ai\e(B2 \e,Ah\e(B3 \e,At\e(B4 \e,An\e(B5 \e,Ao\e(B6 \e,Ab\e(B7 \e,A{\e(B8 \e,Ay\e(B9 \e,A`\e(B0 -_ \e,Ak\e(B+ `~ | |
905 | ;; qQ wW eE rR tT yY uU iI oO pP \e,AgG\e(B \e,A|\e(B& | |
906 | ;; aA sS dD fF gG hH jJ kK lL ;: '" \| | |
907 | ;; zZ xX cC vV bB nN mM ,( .) !? | |
908 | ||
909 | (quail-define-rules | |
910 | ("1" ?\e,Aj\e(B) | |
911 | ("2" ?\e,Ai\e(B) | |
912 | ("3" ?\e,Ah\e(B) | |
913 | ("4" ?\e,At\e(B) | |
914 | ("5" ?\e,An\e(B) | |
915 | ("6" ?\e,Ao\e(B) | |
916 | ("7" ?\e,Ab\e(B) | |
917 | ("8" ?\e,A{\e(B) | |
918 | ("9" ?\e,Ay\e(B) | |
919 | ("0" ?\e,A`\e(B) | |
920 | ("=" ?\e,Ak\e(B) | |
921 | ("[" ?\e,Ag\e(B) | |
922 | ("]" ?\e,A|\e(B) | |
923 | ||
924 | ("!" ?1) | |
925 | ("@" ?2) | |
926 | ("#" ?3) | |
927 | ("$" ?4) | |
928 | ("%" ?5) | |
929 | ("^" ?6) | |
930 | ("&" ?7) | |
931 | ("*" ?8) | |
932 | ("(" ?9) | |
933 | (")" ?0) | |
934 | ("{" ?\e,AG\e(B) | |
935 | ("}" ?&) | |
936 | ("<" ?\() | |
937 | (">" ?\)) | |
938 | ) | |
939 | ||
940 | ;; | |
941 | (quail-define-package | |
942 | "french-azerty" "Latin-1" "AZERTY" t | |
943 | "French (Fran\e,Ag\e(Bais) input method simulating Azerty keyboard | |
944 | ||
945 | Similaire au clavier fran\e,Ag\e(Bais de SUN. | |
946 | pr\e,Ai\e(Bfixes: ^ pour circonflexe, \e,A(\e(B pour tr\e,Ai\e(Bma. | |
947 | <e dans l'o> n'est pas disponible." nil t t t t) | |
948 | ||
949 | ;; &1 \e,Ai\e(B2 "3 '4 (5 \e,A'\e(B6 \e,Ah\e(B7 !8 \e,Ag\e(B9 \e,A`\e(B0 )\e,A0\e(B -_ @~ | |
950 | ;; aA zZ eE rR tT yY uU iI oO pP ^\e,A(\e(B `$ | |
951 | ;; qQ sS dD fF gG hH jJ kK lL mM \e,Ay\e(B% *| | |
952 | ;; wW xX cC vV bB nN ,? ;. :/ =+ | |
953 | ||
954 | (quail-define-rules | |
955 | ("1" ?&) | |
956 | ("2" ?\e,Ai\e(B) | |
957 | ("3" ?\") | |
958 | ("4" ?') | |
959 | ("5" ?\() | |
960 | ("6" ?\e,A'\e(B) | |
961 | ("7" ?\e,Ah\e(B) | |
962 | ("8" ?!) | |
963 | ("9" ?\e,Ag\e(B) | |
964 | ("0" ?\e,A`\e(B) | |
965 | ("-" ?\)) | |
966 | ("=" ?-) | |
967 | ("`" ?@) | |
968 | ("q" ?a) | |
969 | ("w" ?z) | |
970 | ("e" ?e) | |
971 | ("r" ?r) | |
972 | ("t" ?t) | |
973 | ("y" ?y) | |
974 | ("u" ?u) | |
975 | ("i" ?i) | |
976 | ("o" ?o) | |
977 | ("p" ?p) | |
978 | ("[" ?^) | |
979 | ("]" ?`) | |
980 | ("a" ?q) | |
981 | ("s" ?s) | |
982 | ("d" ?d) | |
983 | ("f" ?f) | |
984 | ("g" ?g) | |
985 | ("h" ?h) | |
986 | ("j" ?j) | |
987 | ("k" ?k) | |
988 | ("l" ?l) | |
989 | (";" ?m) | |
990 | ("'" ?\e,Ay\e(B) | |
991 | ("\\" ?*) | |
992 | ("z" ?w) | |
993 | ("x" ?x) | |
994 | ("c" ?c) | |
995 | ("v" ?v) | |
996 | ("b" ?b) | |
997 | ("n" ?n) | |
998 | ("m" ?,) | |
999 | ("," ?\;) | |
1000 | ("." ?:) | |
1001 | ("/" ?=) | |
1002 | ||
1003 | ("!" ?1) | |
1004 | ("@" ?2) | |
1005 | ("#" ?3) | |
1006 | ("$" ?4) | |
1007 | ("%" ?5) | |
1008 | ("^" ?6) | |
1009 | ("&" ?7) | |
1010 | ("*" ?8) | |
1011 | ("(" ?9) | |
1012 | (")" ?0) | |
1013 | ("_" ?\e,A0\e(B) | |
1014 | ("+" ?_) | |
1015 | ("~" ?~) | |
1016 | ("Q" ?A) | |
1017 | ("W" ?Z) | |
1018 | ("E" ?E) | |
1019 | ("R" ?R) | |
1020 | ("T" ?T) | |
1021 | ("Y" ?Y) | |
1022 | ("U" ?U) | |
1023 | ("I" ?I) | |
1024 | ("O" ?O) | |
1025 | ("P" ?P) | |
1026 | ("{" ?\e,A(\e(B) | |
1027 | ("}" ?$) | |
1028 | ("A" ?Q) | |
1029 | ("S" ?S) | |
1030 | ("D" ?D) | |
1031 | ("F" ?F) | |
1032 | ("G" ?G) | |
1033 | ("H" ?H) | |
1034 | ("J" ?J) | |
1035 | ("K" ?K) | |
1036 | ("L" ?L) | |
1037 | (":" ?M) | |
1038 | ("\"" ?%) | |
1039 | ("|" ?|) | |
1040 | ("Z" ?W) | |
1041 | ("X" ?X) | |
1042 | ("C" ?C) | |
1043 | ("V" ?V) | |
1044 | ("B" ?B) | |
1045 | ("N" ?N) | |
1046 | ("M" ??) | |
1047 | ("<" ?.) | |
1048 | (">" ?/) | |
1049 | ("?" ?+) | |
1050 | ||
1051 | ("[q" ?\e,Ab\e(B) | |
1052 | ("[e" ?\e,Aj\e(B) | |
1053 | ("[i" ?\e,An\e(B) | |
1054 | ("[o" ?\e,At\e(B) | |
1055 | ("[u" ?\e,A{\e(B) | |
1056 | ||
1057 | ("{e" ?\e,Ak\e(B) | |
1058 | ("{i" ?\e,Ao\e(B) | |
1059 | ("{u" ?\e,A|\e(B) | |
1060 | ) | |
1061 | ||
1062 | ;; | |
1063 | (quail-define-package | |
1064 | "icelandic-keyboard" "Latin-1" "Is" t | |
1065 | "Icelandic (\e,AM\e(Bslenska) input method simulating some Icelandic keyboard | |
1066 | ||
1067 | Dead accent is right to \e,Af\e(B." nil t t t t) | |
1068 | ||
1069 | ;; 1! 2" 3# 4$ 5% 6^ 7& 8* 9( 0) \e,AvV\e(B -_ `~ | |
1070 | ;; qQ wW eE rR tT yY uU iI oO pP \e,ApP\e(B '? | |
1071 | ;; aA sS dD fF gG hH jJ kK lL \e,AfF\e(B \e,A44\e(B +* | |
1072 | ;; zZ xX cC vV bB nN mM ,; .: \e,A~^\e(B | |
1073 | ||
1074 | (quail-define-rules | |
1075 | ("-" ?\e,Av\e(B) | |
1076 | ("=" ?-) | |
1077 | ("[" ?\e,Ap\e(B) | |
1078 | ("]" ?') | |
1079 | (";" ?\e,Af\e(B) | |
1080 | ("'" ?\e,A4\e(B) | |
1081 | ("\\" ?+) | |
1082 | ("/" ?\e,A~\e(B) | |
1083 | ||
1084 | ("@" ?\") | |
1085 | ("_" ?\e,AV\e(B) | |
1086 | ("+" ?_) | |
1087 | ("{" ?\e,AP\e(B) | |
1088 | ("}" ??) | |
1089 | (":" ?\e,AF\e(B) | |
1090 | ("\"" ?\e,A4\e(B) | |
1091 | ("|" ?*) | |
1092 | ("<" ?\;) | |
1093 | (">" ?:) | |
1094 | ("?" ?\e,A^\e(B) | |
1095 | ||
1096 | ("'a" ?\e,Aa\e(B) | |
1097 | ("'e" ?\e,Ai\e(B) | |
1098 | ("'i" ?\e,Am\e(B) | |
1099 | ("'o" ?\e,As\e(B) | |
1100 | ("'u" ?\e,Az\e(B) | |
1101 | ("'y" ?\e,A}\e(B) | |
1102 | ("'A" ?\e,AA\e(B) | |
1103 | ("'E" ?\e,AI\e(B) | |
1104 | ("'I" ?\e,AM\e(B) | |
1105 | ("'O" ?\e,AS\e(B) | |
1106 | ("'U" ?\e,AZ\e(B) | |
1107 | ("'Y" ?\e,A]\e(B) | |
1108 | ) | |
1109 | ||
1110 | ;; | |
1111 | (quail-define-package | |
1112 | "danish-keyboard" "Latin-1" "Da" t | |
1113 | "Danish input method simulating SUN Danish keyboard" | |
1114 | nil t t t t) | |
1115 | ||
1116 | ;; 1! 2" 3# 4\e,A$\e(B 5% 6& 7/ 8( 9) 0= +? \e,A='\e(B ~^ | |
1117 | ;; qQ wW eE rR tT yY uU iI oO pP \e,AeE\e(B \e,AiI\e(B | |
1118 | ;; aA sS dD fF gG hH jJ kK lL \e,AfF\e(B \e,AxX\e(B '* | |
1119 | ;; zZ xX cC vV bB nN mM ,; .: -_ | |
1120 | ||
1121 | (quail-define-rules | |
1122 | ("-" ?+) | |
1123 | ("=" ?\e,A=\e(B) | |
1124 | ("`" ?~) | |
1125 | ("[" ?\e,Ae\e(B) | |
1126 | ("]" ?\e,Ai\e(B) | |
1127 | (";" ?\e,Af\e(B) | |
1128 | ("'" ?\e,Ax\e(B) | |
1129 | ("\\" ?') | |
1130 | ("/" ?-) | |
1131 | ||
1132 | ("@" ?\") | |
1133 | ("$" ?\e,A$\e(B) | |
1134 | ("^" ?&) | |
1135 | ("&" ?/) | |
1136 | ("*" ?\() | |
1137 | ("(" ?\)) | |
1138 | (")" ?=) | |
1139 | ("_" ??) | |
1140 | ("+" ?\e,A'\e(B) | |
1141 | ("~" ?^) | |
1142 | ("{" ?\e,AE\e(B) | |
1143 | ("}" ?\e,AI\e(B) | |
1144 | (":" ?\e,AF\e(B) | |
1145 | ("\"" ?\e,AX\e(B) | |
1146 | ("|" ?*) | |
1147 | ("<" ?\;) | |
1148 | (">" ?:) | |
1149 | ("?" ?_) | |
1150 | ) | |
1151 | ||
1152 | ;; | |
1153 | (quail-define-package | |
1154 | "norwegian-keyboard" "Latin-1" "No" t | |
1155 | "Norwegian (Norsk) input method simulating SUN Norwegian keyboard" | |
1156 | nil t t t t) | |
1157 | ||
1158 | ;; 1! 2" 3# 4\e,A$\e(B 5% 6& 7/ 8( 9) 0= +? |\e,A'\e(B ~^ | |
1159 | ;; qQ wW eE rR tT yY uU iI oO pP \e,AeE\e(B \e,AiI\e(B | |
1160 | ;; aA sS dD fF gG hH jJ kK lL \e,AxX\e(B \e,AfF\e(B '* | |
1161 | ;; zZ xX cC vV bB nN mM ,; .: '? | |
1162 | ||
1163 | (quail-define-rules | |
1164 | ("-" ?+) | |
1165 | ("=" ?|) | |
1166 | ("`" ?~) | |
1167 | ("[" ?\e,Ae\e(B) | |
1168 | ("]" ?\e,Ai\e(B) | |
1169 | (";" ?\e,Ax\e(B) | |
1170 | ("'" ?\e,Af\e(B) | |
1171 | ("\\" ?') | |
1172 | ("/" ?-) | |
1173 | ||
1174 | ("!" ?!) | |
1175 | ("@" ?\") | |
1176 | ("$" ?\e,A$\e(B) | |
1177 | ("^" ?&) | |
1178 | ("&" ?/) | |
1179 | ("*" ?\() | |
1180 | ("(" ?\)) | |
1181 | (")" ?=) | |
1182 | ("_" ??) | |
1183 | ("+" ?\e,A'\e(B) | |
1184 | ("~" ?^) | |
1185 | ("{" ?\e,AE\e(B) | |
1186 | ("}" ?\e,AI\e(B) | |
1187 | (":" ?\e,AX\e(B) | |
1188 | ("\"" ?\e,AF\e(B) | |
1189 | ("|" ?*) | |
1190 | ("<" ?\;) | |
1191 | (">" ?:) | |
1192 | ("?" ?_) | |
1193 | ) | |
1194 | ||
1195 | ;; | |
1196 | (quail-define-package | |
1197 | "swedish-keyboard" "Latin-1" "Sv" t | |
1198 | "Swedish (Svenska) input method simulating SUN Swedish/Finnish keyboard" | |
1199 | nil t t t t) | |
1200 | ||
1201 | ;; 1! 2" 3# 4\e,A$\e(B 5% 6& 7/ 8( 9) 0= +? \e,A'=\e(B ~^ | |
1202 | ;; qQ wW eE rR tT yY uU iI oO pP \e,AeE\e(B \e,AiI\e(B | |
1203 | ;; aA sS dD fF gG hH jJ kK lL \e,AvV\e(B \e,AdD\e(B '* | |
1204 | ;; zZ xX cC vV bB nN mM ,; .: -_ | |
1205 | ||
1206 | (quail-define-rules | |
1207 | ("-" ?+) | |
1208 | ("=" ?\e,A'\e(B) | |
1209 | ("`" ?~) | |
1210 | ("[" ?\e,Ae\e(B) | |
1211 | ("]" ?\e,Ai\e(B) | |
1212 | (";" ?\e,Av\e(B) | |
1213 | ("'" ?\e,Ad\e(B) | |
1214 | ("\\" ?') | |
1215 | ("/" ?-) | |
1216 | ||
1217 | ("@" ?\") | |
1218 | ("$" ?\e,A$\e(B) | |
1219 | ("^" ?&) | |
1220 | ("&" ?/) | |
1221 | ("*" ?\() | |
1222 | ("(" ?\)) | |
1223 | (")" ?=) | |
1224 | ("_" ??) | |
1225 | ("+" ?\e,A=\e(B) | |
1226 | ("~" ?^) | |
1227 | ("{" ?\e,AE\e(B) | |
1228 | ("}" ?\e,AI\e(B) | |
1229 | (":" ?\e,AV\e(B) | |
1230 | ("\"" ?\e,AD\e(B) | |
1231 | ("|" ?*) | |
1232 | ("<" ?\;) | |
1233 | (">" ?:) | |
1234 | ("?" ?_) | |
1235 | ) | |
1236 | ||
1237 | ;; | |
1238 | (quail-define-package | |
1239 | "finish-keyboard" "Latin-1" "Fi" t | |
1240 | "Finish input method simulating SUN Finnish/Swedish keyboard" | |
1241 | nil t t t t) | |
1242 | ||
1243 | ;; 1! 2" 3# 4\e,A$\e(B 5% 6& 7/ 8( 9) 0= +? \e,A'=\e(B ~^ | |
1244 | ;; qQ wW eE rR tT yY uU iI oO pP \e,AeE\e(B \e,AiI\e(B | |
1245 | ;; aA sS dD fF gG hH jJ kK lL \e,AvV\e(B \e,AdD\e(B '* | |
1246 | ;; zZ xX cC vV bB nN mM ,; .: -_ | |
1247 | ||
1248 | (quail-define-rules | |
1249 | ("-" ?+) | |
1250 | ("=" ?\e,A'\e(B) | |
1251 | ("`" ?~) | |
1252 | ("[" ?\e,Ae\e(B) | |
1253 | ("]" ?\e,Ai\e(B) | |
1254 | (";" ?\e,Av\e(B) | |
1255 | ("'" ?\e,Ad\e(B) | |
1256 | ("\\" ?') | |
1257 | ("/" ?-) | |
1258 | ||
1259 | ("@" ?\") | |
1260 | ("$" ?\e,A$\e(B) | |
1261 | ("^" ?&) | |
1262 | ("&" ?/) | |
1263 | ("*" ?\() | |
1264 | ("(" ?\)) | |
1265 | (")" ?=) | |
1266 | ("_" ??) | |
1267 | ("+" ?\e,A=\e(B) | |
1268 | ("~" ?^) | |
1269 | ("{" ?\e,AE\e(B) | |
1270 | ("}" ?\e,AI\e(B) | |
1271 | (":" ?\e,AV\e(B) | |
1272 | ("\"" ?\e,AD\e(B) | |
1273 | ("|" ?*) | |
1274 | ("<" ?\;) | |
1275 | (">" ?:) | |
1276 | ("?" ?_) | |
1277 | ) | |
1278 | ||
1279 | ;; | |
1280 | (quail-define-package | |
1281 | "german" "Latin-1" "De" t | |
1282 | "German (Deutsch) input method simulating SUN German keyboard" | |
1283 | nil t t t t) | |
1284 | ||
1285 | ;; 1! 2" 3\e,A'\e(B 4$ 5% 6& 7/ 8( 9) 0= \e,A_\e(B? [{ ]} | |
1286 | ;; qQ wW eE rR tT zZ uU iI oO pP \e,A|\\e(B +* | |
1287 | ;; aA sS dD fF gG hH jJ kK lL \e,AvV\e(B \e,AdD\e(B #^ | |
1288 | ;; yY xX cC vV bB nN mM ,; .: -_ | |
1289 | ||
1290 | (quail-define-rules | |
1291 | ("-" ?\e,A_\e(B) | |
1292 | ("=" ?\[) | |
1293 | ("`" ?\]) | |
1294 | ("[" ?\e,A|\e(B) | |
1295 | ("]" ?+) | |
1296 | (";" ?\e,Av\e(B) | |
1297 | ("'" ?\e,Ad\e(B) | |
1298 | ("\\" ?#) | |
1299 | ("/" ?-) | |
1300 | ||
1301 | ("@" ?\") | |
1302 | ("#" ?\e,A'\e(B) | |
1303 | ("^" ?&) | |
1304 | ("&" ?/) | |
1305 | ("*" ?\() | |
1306 | ("(" ?\)) | |
1307 | (")" ?=) | |
1308 | ("_" ??) | |
1309 | ("+" ?{) | |
1310 | ("~" ?}) | |
1311 | ("{" ?\e,A\\e(B) | |
1312 | ("}" ?*) | |
1313 | (":" ?\e,AV\e(B) | |
1314 | ("\"" ?\e,AD\e(B) | |
1315 | ("|" ?^) | |
1316 | ("<" ?\;) | |
1317 | (">" ?:) | |
1318 | ("?" ?_) | |
1319 | ) | |
1320 | ||
1321 | ;; | |
1322 | (quail-define-package | |
1323 | "italian-keyboard" "Latin-1" "It" t | |
1324 | "Italian (Italiano) input method simulating SUN Italian keyboard" | |
1325 | nil t t t t) | |
1326 | ||
1327 | ;; 1! 2" 3\e,A#\e(B 4$ 5% 6& 7/ 8( 9) 0= '? \e,Al\e(B^ `~ | |
1328 | ;; qQ wW eE rR tT yY uU iI oO pP \e,Ahi\e(B +* | |
1329 | ;; aA sS dD fF gG hH jJ kK lL \e,Arg\e(B \e,A`0\e(B \e,Ay'\e(B | |
1330 | ;; zZ xX cC vV bB nN mM ,; .: -_ | |
1331 | ||
1332 | (quail-define-rules | |
1333 | ("-" ?') | |
1334 | ("=" ?\e,Al\e(B) | |
1335 | ("[" ?\e,Ah\e(B) | |
1336 | ("]" ?+) | |
1337 | (";" ?\e,Ar\e(B) | |
1338 | ("'" ?\e,A`\e(B) | |
1339 | ("\\" ?\e,Ay\e(B) | |
1340 | ("/" ?-) | |
1341 | ||
1342 | ("@" ?\") | |
1343 | ("#" ?\e,A#\e(B) | |
1344 | ("^" ?&) | |
1345 | ("&" ?/) | |
1346 | ("*" ?\() | |
1347 | ("(" ?\)) | |
1348 | (")" ?=) | |
1349 | ("_" ??) | |
1350 | ("+" ?^) | |
1351 | ("~" ?~) | |
1352 | ("{" ?\e,Ai\e(B) | |
1353 | ("}" ?*) | |
1354 | (":" ?\e,Ag\e(B) | |
1355 | ("\"" ?\e,A0\e(B) | |
1356 | ("|" ?\e,A'\e(B) | |
1357 | ("<" ?\;) | |
1358 | (">" ?:) | |
1359 | ("?" ?_) | |
1360 | ) | |
1361 | ||
1362 | ;; | |
1363 | (quail-define-package | |
1364 | "spanish-keyboard" "Latin-1" "Es" t | |
1365 | "Spanish (Espa\e,Aq\e(Bol) input method simulating SUN Spanish keyboard" | |
1366 | nil t t t t) | |
1367 | ||
1368 | ;; 1! 2" 3\e,A7\e(B 4$ 5% 6& 7/ 8( 9) 0= '? \e,A!?\e(B \e,AmM\e(B | |
1369 | ;; qQ wW eE rR tT yY uU iI oO pP \e,AiI\e(B \e,AsS\e(B | |
1370 | ;; aA sS dD fF gG hH jJ kK lL \e,AqQ\e(B \e,AaA\e(B \e,AzZ\e(B | |
1371 | ;; zZ xX cC vV bB nN mM ,; .: -_ | |
1372 | ||
1373 | (quail-define-rules | |
1374 | ("-" ?') | |
1375 | ("=" ?\e,A!\e(B) | |
1376 | ("`" ?\e,Am\e(B) | |
1377 | ("[" ?\e,Ai\e(B) | |
1378 | ("]" ?\e,As\e(B) | |
1379 | (";" ?\e,Aq\e(B) | |
1380 | ("'" ?\e,Aa\e(B) | |
1381 | ("\\" ?\e,Az\e(B) | |
1382 | ("/" ?-) | |
1383 | ||
1384 | ("@" ?\") | |
1385 | ("#" ?\e,A7\e(B) | |
1386 | ("^" ?&) | |
1387 | ("&" ?/) | |
1388 | ("*" ?\() | |
1389 | ("(" ?\)) | |
1390 | (")" ?=) | |
1391 | ("_" ??) | |
1392 | ("+" ?\e,A?\e(B) | |
1393 | ("~" ?\e,AM\e(B) | |
1394 | ("{" ?\e,AI\e(B) | |
1395 | ("}" ?\e,AS\e(B) | |
1396 | (":" ?\e,AQ\e(B) | |
1397 | ("\"" ?\e,AA\e(B) | |
1398 | ("|" ?\e,AZ\e(B) | |
1399 | ("<" ?\;) | |
1400 | (">" ?:) | |
1401 | ("?" ?_) | |
1402 | ) | |
1403 | ||
1404 | ;; | |
1405 | (quail-define-package | |
1406 | "english-dvorak" "English" "DV" t | |
1407 | "English (ASCII) input method simulating Dvorak keyboard" | |
1408 | nil t t t t) | |
1409 | ||
1410 | ;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) [{ ]} `~ | |
1411 | ;; '" ,< .> pP yY fF gG cC rR lL /? =+ | |
1412 | ;; aA oO eE uU iI dD hH tT nN sS -_ \| | |
1413 | ;; ;: qQ jJ kK xX bB mM wW vV zZ | |
1414 | ||
1415 | (quail-define-rules | |
1416 | ("-" ?\[) | |
1417 | ("=" ?\]) | |
1418 | ("`" ?`) | |
1419 | ("q" ?') | |
1420 | ("w" ?,) | |
1421 | ("e" ?.) | |
1422 | ("r" ?p) | |
1423 | ("t" ?y) | |
1424 | ("y" ?f) | |
1425 | ("u" ?g) | |
1426 | ("i" ?c) | |
1427 | ("o" ?r) | |
1428 | ("p" ?l) | |
1429 | ("[" ?/) | |
1430 | ("]" ?=) | |
1431 | ("a" ?a) | |
1432 | ("s" ?o) | |
1433 | ("d" ?e) | |
1434 | ("f" ?u) | |
1435 | ("g" ?i) | |
1436 | ("h" ?d) | |
1437 | ("j" ?h) | |
1438 | ("k" ?t) | |
1439 | ("l" ?n) | |
1440 | (";" ?s) | |
1441 | ("'" ?-) | |
1442 | ("\\" ?\\) | |
1443 | ("z" ?\;) | |
1444 | ("x" ?q) | |
1445 | ("c" ?j) | |
1446 | ("v" ?k) | |
1447 | ("b" ?x) | |
1448 | ("n" ?b) | |
1449 | ("m" ?m) | |
1450 | ("," ?w) | |
1451 | ("." ?v) | |
1452 | ("/" ?z) | |
1453 | ||
1454 | ("_" ?{) | |
1455 | ("+" ?}) | |
1456 | ("~" ?~) | |
1457 | ("Q" ?\") | |
1458 | ("W" ?<) | |
1459 | ("E" ?>) | |
1460 | ("R" ?P) | |
1461 | ("T" ?Y) | |
1462 | ("Y" ?F) | |
1463 | ("U" ?G) | |
1464 | ("I" ?C) | |
1465 | ("O" ?R) | |
1466 | ("P" ?L) | |
1467 | ("{" ??) | |
1468 | ("}" ?+) | |
1469 | ("A" ?A) | |
1470 | ("S" ?O) | |
1471 | ("D" ?E) | |
1472 | ("F" ?U) | |
1473 | ("G" ?I) | |
1474 | ("H" ?D) | |
1475 | ("J" ?H) | |
1476 | ("K" ?T) | |
1477 | ("L" ?N) | |
1478 | (":" ?S) | |
1479 | ("\"" ?_) | |
1480 | ("|" ?|) | |
1481 | ("Z" ?:) | |
1482 | ("X" ?Q) | |
1483 | ("C" ?J) | |
1484 | ("V" ?K) | |
1485 | ("B" ?X) | |
1486 | ("N" ?B) | |
1487 | ("M" ?M) | |
1488 | ("<" ?W) | |
1489 | (">" ?V) | |
1490 | ("?" ?Z) | |
1491 | ) |