1 ;;; latin-pre.el --- Quail packages for inputting various European characters -*-coding: iso-2022-7bit;-*-
3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2006
4 ;; Free Software Foundation, Inc.
5 ;; Copyright (C) 1997, 1998, 1999, 2000, 2005
6 ;; National Institute of Advanced Industrial Science and Technology (AIST)
7 ;; Registration Number H14PRO021
9 ;; Keywords: mule, multilingual, latin, input method
11 ;; This file is part of GNU Emacs.
13 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by
15 ;; the Free Software Foundation; either version 2, or (at your option)
18 ;; GNU Emacs is distributed in the hope that it will be useful,
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ;; GNU General Public License for more details.
23 ;; You should have received a copy of the GNU General Public License
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
26 ;; Boston, MA 02110-1301, USA.
30 ;; Key translation maps were originally copied from iso-acc.el.
31 ;; latin-1-prefix: extra special characters added, adapted from the vim
32 ;; digraphs (from J.H.M.Dassen <jdassen@wi.leidenuniv.nl>)
33 ;; by R.F. Smith <rsmith@xs4all.nl>
36 ;; Author: W\e,B3\e(Bodek Bzyl <matwb@univ.gda.pl>
37 ;; Maintainer: W\e,B3\e(Bodek Bzyl <matwb@univ.gda.pl>
39 ;; latin-[89]-prefix: Dave Love <fx@gnu.org>
41 ;; You might make extra input sequences on the basis of the X
42 ;; locale/*/Compose files (which have both prefix and postfix
43 ;; sequences), but bear in mind that sequences which are logical in
44 ;; that context may not be sensible when they're not signalled with
45 ;; the Compose key. An example is a double space for NBSP.
52 "latin-1-prefix" "Latin-1" "1>" t
53 "Latin-1 characters input method with prefix modifiers
55 effect | prefix | examples
56 ------------+--------+----------
57 acute | ' | 'a -> \e,Aa\e(B, '' -> \e,A4\e(B
58 grave | ` | `a -> \e,A`\e(B
59 circumflex | ^ | ^a -> \e,Ab\e(B
60 diaeresis | \" | \"a -> \e,Ad\e(B \"\" -> \e,A(\e(B
61 tilde | ~ | ~a -> \e,Ac\e(B
62 cedilla | ~ | ~c -> \e,Ag\e(B
63 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
64 symbol | ~ | ~> -> \e,A;\e(B ~< -> \e,A+\e(B ~! -> \e,A!\e(B ~? -> \e,A?\e(B ~~ -> \e,A8\e(B
65 | ~ | ~s -> \e,A'\e(B ~x -> \e,A$\e(B ~. -> \e,A7\e(B ~$ -> \e,A#\e(B ~u -> \e,A5\e(B
66 | ~ | ~p -> \e,A6\e(B ~- -> \e,A-\e(B ~= -> \e,A/\e(B ~| -> \e,A&\e(B
67 symbol | _ / | _o -> \e,A:\e(B _a -> \e,A*\e(B // -> \e,A0\e(B /\\ -> \e,AW\e(B _y -> \e,A%\e(B
68 | _ / | _: -> \e,Aw\e(B /c -> \e,A"\e(B /2 -
> \e,A
=\e(B /4 -
> \e,A
<\e(B /3 -
> \e,A
>\e(B
69 | _
/ |
/= -
> \e,A
,\e(B
70 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
71 " nil t nil nil nil nil nil nil nil nil t)
123 ("\"y
" ?\e,A\x7f\e(B)
155 ;; Symbols added by Roland Smith <rsmith@xs4all.nl>
182 (quail-define-package
183 "catalan-prefix" "Latin-1" "CA>" t
184 "Catalan and Spanish input method with prefix modifiers
186 effect | prefix | examples
187 ------------+--------+----------
188 acute | ' | 'a -> \e,Aa\e(B '' -> \e,A4\e(B
189 grave | ` | `a -> \e,A`\e(B
190 diaeresis | \" | \"i -> \e,Ao\e(B \"\" -> \e,A(\e(B
191 tilde | ~ | ~n -> \e,Aq\e(B
192 cedilla | ~ | ~c -> \e,Ag\e(B
193 symbol | ~ | ~> -> \e,A;\e(B ~< -> \e,A+\e(B ~! -> \e,A!\e(B ~? -> \e,A?\e(B
194 " nil t nil nil nil nil nil nil nil nil t
)
231 (quail-define-package
232 "esperanto-prefix" "Latin-3" "EO>" t
233 "Esperanto input method with prefix modifiers
234 Key translation rules are:
235 ^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,
236 ^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
237 " nil t nil nil nil nil nil nil nil nil t
)
257 (quail-define-package
258 "french-prefix" "French" "FR>" t
259 "French (Fran\e,Ag\e(Bais) input method with prefix modifiers
261 effect | prefix | examples
262 ------------+--------+----------
263 acute | ' | 'e -> \e,Ai\e(B
264 grave | ` | `a -> \e,A`\e(B
265 circumflex | ^ | ^a -> \e,Ab\e(B
266 diaeresis | \" | \"i -> \e,Ao\e(B
267 cedilla | ~ or , | ~c -> \e,Ag\e(B ,c -> \e,Ag\e(B
268 symbol | ~ | ~> -> \e,A;\e(B ~< -> \e,A+\e(B
269 " nil t nil nil nil nil nil nil nil nil t
)
310 (quail-define-package
311 "romanian-prefix" "Romanian" "RO>" t
312 "Romanian (rom\e,Bb\e(Bne\e,B:\e(Bte) input method with prefix modifiers
314 effect | prefix | examples
315 ------------+--------+------------------
316 tilde | ~ | ~a -> \e,Bc\e(B
317 circumflex | ^ | ^a -> \e,Bb\e(B, ^i -> \e,Bn\e(B
318 cedilla | , | ,s -> \e,B:\e(B, ,t -> \e,B~\e(B
322 " nil t nil nil nil nil nil nil nil nil t
)
325 ("~A" ?
\e,BC
\e(B) ("~a" ?
\e,Bc
\e(B)
326 ("^A" ?
\e,BB
\e(B) ("^a" ?
\e,Bb
\e(B)
327 ("^I" ?
\e,BN
\e(B) ("^i" ?
\e,Bn
\e(B)
328 (",S" ?
\e,B
*\e(B) (",s" ?
\e,B
:\e(B)
329 (",T" ?
\e,B^
\e(B) (",t" ?
\e,B~
\e(B)
330 ("^^" ?^
) ("~~" ?~
) (",," ?
,))
332 (quail-define-package
333 "romanian-alt-prefix" "Romanian" "RO>" t
334 "Alternative Romanian (rom\e,Bb\e(Bne\e,B:\e(Bte) input method with prefix modifiers
336 effect | prefix | examples
337 ------------+--------+------------------
338 tilde | \" | \"a -> \e,Bb\e(B
339 circumflex | ' | 'a -> \e,Bb\e(B, 'i -> \e,Bn\e(B
340 cedilla | ' | 's -> \e,B:\e(B, 't -> \e,B~\e(B
343 " nil t nil nil nil nil nil nil nil nil t
)
346 ("'A" ?
\e,BC
\e(B) ("'a" ?
\e,Bc
\e(B)
347 ("\"A" ?
\e,BB
\e(B) ("\"a" ?
\e,Bb
\e(B)
348 ("'I" ?
\e,BN
\e(B) ("'i" ?
\e,Bn
\e(B)
349 ("'S" ?
\e,B
*\e(B) ("'s" ?
\e,B
:\e(B)
350 ("'T" ?
\e,B^
\e(B) ("'t" ?
\e,B~
\e(B)
351 ("''" ?
') ("\"\"" ?
\"))
353 (quail-define-package
354 "german-prefix" "German" "DE>" t
355 "German (Deutsch) input method with prefix modifiers
356 Key translation rules are:
357 \"A -> \e,AD\e(B -> \"O -> \e,AV\e(B \"U -> \e,A\\e(B \"s -> \e,A_\e(B
358 " nil t nil nil nil nil nil nil nil nil t
)
371 (quail-define-package
372 "irish-prefix" "Latin-1" "GA>" t
373 "Irish input method with prefix modifiers
374 Key translation rules are:
375 '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
376 " nil t nil nil nil nil nil nil nil nil t
)
392 (quail-define-package
393 "portuguese-prefix" "Latin-1" "PT>" t
394 "Portuguese input method with prefix modifiers
396 effect | prefix | examples
397 ------------+--------+----------
398 acute | ' | 'a -> \e,Aa\e(B '' -> \e,A4\e(B
399 grave | ` | `a -> \e,A`\e(B
400 circumflex | ^ | ^a -> \e,Ab\e(B
401 diaeresis | \" | \"u -> \e,A|\e(B
402 tilde | ~ | ~a -> \e,Ac\e(B
403 cedilla | ' or , | 'c -> \e,Ag\e(B ,c -> \e,Ag\e(B
404 " nil t nil nil nil nil nil nil nil nil t
)
443 (quail-define-package
444 "spanish-prefix" "Spanish" "ES>" t
445 "Spanish (Espa\e,Aq\e(Bol) input method with prefix modifiers
447 effect | prefix | examples
448 ------------+--------+----------
449 acute | ' | 'a -> \e,Aa\e(B
450 diaeresis | \" | \"u -> \e,A|\e(B
451 tilde | ~ | ~n -> \e,Aq\e(B
452 symbol | ~ | ~> -> \e,A;\e(B ~< -> \e,A+\e(B ~! -> \e,A!\e(B ~? -> \e,A?\e(B
453 " nil t nil nil nil nil nil nil nil nil t
)
479 (quail-define-package
480 "latin-2-prefix" "Latin-2" "2>" t
481 "Latin-2 characters input method with prefix modifiers
483 effect | prefix | examples
484 ------------+--------+----------
485 acute | ' | 'a -> \e,Ba\e(B '' -> ?\e,B4\e(B
486 circumflex | ^ | ^a -> \e,Bb\e(B
487 diaeresis | \" | \"a -> \e,Bd\e(B \"\" -> \e,B(\e(B
488 breve | ~ | ~a -> \e,Bc\e(B
489 caron | ~ | ~c -> \e,Bh\e(B
490 cedilla | ` | `c -> \e,Bg\e(B `e -> ?\e,Bj\e(B
491 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
492 symbol | ~ | `. -> \e,B\x7f\e(B ~~ -> \e,B"\e(B ~. -
> ?
\e,B8
\e(B
493 " nil t nil nil nil nil nil nil nil nil t)
590 (quail-define-package
591 "latin-3-prefix
" "Latin-3
" "3>" t
592 "Latin-3 characters input method with prefix modifiers
594 effect | prefix | examples
595 ------------
+--------
+----------
596 acute |
' |
'a -
> \e,Ca
\e(B '' -
> ?
\e,C4
\e(B
597 grave |
` |
`a -
> \e,C
`\e(B
598 circumflex | ^ | ^a -
> \e,Cb
\e(B
599 diaeresis |
\" |
\"a -
> \e,Cd
\e(B \"\" -
> \e,C
(\e(B
600 cedilla | ~ | ~c -
> \e,Cg
\e(B ~s -
> \e,C
:\e(B ~~ -
> \e,C8
\e(B
601 dot above |
/ . |
/g -
> \e,Cu
\e(B .o -
> \e,Cu
\e(B
602 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
603 symbol | ~ | ~
` -
> \e,C
"\e(B /# -> \e,C#\e(B /$ -> \e,C$\e(B // -> \e,C0\e(B
604 " nil t nil nil nil nil nil nil nil nil t
)
704 (quail-define-package
705 "polish-slash
" "Polish
" "PL
>" nil
706 "Polish diacritics and slash character are input as
`/[acelnosxzACELNOSXZ
/]'.
707 For example
, the character named
`aogonek
' is obtained by
`/a
'.
"
708 nil t t t nil nil nil nil nil nil t)
731 (quail-define-package
732 "latin-9-prefix
" "Latin-9
" "0>" t
733 "Latin-9 characters input method with prefix modifiers
735 effect | prefix | examples
736 ------------
+--------
+----------
737 acute |
' |
'a -
> \e,ba
\e(B
738 grave |
` |
`a -
> \e,b
`\e(B
739 circumflex | ^ | ^a -
> \e,bb
\e(B
740 diaeresis |
\" |
\"a -
> \e,bd
\e(B, \"Y -
> \e,b
>\e(B
741 tilde | ~ | ~a -
> \e,bc
\e(B
742 caron | ~ | ~z -
> \e,b8
\e(B
743 cedilla | ~ | ~c -
> \e,bg
\e(B
744 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
745 |
\" ~
/ |
/o -
> \e,b
=\e(B
746 symbol | ~ | ~
> -
> \e,b
;\e(B ~< -> \e,b+\e(B ~! -> \e,b!\e(B ~? -> \e,b?\e(B ~~ -> \e,b8\e(B
747 | ~ | ~s -
> \e,b
'\e(B ~e -
> \e,b$
\e(B ~. -
> \e,b7
\e(B ~$ -
> \e,b
#\e(B ~u -
> \e,b5
\e(B
748 | ~ | ~- -
> \e,b-
\e(B ~
= -
> \e,b
/\e(B
749 symbol | _
/ | _o -
> \e,b
:\e(B _a -
> \e,b
*\e(B // -
> \e,b0
\e(B /\\ -
> \e,bW
\e(B _y -
> \e,b%
\e(B
750 | _
/ | _
: -
> \e,bw
\e(B /c -
> \e,b
"\e(B ~p -> \e,b6\e(B
751 | _ / | /= -> \e,b,\e(B
752 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
753 " nil t nil nil nil nil nil nil nil nil t
)
804 ("\"y" ?
\e,b
\x7f\e(B)
844 ("/o
" ?\e,b=\e(B) ; clash with \e,bx\e(B, but \e,bf\e(B uses /
849 ;; Is this the best option for Euro entry?
863 ;; Latin-8 was done by an Englishman -- Johnny Celt should take a
866 (quail-define-package
867 "latin-8-prefix
" "Latin-8
" "8>" t
868 "Latin-8 characters input method with prefix modifiers
870 effect | prefix | examples
871 ------------
+--------
+----------
872 acute |
' |
'a -
> \e,_a
\e(B
873 grave |
` |
`a -
> \e,_
`\e(B
874 circumflex | ^ | ^w -
> \e,_p
\e(B
875 diaeresis |
\" |
\"a -
> \e,_d
\e(B
876 dot above | . | .b -
> \e,_
"\e(B
877 tilde | ~ | ~a -> \e,_c\e(B
878 cedilla | ~ | ~c -> \e,_g\e(B
879 misc | \" ~ / | \"s -> \e,__\e(B /a -> \e,_e\e(B /e -> \e,_f\e(B /o -> \e,_x\e(B
880 | ~ | ~s -> \e,_'\e(B ~$ -> \e,_#\e(B ~p -> \e,_6\e(B
881 symbol | ^ | ^r -> \e,_.\e(B ^c -> \e,_)\e(B
882 " nil t nil nil nil nil nil nil nil nil t
)
884 ;; Basically following Latin-1, plus dottiness from Latin-3.
964 ("\"y
" ?\e,_\x7f\e(B)
989 (quail-define-package
990 "latin-prefix
" "Latin
" "L
>" t
991 "Latin characters input method with prefix modifiers.
992 This is the union of various input methods originally made for input
993 of characters from a single Latin-N charset.
995 effect | prefix | examples
996 ------------
+--------
+----------
997 acute |
' |
'a -
> \e,Aa
\e(B, '' -
> \e,A4
\e(B
998 grave |
` |
`a -
> \e,A
`\e(B
999 circumflex | ^ | ^a -
> \e,Ab
\e(B
1000 diaeresis |
\" |
\"a -
> \e,Ad
\e(B \"\" -
> \e,A
(\e(B
1001 tilde | ~ | ~a -
> \e,Ac
\e(B
1002 cedilla | ~ | ~c -
> \e,Ag
\e(B
1003 breve | ~ | ~a -
> \e$
,1 #\e(B
1004 caron | ~ | ~c -
> \e$
,1 -
\e(B
1005 dot above | ~
/ . | ~o -
> \e$
,1 A
\e(B /o -
> \e$
,1 A
\e(B .o -
> \e$
,1 A
\e(B
1006 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
1007 symbol | ~ | ~
> -
> \e,A
;\e(B ~< -> \e,A+\e(B ~! -> \e,A!\e(B ~? -> \e,A?\e(B ~~ -> \e,A8\e(B
1008 symbol | _
/ | _o -
> \e,A
:\e(B _a -
> \e,A
*\e(B // -
> \e,A0
\e(B /\\ -
> \e,AW
\e(B _y -
> \e,A%
\e(B
1009 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
1010 " nil t nil nil nil nil nil nil nil nil t)
1085 ("\"W" ?
\e$
,1nd
\e(B)
1086 ("\"Y" ?
\e$
,1!8\e(B)
1094 ("\"w" ?
\e$
,1ne
\e(B)
1095 ("\"y" ?
\e,A
\x7f\e(B)
1181 ("~s" ?
\e$
,1 \x7f\e(B)
1192 ;;; arch-tag: 83017837-6b84-4366-b183-e0577e3ed838
1193 ;;; latin-pre.el ends here