1 ;;; latin-alt.el --- Quail package for inputting various European characters -*-coding: iso-2022-7bit;-*-
3 ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007
4 ;; Free Software Foundation, Inc.
5 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
6 ;; National Institute of Advanced Industrial Science and Technology (AIST)
7 ;; Registration Number H14PRO021
9 ;; Keywords: multilingual, input method, latin
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 3, 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.
28 ;; Author (of latin-post.el): TAKAHASHI Naoto <ntakahas@etl.go.jp>
32 ;; These input methods differ from those in latin-post.el
33 ;; in that comma is not special (use / instead),
34 ;; and // is not special either (so you can enter a slash
37 ;; At least, that's what I could see by comparing the first few
38 ;; of these with latin-post.el.
45 "latin-1-alt-postfix" "Latin-1" "1<" t
46 "Latin-1 character input method with postfix modifiers
47 This input method differs from `latin-1-postfix' in that
48 comma is not special (use slash instead), and `//' is not
49 special (so you can use that to enter a slash).
52 ------------+---------+----------
53 acute | ' | a' ->
\e,Aa
\e(B
54 grave | ` | a` ->
\e,A`
\e(B
55 circumflex | ^ | a^ ->
\e,Ab
\e(B
56 diaeresis | \" | a\" ->
\e,Ad
\e(B
57 tilde | ~ | a~ ->
\e,Ac
\e(B
58 cedilla | / | c/ ->
\e,Ag
\e(B
59 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
60 others | /<> | s/ ->
\e,A_
\e(B ?/ ->
\e,A?
\e(B !/ ->
\e,A!
\e(B
61 | various | << ->
\e,A+
\e(B >> ->
\e,A;
\e(B o_ ->
\e,A:
\e(B a_ ->
\e,A*
\e(B
63 It seems natural to use comma for cedillas, but that is
64 inconvenient in practice because commas are needed very
67 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
68 " nil t nil nil nil nil nil nil nil nil t)
210 (quail-define-package
211 "latin-2-alt-postfix" "Latin-2" "2<" t
212 "Latin-2 character input method with postfix modifiers
213 This input method differs from `latin-2-postfix' in that
214 comma and period are not special (use ` instead).
217 ------------+---------+----------
218 acute | ' | a' ->
\e,Ba
\e(B
219 ogonek | ` | a` ->
\e,B1
\e(B
220 diaeresis | \" | a\" ->
\e,Bd
\e(B
221 circumflex | ^ | a^ ->
\e,Bb
\e(B
222 breve | ~ | a~ ->
\e,Bc
\e(B
223 cedilla | ` | c` ->
\e,Bg
\e(B
224 caron | ~ | c~ ->
\e,Bh
\e(B
225 dbl. acute | : | o: ->
\e,Bu
\e(B
226 ring | ` | u` ->
\e,By
\e(B
227 dot | ` | z` ->
\e,B?
\e(B
228 stroke | / | d/ ->
\e,Bp
\e(B
229 others | / | s/ ->
\e,B_
\e(B
231 It seems natural to use period and comma for dots/rings and
232 cedillas/ogoneks, but that is inconvenient in practice, because
233 periods and commas are needed very often after a letter.
235 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
236 " nil t nil nil nil nil nil nil nil nil t)
404 (quail-define-package
405 "latin-3-alt-postfix" "Latin-3" "3<" t
406 "Latin-3 character input method with postfix modifiers
407 This input method differs from `latin-3-postfix' in that
408 comma is not special (use ` instead), and period is not
409 special (use slash instead).
412 ------------+---------+----------
413 acute | ' | a' ->
\e,Ca
\e(B
414 grave | ` | a` ->
\e,C`
\e(B
415 circumflex | ^ | a^ ->
\e,Cb
\e(B
416 diaeresis | \" | a\" ->
\e,Cd
\e(B
417 dot | / | c/ ->
\e,Ce
\e(B i/ ->
\e,C9
\e(B I/ ->
\e,C)
\e(B
418 cedilla | ` | c` ->
\e,Cg
\e(B
419 breve | ~ | g~ ->
\e,C;
\e(B
420 tilde | ~ | n~ ->
\e,Cq
\e(B
421 stroke | / | h/ ->
\e,C1
\e(B
422 others | / | s/ ->
\e,C_
\e(B
424 It would be natural to use period and comma for dots and cedillas, but
425 that would inconvenient in practice, because periods and commas are
426 needed very often after a letter.
428 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
429 " nil t nil nil nil nil nil nil nil nil t)
577 (quail-define-package
578 "latin-4-alt-postfix" "Latin-4" "4<" t
579 "Latin-4 characters input method with postfix modifiers
580 This input method differs from `latin-4-postfix' in that
581 comma is not special (use ` instead), and period is not
582 special (use ~ instead).
585 ------------+---------+----------
586 acute | ' | a' ->
\e,Da
\e(B
587 circumflex | ^ | a^ ->
\e,Db
\e(B
588 diaeresis | \" | a\" ->
\e,Dd
\e(B
589 ogonek | ` | a` ->
\e,D1
\e(B
590 macron | - | a- ->
\e,D`
\e(B
591 tilde | ~ | a~ ->
\e,Dc
\e(B
592 caron | ~ | c~ ->
\e,Dh
\e(B
593 dot | ~ | e~ ->
\e,Dl
\e(B
594 cedilla | ` | k` ->
\e,Ds
\e(B g` ->
\e,D;
\e(B
595 stroke | / | d/ ->
\e,Dp
\e(B
596 nordic | / | a/ ->
\e,De
\e(B e/ ->
\e,Df
\e(B o/ ->
\e,Dx
\e(B
597 others | / | s/ ->
\e,D_
\e(B n/ ->
\e,D?
\e(B k/ ->
\e,D"
\e(B
599 It seems natural to use period and comma for dots and
600 cedillas/ogoneks, but that is inconvenient in practice, because
601 periods and commas are needed very often after a letter.
603 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
604 " nil t nil nil nil nil nil nil nil nil t)
774 (quail-define-package
775 "latin-5-alt-postfix" "Latin-5" "5<" t
776 "Latin-5 characters input method with postfix modifiers
777 This input method differs from `latin-5-postfix' in that
778 comma is not special (use ` instead), and period is not
779 special (use / instead).
782 ------------+---------+----------
783 acute | ' | a' ->
\e,Ma
\e(B
784 grave | ` | a` ->
\e,M`
\e(B
785 circumflex | ^ | a^ ->
\e,Mb
\e(B
786 diaeresis | \" | a\" ->
\e,Md
\e(B
787 tilde | ~ | a~ ->
\e,Mc
\e(B
788 breve | ~ | g~ ->
\e,Mp
\e(B
789 cedilla | ` | c` ->
\e,Mg
\e(B
790 dot | / | i/ ->
\e,M}
\e(B I/ ->
\e,M]
\e(B
791 nordic | / | a/ ->
\e,Me
\e(B e/ ->
\e,Mf
\e(B o/ ->
\e,Mx
\e(B
792 others | / | s/ ->
\e,M_
\e(B
794 It seems natural to use period and comma for dots and cedillas, but
795 that is inconvenient in practice, because periods and commas are
796 needed very often after a letter.
798 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
799 " nil t nil nil nil nil nil nil nil nil t)
931 (quail-define-package
932 "french-alt-postfix" "French" "FR<" t
933 "French (Fran
\e,Ag
\e(Bais) input method with postfix modifiers
935 ` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr
\e,Ai
\e(Bma.
936 Par exemple: a` ->
\e,A`
\e(B e' ->
\e,Ai
\e(B.
938 \e,AG
\e(B,
\e,A+
\e(B, et
\e,A;
\e(B sont produits par C/, <<, et >>.
940 En doublant la frappe des diacritiques, ils s'isoleront de la lettre.
941 Par exemple: e'' -> e'
943 <e dans l'o> n'est pas disponible."
944 nil t nil nil nil nil nil nil nil nil t)
1008 (quail-define-package
1009 "italian-alt-postfix" "Latin-1" "IT<" t
1010 "Italian (Italiano) input method with postfix modifiers
1012 a' ->
\e,Aa
\e(B A' ->
\e,AA
\e(B a` ->
\e,A`
\e(B A` ->
\e,A@
\e(B i^ ->
\e,An
\e(B << ->
\e,A+
\e(B
1013 e' ->
\e,Ai
\e(B E' ->
\e,AI
\e(B e` ->
\e,Ah
\e(B E` ->
\e,AH
\e(B I^ ->
\e,AN
\e(B >> ->
\e,A;
\e(B
1014 i' ->
\e,Am
\e(B I' ->
\e,AM
\e(B i` ->
\e,Al
\e(B I` ->
\e,AL
\e(B o_ ->
\e,A:
\e(B
1015 o' ->
\e,As
\e(B O' ->
\e,AS
\e(B o` ->
\e,Ar
\e(B O` ->
\e,AR
\e(B a_ ->
\e,A*
\e(B
1016 u' ->
\e,Az
\e(B U' ->
\e,AZ
\e(B u` ->
\e,Ay
\e(B U` ->
\e,AY
\e(B
1018 This method is for purists who like accents the old way.
1020 Doubling the postfix separates the letter and postfix: e.g. a`` -> a`
1021 " nil t nil nil nil nil nil nil nil nil t)
1080 (quail-define-package
1081 "turkish-latin-3-alt-postfix" "Turkish" "TR3<<" t
1082 "Turkish (T
\e,A|
\e(Brk
\e,Ag
\e(Be) input method with postfix modifiers.
1083 This input method differs from `turkish-latin-3-postfix' in that
1084 comma is not special (use ` instead).
1086 This is for those who use Latin-3 (ISO-8859-3) for Turkish. If you
1087 use Latin-5 (ISO-8859-9), you should use \"turkish-alt-postfix\" instead.
1089 Note for I,
\e,C9
\e(B,
\e,C)
\e(B, i.
1103 Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
1104 " nil t nil nil nil nil nil nil nil nil t)
1144 (quail-define-package
1145 "turkish-alt-postfix" "Turkish" "TR
\e,A+
\e(B" t
1146 "Turkish (T
\e,A|
\e(Brk
\e,Ag
\e(Be) input method with postfix modifiers.
1147 This input method differs from `turkish-postfix' in that
1148 comma is not special (use ` instead).
1150 This is for those who use Latin-5 (ISO-8859-9) for Turkish. If you
1151 use Latin-3 (ISO-8859-3), you should use
1152 \"turkish-latin-3-alt-postfix\" instead.
1154 Note for I,
\e,M}
\e(B,
\e,M]
\e(B, i.
1168 Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
1169 " nil t nil nil nil nil nil nil nil nil t)
1209 ;; Dutch Quail input method derived from the one in Yudit by Roman
1211 (quail-define-package
1212 "dutch" "Dutch" "NL" t
1213 "Dutch character mixfix input method.
1214 Uses the `mule-unicode-0100-24ff' charset to supplement Latin-1.
1217 ------------+---------+----------
1218 others | | fl. ->
\e$,1!R
\e(B eur. ->
\e$,1tL
\e(B ij ->
\e$,1 S
\e(B IJ ->
\e$,1 R
\e(B
1219 ------------+---------+----------
1221 ------------+---------+----------
1222 acute | ' | a' ->
\e,Aa
\e(B
1223 grave | ` | a` ->
\e,A`
\e(B
1224 circumflex | ^ | a^ ->
\e,Ab
\e(B
1225 Turkish | various | i/ ->
\e$,1 Q
\e(B s, ->
\e$,1
\7f\e(B g^ ->
\e$,1 ?
\e(B I/ ->
\e$,1 P
\e(B
1226 | | S, ->
\e$,1 ~
\e(B G^ ->
\e$,1 >
\e(B
1227 ------------+---------+----------
1229 ------------+---------+----------
1230 diaeresis | \" | \"a ->
\e,Ad
\e(B
1232 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
1233 " nil t nil nil nil nil nil nil nil nil t)
1236 ("fl." ?
\e$,1!R
\e(B) ;; LATIN SMALL LETTER F WITH HOOK (florin currency symbol)
1237 ("eur." ?
\e$,1tL
\e(B) ;; EURO SIGN
1238 ;;
\e$,1r|
\e(BThe 25th letter of the Dutch alphabet.
\e$,1r}
\e(B
1239 ("ij" ?
\e$,1 S
\e(B) ;; LATIN SMALL LIGATURE IJ
1240 ("IJ" ?
\e$,1 R
\e(B) ;; LATIN CAPITAL LIGATURE IJ
1241 ;;
\e$,1r|
\e(BTrema on the second letter of vowel pair.
\e$,1r}
\e(B Yudit uses `:', not `"'.
1242 ("\"a" ?
\e,Ad
\e(B) ;; LATIN SMALL LETTER A WITH DIAERESIS
1243 ("\"e" ?
\e,Ak
\e(B) ;; LATIN SMALL LETTER E WITH DIAERESIS
1244 ("\"i" ?
\e,Ao
\e(B) ;; LATIN SMALL LETTER I WITH DIAERESIS
1245 ("\"o" ?
\e,Av
\e(B) ;; LATIN SMALL LETTER O WITH DIAERESIS
1246 ("\"u" ?
\e,A|
\e(B) ;; LATIN SMALL LETTER U WITH DIAERESIS
1247 ("\"A" ?
\e,AD
\e(B) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
1248 ("\"E" ?
\e,AK
\e(B) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
1249 ("\"I" ?
\e,AO
\e(B) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
1250 ("\"O" ?
\e,AV
\e(B) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
1251 ("\"U" ?
\e,A\
\e(B) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
1252 ;;
\e$,1r|
\e(BAcute, marking emphasis on long vowels
\e$,1r}
\e(B:
1253 ("a'" ?
\e,Aa
\e(B) ;; LATIN SMALL LETTER A WITH ACUTE
1254 ("e'" ?
\e,Ai
\e(B) ;; LATIN SMALL LETTER E WITH ACUTE
1255 ("i'" ?
\e,Am
\e(B) ;; LATIN SMALL LETTER I WITH ACUTE
1256 ("o'" ?
\e,As
\e(B) ;; LATIN SMALL LETTER O WITH ACUTE
1257 ("u'" ?
\e,Az
\e(B) ;; LATIN SMALL LETTER U WITH ACUTE
1258 ("A'" ?
\e,AA
\e(B) ;; LATIN CAPITAL LETTER A WITH ACUTE
1259 ("E'" ?
\e,AI
\e(B) ;; LATIN CAPITAL LETTER E WITH ACUTE
1260 ("I'" ?
\e,AM
\e(B) ;; LATIN CAPITAL LETTER I WITH ACUTE
1261 ("O'" ?
\e,AS
\e(B) ;; LATIN CAPITAL LETTER O WITH ACUTE
1262 ("U'" ?
\e,AZ
\e(B) ;; LATIN CAPITAL LETTER U WITH ACUTE
1263 ;;
\e$,1r|
\e(BGrave, marking emphasis on short vowels
\e$,1r}
\e(B:
1264 ("a`" ?
\e,A`
\e(B) ;; LATIN SMALL LETTER A WITH GRAVE
1265 ("e`" ?
\e,Ah
\e(B) ;; LATIN SMALL LETTER E WITH GRAVE
1266 ("i`" ?
\e,Al
\e(B) ;; LATIN SMALL LETTER I WITH GRAVE
1267 ("o`" ?
\e,Ar
\e(B) ;; LATIN SMALL LETTER O WITH GRAVE
1268 ("u`" ?
\e,Ay
\e(B) ;; LATIN SMALL LETTER U WITH GRAVE
1269 ("A`" ?
\e,A@
\e(B) ;; LATIN CAPITAL LETTER A WITH GRAVE
1270 ("E`" ?
\e,AH
\e(B) ;; LATIN CAPITAL LETTER E WITH GRAVE
1271 ("I`" ?
\e,AL
\e(B) ;; LATIN CAPITAL LETTER I WITH GRAVE
1272 ("O`" ?
\e,AR
\e(B) ;; LATIN CAPITAL LETTER O WITH GRAVE
1273 ("U`" ?
\e,AY
\e(B) ;; LATIN CAPITAL LETTER U WITH GRAVE
1274 ;;
\e$,1r|
\e(BCater for the use of many French words and use of the circumflex
1275 ;; in Frisian.
\e$,1r}
\e(B Yudit used `;' for cedilla.
1276 ("c," ?
\e,Ag
\e(B) ;; LATIN SMALL LETTER C WITH CEDILLA
1277 ("C," ?
\e,AG
\e(B) ;; LATIN CAPITAL LETTER C WITH CEDILLA
1278 ("a^" ?
\e,Ab
\e(B) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
1279 ("e^" ?
\e,Aj
\e(B) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
1280 ("i^" ?
\e,An
\e(B) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
1281 ("o^" ?
\e,At
\e(B) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
1282 ("u^" ?
\e,A{
\e(B) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
1283 ("A^" ?
\e,AB
\e(B) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
1284 ("E^" ?
\e,AJ
\e(B) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
1285 ("I^" ?
\e,AN
\e(B) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
1286 ("O^" ?
\e,AT
\e(B) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
1287 ("U^" ?
\e,A[
\e(B) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
1288 ;;
\e$,1r|
\e(BFollow the example of the Dutch POSIX locale, using ISO-8859-9 to
1289 ;; cater to the many Turks in Dutch society.
\e$,1r}
\e(B Perhaps German methods
1290 ;; should do so too. Follow turkish-alt-postfix here.
1291 ("i/" ?
\e$,1 Q
\e(B) ;; LATIN SMALL LETTER I WITH NO DOT
1292 ("s," ?
\e$,1
\7f\e(B) ;; LATIN SMALL LETTER S WITH CEDILLA
1293 ("g^" ?
\e$,1 ?
\e(B) ;; LATIN SMALL LETTER G WITH BREVE
1294 ("I/" ?
\e$,1 P
\e(B) ;; LATIN CAPITAL LETTER I WITH DOT ABOVE
1295 ("S," ?
\e$,1 ~
\e(B) ;; LATIN CAPITAL LETTER S WITH CEDILLA
1296 ("G^" ?
\e$,1 >
\e(B) ;; LATIN CAPITAL LETTER G WITH BREVE
1299 ;; Originally from Yudit, discussed with Albertas Agejevas
1300 ;; <alga@uosis.mif.vu.lt>
1301 (quail-define-package
1302 "lithuanian-numeric" "Lithuanian" "LtN" t
1303 "Lithuanian numeric input method.
1304 " nil t t t t nil nil nil nil nil t)
1328 ;; From XFree 4.1 /usr/X11R6/lib/X11/xkb/symbols/lt, suggested by
1329 ;; Albertas Agejevas <alga@uosis.mif.vu.lt>
1330 (quail-define-package
1331 "lithuanian-keyboard" "Lithuanian" "Lt" t
1332 "Lithuanian standard keyboard input method.
1333 " nil t t t t nil nil nil nil nil t)
1354 ;; From XFree 4.1 /usr/X11R6/lib/X11/xkb/symbols/lv
1355 (quail-define-package
1356 "latvian-keyboard" "Latvian" "Lv" t
1357 "Latvian standard keyboard input method.
1358 " nil t t t t nil nil nil nil nil t)
1392 (quail-define-package
1393 "latin-alt-postfix" "Latin" "L<" t
1394 "Latin character input method with postfix modifiers.
1395 This is the union of various input methods originally made for input
1396 of characters from a single Latin-N charset.
1398 | postfix | examples
1399 ------------+---------+----------
1400 acute | ' | a' ->
\e,Aa
\e(B
1401 grave | ` | a` ->
\e,A`
\e(B
1402 circumflex | ^ | a^ ->
\e,Ab
\e(B
1403 diaeresis | \" | a\" ->
\e,Ad
\e(B
1404 tilde | ~ | a~ ->
\e,Ac
\e(B
1405 cedilla | /` | c/ ->
\e,Ag
\e(B c` ->
\e,Ag
\e(B
1406 ogonek | ` | a` ->
\e$,1 %
\e(B
1407 breve | ~ | a~ ->
\e$,1 #
\e(B
1408 caron | ~ | c~ ->
\e$,1 -
\e(B
1409 dbl. acute | : | o: ->
\e$,1 q
\e(B
1410 ring | ` | u` ->
\e$,1!/
\e(B
1411 dot | ` | z` ->
\e$,1!<
\e(B
1412 stroke | / | d/ ->
\e$,1 1
\e(B
1413 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
1414 others | /<> | s/ ->
\e,A_
\e(B ?/ ->
\e,A?
\e(B !/ ->
\e,A!
\e(B
1415 | various | << ->
\e,A+
\e(B >> ->
\e,A;
\e(B o_ ->
\e,A:
\e(B a_ ->
\e,A*
\e(B
1417 It would be natural to use comma for cedillas, but that would be
1418 inconvenient in practice because commas are needed very often after a
1421 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
1422 " nil t nil nil nil nil nil nil nil nil t)
1424 ;; 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,A0
\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
1516 ("Y\"" ?
\e$,1!8
\e(B)
1593 ("s`" ?
\e$,1
\7f\e(B)
1610 ("y\"" ?
\e,A
\7f\e(B)
1779 ;;; arch-tag: 722466a6-363d-431c-9161-879e16e2da5d
1780 ;;; latin-alt.el ends here