1 ;; Quail packages for inputting various European characters.
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
6 ;; Keywords: multilingual, input method, latin
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.
25 ;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp>
30 "latin-1-postfix" "Latin-1" "1<" t
31 "Latin-1 character input method with postfix modifiers
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 others | / | s/ ->
\e,A_
\e(B ?/ ->
\e,A?
\e(B !/ ->
\e,A!
\e(B // ->
\e,A0
\e(B
43 | various | << ->
\e,A+
\e(B >> ->
\e,A;
\e(B o_ ->
\e,A:
\e(B a_ ->
\e,A*
\e(B
45 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
46 " nil t nil nil nil nil nil nil nil nil t)
190 (quail-define-package
191 "latin-2-postfix" "Latin-2" "2<" t
192 "Latin-2 character input method with postfix modifiers
195 ------------+---------+----------
196 acute | ' | a' ->
\e,Ba
\e(B
197 ogonek | , | a, ->
\e,B1
\e(B
198 diaeresis | \" | a\" ->
\e,Bd
\e(B
199 circumflex | ^ | a^ ->
\e,Bb
\e(B
200 breve | ~ | a~ ->
\e,Bc
\e(B
201 cedilla | , | c, ->
\e,Bg
\e(B
202 caron | ~ | c~ ->
\e,Bh
\e(B
203 dbl. acute | : | o: ->
\e,Bu
\e(B
204 ring | . | u. ->
\e,By
\e(B
205 dot | . | z. ->
\e,B?
\e(B
206 stroke | / | d/ ->
\e,Bp
\e(B
207 others | / | s/ ->
\e,B_
\e(B
209 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
210 " nil t nil nil nil nil nil nil nil nil t)
378 (quail-define-package
379 "latin-3-postfix" "Latin-3" "3<" t
380 "Latin-3 character input method with postfix modifiers
383 ------------+---------+----------
384 acute | ' | a' ->
\e,Ca
\e(B
385 grave | ` | a` ->
\e,C`
\e(B
386 circumflex | ^ | a^ ->
\e,Cb
\e(B
387 diaeresis | \" | a\" ->
\e,Cd
\e(B
388 dot | . | c. ->
\e,Ce
\e(B i. ->
\e,C9
\e(B I. ->
\e,C)
\e(B
389 cedilla | , | c, ->
\e,Cg
\e(B
390 breve | ~ | g~ ->
\e,C;
\e(B
391 tilde | ~ | n~ ->
\e,Cq
\e(B
392 stroke | / | h/ ->
\e,C1
\e(B
393 others | / | s/ ->
\e,C_
\e(B
395 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
396 " nil t nil nil nil nil nil nil nil nil t)
544 (quail-define-package
545 "latin-4-postfix" "Latin-4" "4<" t
546 "Latin-4 characters input method with postfix modifiers
549 ------------+---------+----------
550 acute | ' | a' ->
\e,Da
\e(B
551 circumflex | ^ | a^ ->
\e,Db
\e(B
552 diaeresis | \" | a\" ->
\e,Dd
\e(B
553 ogonek | , | a, ->
\e,D1
\e(B
554 macron | - | a- ->
\e,D`
\e(B
555 tilde | ~ | a~ ->
\e,Dc
\e(B
556 caron | ~ | c~ ->
\e,Dh
\e(B
557 dot | . | e. ->
\e,Dl
\e(B
558 cedilla | , | k, ->
\e,Ds
\e(B g, ->
\e,D;
\e(B
559 stroke | / | d/ ->
\e,Dp
\e(B
560 nordic | / | a/ ->
\e,De
\e(B e/ ->
\e,Df
\e(B o/ ->
\e,Dx
\e(B
561 others | / | s/ ->
\e,D_
\e(B n/ ->
\e,D?
\e(B k/ ->
\e,D"
\e(B
563 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
564 " nil t nil nil nil nil nil nil nil nil t)
734 (quail-define-package
735 "latin-5-postfix" "Latin-5" "5<" t
736 "Latin-5 characters input method with postfix modifiers
739 ------------+---------+----------
740 acute | ' | a' ->
\e,Ma
\e(B
741 grave | ` | a` ->
\e,M`
\e(B
742 circumflex | ^ | a^ ->
\e,Mb
\e(B
743 diaeresis | \" | a\" ->
\e,Md
\e(B
744 tilde | ~ | a~ ->
\e,Mc
\e(B
745 breve | ~ | g~ ->
\e,Mp
\e(B
746 cedilla | , | c, ->
\e,Mg
\e(B
747 dot | . | i. ->
\e,M}
\e(B I. ->
\e,M]
\e(B
748 nordic | / | a/ ->
\e,Me
\e(B e/ ->
\e,Mf
\e(B o/ ->
\e,Mx
\e(B
749 others | / | s/ ->
\e,M_
\e(B
751 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
752 " nil t nil nil nil nil nil nil nil nil t)
882 (quail-define-package
883 "danish-postfix" "Latin-1" "DA<" t
884 "Danish input method (rule: AE ->
\e,AF
\e(B, OE ->
\e,AX
\e(B, AA ->
\e,AE
\e(B, E' ->
\e,AI
\e(B)
886 Doubling the postfix separates the letter and postfix: e.g. aee -> ae
888 nil t nil nil nil nil nil nil nil nil t)
910 (quail-define-package
911 "esperanto-postfix" "Latin-3" "EO<" t
912 "Esperanto input method with postfix modifiers
914 A following ^ or x will produce an accented character,
915 e.g. c^ ->
\e,Cf
\e(B gx ->
\e,Cx
\e(B u^ ->
\e,C}
\e(B.
917 Doubling the postfix separates the letter and postfix,
919 " nil t nil nil nil nil nil nil nil nil t)
973 (quail-define-package
974 "finnish-postfix" "Latin-1" "FI<" t
975 "Finnish (Suomi) input method
982 nil t nil nil nil nil nil nil nil nil t)
996 (quail-define-package
997 "french-postfix" "Latin-1" "FR<" t
998 "French (Fran
\e,Ag
\e(Bais) input method with postfix modifiers
1000 ` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr
\e,Ai
\e(Bma.
1001 Par exemple: a` ->
\e,A`
\e(B e' ->
\e,Ai
\e(B.
1003 \e,AG
\e(B,
\e,A+
\e(B, et
\e,A;
\e(B sont produits par C,, <<, et >>.
1005 En doublant la frappe des diacritiques, ils s'isoleront de la lettre.
1006 Par exemple: e'' -> e'
1008 <e dans l'o> n'est pas disponible."
1009 nil t nil nil nil nil nil nil nil nil t)
1071 (quail-define-package
1072 "german-postfix" "Latin-1" "DE<" t
1073 "German (Deutsch) input method
1084 nil t nil nil nil nil nil nil nil nil t)
1104 (quail-define-package
1105 "icelandic-postfix" "Latin-1" "IS<" t
1106 "Icelandic (
\e,AM
\e(Bslenska) input method with postfix modifiers
1116 D/ ->
\e,AP
\e(B (eth)
1117 T/ ->
\e,A^
\e(B (thorn)
1119 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
1120 " nil t nil nil nil nil nil nil nil nil t)
1166 (quail-define-package
1167 "italian-postfix" "Latin-1" "IT<" t
1168 "Italian (Italiano) input method with postfix modifiers
1170 a` ->
\e,A`
\e(B A` ->
\e,A@
\e(B e' ->
\e,Ai
\e(B << ->
\e,A+
\e(B
1171 e` ->
\e,Ah
\e(B E` ->
\e,AH
\e(B E' ->
\e,AI
\e(B >> ->
\e,A;
\e(B
1172 i` ->
\e,Al
\e(B I` ->
\e,AL
\e(B o_ ->
\e,A:
\e(B
1173 o` ->
\e,Ar
\e(B O` ->
\e,AR
\e(B a_ ->
\e,A*
\e(B
1174 u` ->
\e,Ay
\e(B U` ->
\e,AY
\e(B
1176 Typewriter-style italian characters.
1178 Doubling the postfix separates the letter and postfix: e.g. a`` -> a`
1179 " nil t nil nil nil nil nil nil nil nil t)
1217 (quail-define-package
1218 "norwegian-postfix" "Latin-1" "NO<" t
1219 "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)
1221 Doubling the postfix separates the letter and postfix: e.g. aee -> ae
1223 nil t nil nil nil nil nil nil nil nil t)
1245 (quail-define-package
1246 "scandinavian-postfix" "Latin-1" "SC<" t
1247 "Scandinavian input method with postfix modifiers
1248 Supported languages are Swidish, Norwegian, Danish, and Finnish.
1257 Doubling the postfix separates the letter and postfix:
1258 aee -> ae o\"\" -> o\" etc.
1259 " nil t nil nil nil nil nil nil nil nil t)
1289 (quail-define-package
1290 "spanish-postfix" "Latin-1" "ES<" t
1291 "Spanish (Espa
\e,Aq
\e(Bol) input method with postfix modifiers
1302 Doubling the postfix separates the letter and postfix:
1303 a'' -> a' n~~ -> n~, etc.
1304 " nil t nil nil nil nil nil nil nil nil t)
1342 (quail-define-package
1343 "swedish-postfix" "Latin-1" "SV<" t
1344 "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)
1346 Doubling the postfix separates the letter and postfix: e.g. aee -> ae
1347 " nil t nil nil nil nil nil nil nil nil t)
1369 (quail-define-package
1370 "turkish-postfix" "Latin-3" "TR<" t
1371 "Turkish (T
\e,C|
\e(Brk
\e,Cg
\e(Be) input method with postfix modifiers
1373 Note for I,
\e,C9
\e(B,
\e,C)
\e(B, i.
1387 Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
1388 " nil t nil nil nil nil nil nil nil nil t)
1428 (quail-define-package
1429 "british" "Latin-1" "
\e,A#
\e(B@" t
1430 "British English input method with Latin-1 character
\e,A#
\e(B (# ->
\e,A#
\e(B)"
1431 nil t nil nil nil nil nil nil nil nil t)
1434 ("#" [?
\e,A#
\e(B ?#])
1437 ;; The following are various quail packages for those who think
1438 ;; the aboves are too awkward. Supported languages and their
1439 ;; package name are:
1441 ;; French (frnch, azerty)
1442 ;; Icelandic (iclndc)
1444 ;; Norwegian (nrwgn)
1452 ;;; 92.12.15 created for Mule Ver.0.9.6 by Takahashi N. <ntakahas@etl.go.jp>
1453 ;;; 92.12.29 modified by Takahashi N. <ntakahas@etl.go.jp>
1456 (quail-define-package
1457 "french-keyboard" "Latin-1" "FR@" t
1458 "French (Fran
\e,Ag
\e(Bais) input method simulating some French keyboard
1459 <e dans l'o> n'est pas disponible." nil t t t t nil nil nil nil nil t)
1461 ;;
\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+ `~
1462 ;; qQ wW eE rR tT yY uU iI oO pP
\e,AgG
\e(B
\e,A|
\e(B&
1463 ;; aA sS dD fF gG hH jJ kK lL ;: '" \|
1464 ;; zZ xX cC vV bB nN mM ,( .) !?
1498 (quail-define-package
1499 "french-azerty" "Latin-1" "AZ@" t
1500 "French (Fran
\e,Ag
\e(Bais) input method simulating Azerty keyboard
1502 Similaire au clavier fran
\e,Ag
\e(Bais de SUN.
1503 pr
\e,Ai
\e(Bfixes: ^ pour circonflexe,
\e,A(
\e(B pour tr
\e,Ai
\e(Bma.
1504 <e dans l'o> n'est pas disponible." nil t t t t nil nil nil nil nil t)
1506 ;; &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 -_ @~
1507 ;; aA zZ eE rR tT yY uU iI oO pP ^
\e,A(
\e(B `$
1508 ;; qQ sS dD fF gG hH jJ kK lL mM
\e,Ay
\e(B% *|
1509 ;; wW xX cC vV bB nN ,? ;. :/ =+
1623 (quail-define-package
1624 "icelandic-keyboard" "Latin-1" "IS@" t
1625 "Icelandic (
\e,AM
\e(Bslenska) input method simulating some Icelandic keyboard
1627 Dead accent is right to
\e,Af
\e(B." nil t t t t nil nil nil nil nil t)
1629 ;; 1! 2" 3# 4$ 5% 6^ 7& 8* 9( 0)
\e,AvV
\e(B -_ `~
1630 ;; qQ wW eE rR tT yY uU iI oO pP
\e,ApP
\e(B '?
1631 ;; aA sS dD fF gG hH jJ kK lL
\e,AfF
\e(B
\e,A44
\e(B +*
1632 ;; zZ xX cC vV bB nN mM ,; .:
\e,A~^
\e(B
1673 (quail-define-package
1674 "danish-keyboard" "Latin-1" "DA@" t
1675 "Danish input method simulating SUN Danish keyboard"
1676 nil t t t t nil nil nil nil nil t)
1678 ;; 1! 2" 3# 4
\e,A$
\e(B 5% 6& 7/ 8( 9) 0= +?
\e,A='
\e(B ~^
1679 ;; qQ wW eE rR tT yY uU iI oO pP
\e,AeE
\e(B
\e,AiI
\e(B
1680 ;; aA sS dD fF gG hH jJ kK lL
\e,AfF
\e(B
\e,AxX
\e(B '*
1681 ;; zZ xX cC vV bB nN mM ,; .: -_
1715 (quail-define-package
1716 "norwegian-keyboard" "Latin-1" "NO@" t
1717 "Norwegian (Norsk) input method simulating SUN Norwegian keyboard"
1718 nil t t t t nil nil nil nil nil t)
1720 ;; 1! 2" 3# 4
\e,A$
\e(B 5% 6& 7/ 8( 9) 0= +? |
\e,A'
\e(B ~^
1721 ;; qQ wW eE rR tT yY uU iI oO pP
\e,AeE
\e(B
\e,AiI
\e(B
1722 ;; aA sS dD fF gG hH jJ kK lL
\e,AxX
\e(B
\e,AfF
\e(B '*
1723 ;; zZ xX cC vV bB nN mM ,; .: '?
1758 (quail-define-package
1759 "swedish-keyboard" "Latin-1" "SV@" t
1760 "Swedish (Svenska) input method simulating SUN Swedish/Finnish keyboard"
1761 nil t t t t nil nil nil nil nil t)
1763 ;; 1! 2" 3# 4
\e,A$
\e(B 5% 6& 7/ 8( 9) 0= +?
\e,A'=
\e(B ~^
1764 ;; qQ wW eE rR tT yY uU iI oO pP
\e,AeE
\e(B
\e,AiI
\e(B
1765 ;; aA sS dD fF gG hH jJ kK lL
\e,AvV
\e(B
\e,AdD
\e(B '*
1766 ;; zZ xX cC vV bB nN mM ,; .: -_
1800 (quail-define-package
1801 "finish-keyboard" "Latin-1" "FI@" t
1802 "Finish input method simulating SUN Finnish/Swedish keyboard"
1803 nil t t t t nil nil nil nil nil t)
1805 ;; 1! 2" 3# 4
\e,A$
\e(B 5% 6& 7/ 8( 9) 0= +?
\e,A'=
\e(B ~^
1806 ;; qQ wW eE rR tT yY uU iI oO pP
\e,AeE
\e(B
\e,AiI
\e(B
1807 ;; aA sS dD fF gG hH jJ kK lL
\e,AvV
\e(B
\e,AdD
\e(B '*
1808 ;; zZ xX cC vV bB nN mM ,; .: -_
1842 (quail-define-package
1843 "german" "Latin-1" "DE@" t
1844 "German (Deutsch) input method simulating SUN German keyboard"
1845 nil t t t t nil nil nil nil nil t)
1847 ;; 1! 2" 3
\e,A'
\e(B 4$ 5% 6& 7/ 8( 9) 0=
\e,A_
\e(B? [{ ]}
1848 ;; qQ wW eE rR tT zZ uU iI oO pP
\e,A|\
\e(B +*
1849 ;; aA sS dD fF gG hH jJ kK lL
\e,AvV
\e(B
\e,AdD
\e(B #^
1850 ;; yY xX cC vV bB nN mM ,; .: -_
1888 (quail-define-package
1889 "italian-keyboard" "Latin-1" "IT@" t
1890 "Italian (Italiano) input method simulating SUN Italian keyboard"
1891 nil t t t t nil nil nil nil nil t)
1893 ;; 1! 2" 3
\e,A#
\e(B 4$ 5% 6& 7/ 8( 9) 0= '?
\e,Al
\e(B^ `~
1894 ;; qQ wW eE rR tT yY uU iI oO pP
\e,Ahi
\e(B +*
1895 ;; aA sS dD fF gG hH jJ kK lL
\e,Arg
\e(B
\e,A`0
\e(B
\e,Ay'
\e(B
1896 ;; zZ xX cC vV bB nN mM ,; .: -_
1929 (quail-define-package
1930 "spanish-keyboard" "Latin-1" "ES@" t
1931 "Spanish (Espa
\e,Aq
\e(Bol) input method simulating SUN Spanish keyboard"
1932 nil t t t t nil nil nil nil nil t)
1934 ;; 1! 2" 3
\e,A7
\e(B 4$ 5% 6& 7/ 8( 9) 0= '?
\e,A!?
\e(B
\e,AmM
\e(B
1935 ;; qQ wW eE rR tT yY uU iI oO pP
\e,AiI
\e(B
\e,AsS
\e(B
1936 ;; aA sS dD fF gG hH jJ kK lL
\e,AqQ
\e(B
\e,AaA
\e(B
\e,AzZ
\e(B
1937 ;; zZ xX cC vV bB nN mM ,; .: -_
1971 (quail-define-package
1972 "english-dvorak" "English" "DV@" t
1973 "English (ASCII) input method simulating Dvorak keyboard"
1974 nil t t t t nil nil nil nil nil t)
1976 ;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) [{ ]} `~
1977 ;; '" ,< .> pP yY fF gG cC rR lL /? =+
1978 ;; aA oO eE uU iI dD hH tT nN sS -_ \|
1979 ;; ;: qQ jJ kK xX bB mM wW vV zZ