1 ;;; latin-pre.el -- Quail packages for inputting various European characters.
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
6 ;; Keywords: mule, multilingual, latin, input method
8 ;; This file is part of GNU Emacs.
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)
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.
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.
27 ;; All key translation maps are copied from iso-acc.el.
34 "latin-1-prefix" "Latin-1" "1>" t
35 "Latin-1 characters input method with prefix modifiers
37 effect | prefix | examples
38 ------------+--------+----------
39 acute | ' | 'a ->
\e,Aa
\e(B, '' ->
\e,A4
\e(B
40 grave | ` | `a ->
\e,A`
\e(B
41 circumflex | ^ | ^a ->
\e,Ab
\e(B
42 diaeresis | \" | \"a ->
\e,Ad
\e(B, \"\" ->
\e,A(
\e(B
43 tilde | ~ | ~a ->
\e,Ac
\e(B
44 cedilla | ~ | ~c ->
\e,Ag
\e(B
45 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
46 symbol | ~ | ~> ->
\e,A;
\e(B, ~< ->
\e,A+
\e(B, ~! ->
\e,A!
\e(B, ~? ->
\e,A?
\e(B, ~~ ->
\e,A8
\e(B
130 (quail-define-package
131 "catalan-prefix" "Latin-1" "CA>" t
132 "Catalan and Spanish input method with prefix modifiers
134 effect | prefix | examples
135 ------------+--------+----------
136 acute | ' | 'a ->
\e,Aa
\e(B, '' ->
\e,A4
\e(B
137 grave | ` | `a ->
\e,A`
\e(B
138 diaeresis | \" | \"i ->
\e,Ao
\e(B, \"\" ->
\e,A(
\e(B
139 tilde | ~ | ~n ->
\e,Aq
\e(B
140 cedilla | ~ | ~c ->
\e,Ag
\e(B
141 symbol | ~ | ~> ->
\e,A;
\e(B, ~< ->
\e,A+
\e(B, ~! ->
\e,A!
\e(B, ~? ->
\e,A?
\e(B
179 (quail-define-package
180 "esperanto-prefix" "Latin-1" "EO>" t
181 "Esperanto input method with prefix modifiers
182 Key translation rules are:
183 ^H -> ?
\e,A&
\e(B, ^J -> ?
\e,A,
\e(B, ^h -> ?
\e,A6
\e(B, ^j -> ?
\e,A<
\e(B, ^C -> ?
\e,AF
\e(B, ^G -> ?
\e,AX
\e(B,
184 ^S -> ?
\e,A^
\e(B, ^c -> ?
\e,Af
\e(B, ^g -> ?
\e,Ax
\e(B, ^s -> ?
\e,A~
\e(B, ~U -> ?
\e,A]
\e(B, ~u -> ?
\e,A}
\e(B
205 (quail-define-package
206 "french-prefix" "Latin-1" "FR>" t
207 "French (Fran
\e,Ag
\e(Bais) input method with prefix modifiers
209 effect | prefix | examples
210 ------------+--------+----------
211 acute | ' | 'e ->
\e,Ai
\e(B
212 grave | ` | `a ->
\e,A`
\e(B
213 circumflex | ^ | ^a ->
\e,Ab
\e(B
214 diaeresis | \" | \"i ->
\e,Ao
\e(B
215 cedilla | ~ or , | ~c ->
\e,Ag
\e(B, ,c ->
\e,Ag
\e(B
216 symbol | ~ | ~> ->
\e,A;
\e(B, ~< ->
\e,A+
\e(B
258 (quail-define-package
259 "german-prefix" "Latin-1" "DE>" t
260 "German (Deutsch) input method with prefix modifiers
261 Key translation rules are:
262 \"A ->
\e,AD
\e(B -> \"O ->
\e,AV
\e(B, \"U ->
\e,A\
\e(B, \"s -> ?
\e,A_
\e(B
276 (quail-define-package
277 "irish-prefix" "Latin-1" "GA>" t
278 "Irish input method with prefix modifiers
279 Key translation rules are:
280 '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
297 (quail-define-package
298 "portuguese-prefix" "Latin-1" "PT>" t
299 "Portuguese input method with prefix modifiers
301 effect | prefix | examples
302 ------------+--------+----------
303 acute | ' | 'a ->
\e,Aa
\e(B, '' ->
\e,A4
\e(B
304 grave | ` | `a ->
\e,A`
\e(B
305 circumflex | ^ | ^a ->
\e,Ab
\e(B
306 diaeresis | \" | \"u ->
\e,A|
\e(B
307 tilde | ~ | ~a ->
\e,Ac
\e(B
308 cedilla | ' or , | 'c ->
\e,Ag
\e(B, ,c ->
\e,Ag
\e(B
348 (quail-define-package
349 "spanish-prefix" "Latin-1" "ES>" t
350 "Spanish (Espa
\e,Aq
\e(Bol) input method with prefix modifiers
352 effect | prefix | examples
353 ------------+--------+----------
354 acute | ' | 'a ->
\e,Aa
\e(B
355 diaeresis | \" | \"u ->
\e,A|
\e(B
356 tilde | ~ | ~n ->
\e,Aq
\e(B
357 symbol | ~ | ~> ->
\e,A;
\e(B, ~< ->
\e,A+
\e(B, ~! ->
\e,A!
\e(B, ~? ->
\e,A?
\e(B
384 (quail-define-package
385 "latin-2-prefix" "Latin-2" "2>" t
386 "Latin-2 characters input method with prefix modifiers
388 effect | prefix | examples
389 ------------+--------+----------
390 acute | ' | 'a ->
\e,Ba
\e(B, '' -> ?
\e,B4
\e(B
391 circumflex | ^ | ^a ->
\e,Bb
\e(B
392 diaeresis | \" | \"a ->
\e,Bd
\e(B, \"\" ->
\e,B(
\e(B
393 breve | ~ | ~a ->
\e,Bc
\e(B
394 caron | ~ | ~c ->
\e,Bh
\e(B
395 cedilla | ` | `c ->
\e,Bg
\e(B, `e -> ?
\e,Bj
\e(B
396 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
397 symbol | ~ | `. ->
\e,B
\7f\e(B, ~~ ->
\e,B"
\e(B, ~. -> ?
\e,B8
\e(B
493 (quail-define-package
494 "latin-3-prefix" "Latin-3" "3>" t
495 "Latin-3 characters input method with prefix modifiers
497 effect | prefix | examples
498 ------------+--------+----------
499 acute | ' | 'a ->
\e,Ca
\e(B, '' -> ?
\e,C4
\e(B
500 grave | ` | `a ->
\e,C`
\e(B
501 circumflex | ^ | ^a ->
\e,Cb
\e(B
502 diaeresis | \" | \"a ->
\e,Cd
\e(B, \"\" ->
\e,C(
\e(B
503 cedilla | ~ | ~c ->
\e,Cg
\e(B, ~s ->
\e,C:
\e(B, ~~ ->
\e,C8
\e(B
504 dot above | ~ / . | ~o ->
\e,Cu
\e(B, /o ->
\e,Cu
\e(B, .o ->
\e,Cu
\e(B
505 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
506 symbol | ~ | ~` ->
\e,C"
\e(B, /# ->
\e,C#
\e(B, /$ ->
\e,C$
\e(B, // ->
\e,C0
\e(B