1 ;;; latin-post.el --- Quail packages for inputting various European characters -*-coding: iso-2022-7bit;-*-
3 ;; Copyright (C) 1997, 1998, 2001, 2002, 2006 Free Software Foundation, Inc.
4 ;; Copyright (C) 1997, 1999
5 ;; National Institute of Advanced Industrial Science and Technology (AIST)
6 ;; Registration Number H14PRO021
8 ;; Keywords: multilingual, input method, latin
10 ;; This file is part of GNU Emacs.
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation; either version 2, or (at your option)
17 ;; GNU Emacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
25 ;; Boston, MA 02110-1301, USA.
27 ;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp>
36 "latin-1-postfix" "Latin-1" "1<" t
37 "Latin-1 character input method with postfix modifiers
40 ------------+---------+----------
41 acute | ' | a' -> \e,Aa\e(B
42 grave | ` | a` -> \e,A`\e(B
43 circumflex | ^ | a^ -> \e,Ab\e(B
44 diaeresis | \" | a\" -> \e,Ad\e(B
45 tilde | ~ | a~ -> \e,Ac\e(B
46 cedilla | , | c, -> \e,Ag\e(B
47 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
48 others | / | s/ -> \e,A_\e(B ?/ -> \e,A?\e(B !/ -> \e,A!\e(B // -> \e,A0\e(B
49 | various | << -> \e,A+\e(B >> -> \e,A;\e(B o_ -> \e,A:\e(B a_ -> \e,A*\e(B
51 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
52 " nil t nil nil nil nil nil nil nil nil t
)
107 ("y\"" ?
\e,A
\x7f\e(B)
196 (quail-define-package
197 "latin-2-postfix" "Latin-2" "2<" t
198 "Latin-2 character input method with postfix modifiers
201 ------------+---------+----------
202 acute | ' | a' -> \e,Ba\e(B
203 ogonek | , | a, -> \e,B1\e(B
204 diaeresis | \" | a\" -> \e,Bd\e(B
205 circumflex | ^ | a^ -> \e,Bb\e(B
206 breve | ~ | a~ -> \e,Bc\e(B
207 cedilla | , | c, -> \e,Bg\e(B
208 caron | ~ | c~ -> \e,Bh\e(B
209 dbl. acute | : | o: -> \e,Bu\e(B
210 ring | . | u. -> \e,By\e(B
211 dot | . | z. -> \e,B?\e(B
212 stroke | / | d/ -> \e,Bp\e(B
213 others | / | s/ -> \e,B_\e(B
215 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
216 " nil t nil nil nil nil nil nil nil nil t
)
384 (quail-define-package
385 "latin-3-postfix" "Latin-3" "3<" t
386 "Latin-3 character input method with postfix modifiers
389 ------------+---------+----------
390 acute | ' | a' -> \e,Ca\e(B
391 grave | ` | a` -> \e,C`\e(B
392 circumflex | ^ | a^ -> \e,Cb\e(B
393 diaeresis | \" | a\" -> \e,Cd\e(B
394 dot | . | c. -> \e,Ce\e(B i. -> \e,C9\e(B I. -> \e,C)\e(B
395 cedilla | , | c, -> \e,Cg\e(B
396 breve | ~ | g~ -> \e,C;\e(B
397 tilde | ~ | n~ -> \e,Cq\e(B
398 stroke | / | h/ -> \e,C1\e(B
399 others | / | s/ -> \e,C_\e(B
401 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
402 " nil t nil nil nil nil nil nil nil nil t
)
550 (quail-define-package
551 "latin-4-postfix" "Latin-4" "4<" t
552 "Latin-4 characters input method with postfix modifiers
555 ------------+---------+----------
556 acute | ' | a' -> \e,Da\e(B
557 circumflex | ^ | a^ -> \e,Db\e(B
558 diaeresis | \" | a\" -> \e,Dd\e(B
559 ogonek | , | a, -> \e,D1\e(B
560 macron | - | a- -> \e,D`\e(B
561 tilde | ~ | a~ -> \e,Dc\e(B
562 caron | ~ | c~ -> \e,Dh\e(B
563 dot | . | e. -> \e,Dl\e(B
564 cedilla | , | k, -> \e,Ds\e(B g, -> \e,D;\e(B
565 stroke | / | d/ -> \e,Dp\e(B
566 nordic | / | a/ -> \e,De\e(B e/ -> \e,Df\e(B o/ -> \e,Dx\e(B
567 others | / | s/ -> \e,D_\e(B n/ -> \e,D?\e(B k/ -> \e,D"\e(B
569 Doubling the postfix separates the letter and postfix
: e.g. a
'' -
> a
'
570 " nil t nil nil nil nil nil nil nil nil t)
740 (quail-define-package
741 "latin-5-postfix" "Latin-5" "5<" t
742 "Latin-5 characters input method with postfix modifiers
745 ------------+---------+----------
746 acute | ' | a' -> \e,Ma\e(B
747 grave | ` | a` -> \e,M`\e(B
748 circumflex | ^ | a^ -> \e,Mb\e(B
749 diaeresis | \" | a\" -> \e,Md\e(B
750 tilde | ~ | a~ -> \e,Mc\e(B
751 breve | ~ | g~ -> \e,Mp\e(B
752 cedilla | , | c, -> \e,Mg\e(B
753 dot | . | i. -> \e,M}\e(B I. -> \e,M]\e(B
754 nordic | / | a/ -> \e,Me\e(B e/ -> \e,Mf\e(B o/ -> \e,Mx\e(B
755 others | / | s/ -> \e,M_\e(B
757 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
758 " nil t nil nil nil nil nil nil nil nil t
)
822 ("y\"" ?
\e,M
\x7f\e(B)
888 (quail-define-package
889 "danish-postfix" "Latin-1" "DA<" t
890 "Danish input method (rule: AE -> \e,AF\e(B, OE -> \e,AX\e(B, AA -> \e,AE\e(B, E' -> \e,AI\e(B)
892 Doubling the postfix separates the letter and postfix: e.g. aee -> ae
894 nil t nil nil nil nil nil nil nil nil t
)
916 (quail-define-package
917 "esperanto-postfix" "Latin-3" "EO<" t
918 "Esperanto input method with postfix modifiers
920 A following ^ or x will produce an accented character,
921 e.g. c^ -> \e,Cf\e(B gx -> \e,Cx\e(B u^ -> \e,C}\e(B.
923 Doubling the postfix separates the letter and postfix,
925 " nil t nil nil nil nil nil nil nil nil t
)
979 (quail-define-package
980 "finnish-postfix" "Latin-1" "FI<" t
981 "Finnish (Suomi) input method
988 nil t nil nil nil nil nil nil nil nil t
)
1002 (quail-define-package
1003 "french-postfix" "French" "FR<" t
1004 "French (Fran\e,Ag\e(Bais) input method with postfix modifiers
1006 ` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr\e,Ai\e(Bma.
1007 Par exemple: a` -> \e,A`\e(B e' -> \e,Ai\e(B.
1009 \e,AG\e(B, \e,A+\e(B, et \e,A;\e(B sont produits par C,, <<, et >>.
1011 En doublant la frappe des diacritiques, ils s'isoleront de la lettre.
1012 Par exemple: e'' -> e'
1014 <e dans l'o> n'est pas disponible."
1015 nil t nil nil nil nil nil nil nil nil t
)
1077 (quail-define-package
1078 "german-postfix" "German" "DE<" t
1079 "German (Deutsch) input method
1090 nil t nil nil nil nil nil nil nil nil t
)
1110 (quail-define-package
1111 "icelandic-postfix" "Latin-1" "IS<" t
1112 "Icelandic (\e,AM\e(Bslenska) input method with postfix modifiers
1122 D/ -> \e,AP\e(B (eth)
1123 T/ -> \e,A^\e(B (thorn)
1125 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
1126 " nil t nil nil nil nil nil nil nil nil t
)
1172 (quail-define-package
1173 "italian-postfix" "Latin-1" "IT<" t
1174 "Italian (Italiano) input method with postfix modifiers
1176 a` -> \e,A`\e(B A` -> \e,A@\e(B e' -> \e,Ai\e(B << -> \e,A+\e(B
1177 e` -> \e,Ah\e(B E` -> \e,AH\e(B E' -> \e,AI\e(B >> -> \e,A;\e(B
1178 i` -> \e,Al\e(B I` -> \e,AL\e(B o_ -> \e,A:\e(B
1179 o` -> \e,Ar\e(B O` -> \e,AR\e(B a_ -> \e,A*\e(B
1180 u` -> \e,Ay\e(B U` -> \e,AY\e(B
1182 Typewriter-style italian characters.
1184 Doubling the postfix separates the letter and postfix: e.g. a`` -> a`
1185 " nil t nil nil nil nil nil nil nil nil t
)
1223 (quail-define-package
1224 "norwegian-postfix" "Latin-1" "NO<" t
1225 "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)
1227 Doubling the postfix separates the letter and postfix: e.g. aee -> ae
1229 nil t nil nil nil nil nil nil nil nil t
)
1251 (quail-define-package
1252 "scandinavian-postfix" "Latin-1" "SC<" t
1253 "Scandinavian input method with postfix modifiers
1254 Supported languages are Swidish, Norwegian, Danish, and Finnish.
1263 Doubling the postfix separates the letter and postfix:
1264 aee -> ae o\"\" -> o\" etc.
1265 " nil t nil nil nil nil nil nil nil nil t
)
1295 (quail-define-package
1296 "spanish-postfix" "Spanish" "ES<" t
1297 "Spanish (Espa\e,Aq\e(Bol) input method with postfix modifiers
1308 Doubling the postfix separates the letter and postfix:
1309 a'' -> a' n~~ -> n~, etc.
1310 " nil t nil nil nil nil nil nil nil nil t
)
1348 (quail-define-package
1349 "swedish-postfix" "Latin-1" "SV<" t
1350 "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)
1352 Doubling the postfix separates the letter and postfix: e.g. aee -> ae
1353 " nil t nil nil nil nil nil nil nil nil t
)
1375 (quail-define-package
1376 "turkish-latin-3-postfix" "Turkish" "TR3<" t
1377 "Turkish (T\e,C|\e(Brk\e,Cg\e(Be) input method with postfix modifiers.
1379 This is for those who use Latin-3 (ISO-8859-3) for Turkish. If you
1380 use Latin-5 (ISO-8859-9), you should use \"turkish-postfix\" instead.
1382 Note for I, \e,C9\e(B, \e,C)\e(B, i.
1396 Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
1397 " nil t nil nil nil nil nil nil nil nil t
)
1437 (quail-define-package
1438 "turkish-postfix" "Turkish" "TR<" t
1439 "Turkish (T\e,M|\e(Brk\e,Mg\e(Be) input method with postfix modifiers.
1441 This is for those who use Latin-5 (ISO-8859-9) for Turkish. If you
1442 use Latin-3 (ISO-8859-3), you should use \"turkish-latin-3-postfix\"
1445 Note for I, \e,M}\e(B, \e,M]\e(B, i.
1459 Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
1460 " nil t nil nil nil nil nil nil nil nil t
)
1500 (quail-define-package
1501 "british" "Latin-1" "\e,A#\e(B@" t
1502 "British English input method with Latin-1 character \e,A#\e(B (# -> \e,A#\e(B)"
1503 nil t nil nil nil nil nil nil nil nil t
)
1506 ("#" [?
\e,A
#\e(B ?
#])
1509 ;; The following are various quail packages for those who think
1510 ;; the aboves are too awkward. Supported languages and their
1511 ;; package name are:
1513 ;; French (frnch, azerty)
1514 ;; Icelandic (iclndc)
1516 ;; Norwegian (nrwgn)
1524 ;;; 92.12.15 created for Mule Ver.0.9.6 by Takahashi N. <ntakahas@etl.go.jp>
1525 ;;; 92.12.29 modified by Takahashi N. <ntakahas@etl.go.jp>
1528 (quail-define-package
1529 "french-keyboard" "French" "FR@" t
1530 "French (Fran\e,Ag\e(Bais) input method simulating some French keyboard
1531 <e dans l'o> n'est pas disponible." nil t t t t nil nil nil nil nil t
)
1533 ;; \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+ `~
1534 ;; qQ wW eE rR tT yY uU iI oO pP \e,AgG\e(B \e,A|\e(B&
1535 ;; aA sS dD fF gG hH jJ kK lL ;: '" \|
1536 ;; zZ xX cC vV bB nN mM ,( .) !?
1570 (quail-define-package
1571 "french-azerty" "French" "AZ@" t
1572 "French (Fran\e,Ag\e(Bais) input method simulating Azerty keyboard
1574 Similaire au clavier fran\e,Ag\e(Bais de SUN.
1575 pr\e,Ai\e(Bfixes: ^ pour circonflexe, \e,A(\e(B pour tr\e,Ai\e(Bma.
1576 <e dans l'o> n'est pas disponible." nil t t t t nil nil nil nil nil t
)
1578 ;; &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 -_ @~
1579 ;; aA zZ eE rR tT yY uU iI oO pP ^\e,A(\e(B `$
1580 ;; qQ sS dD fF gG hH jJ kK lL mM \e,Ay\e(B% *|
1581 ;; wW xX cC vV bB nN ,? ;. :/ =+
1695 (quail-define-package
1696 "icelandic-keyboard" "Latin-1" "IS@" t
1697 "Icelandic (\e,AM\e(Bslenska) input method simulating some Icelandic keyboard
1699 Dead accent is right to \e,Af\e(B." nil t t t t nil nil nil nil nil t
)
1701 ;; 1! 2" 3# 4$ 5% 6^ 7& 8* 9( 0) \e,AvV\e(B -_ `~
1702 ;; qQ wW eE rR tT yY uU iI oO pP \e,ApP\e(B '?
1703 ;; aA sS dD fF gG hH jJ kK lL \e,AfF\e(B \e,A44\e(B +*
1704 ;; zZ xX cC vV bB nN mM ,; .: \e,A~^\e(B
1745 (quail-define-package
1746 "danish-keyboard" "Latin-1" "DA@" t
1747 "Danish input method simulating SUN Danish keyboard"
1748 nil t t t t nil nil nil nil nil t
)
1750 ;; 1! 2" 3# 4\e,A$\e(B 5% 6& 7/ 8( 9) 0= +? \e,A='\e(B ~^
1751 ;; qQ wW eE rR tT yY uU iI oO pP \e,AeE\e(B \e,AiI\e(B
1752 ;; aA sS dD fF gG hH jJ kK lL \e,AfF\e(B \e,AxX\e(B '*
1753 ;; zZ xX cC vV bB nN mM ,; .: -_
1787 (quail-define-package
1788 "norwegian-keyboard" "Latin-1" "NO@" t
1789 "Norwegian (Norsk) input method simulating SUN Norwegian keyboard"
1790 nil t t t t nil nil nil nil nil t
)
1792 ;; 1! 2" 3# 4\e,A$\e(B 5% 6& 7/ 8( 9) 0= +? |\e,A'\e(B ~^
1793 ;; qQ wW eE rR tT yY uU iI oO pP \e,AeE\e(B \e,AiI\e(B
1794 ;; aA sS dD fF gG hH jJ kK lL \e,AxX\e(B \e,AfF\e(B '*
1795 ;; zZ xX cC vV bB nN mM ,; .: '?
1830 (quail-define-package
1831 "swedish-keyboard" "Latin-1" "SV@" t
1832 "Swedish (Svenska) input method simulating SUN Swedish/Finnish keyboard"
1833 nil t t t t nil nil nil nil nil t
)
1835 ;; 1! 2" 3# 4\e,A$\e(B 5% 6& 7/ 8( 9) 0= +? \e,A'=\e(B ~^
1836 ;; qQ wW eE rR tT yY uU iI oO pP \e,AeE\e(B \e,AiI\e(B
1837 ;; aA sS dD fF gG hH jJ kK lL \e,AvV\e(B \e,AdD\e(B '*
1838 ;; zZ xX cC vV bB nN mM ,; .: -_
1872 (quail-define-package
1873 "finnish-keyboard" "Latin-1" "FI@" t
1874 "Finnish input method simulating SUN Finnish/Swedish keyboard"
1875 nil t t t t nil nil nil nil nil t
)
1877 ;; 1! 2" 3# 4\e,A$\e(B 5% 6& 7/ 8( 9) 0= +? \e,A'=\e(B ~^
1878 ;; qQ wW eE rR tT yY uU iI oO pP \e,AeE\e(B \e,AiI\e(B
1879 ;; aA sS dD fF gG hH jJ kK lL \e,AvV\e(B \e,AdD\e(B '*
1880 ;; zZ xX cC vV bB nN mM ,; .: -_
1914 (quail-define-package
1915 "german" "German" "DE@" t
1916 "German (Deutsch) input method simulating SUN German keyboard"
1917 nil t t t t nil nil nil nil nil t
)
1919 ;; 1! 2" 3\e,A'\e(B 4$ 5% 6& 7/ 8( 9) 0= \e,A_\e(B? [{ ]}
1920 ;; qQ wW eE rR tT zZ uU iI oO pP \e,A|\\e(B +*
1921 ;; aA sS dD fF gG hH jJ kK lL \e,AvV\e(B \e,AdD\e(B #^
1922 ;; yY xX cC vV bB nN mM ,; .: -_
1960 (quail-define-package
1961 "italian-keyboard" "Latin-1" "IT@" t
1962 "Italian (Italiano) input method simulating SUN Italian keyboard"
1963 nil t t t t nil nil nil nil nil t
)
1965 ;; 1! 2" 3\e,A#\e(B 4$ 5% 6& 7/ 8( 9) 0= '? \e,Al\e(B^ `~
1966 ;; qQ wW eE rR tT yY uU iI oO pP \e,Ahi\e(B +*
1967 ;; aA sS dD fF gG hH jJ kK lL \e,Arg\e(B \e,A`0\e(B \e,Ay'\e(B
1968 ;; zZ xX cC vV bB nN mM ,; .: -_
2001 (quail-define-package
2002 "spanish-keyboard" "Spanish" "ES@" t
2003 "Spanish (Espa\e,Aq\e(Bol) input method simulating SUN Spanish keyboard"
2004 nil t t t t nil nil nil nil nil t
)
2006 ;; 1! 2" 3\e,A7\e(B 4$ 5% 6& 7/ 8( 9) 0= '? \e,A!?\e(B \e,AmM\e(B
2007 ;; qQ wW eE rR tT yY uU iI oO pP \e,AiI\e(B \e,AsS\e(B
2008 ;; aA sS dD fF gG hH jJ kK lL \e,AqQ\e(B \e,AaA\e(B \e,AzZ\e(B
2009 ;; zZ xX cC vV bB nN mM ,; .: -_
2043 (quail-define-package
2044 "english-dvorak" "English" "DV@" t
2045 "English (ASCII) input method simulating Dvorak keyboard"
2046 nil t t t t nil nil nil nil nil t
)
2048 ;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) [{ ]} `~
2049 ;; '" ,< .> pP yY fF gG cC rR lL /? =+
2050 ;; aA oO eE uU iI dD hH tT nN sS -_ \|
2051 ;; ;: qQ jJ kK xX bB mM wW vV zZ
2131 (quail-define-package
2132 "latin-postfix" "Latin" "L<" t
2133 "Latin character input method with postfix modifiers.
2134 This is the union of various input methods originally made for input
2135 of characters from a single Latin-N charset.
2137 | postfix | examples
2138 ------------+---------+----------
2139 acute | ' | a' -> \e,Aa\e(B
2140 grave | ` | a` -> \e,A`\e(B
2141 circumflex | ^ | a^ -> \e,Ab\e(B
2142 diaeresis | \" | a\" -> \e,Ad\e(B
2143 tilde | ~ | a~ -> \e,Ac\e(B
2144 cedilla | , | c, -> \e,Ag\e(B
2145 ogonek | , | a, -> \e$,1 %\e(B
2146 breve | ~ | a~ -> \e$,1 #\e(B
2147 caron | ~ | c~ -> \e$,1 -\e(B
2148 dbl. acute | : | o: -> \e$,1 q\e(B
2149 ring | . | u. -> \e$,1!/\e(B
2150 dot | . | z. -> \e$,1!<\e(B
2151 stroke | / | d/ -> \e$,1 1\e(B
2152 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
2153 others | / | s/ -> \e,A_\e(B ?/ -> \e,A?\e(B !/ -> \e,A!\e(B // -> \e,A0\e(B
2154 | various | << -> \e,A+\e(B >> -> \e,A;\e(B o_ -> \e,A:\e(B a_ -> \e,A*\e(B
2156 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
2157 " nil t nil nil nil nil nil nil nil nil t
)
2159 ;; Fixme: \e,A&\e(B \e,A'\e(B \e,A(\e(B \e,A)\e(B \e,A,\e(B \e,A-\e(B \e,A.\e(B \e,A/\e(B \e,A1\e(B \e,A2\e(B \e,A3\e(B \e,A4\e(B \e,A5\e(B \e,A6\e(B \e,A7\e(B \e,A8\e(B \e,A9\e(B \e,A<\e(B \e,A=\e(B \e,A>\e(B \e,AW\e(B \e,Aw\e(B
2251 ("Y\"" ?
\e$
,1!8\e(B)
2325 ("s
," ?\e$,1 \x7f\e(B)
2344 ("y
\"" ?\e,A\x7f\e(B)
2524 ;; Derived from Slovenian.kmap from Yudit
2525 ;; attributed as: 2001-11-11 Roman Maurer <roman.maurer@amis.net>
2526 (quail-define-package
2527 "slovenian
" "Slovenian
" "Sl
" t
2528 "Slovenian postfix input.
"
2529 nil t t t nil nil nil nil nil nil t)
2543 ;;; arch-tag: 170180fb-9617-4d58-9d51-65ca23c05d94
2544 ;;; latin-post.el ends here