support for Perl packages
[emacs.git] / leim / quail / latin-pre.el
blob946b38fa30a284b070ea0b98cd1aa6d4a6bb0c15
1 ;;; latin-pre.el --- Quail packages for inputting various European characters -*-coding: iso-2022-7bit;-*-
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 2000 Free Software Foundation, Inc.
7 ;; Keywords: mule, multilingual, latin, input method
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it 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.
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
26 ;;; Commentary:
28 ;; Key translation maps were originally copied from iso-acc.el.
29 ;; latin-1-prefix: extra special characters added, adapted from the vim
30 ;; digraphs (from J.H.M.Dassen <jdassen@wi.leidenuniv.nl>)
31 ;; by R.F. Smith <rsmith@xs4all.nl>
33 ;; polish-slash:
34 ;; Author: W\e,B3\e(Bodek Bzyl <matwb@univ.gda.pl>
35 ;; Maintainer: W\e,B3\e(Bodek Bzyl <matwb@univ.gda.pl>
37 ;; latin-[89]-prefix: Dave Love <fx@gnu.org>
39 ;;; Code:
41 (require 'quail)
43 (quail-define-package
44 "latin-1-prefix" "Latin-1" "1>" t
45 "Latin-1 characters input method with prefix modifiers
47 effect | prefix | examples
48 ------------+--------+----------
49 acute | ' | 'a -> \e,Aa\e(B, '' -> \e,A4\e(B
50 grave | ` | `a -> \e,A`\e(B
51 circumflex | ^ | ^a -> \e,Ab\e(B
52 diaeresis | \" | \"a -> \e,Ad\e(B \"\" -> \e,A(\e(B
53 tilde | ~ | ~a -> \e,Ac\e(B
54 cedilla | ~ | ~c -> \e,Ag\e(B
55 misc | \" ~ / | \"s -> \e,A_\e(B ~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
56 symbol | ~ | ~> -> \e,A;\e(B ~< -> \e,A+\e(B ~! -> \e,A!\e(B ~? -> \e,A?\e(B ~~ -> \e,A8\e(B
57 | ~ | ~s -> \e,A'\e(B ~x -> \e,A$\e(B ~. -> \e,A7\e(B ~$ -> \e,A#\e(B ~u -> \e,A5\e(B
58 | ~ | ~p -> \e,A6\e(B ~- -> \e,A-\e(B ~= -> \e,A/\e(B ~| -> \e,A&\e(B
59 symbol | _ / | _o -> \e,A:\e(B _a -> \e,A*\e(B // -> \e,A0\e(B /\\ -> \e,AW\e(B _y -> \e,A%\e(B
60 | _ / | _: -> \e,Aw\e(B /c -> \e,A"\e(B /2 -> \e,A=\e(B /4 -> \e,A<\e(B /3 -> \e,A>\e(B
61 | _ / | /= => \e,A,\e(B
62 symbol | ^ | ^r -> \e,A.\e(B ^c -> \e,A)\e(B ^1 -> \e,A9\e(B ^2 -> \e,A2\e(B ^3 -> \e,A3\e(B
63 " nil t nil nil nil nil nil nil nil nil t)
65 ;; Fixme: should we have non-break space somehow? If so, how?
66 (quail-define-rules
67 ("'A" ?\e,AA\e(B)
68 ("'E" ?\e,AI\e(B)
69 ("'I" ?\e,AM\e(B)
70 ("'O" ?\e,AS\e(B)
71 ("'U" ?\e,AZ\e(B)
72 ("'Y" ?\e,A]\e(B)
73 ("'a" ?\e,Aa\e(B)
74 ("'e" ?\e,Ai\e(B)
75 ("'i" ?\e,Am\e(B)
76 ("'o" ?\e,As\e(B)
77 ("'u" ?\e,Az\e(B)
78 ("'y" ?\e,A}\e(B)
79 ("''" ?\e,A4\e(B)
80 ("' " ?')
81 ("`A" ?\e,A@\e(B)
82 ("`E" ?\e,AH\e(B)
83 ("`I" ?\e,AL\e(B)
84 ("`O" ?\e,AR\e(B)
85 ("`U" ?\e,AY\e(B)
86 ("`a" ?\e,A`\e(B)
87 ("`e" ?\e,Ah\e(B)
88 ("`i" ?\e,Al\e(B)
89 ("`o" ?\e,Ar\e(B)
90 ("`u" ?\e,Ay\e(B)
91 ("``" ?`)
92 ("` " ?`)
93 ("^A" ?\e,AB\e(B)
94 ("^E" ?\e,AJ\e(B)
95 ("^I" ?\e,AN\e(B)
96 ("^O" ?\e,AT\e(B)
97 ("^U" ?\e,A[\e(B)
98 ("^a" ?\e,Ab\e(B)
99 ("^e" ?\e,Aj\e(B)
100 ("^i" ?\e,An\e(B)
101 ("^o" ?\e,At\e(B)
102 ("^u" ?\e,A{\e(B)
103 ("^^" ?^)
104 ("^ " ?^)
105 ("\"A" ?\e,AD\e(B)
106 ("\"E" ?\e,AK\e(B)
107 ("\"I" ?\e,AO\e(B)
108 ("\"O" ?\e,AV\e(B)
109 ("\"U" ?\e,A\\e(B)
110 ("\"a" ?\e,Ad\e(B)
111 ("\"e" ?\e,Ak\e(B)
112 ("\"i" ?\e,Ao\e(B)
113 ("\"o" ?\e,Av\e(B)
114 ("\"s" ?\e,A_\e(B)
115 ("\"u" ?\e,A|\e(B)
116 ("\"y" ?\e,A\x7f\e(B)
117 ("\"\"" ?\e,A(\e(B)
118 ("\" " ?\")
119 ("~A" ?\e,AC\e(B)
120 ("~C" ?\e,AG\e(B)
121 ("~D" ?\e,AP\e(B)
122 ("~N" ?\e,AQ\e(B)
123 ("~O" ?\e,AU\e(B)
124 ("~T" ?\e,A^\e(B)
125 ("~a" ?\e,Ac\e(B)
126 ("~c" ?\e,Ag\e(B)
127 ("~d" ?\e,Ap\e(B)
128 ("~n" ?\e,Aq\e(B)
129 ("~o" ?\e,Au\e(B)
130 ("~t" ?\e,A~\e(B)
131 ("~>" ?\\e,A;\e(B)
132 ("~<" ?\\e,A+\e(B)
133 ("~!" ?\e,A!\e(B)
134 ("~?" ?\e,A?\e(B)
135 ("~~" ?\e,A8\e(B)
136 ("~ " ?~)
137 ("/A" ?\e,AE\e(B)
138 ("/E" ?\e,AF\e(B)
139 ("/O" ?\e,AX\e(B)
140 ("/a" ?\e,Ae\e(B)
141 ("/e" ?\e,Af\e(B)
142 ("/o" ?\e,Ax\e(B)
143 ("//" ?\e,A0\e(B)
144 ("/ " ?/)
145 ("_o" ?\e,A:\e(B)
146 ("_a" ?\e,A*\e(B)
147 ;; Symbols added by Roland Smith <rsmith@xs4all.nl>
148 ("_+" ?\e,A1\e(B)
149 ("_y" ?\e,A%\e(B)
150 ("_:" ?\e,Aw\e(B)
151 ("/c" ?\e,A"\e(B)
152 ("/\\" ?\e,AW\e(B)
153 ("/2" ?\e,A=\e(B)
154 ("/4" ?\e,A<\e(B)
155 ("/3" ?\e,A>\e(B)
156 ("~s" ?\e,A'\e(B)
157 ("~p" ?\e,A6\e(B)
158 ("~x" ?\e,A$\e(B)
159 ("~." ?\e,A7\e(B)
160 ("~$" ?\e,A#\e(B)
161 ("~u" ?\e,A5\e(B)
162 ("^r" ?\e,A.\e(B)
163 ("^c" ?\e,A)\e(B)
164 ("^1" ?\e,A9\e(B)
165 ("^2" ?\e,A2\e(B)
166 ("^3" ?\e,A3\e(B)
167 ("~-" ?\e,A-\e(B)
168 ("~|" ?\e,A&\e(B)
169 ("/=" ?\e,A,\e(B)
170 ("~=" ?\e,A/\e(B)
173 (quail-define-package
174 "catalan-prefix" "Latin-1" "CA>" t
175 "Catalan and Spanish input method with prefix modifiers
177 effect | prefix | examples
178 ------------+--------+----------
179 acute | ' | 'a -> \e,Aa\e(B '' -> \e,A4\e(B
180 grave | ` | `a -> \e,A`\e(B
181 diaeresis | \" | \"i -> \e,Ao\e(B \"\" -> \e,A(\e(B
182 tilde | ~ | ~n -> \e,Aq\e(B
183 cedilla | ~ | ~c -> \e,Ag\e(B
184 symbol | ~ | ~> -> \e,A;\e(B ~< -> \e,A+\e(B ~! -> \e,A!\e(B ~? -> \e,A?\e(B
185 " nil t nil nil nil nil nil nil nil nil t)
187 (quail-define-rules
188 ("'A" ?\e,AA\e(B)
189 ("'E" ?\e,AI\e(B)
190 ("'I" ?\e,AM\e(B)
191 ("'O" ?\e,AS\e(B)
192 ("'U" ?\e,AZ\e(B)
193 ("'a" ?\e,Aa\e(B)
194 ("'e" ?\e,Ai\e(B)
195 ("'i" ?\e,Am\e(B)
196 ("'o" ?\e,As\e(B)
197 ("'u" ?\e,Az\e(B)
198 ("' " ?')
199 ("`A" ?\e,A@\e(B)
200 ("`E" ?\e,AH\e(B)
201 ("`O" ?\e,AR\e(B)
202 ("`a" ?\e,A`\e(B)
203 ("`e" ?\e,Ah\e(B)
204 ("`o" ?\e,Ar\e(B)
205 ("` " ?`)
206 ("\"I" ?\e,AO\e(B)
207 ("\"U" ?\e,A\\e(B)
208 ("\"i" ?\e,Ao\e(B)
209 ("\"u" ?\e,A|\e(B)
210 ("\" " ?\")
211 ("~C" ?\e,AG\e(B)
212 ("~N" ?\e,AQ\e(B)
213 ("~c" ?\e,Ag\e(B)
214 ("~n" ?\e,Aq\e(B)
215 ("~>" ?\\e,A;\e(B)
216 ("~<" ?\\e,A+\e(B)
217 ("~!" ?\e,A!\e(B)
218 ("~?" ?\e,A?\e(B)
219 ("~ " ?~)
222 (quail-define-package
223 "esperanto-prefix" "Latin-3" "EO>" t
224 "Esperanto input method with prefix modifiers
225 Key translation rules are:
226 ^H -> ?\e,C&\e(B ^J -> ?\e,C,\e(B ^h -> ?\e,C6\e(B ^j -> ?\e,C<\e(B ^C -> ?\e,CF\e(B ^G -> ?\e,CX\e(B,
227 ^S -> ?\e,C^\e(B ^c -> ?\e,Cf\e(B ^g -> ?\e,Cx\e(B ^s -> ?\e,C~\e(B ~U -> ?\e,C]\e(B ~u -> ?\e,C}\e(B
228 " nil t nil nil nil nil nil nil nil nil t)
230 (quail-define-rules
231 ("^H" ?\e,C&\e(B)
232 ("^J" ?\e,C,\e(B)
233 ("^h" ?\e,C6\e(B)
234 ("^j" ?\e,C<\e(B)
235 ("^C" ?\e,CF\e(B)
236 ("^G" ?\e,CX\e(B)
237 ("^S" ?\e,C^\e(B)
238 ("^c" ?\e,Cf\e(B)
239 ("^g" ?\e,Cx\e(B)
240 ("^s" ?\e,C~\e(B)
241 ("^^" ?^)
242 ("^ " ?^)
243 ("~U" ?\e,C]\e(B)
244 ("~u" ?\e,C}\e(B)
245 ("~ " ?~)
248 (quail-define-package
249 "french-prefix" "French" "FR>" t
250 "French (Fran\e,Ag\e(Bais) input method with prefix modifiers
252 effect | prefix | examples
253 ------------+--------+----------
254 acute | ' | 'e -> \e,Ai\e(B
255 grave | ` | `a -> \e,A`\e(B
256 circumflex | ^ | ^a -> \e,Ab\e(B
257 diaeresis | \" | \"i -> \e,Ao\e(B
258 cedilla | ~ or , | ~c -> \e,Ag\e(B ,c -> \e,Ag\e(B
259 symbol | ~ | ~> -> \e,A;\e(B ~< -> \e,A+\e(B
260 " nil t nil nil nil nil nil nil nil nil t)
262 (quail-define-rules
263 ("'E" ?\e,AI\e(B)
264 ("'C" ?\e,AG\e(B)
265 ("'e" ?\e,Ai\e(B)
266 ("'c" ?\e,Ag\e(B)
267 ("' " ?')
268 ("`A" ?\e,A@\e(B)
269 ("`E" ?\e,AH\e(B)
270 ("`U" ?\e,AY\e(B)
271 ("`a" ?\e,A`\e(B)
272 ("`e" ?\e,Ah\e(B)
273 ("`u" ?\e,Ay\e(B)
274 ("` " ?`)
275 ("^A" ?\e,AB\e(B)
276 ("^E" ?\e,AJ\e(B)
277 ("^I" ?\e,AN\e(B)
278 ("^O" ?\e,AT\e(B)
279 ("^U" ?\e,A[\e(B)
280 ("^a" ?\e,Ab\e(B)
281 ("^e" ?\e,Aj\e(B)
282 ("^i" ?\e,An\e(B)
283 ("^o" ?\e,At\e(B)
284 ("^u" ?\e,A{\e(B)
285 ("^ " ?^)
286 ("\"E" ?\e,AK\e(B)
287 ("\"I" ?\e,AO\e(B)
288 ("\"e" ?\e,Ak\e(B)
289 ("\"i" ?\e,Ao\e(B)
290 ("\" " ?\")
291 ("~<" ?\\e,A+\e(B)
292 ("~>" ?\\e,A;\e(B)
293 ("~C" ?\e,AG\e(B)
294 ("~c" ?\e,Ag\e(B)
295 ("~," ?,)
296 (",C" ?\e,AG\e(B)
297 (",c" ?\e,Ag\e(B)
298 (", " ?~)
301 (quail-define-package
302 "romanian-prefix" "Romanian" "RO>" t
303 "Romanian (rom\e,Bb\e(Bne\e,B:\e(Bte) input method with prefix modifiers
305 effect | prefix | examples
306 ------------+--------+------------------
307 tilde | ~ | ~a -> \e,Bc\e(B
308 circumflex | ^ | ^a -> \e,Bb\e(B, ^i -> \e,Bn\e(B
309 cedilla | , | ,s -> \e,B:\e(B, ,t -> \e,B~\e(B
310 ~ | ~ | ~~ -> ~
311 ^ | ^ | ^^ -> ^
312 , | , | ,, -> ,
313 " nil t nil nil nil nil nil nil nil nil t)
315 (quail-define-rules
316 ("~A" ?\e,BC\e(B) ("~a" ?\e,Bc\e(B)
317 ("^A" ?\e,BB\e(B) ("^a" ?\e,Bb\e(B)
318 ("^I" ?\e,BN\e(B) ("^i" ?\e,Bn\e(B)
319 (",S" ?\e,B*\e(B) (",s" ?\e,B:\e(B)
320 (",T" ?\e,B^\e(B) (",t" ?\e,B~\e(B)
321 ("^^" ?^) ("~~" ?~) (",," ?,))
323 (quail-define-package
324 "romanian-alt-prefix" "Romanian" "RO>" t
325 "Alternative Romanian (rom\e,Bb\e(Bne\e,B:\e(Bte) input method with prefix modifiers
327 effect | prefix | examples
328 ------------+--------+------------------
329 tilde | \" | \"a -> \e,Bb\e(B
330 circumflex | ' | 'a -> \e,Bb\e(B, 'i -> \e,Bn\e(B
331 cedilla | ' | 's -> \e,B:\e(B, 't -> \e,B~\e(B
332 ' | ' | '' -> '
333 \" | \" | \"\" -> \"
334 " nil t nil nil nil nil nil nil nil nil t)
336 (quail-define-rules
337 ("'A" ?\e,BC\e(B) ("'a" ?\e,Bc\e(B)
338 ("\"A" ?\e,BB\e(B) ("\"a" ?\e,Bb\e(B)
339 ("'I" ?\e,BN\e(B) ("'i" ?\e,Bn\e(B)
340 ("'S" ?\e,B*\e(B) ("'s" ?\e,B:\e(B)
341 ("'T" ?\e,B^\e(B) ("'t" ?\e,B~\e(B)
342 ("''" ?') ("\"\"" ?\"))
344 (quail-define-package
345 "german-prefix" "German" "DE>" t
346 "German (Deutsch) input method with prefix modifiers
347 Key translation rules are:
348 \"A -> \e,AD\e(B -> \"O -> \e,AV\e(B \"U -> \e,A\\e(B \"s -> ?\e,A_\e(B
349 " nil t nil nil nil nil nil nil nil nil t)
351 (quail-define-rules
352 ("\"A" ?\e,AD\e(B)
353 ("\"O" ?\e,AV\e(B)
354 ("\"U" ?\e,A\\e(B)
355 ("\"a" ?\e,Ad\e(B)
356 ("\"o" ?\e,Av\e(B)
357 ("\"u" ?\e,A|\e(B)
358 ("\"s" ?\e,A_\e(B)
359 ("\" " ?\")
362 (quail-define-package
363 "irish-prefix" "Latin-1" "GA>" t
364 "Irish input method with prefix modifiers
365 Key translation rules are:
366 'A -> \e,AA\e(B 'E -> \e,AI\e(B 'I -> \e,AM\e(B 'O -> \e,AS\e(B 'U -> \e,AZ\e(B
367 " nil t nil nil nil nil nil nil nil nil t)
369 (quail-define-rules
370 ("'A" ?\e,AA\e(B)
371 ("'E" ?\e,AI\e(B)
372 ("'I" ?\e,AM\e(B)
373 ("'O" ?\e,AS\e(B)
374 ("'U" ?\e,AZ\e(B)
375 ("'a" ?\e,Aa\e(B)
376 ("'e" ?\e,Ai\e(B)
377 ("'i" ?\e,Am\e(B)
378 ("'o" ?\e,As\e(B)
379 ("'u" ?\e,Az\e(B)
380 ("' " ?')
383 (quail-define-package
384 "portuguese-prefix" "Latin-1" "PT>" t
385 "Portuguese input method with prefix modifiers
387 effect | prefix | examples
388 ------------+--------+----------
389 acute | ' | 'a -> \e,Aa\e(B '' -> \e,A4\e(B
390 grave | ` | `a -> \e,A`\e(B
391 circumflex | ^ | ^a -> \e,Ab\e(B
392 diaeresis | \" | \"u -> \e,A|\e(B
393 tilde | ~ | ~a -> \e,Ac\e(B
394 cedilla | ' or , | 'c -> \e,Ag\e(B ,c -> \e,Ag\e(B
395 " nil t nil nil nil nil nil nil nil nil t)
397 (quail-define-rules
398 ("'A" ?\e,AA\e(B)
399 ("'E" ?\e,AI\e(B)
400 ("'I" ?\e,AM\e(B)
401 ("'O" ?\e,AS\e(B)
402 ("'U" ?\e,AZ\e(B)
403 ("'C" ?\e,AG\e(B)
404 ("'a" ?\e,Aa\e(B)
405 ("'e" ?\e,Ai\e(B)
406 ("'i" ?\e,Am\e(B)
407 ("'o" ?\e,As\e(B)
408 ("'u" ?\e,Az\e(B)
409 ("'c" ?\e,Ag\e(B)
410 ("' " ?')
411 ("`A" ?\e,A@\e(B)
412 ("`a" ?\e,A`\e(B)
413 ("` " ?`)
414 ("^A" ?\e,AB\e(B)
415 ("^E" ?\e,AJ\e(B)
416 ("^O" ?\e,AT\e(B)
417 ("^a" ?\e,Ab\e(B)
418 ("^e" ?\e,Aj\e(B)
419 ("^o" ?\e,At\e(B)
420 ("^ " ?^)
421 ("\"U" ?\e,A\\e(B)
422 ("\"u" ?\e,A|\e(B)
423 ("\" " ?\")
424 ("~A" ?\e,AC\e(B)
425 ("~O" ?\e,AU\e(B)
426 ("~a" ?\e,Ac\e(B)
427 ("~o" ?\e,Au\e(B)
428 ("~ " ?~)
429 (",c" ?\e,Ag\e(B)
430 (",C" ?\e,AG\e(B)
431 (",," ?,)
434 (quail-define-package
435 "spanish-prefix" "Spanish" "ES>" t
436 "Spanish (Espa\e,Aq\e(Bol) input method with prefix modifiers
438 effect | prefix | examples
439 ------------+--------+----------
440 acute | ' | 'a -> \e,Aa\e(B
441 diaeresis | \" | \"u -> \e,A|\e(B
442 tilde | ~ | ~n -> \e,Aq\e(B
443 symbol | ~ | ~> -> \e,A;\e(B ~< -> \e,A+\e(B ~! -> \e,A!\e(B ~? -> \e,A?\e(B
444 " nil t nil nil nil nil nil nil nil nil t)
446 (quail-define-rules
447 ("'A" ?\e,AA\e(B)
448 ("'E" ?\e,AI\e(B)
449 ("'I" ?\e,AM\e(B)
450 ("'O" ?\e,AS\e(B)
451 ("'U" ?\e,AZ\e(B)
452 ("'a" ?\e,Aa\e(B)
453 ("'e" ?\e,Ai\e(B)
454 ("'i" ?\e,Am\e(B)
455 ("'o" ?\e,As\e(B)
456 ("'u" ?\e,Az\e(B)
457 ("' " ?')
458 ("\"U" ?\e,A\\e(B)
459 ("\"u" ?\e,A|\e(B)
460 ("\" " ?\")
461 ("~N" ?\e,AQ\e(B)
462 ("~n" ?\e,Aq\e(B)
463 ("~>" ?\\e,A;\e(B)
464 ("~<" ?\\e,A+\e(B)
465 ("~!" ?\e,A!\e(B)
466 ("~?" ?\e,A?\e(B)
467 ("~ " ?~)
470 (quail-define-package
471 "latin-2-prefix" "Latin-2" "2>" t
472 "Latin-2 characters input method with prefix modifiers
474 effect | prefix | examples
475 ------------+--------+----------
476 acute | ' | 'a -> \e,Ba\e(B '' -> ?\e,B4\e(B
477 circumflex | ^ | ^a -> \e,Bb\e(B
478 diaeresis | \" | \"a -> \e,Bd\e(B \"\" -> \e,B(\e(B
479 breve | ~ | ~a -> \e,Bc\e(B
480 caron | ~ | ~c -> \e,Bh\e(B
481 cedilla | ` | `c -> \e,Bg\e(B `e -> ?\e,Bj\e(B
482 misc | ' ` ~ | 'd -> \e,Bp\e(B `l -> \e,B3\e(B `z -> \e,B?\e(B ~o -> \e,Bu\e(B ~u -> \e,B{\e(B
483 symbol | ~ | `. -> \e,B\x7f\e(B ~~ -> \e,B"\e(B ~. -> ?\e,B8\e(B
484 " nil t nil nil nil nil nil nil nil nil t)
486 (quail-define-rules
487 ("'A" ?\e,BA\e(B)
488 ("'C" ?\e,BF\e(B)
489 ("'D" ?\e,BP\e(B)
490 ("'E" ?\e,BI\e(B)
491 ("'I" ?\e,BM\e(B)
492 ("'L" ?\e,BE\e(B)
493 ("'N" ?\e,BQ\e(B)
494 ("'O" ?\e,BS\e(B)
495 ("'R" ?\e,B@\e(B)
496 ("'S" ?\e,B&\e(B)
497 ("'U" ?\e,BZ\e(B)
498 ("'Y" ?\e,B]\e(B)
499 ("'Z" ?\e,B,\e(B)
500 ("'a" ?\e,Ba\e(B)
501 ("'c" ?\e,Bf\e(B)
502 ("'d" ?\e,Bp\e(B)
503 ("'e" ?\e,Bi\e(B)
504 ("'i" ?\e,Bm\e(B)
505 ("'l" ?\e,Be\e(B)
506 ("'n" ?\e,Bq\e(B)
507 ("'o" ?\e,Bs\e(B)
508 ("'r" ?\e,B`\e(B)
509 ("'s" ?\e,B6\e(B)
510 ("'u" ?\e,Bz\e(B)
511 ("'y" ?\e,B}\e(B)
512 ("'z" ?\e,B<\e(B)
513 ("''" ?\e,B4\e(B)
514 ("' " ?')
515 ("`A" ?\e,B!\e(B)
516 ("`C" ?\e,BG\e(B)
517 ("`E" ?\e,BJ\e(B)
518 ("`L" ?\e,B#\e(B)
519 ("`S" ?\e,B*\e(B)
520 ("`T" ?\e,B^\e(B)
521 ("`Z" ?\e,B/\e(B)
522 ("`a" ?\e,B1\e(B)
523 ("`l" ?\e,B3\e(B)
524 ("`c" ?\e,Bg\e(B)
525 ("`e" ?\e,Bj\e(B)
526 ("`s" ?\e,B:\e(B)
527 ("`t" ?\e,B~\e(B)
528 ("`z" ?\e,B?\e(B)
529 ("``" ?\e,B*\e(B)
530 ("`." ?\e,B\x7f\e(B)
531 ("` " ?`)
532 ("^A" ?\e,BB\e(B)
533 ("^I" ?\e,BN\e(B)
534 ("^O" ?\e,BT\e(B)
535 ("^a" ?\e,Bb\e(B)
536 ("^i" ?\e,Bn\e(B)
537 ("^o" ?\e,Bt\e(B)
538 ("^^" ?^)
539 ("^ " ?^)
540 ("\"A" ?\e,BD\e(B)
541 ("\"E" ?\e,BK\e(B)
542 ("\"O" ?\e,BV\e(B)
543 ("\"U" ?\e,B\\e(B)
544 ("\"a" ?\e,Bd\e(B)
545 ("\"e" ?\e,Bk\e(B)
546 ("\"o" ?\e,Bv\e(B)
547 ("\"s" ?\e,B_\e(B)
548 ("\"u" ?\e,B|\e(B)
549 ("\"\"" ?\e,B(\e(B)
550 ("\" " ?\")
551 ("~A" ?\e,BC\e(B)
552 ("~C" ?\e,BH\e(B)
553 ("~D" ?\e,BO\e(B)
554 ("~L" ?\e,B%\e(B)
555 ("~N" ?\e,BR\e(B)
556 ("~O" ?\e,BU\e(B)
557 ("~R" ?\e,BX\e(B)
558 ("~S" ?\e,B)\e(B)
559 ("~T" ?\e,B+\e(B)
560 ("~U" ?\e,B[\e(B)
561 ("~Z" ?\e,B.\e(B)
562 ("~a" ?\e,Bc\e(B)
563 ("~c" ?\e,Bh\e(B)
564 ("~d" ?\e,Bo\e(B)
565 ("~l" ?\e,B5\e(B)
566 ("~n" ?\e,Br\e(B)
567 ("~o" ?\e,Bu\e(B)
568 ("~r" ?\e,Bx\e(B)
569 ("~s" ?\e,B9\e(B)
570 ("~t" ?\e,B;\e(B)
571 ("~u" ?\e,B{\e(B)
572 ("~z" ?\e,B>\e(B)
573 ("~v" ?\e,B"\e(B)
574 ("~~" ?\e,B"\e(B)
575 ("~." ?\e,B8\e(B)
576 ("~ " ?~)
579 (quail-define-package
580 "latin-3-prefix" "Latin-3" "3>" t
581 "Latin-3 characters input method with prefix modifiers
583 effect | prefix | examples
584 ------------+--------+----------
585 acute | ' | 'a -> \e,Ca\e(B '' -> ?\e,C4\e(B
586 grave | ` | `a -> \e,C`\e(B
587 circumflex | ^ | ^a -> \e,Cb\e(B
588 diaeresis | \" | \"a -> \e,Cd\e(B \"\" -> \e,C(\e(B
589 cedilla | ~ | ~c -> \e,Cg\e(B ~s -> \e,C:\e(B ~~ -> \e,C8\e(B
590 dot above | ~ / . | ~o -> \e,Cu\e(B /o -> \e,Cu\e(B .o -> \e,Cu\e(B
591 misc | \" ~ / | \"s -> \e,C_\e(B ~g -> \e,C;\e(B ~u -> \e,C}\e(B /h -> \e,C1\e(B /i -> \e,C9\e(B
592 symbol | ~ | ~` -> \e,C"\e(B /# -> \e,C#\e(B /$ -> \e,C$\e(B // -> \e,C0\e(B
593 " nil t nil nil nil nil nil nil nil nil t)
595 (quail-define-rules
596 ("'A" ?\e,CA\e(B)
597 ("'E" ?\e,CI\e(B)
598 ("'I" ?\e,CM\e(B)
599 ("'O" ?\e,CS\e(B)
600 ("'U" ?\e,CZ\e(B)
601 ("'a" ?\e,Ca\e(B)
602 ("'e" ?\e,Ci\e(B)
603 ("'i" ?\e,Cm\e(B)
604 ("'o" ?\e,Cs\e(B)
605 ("'u" ?\e,Cz\e(B)
606 ("''" ?\e,C4\e(B)
607 ("' " ?')
608 ("`A" ?\e,C@\e(B)
609 ("`E" ?\e,CH\e(B)
610 ("`I" ?\e,CL\e(B)
611 ("`O" ?\e,CR\e(B)
612 ("`U" ?\e,CY\e(B)
613 ("`a" ?\e,C`\e(B)
614 ("`e" ?\e,Ch\e(B)
615 ("`i" ?\e,Cl\e(B)
616 ("`o" ?\e,Cr\e(B)
617 ("`u" ?\e,Cy\e(B)
618 ("``" ?`)
619 ("` " ?`)
620 ("^A" ?\e,CB\e(B)
621 ("^C" ?\e,CF\e(B)
622 ("^E" ?\e,CJ\e(B)
623 ("^G" ?\e,CX\e(B)
624 ("^H" ?\e,C&\e(B)
625 ("^I" ?\e,CN\e(B)
626 ("^J" ?\e,C,\e(B)
627 ("^O" ?\e,CT\e(B)
628 ("^S" ?\e,C^\e(B)
629 ("^U" ?\e,C[\e(B)
630 ("^a" ?\e,Cb\e(B)
631 ("^c" ?\e,Cf\e(B)
632 ("^e" ?\e,Cj\e(B)
633 ("^g" ?\e,Cx\e(B)
634 ("^h" ?\e,C6\e(B)
635 ("^i" ?\e,Cn\e(B)
636 ("^j" ?\e,C<\e(B)
637 ("^o" ?\e,Ct\e(B)
638 ("^s" ?\e,C~\e(B)
639 ("^u" ?\e,C{\e(B)
640 ("^^" ?^)
641 ("^ " ?^)
642 ("\"A" ?\e,CD\e(B)
643 ("\"E" ?\e,CK\e(B)
644 ("\"I" ?\e,CO\e(B)
645 ("\"O" ?\e,CV\e(B)
646 ("\"U" ?\e,C\\e(B)
647 ("\"a" ?\e,Cd\e(B)
648 ("\"e" ?\e,Ck\e(B)
649 ("\"i" ?\e,Co\e(B)
650 ("\"o" ?\e,Cv\e(B)
651 ("\"u" ?\e,C|\e(B)
652 ("\"s" ?\e,C_\e(B)
653 ("\"\"" ?\e,C(\e(B)
654 ("\" " ?\")
655 ("~A" ?\e,CC\e(B)
656 ("~C" ?\e,CG\e(B)
657 ("~D" ?\e,CP\e(B)
658 ("~N" ?\e,CQ\e(B)
659 ("~O" ?\e,CU\e(B)
660 ("~a" ?\e,Cc\e(B)
661 ("~c" ?\e,Cg\e(B)
662 ("~d" ?\e,Cp\e(B)
663 ("~n" ?\e,Cq\e(B)
664 ("~o" ?\e,Cu\e(B)
665 ("~$" ?\e,C%\e(B)
666 ("~S" ?\e,C*\e(B)
667 ("~s" ?\e,C:\e(B)
668 ("~G" ?\e,C+\e(B)
669 ("~g" ?\e,C;\e(B)
670 ("~U" ?\e,C]\e(B)
671 ("~u" ?\e,C}\e(B)
672 ("~`" ?\e,C"\e(B)
673 ("~~" ?\e,C8\e(B)
674 ("~ " ?~)
675 ("/C" ?\e,CE\e(B)
676 ("/G" ?\e,CU\e(B)
677 ("/H" ?\e,C!\e(B)
678 ("/I" ?\e,C)\e(B)
679 ("/Z" ?\e,C/\e(B)
680 ("/c" ?\e,Ce\e(B)
681 ("/g" ?\e,Cu\e(B)
682 ("/h" ?\e,C1\e(B)
683 ("/i" ?\e,C9\e(B)
684 ("/z" ?\e,C?\e(B)
685 ("/r" ?\e,C.\e(B)
686 ("/." ?\e,C\x7f\e(B)
687 ("/#" ?\e,C#\e(B)
688 ("/$" ?\e,C$\e(B)
689 ("//" ?\e,C0\e(B)
690 ("/ " ?/)
691 (".C" ?\e,CE\e(B)
692 (".G" ?\e,CU\e(B)
693 (".I" ?\e,C)\e(B)
694 (".Z" ?\e,C/\e(B)
695 (".c" ?\e,Ce\e(B)
696 (".g" ?\e,Cu\e(B)
697 (".z" ?\e,C?\e(B)
701 (quail-define-package
702 "polish-slash" "Polish" "PL>" nil
703 "Polish diacritics in Latin-2 encoding are input as `/[acelnosxzACELNOSXZ]'.
704 For example, the character named `aogonek' is obtained by `/a'."
705 nil t t t nil nil nil nil nil nil t)
707 (quail-define-rules
708 ("/a" ?\e,B1\e(B)
709 ("/c" ?\e,Bf\e(B)
710 ("/e" ?\e,Bj\e(B)
711 ("/l" ?\e,B3\e(B)
712 ("/n" ?\e,Bq\e(B)
713 ("/o" ?\e,Bs\e(B)
714 ("/s" ?\e,B6\e(B)
715 ("/x" ?\e,B<\e(B)
716 ("/z" ?\e,B?\e(B)
717 ("/A" ?\e,B!\e(B)
718 ("/C" ?\e,BF\e(B)
719 ("/E" ?\e,BJ\e(B)
720 ("/L" ?\e,B#\e(B)
721 ("/N" ?\e,BQ\e(B)
722 ("/O" ?\e,BS\e(B)
723 ("/S" ?\e,B&\e(B)
724 ("/X" ?\e,B,\e(B)
725 ("/Z" ?\e,B/\e(B))
727 (quail-define-package
728 "latin-9-prefix" "Latin-9" "0>" t
729 "Latin-9 characters input method with prefix modifiers
731 effect | prefix | examples
732 ------------+--------+----------
733 acute | ' | 'a -> \e,ba\e(B
734 grave | ` | `a -> \e,b`\e(B
735 circumflex | ^ | ^a -> \e,bb\e(B
736 diaeresis | \" | \"a -> \e,bd\e(B, \"Y -> \e,b>\e(B
737 tilde | ~ | ~a -> \e,bc\e(B
738 caron | ~ | ~z -> \e,b8\e(B
739 cedilla | ~ | ~c -> \e,bg\e(B
740 misc | \" ~ / | \"s -> \e,b_\e(B ~d -> \e,bp\e(B ~t -> \e,b~\e(B /a -> \e,be\e(B /e -> \e,bf\e(B /o -> \e,bx\e(B
741 | \" ~ / | /o -> \e,b=\e(B
742 symbol | ~ | ~> -> \e,b;\e(B ~< -> \e,b+\e(B ~! -> \e,b!\e(B ~? -> \e,b?\e(B ~~ -> \e,b8\e(B
743 | ~ | ~s -> \e,b'\e(B ~e -> \e,b$\e(B ~. -> \e,b7\e(B ~$ -> \e,b#\e(B ~u -> \e,b5\e(B
744 | ~ | ~- -> \e,b-\e(B ~= -> \e,b/\e(B
745 symbol | _ / | _o -> \e,b:\e(B _a -> \e,b*\e(B // -> \e,b0\e(B /\\ -> \e,bW\e(B _y -> \e,b%\e(B
746 | _ / | _: -> \e,bw\e(B /c -> \e,b"\e(B ~p -> \e,b6\e(B
747 | _ / | /= -> \e,b,\e(B
748 symbol | ^ | ^r -> \e,b.\e(B ^c -> \e,b)\e(B ^1 -> \e,b9\e(B ^2 -> \e,b2\e(B ^3 -> \e,b3\e(B _a -> \e,b*\e(B
749 " nil t nil nil nil nil nil nil nil nil t)
751 (quail-define-rules
752 ("'A" ?\e,bA\e(B)
753 ("'E" ?\e,bI\e(B)
754 ("'I" ?\e,bM\e(B)
755 ("'O" ?\e,bS\e(B)
756 ("'U" ?\e,bZ\e(B)
757 ("'Y" ?\e,b]\e(B)
758 ("'a" ?\e,ba\e(B)
759 ("'e" ?\e,bi\e(B)
760 ("'i" ?\e,bm\e(B)
761 ("'o" ?\e,bs\e(B)
762 ("'u" ?\e,bz\e(B)
763 ("'y" ?\e,b}\e(B)
764 ("' " ?')
765 ("`A" ?\e,b@\e(B)
766 ("`E" ?\e,bH\e(B)
767 ("`I" ?\e,bL\e(B)
768 ("`O" ?\e,bR\e(B)
769 ("`U" ?\e,bY\e(B)
770 ("`a" ?\e,b`\e(B)
771 ("`e" ?\e,bh\e(B)
772 ("`i" ?\e,bl\e(B)
773 ("`o" ?\e,br\e(B)
774 ("`u" ?\e,by\e(B)
775 ("``" ?`)
776 ("` " ?`)
777 ("^A" ?\e,bB\e(B)
778 ("^E" ?\e,bJ\e(B)
779 ("^I" ?\e,bN\e(B)
780 ("^O" ?\e,bT\e(B)
781 ("^U" ?\e,b[\e(B)
782 ("^a" ?\e,bb\e(B)
783 ("^e" ?\e,bj\e(B)
784 ("^i" ?\e,bn\e(B)
785 ("^o" ?\e,bt\e(B)
786 ("^u" ?\e,b{\e(B)
787 ("^^" ?^)
788 ("^ " ?^)
789 ("\"A" ?\e,bD\e(B)
790 ("\"E" ?\e,bK\e(B)
791 ("\"I" ?\e,bO\e(B)
792 ("\"O" ?\e,bV\e(B)
793 ("\"U" ?\e,b\\e(B)
794 ("\"a" ?\e,bd\e(B)
795 ("\"e" ?\e,bk\e(B)
796 ("\"i" ?\e,bo\e(B)
797 ("\"o" ?\e,bv\e(B)
798 ("\"s" ?\e,b_\e(B)
799 ("\"u" ?\e,b|\e(B)
800 ("\"y" ?\e,b\x7f\e(B)
801 ("\" " ?\")
802 ("~A" ?\e,bC\e(B)
803 ("~C" ?\e,bG\e(B)
804 ("~D" ?\e,bP\e(B)
805 ("~N" ?\e,bQ\e(B)
806 ("~O" ?\e,bU\e(B)
807 ("~S" ?\e,b&\e(B)
808 ("~T" ?\e,b^\e(B)
809 ("~Z" ?\e,b4\e(B)
810 ("~a" ?\e,bc\e(B)
811 ("~c" ?\e,bg\e(B)
812 ("~d" ?\e,bp\e(B)
813 ("~n" ?\e,bq\e(B)
814 ("~o" ?\e,bu\e(B)
815 ("~s" ?\e,b(\e(B)
816 ("~t" ?\e,b~\e(B)
817 ("~z" ?\e,b8\e(B)
818 ("~>" ?\\e,b;\e(B)
819 ("~<" ?\\e,b+\e(B)
820 ("~!" ?\e,b!\e(B)
821 ("~?" ?\e,b?\e(B)
822 ("~ " ?~)
823 ("/A" ?\e,bE\e(B)
824 ("/E" ?\e,bF\e(B)
825 ("/O" ?\e,bX\e(B)
826 ("/a" ?\e,be\e(B)
827 ("/e" ?\e,bf\e(B)
828 ("/o" ?\e,bx\e(B)
829 ("//" ?\e,b0\e(B)
830 ("/ " ?/)
831 ("_o" ?\e,b:\e(B)
832 ("_a" ?\e,b*\e(B)
833 ("_+" ?\e,b1\e(B)
834 ("_y" ?\e,b%\e(B)
835 ("_:" ?\e,bw\e(B)
836 ("/c" ?\e,b"\e(B)
837 ("/\\" ?\e,bW\e(B)
838 ("/o" ?\e,b=\e(B) ; clash with \e,bx\e(B, but \e,bf\e(B uses /
839 ("/O" ?\e,b<\e(B)
840 ("\"Y" ?\e,b>\e(B)
841 ("~s" ?\e,b'\e(B)
842 ("~p" ?\e,b6\e(B)
843 ;; Is this the best option for Euro entry?
844 ("~e" ?\e,b$\e(B)
845 ("~." ?\e,b7\e(B)
846 ("~$" ?\e,b#\e(B)
847 ("~u" ?\e,b5\e(B)
848 ("^r" ?\e,b.\e(B)
849 ("^c" ?\e,b)\e(B)
850 ("^1" ?\e,b9\e(B)
851 ("^2" ?\e,b2\e(B)
852 ("^3" ?\e,b3\e(B)
853 ("~-" ?\e,b-\e(B)
854 ("~=" ?\e,b/\e(B)
855 ("/=" ?\e,b,\e(B))
857 ;; Latin-8 was done by an Englishman -- Johnny Celt should take a
858 ;; squint at it.
860 (quail-define-package
861 "latin-8-prefix" "Latin-8" "8>" t
862 "Latin-8 characters input method with prefix modifiers
864 effect | prefix | examples
865 ------------+--------+----------
866 acute | ' | 'a -> \e,_a\e(B
867 grave | ` | `a -> \e,_`\e(B
868 circumflex | ^ | ^w -> \e,_p\e(B
869 diaeresis | \" | \"a -> \e,_d\e(B
870 dot above | . | .b -> \e,_"\e(B
871 tilde | ~ | ~a -> \e,_c\e(B
872 cedilla | ~ | ~c -> \e,_g\e(B
873 misc | \" ~ / | \"s -> \e,__\e(B /a -> \e,_e\e(B /e -> \e,_f\e(B /o -> \e,_x\e(B
874 | ~ | ~s -> \e,_'\e(B ~$ -> \e,_#\e(B ~p -> \e,_6\e(B
875 symbol | ^ | ^r -> \e,_.\e(B ^c -> \e,_)\e(B
876 " nil t nil nil nil nil nil nil nil nil t)
878 ;; Basically following Latin-1 plus dottiness from Latin-3.
879 (quail-define-rules
880 (".B" ?\e,_!\e(B)
881 (".b" ?\e,_"\e(B)
882 (".c" ?\e,_%\e(B)
883 (".C" ?\e,_$\e(B)
884 (".D" ?\e,_&\e(B)
885 (".d" ?\e,_+\e(B)
886 (".f" ?\e,_1\e(B)
887 (".F" ?\e,_0\e(B)
888 (".g" ?\e,_3\e(B)
889 (".G" ?\e,_2\e(B)
890 (".m" ?\e,_5\e(B)
891 (".M" ?\e,_4\e(B)
892 (".p" ?\e,_9\e(B)
893 (".P" ?\e,_7\e(B)
894 (".s" ?\e,_?\e(B)
895 (".S" ?\e,_;\e(B)
896 (".t" ?\e,_w\e(B)
897 (".T" ?\e,_W\e(B)
898 ("'A" ?\e,_A\e(B)
899 ("'E" ?\e,_I\e(B)
900 ("'I" ?\e,_M\e(B)
901 ("'O" ?\e,_S\e(B)
902 ("'U" ?\e,_Z\e(B)
903 ("'Y" ?\e,_]\e(B)
904 ("'W" ?\e,_*\e(B)
905 ("'a" ?\e,_a\e(B)
906 ("'e" ?\e,_i\e(B)
907 ("'i" ?\e,_m\e(B)
908 ("'o" ?\e,_s\e(B)
909 ("'u" ?\e,_z\e(B)
910 ("'w" ?\e,_:\e(B)
911 ("'y" ?\e,_}\e(B)
912 ("' " ?')
913 ("`A" ?\e,_@\e(B)
914 ("`E" ?\e,_H\e(B)
915 ("`I" ?\e,_L\e(B)
916 ("`O" ?\e,_R\e(B)
917 ("`U" ?\e,_Y\e(B)
918 ("`W" ?\e,_(\e(B)
919 ("`Y" ?\e,_,\e(B)
920 ("`a" ?\e,_`\e(B)
921 ("`e" ?\e,_h\e(B)
922 ("`i" ?\e,_l\e(B)
923 ("`o" ?\e,_r\e(B)
924 ("`u" ?\e,_y\e(B)
925 ("`w" ?\e,_8\e(B)
926 ("`y" ?\e,_<\e(B)
927 ("``" ?`)
928 ("` " ?`)
929 ("^A" ?\e,_B\e(B)
930 ("^E" ?\e,_J\e(B)
931 ("^I" ?\e,_N\e(B)
932 ("^O" ?\e,_T\e(B)
933 ("^U" ?\e,_[\e(B)
934 ("^a" ?\e,_b\e(B)
935 ("^e" ?\e,_j\e(B)
936 ("^i" ?\e,_n\e(B)
937 ("^o" ?\e,_t\e(B)
938 ("^u" ?\e,_{\e(B)
939 ("^w" ?\e,_p\e(B)
940 ("^W" ?\e,_P\e(B)
941 ("^y" ?\e,_~\e(B)
942 ("^Y" ?\e,_^\e(B)
943 ("^^" ?^)
944 ("^ " ?^)
945 ("\"A" ?\e,_D\e(B)
946 ("\"E" ?\e,_K\e(B)
947 ("\"I" ?\e,_O\e(B)
948 ("\"O" ?\e,_V\e(B)
949 ("\"U" ?\e,_\\e(B)
950 ("\"a" ?\e,_d\e(B)
951 ("\"e" ?\e,_k\e(B)
952 ("\"i" ?\e,_o\e(B)
953 ("\"o" ?\e,_v\e(B)
954 ("\"s" ?\e,__\e(B)
955 ("\"u" ?\e,_|\e(B)
956 ("\"w" ?\e,_>\e(B)
957 ("\"W" ?\e,_=\e(B)
958 ("\"y" ?\e,_\x7f\e(B)
959 ("\"Y" ?\e,_/\e(B)
960 ("\" " ?\")
961 ("~A" ?\e,_C\e(B)
962 ("~C" ?\e,_G\e(B)
963 ("~N" ?\e,_Q\e(B)
964 ("~O" ?\e,_U\e(B)
965 ("~a" ?\e,_c\e(B)
966 ("~c" ?\e,_g\e(B)
967 ("~n" ?\e,_q\e(B)
968 ("~o" ?\e,_u\e(B)
969 ("~ " ?~)
970 ("/A" ?\e,_E\e(B)
971 ("/E" ?\e,_F\e(B)
972 ("/O" ?\e,_X\e(B)
973 ("/a" ?\e,_e\e(B)
974 ("/e" ?\e,_f\e(B)
975 ("/o" ?\e,_x\e(B)
976 ("/ " ?/)
977 ("~p" ?\e,_6\e(B)
978 ("~s" ?\e,_'\e(B)
979 ("~$" ?\e,_#\e(B)
980 ("^r" ?\e,_.\e(B)
981 ("^c" ?\e,_)\e(B))
983 ;;; latin-pre.el ends here