* bookmark.el (bookmark-file-or-variation-thereof): Just use
[emacs.git] / leim / quail / latin-pre.el
blobb9e2e7d6c180b544d561262045a9931a66ee2c7f
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 ("~E" ?\e,BL\e(B)
555 ("~L" ?\e,B%\e(B)
556 ("~N" ?\e,BR\e(B)
557 ("~O" ?\e,BU\e(B)
558 ("~R" ?\e,BX\e(B)
559 ("~S" ?\e,B)\e(B)
560 ("~T" ?\e,B+\e(B)
561 ("~U" ?\e,B[\e(B)
562 ("~Z" ?\e,B.\e(B)
563 ("~a" ?\e,Bc\e(B)
564 ("~c" ?\e,Bh\e(B)
565 ("~d" ?\e,Bo\e(B)
566 ("~e" ?\e,Bl\e(B)
567 ("~l" ?\e,B5\e(B)
568 ("~n" ?\e,Br\e(B)
569 ("~o" ?\e,Bu\e(B)
570 ("~r" ?\e,Bx\e(B)
571 ("~s" ?\e,B9\e(B)
572 ("~t" ?\e,B;\e(B)
573 ("~u" ?\e,B{\e(B)
574 ("~z" ?\e,B>\e(B)
575 ("~v" ?\e,B"\e(B)
576 ("~~" ?\e,B"\e(B)
577 ("~." ?\e,B8\e(B)
578 ("~ " ?~)
581 (quail-define-package
582 "latin-3-prefix" "Latin-3" "3>" t
583 "Latin-3 characters input method with prefix modifiers
585 effect | prefix | examples
586 ------------+--------+----------
587 acute | ' | 'a -> \e,Ca\e(B '' -> ?\e,C4\e(B
588 grave | ` | `a -> \e,C`\e(B
589 circumflex | ^ | ^a -> \e,Cb\e(B
590 diaeresis | \" | \"a -> \e,Cd\e(B \"\" -> \e,C(\e(B
591 cedilla | ~ | ~c -> \e,Cg\e(B ~s -> \e,C:\e(B ~~ -> \e,C8\e(B
592 dot above | ~ / . | ~o -> \e,Cu\e(B /o -> \e,Cu\e(B .o -> \e,Cu\e(B
593 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
594 symbol | ~ | ~` -> \e,C"\e(B /# -> \e,C#\e(B /$ -> \e,C$\e(B // -> \e,C0\e(B
595 " nil t nil nil nil nil nil nil nil nil t)
597 (quail-define-rules
598 ("'A" ?\e,CA\e(B)
599 ("'E" ?\e,CI\e(B)
600 ("'I" ?\e,CM\e(B)
601 ("'O" ?\e,CS\e(B)
602 ("'U" ?\e,CZ\e(B)
603 ("'a" ?\e,Ca\e(B)
604 ("'e" ?\e,Ci\e(B)
605 ("'i" ?\e,Cm\e(B)
606 ("'o" ?\e,Cs\e(B)
607 ("'u" ?\e,Cz\e(B)
608 ("''" ?\e,C4\e(B)
609 ("' " ?')
610 ("`A" ?\e,C@\e(B)
611 ("`E" ?\e,CH\e(B)
612 ("`I" ?\e,CL\e(B)
613 ("`O" ?\e,CR\e(B)
614 ("`U" ?\e,CY\e(B)
615 ("`a" ?\e,C`\e(B)
616 ("`e" ?\e,Ch\e(B)
617 ("`i" ?\e,Cl\e(B)
618 ("`o" ?\e,Cr\e(B)
619 ("`u" ?\e,Cy\e(B)
620 ("``" ?`)
621 ("` " ?`)
622 ("^A" ?\e,CB\e(B)
623 ("^C" ?\e,CF\e(B)
624 ("^E" ?\e,CJ\e(B)
625 ("^G" ?\e,CX\e(B)
626 ("^H" ?\e,C&\e(B)
627 ("^I" ?\e,CN\e(B)
628 ("^J" ?\e,C,\e(B)
629 ("^O" ?\e,CT\e(B)
630 ("^S" ?\e,C^\e(B)
631 ("^U" ?\e,C[\e(B)
632 ("^a" ?\e,Cb\e(B)
633 ("^c" ?\e,Cf\e(B)
634 ("^e" ?\e,Cj\e(B)
635 ("^g" ?\e,Cx\e(B)
636 ("^h" ?\e,C6\e(B)
637 ("^i" ?\e,Cn\e(B)
638 ("^j" ?\e,C<\e(B)
639 ("^o" ?\e,Ct\e(B)
640 ("^s" ?\e,C~\e(B)
641 ("^u" ?\e,C{\e(B)
642 ("^^" ?^)
643 ("^ " ?^)
644 ("\"A" ?\e,CD\e(B)
645 ("\"E" ?\e,CK\e(B)
646 ("\"I" ?\e,CO\e(B)
647 ("\"O" ?\e,CV\e(B)
648 ("\"U" ?\e,C\\e(B)
649 ("\"a" ?\e,Cd\e(B)
650 ("\"e" ?\e,Ck\e(B)
651 ("\"i" ?\e,Co\e(B)
652 ("\"o" ?\e,Cv\e(B)
653 ("\"u" ?\e,C|\e(B)
654 ("\"s" ?\e,C_\e(B)
655 ("\"\"" ?\e,C(\e(B)
656 ("\" " ?\")
657 ("~A" ?\e,CC\e(B)
658 ("~C" ?\e,CG\e(B)
659 ("~D" ?\e,CP\e(B)
660 ("~N" ?\e,CQ\e(B)
661 ("~O" ?\e,CU\e(B)
662 ("~a" ?\e,Cc\e(B)
663 ("~c" ?\e,Cg\e(B)
664 ("~d" ?\e,Cp\e(B)
665 ("~n" ?\e,Cq\e(B)
666 ("~o" ?\e,Cu\e(B)
667 ("~$" ?\e,C%\e(B)
668 ("~S" ?\e,C*\e(B)
669 ("~s" ?\e,C:\e(B)
670 ("~G" ?\e,C+\e(B)
671 ("~g" ?\e,C;\e(B)
672 ("~U" ?\e,C]\e(B)
673 ("~u" ?\e,C}\e(B)
674 ("~`" ?\e,C"\e(B)
675 ("~~" ?\e,C8\e(B)
676 ("~ " ?~)
677 ("/C" ?\e,CE\e(B)
678 ("/G" ?\e,CU\e(B)
679 ("/H" ?\e,C!\e(B)
680 ("/I" ?\e,C)\e(B)
681 ("/Z" ?\e,C/\e(B)
682 ("/c" ?\e,Ce\e(B)
683 ("/g" ?\e,Cu\e(B)
684 ("/h" ?\e,C1\e(B)
685 ("/i" ?\e,C9\e(B)
686 ("/z" ?\e,C?\e(B)
687 ("/r" ?\e,C.\e(B)
688 ("/." ?\e,C\x7f\e(B)
689 ("/#" ?\e,C#\e(B)
690 ("/$" ?\e,C$\e(B)
691 ("//" ?\e,C0\e(B)
692 ("/ " ?/)
693 (".C" ?\e,CE\e(B)
694 (".G" ?\e,CU\e(B)
695 (".I" ?\e,C)\e(B)
696 (".Z" ?\e,C/\e(B)
697 (".c" ?\e,Ce\e(B)
698 (".g" ?\e,Cu\e(B)
699 (".z" ?\e,C?\e(B)
703 (quail-define-package
704 "polish-slash" "Polish" "PL>" nil
705 "Polish diacritics in Latin-2 encoding are input as `/[acelnosxzACELNOSXZ]'.
706 For example, the character named `aogonek' is obtained by `/a'."
707 nil t t t nil nil nil nil nil nil t)
709 (quail-define-rules
710 ("/a" ?\e,B1\e(B)
711 ("/c" ?\e,Bf\e(B)
712 ("/e" ?\e,Bj\e(B)
713 ("/l" ?\e,B3\e(B)
714 ("/n" ?\e,Bq\e(B)
715 ("/o" ?\e,Bs\e(B)
716 ("/s" ?\e,B6\e(B)
717 ("/x" ?\e,B<\e(B)
718 ("/z" ?\e,B?\e(B)
719 ("/A" ?\e,B!\e(B)
720 ("/C" ?\e,BF\e(B)
721 ("/E" ?\e,BJ\e(B)
722 ("/L" ?\e,B#\e(B)
723 ("/N" ?\e,BQ\e(B)
724 ("/O" ?\e,BS\e(B)
725 ("/S" ?\e,B&\e(B)
726 ("/X" ?\e,B,\e(B)
727 ("/Z" ?\e,B/\e(B))
729 (quail-define-package
730 "latin-9-prefix" "Latin-9" "0>" t
731 "Latin-9 characters input method with prefix modifiers
733 effect | prefix | examples
734 ------------+--------+----------
735 acute | ' | 'a -> \e,ba\e(B
736 grave | ` | `a -> \e,b`\e(B
737 circumflex | ^ | ^a -> \e,bb\e(B
738 diaeresis | \" | \"a -> \e,bd\e(B, \"Y -> \e,b>\e(B
739 tilde | ~ | ~a -> \e,bc\e(B
740 caron | ~ | ~z -> \e,b8\e(B
741 cedilla | ~ | ~c -> \e,bg\e(B
742 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
743 | \" ~ / | /o -> \e,b=\e(B
744 symbol | ~ | ~> -> \e,b;\e(B ~< -> \e,b+\e(B ~! -> \e,b!\e(B ~? -> \e,b?\e(B ~~ -> \e,b8\e(B
745 | ~ | ~s -> \e,b'\e(B ~e -> \e,b$\e(B ~. -> \e,b7\e(B ~$ -> \e,b#\e(B ~u -> \e,b5\e(B
746 | ~ | ~- -> \e,b-\e(B ~= -> \e,b/\e(B
747 symbol | _ / | _o -> \e,b:\e(B _a -> \e,b*\e(B // -> \e,b0\e(B /\\ -> \e,bW\e(B _y -> \e,b%\e(B
748 | _ / | _: -> \e,bw\e(B /c -> \e,b"\e(B ~p -> \e,b6\e(B
749 | _ / | /= -> \e,b,\e(B
750 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
751 " nil t nil nil nil nil nil nil nil nil t)
753 (quail-define-rules
754 ("'A" ?\e,bA\e(B)
755 ("'E" ?\e,bI\e(B)
756 ("'I" ?\e,bM\e(B)
757 ("'O" ?\e,bS\e(B)
758 ("'U" ?\e,bZ\e(B)
759 ("'Y" ?\e,b]\e(B)
760 ("'a" ?\e,ba\e(B)
761 ("'e" ?\e,bi\e(B)
762 ("'i" ?\e,bm\e(B)
763 ("'o" ?\e,bs\e(B)
764 ("'u" ?\e,bz\e(B)
765 ("'y" ?\e,b}\e(B)
766 ("' " ?')
767 ("`A" ?\e,b@\e(B)
768 ("`E" ?\e,bH\e(B)
769 ("`I" ?\e,bL\e(B)
770 ("`O" ?\e,bR\e(B)
771 ("`U" ?\e,bY\e(B)
772 ("`a" ?\e,b`\e(B)
773 ("`e" ?\e,bh\e(B)
774 ("`i" ?\e,bl\e(B)
775 ("`o" ?\e,br\e(B)
776 ("`u" ?\e,by\e(B)
777 ("``" ?`)
778 ("` " ?`)
779 ("^A" ?\e,bB\e(B)
780 ("^E" ?\e,bJ\e(B)
781 ("^I" ?\e,bN\e(B)
782 ("^O" ?\e,bT\e(B)
783 ("^U" ?\e,b[\e(B)
784 ("^a" ?\e,bb\e(B)
785 ("^e" ?\e,bj\e(B)
786 ("^i" ?\e,bn\e(B)
787 ("^o" ?\e,bt\e(B)
788 ("^u" ?\e,b{\e(B)
789 ("^^" ?^)
790 ("^ " ?^)
791 ("\"A" ?\e,bD\e(B)
792 ("\"E" ?\e,bK\e(B)
793 ("\"I" ?\e,bO\e(B)
794 ("\"O" ?\e,bV\e(B)
795 ("\"U" ?\e,b\\e(B)
796 ("\"a" ?\e,bd\e(B)
797 ("\"e" ?\e,bk\e(B)
798 ("\"i" ?\e,bo\e(B)
799 ("\"o" ?\e,bv\e(B)
800 ("\"s" ?\e,b_\e(B)
801 ("\"u" ?\e,b|\e(B)
802 ("\"y" ?\e,b\x7f\e(B)
803 ("\" " ?\")
804 ("~A" ?\e,bC\e(B)
805 ("~C" ?\e,bG\e(B)
806 ("~D" ?\e,bP\e(B)
807 ("~N" ?\e,bQ\e(B)
808 ("~O" ?\e,bU\e(B)
809 ("~S" ?\e,b&\e(B)
810 ("~T" ?\e,b^\e(B)
811 ("~Z" ?\e,b4\e(B)
812 ("~a" ?\e,bc\e(B)
813 ("~c" ?\e,bg\e(B)
814 ("~d" ?\e,bp\e(B)
815 ("~n" ?\e,bq\e(B)
816 ("~o" ?\e,bu\e(B)
817 ("~s" ?\e,b(\e(B)
818 ("~t" ?\e,b~\e(B)
819 ("~z" ?\e,b8\e(B)
820 ("~>" ?\\e,b;\e(B)
821 ("~<" ?\\e,b+\e(B)
822 ("~!" ?\e,b!\e(B)
823 ("~?" ?\e,b?\e(B)
824 ("~ " ?~)
825 ("/A" ?\e,bE\e(B)
826 ("/E" ?\e,bF\e(B)
827 ("/O" ?\e,bX\e(B)
828 ("/a" ?\e,be\e(B)
829 ("/e" ?\e,bf\e(B)
830 ("/o" ?\e,bx\e(B)
831 ("//" ?\e,b0\e(B)
832 ("/ " ?/)
833 ("_o" ?\e,b:\e(B)
834 ("_a" ?\e,b*\e(B)
835 ("_+" ?\e,b1\e(B)
836 ("_y" ?\e,b%\e(B)
837 ("_:" ?\e,bw\e(B)
838 ("/c" ?\e,b"\e(B)
839 ("/\\" ?\e,bW\e(B)
840 ("/o" ?\e,b=\e(B) ; clash with \e,bx\e(B, but \e,bf\e(B uses /
841 ("/O" ?\e,b<\e(B)
842 ("\"Y" ?\e,b>\e(B)
843 ("~s" ?\e,b'\e(B)
844 ("~p" ?\e,b6\e(B)
845 ;; Is this the best option for Euro entry?
846 ("~e" ?\e,b$\e(B)
847 ("~." ?\e,b7\e(B)
848 ("~$" ?\e,b#\e(B)
849 ("~u" ?\e,b5\e(B)
850 ("^r" ?\e,b.\e(B)
851 ("^c" ?\e,b)\e(B)
852 ("^1" ?\e,b9\e(B)
853 ("^2" ?\e,b2\e(B)
854 ("^3" ?\e,b3\e(B)
855 ("~-" ?\e,b-\e(B)
856 ("~=" ?\e,b/\e(B)
857 ("/=" ?\e,b,\e(B))
859 ;; Latin-8 was done by an Englishman -- Johnny Celt should take a
860 ;; squint at it.
862 (quail-define-package
863 "latin-8-prefix" "Latin-8" "8>" t
864 "Latin-8 characters input method with prefix modifiers
866 effect | prefix | examples
867 ------------+--------+----------
868 acute | ' | 'a -> \e,_a\e(B
869 grave | ` | `a -> \e,_`\e(B
870 circumflex | ^ | ^w -> \e,_p\e(B
871 diaeresis | \" | \"a -> \e,_d\e(B
872 dot above | . | .b -> \e,_"\e(B
873 tilde | ~ | ~a -> \e,_c\e(B
874 cedilla | ~ | ~c -> \e,_g\e(B
875 misc | \" ~ / | \"s -> \e,__\e(B /a -> \e,_e\e(B /e -> \e,_f\e(B /o -> \e,_x\e(B
876 | ~ | ~s -> \e,_'\e(B ~$ -> \e,_#\e(B ~p -> \e,_6\e(B
877 symbol | ^ | ^r -> \e,_.\e(B ^c -> \e,_)\e(B
878 " nil t nil nil nil nil nil nil nil nil t)
880 ;; Basically following Latin-1 plus dottiness from Latin-3.
881 (quail-define-rules
882 (".B" ?\e,_!\e(B)
883 (".b" ?\e,_"\e(B)
884 (".c" ?\e,_%\e(B)
885 (".C" ?\e,_$\e(B)
886 (".D" ?\e,_&\e(B)
887 (".d" ?\e,_+\e(B)
888 (".f" ?\e,_1\e(B)
889 (".F" ?\e,_0\e(B)
890 (".g" ?\e,_3\e(B)
891 (".G" ?\e,_2\e(B)
892 (".m" ?\e,_5\e(B)
893 (".M" ?\e,_4\e(B)
894 (".p" ?\e,_9\e(B)
895 (".P" ?\e,_7\e(B)
896 (".s" ?\e,_?\e(B)
897 (".S" ?\e,_;\e(B)
898 (".t" ?\e,_w\e(B)
899 (".T" ?\e,_W\e(B)
900 ("'A" ?\e,_A\e(B)
901 ("'E" ?\e,_I\e(B)
902 ("'I" ?\e,_M\e(B)
903 ("'O" ?\e,_S\e(B)
904 ("'U" ?\e,_Z\e(B)
905 ("'Y" ?\e,_]\e(B)
906 ("'W" ?\e,_*\e(B)
907 ("'a" ?\e,_a\e(B)
908 ("'e" ?\e,_i\e(B)
909 ("'i" ?\e,_m\e(B)
910 ("'o" ?\e,_s\e(B)
911 ("'u" ?\e,_z\e(B)
912 ("'w" ?\e,_:\e(B)
913 ("'y" ?\e,_}\e(B)
914 ("' " ?')
915 ("`A" ?\e,_@\e(B)
916 ("`E" ?\e,_H\e(B)
917 ("`I" ?\e,_L\e(B)
918 ("`O" ?\e,_R\e(B)
919 ("`U" ?\e,_Y\e(B)
920 ("`W" ?\e,_(\e(B)
921 ("`Y" ?\e,_,\e(B)
922 ("`a" ?\e,_`\e(B)
923 ("`e" ?\e,_h\e(B)
924 ("`i" ?\e,_l\e(B)
925 ("`o" ?\e,_r\e(B)
926 ("`u" ?\e,_y\e(B)
927 ("`w" ?\e,_8\e(B)
928 ("`y" ?\e,_<\e(B)
929 ("``" ?`)
930 ("` " ?`)
931 ("^A" ?\e,_B\e(B)
932 ("^E" ?\e,_J\e(B)
933 ("^I" ?\e,_N\e(B)
934 ("^O" ?\e,_T\e(B)
935 ("^U" ?\e,_[\e(B)
936 ("^a" ?\e,_b\e(B)
937 ("^e" ?\e,_j\e(B)
938 ("^i" ?\e,_n\e(B)
939 ("^o" ?\e,_t\e(B)
940 ("^u" ?\e,_{\e(B)
941 ("^w" ?\e,_p\e(B)
942 ("^W" ?\e,_P\e(B)
943 ("^y" ?\e,_~\e(B)
944 ("^Y" ?\e,_^\e(B)
945 ("^^" ?^)
946 ("^ " ?^)
947 ("\"A" ?\e,_D\e(B)
948 ("\"E" ?\e,_K\e(B)
949 ("\"I" ?\e,_O\e(B)
950 ("\"O" ?\e,_V\e(B)
951 ("\"U" ?\e,_\\e(B)
952 ("\"a" ?\e,_d\e(B)
953 ("\"e" ?\e,_k\e(B)
954 ("\"i" ?\e,_o\e(B)
955 ("\"o" ?\e,_v\e(B)
956 ("\"s" ?\e,__\e(B)
957 ("\"u" ?\e,_|\e(B)
958 ("\"w" ?\e,_>\e(B)
959 ("\"W" ?\e,_=\e(B)
960 ("\"y" ?\e,_\x7f\e(B)
961 ("\"Y" ?\e,_/\e(B)
962 ("\" " ?\")
963 ("~A" ?\e,_C\e(B)
964 ("~C" ?\e,_G\e(B)
965 ("~N" ?\e,_Q\e(B)
966 ("~O" ?\e,_U\e(B)
967 ("~a" ?\e,_c\e(B)
968 ("~c" ?\e,_g\e(B)
969 ("~n" ?\e,_q\e(B)
970 ("~o" ?\e,_u\e(B)
971 ("~ " ?~)
972 ("/A" ?\e,_E\e(B)
973 ("/E" ?\e,_F\e(B)
974 ("/O" ?\e,_X\e(B)
975 ("/a" ?\e,_e\e(B)
976 ("/e" ?\e,_f\e(B)
977 ("/o" ?\e,_x\e(B)
978 ("/ " ?/)
979 ("~p" ?\e,_6\e(B)
980 ("~s" ?\e,_'\e(B)
981 ("~$" ?\e,_#\e(B)
982 ("^r" ?\e,_.\e(B)
983 ("^c" ?\e,_)\e(B))
985 ;;; latin-pre.el ends here