Mercurial > emacs

comparison leim/quail/latin-alt.el @ 42036:024727240516

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
("french-alt-postfix", "german-alt-postfix") ("spanish-alt-postfix", "turkish-latin-3-alt-postfix") ("turkish-alt-postfix"): Fix language assignment. ("dutch"): Assign to Dutch. Use chars, not strings. ("lithuanian-numeric", "lithuanian-keyboard", "latvian-keyboard"): New.
author Dave Love <fx@gnu.org>
date Sat, 15 Dec 2001 00:24:11 +0000
parents 62ff980e8b98
children a68a7a3dd259
comparison
equal deleted inserted replaced
42035:05d9998e4a84 42036:024727240516
1015 ("OEE" ["OE"]) 1015 ("OEE" ["OE"])
1016 ("oee" ["oe"]) 1016 ("oee" ["oe"])
1017 ) 1017 )
1018 1018
1019 (quail-define-package 1019 (quail-define-package
1020 "french-alt-postfix" "Latin-1" "FR<" t 1020 "french-alt-postfix" "French" "FR<" t
1021 "French (Fran,Ag(Bais) input method with postfix modifiers 1021 "French (Fran,Ag(Bais) input method with postfix modifiers
1022 1022
1023 ` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr,Ai(Bma. 1023 ` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr,Ai(Bma.
1024 Par exemple: a` -> ,A`(B e' -> ,Ai(B. 1024 Par exemple: a` -> ,A`(B e' -> ,Ai(B.
1025 1025
1090 ("<<<" ["<<"]) 1090 ("<<<" ["<<"])
1091 (">>>" [">>"]) 1091 (">>>" [">>"])
1092 ) 1092 )
1093 1093
1094 (quail-define-package 1094 (quail-define-package
1095 "german-alt-postfix" "Latin-1" "DE<" t 1095 "german-alt-postfix" "German" "DE<" t
1096 "German (Deutsch) input method 1096 "German (Deutsch) input method
1097 1097
1098 ae -> ,Ad(B 1098 ae -> ,Ad(B
1099 aee -> ae 1099 aee -> ae
1100 oe -> ,Av(B 1100 oe -> ,Av(B
1328 ("E''" ["E'"]) 1328 ("E''" ["E'"])
1329 ("e''" ["e'"]) 1329 ("e''" ["e'"])
1330 ) 1330 )
1331 1331
1332 (quail-define-package 1332 (quail-define-package
1333 "spanish-alt-postfix" "Latin-1" "ES<" t 1333 "spanish-alt-postfix" "Spanish" "ES<" t
1334 "Spanish (Espa,Aq(Bol) input method with postfix modifiers 1334 "Spanish (Espa,Aq(Bol) input method with postfix modifiers
1335 1335
1336 A' -> ,AA(B 1336 A' -> ,AA(B
1337 E' -> ,AI(B 1337 E' -> ,AI(B
1338 I' -> ,AM(B 1338 I' -> ,AM(B
1404 ("E''" ["E'"]) 1404 ("E''" ["E'"])
1405 ("e''" ["e'"]) 1405 ("e''" ["e'"])
1406 ) 1406 )
1407 1407
1408 (quail-define-package 1408 (quail-define-package
1409 "turkish-latin-3-alt-postfix" "Latin-3" "TR3<<" t 1409 "turkish-latin-3-alt-postfix" "Turkish" "TR3<<" t
1410 "Turkish (T,C|(Brk,Cg(Be) input method with postfix modifiers. 1410 "Turkish (T,A|(Brk,Ag(Be) input method with postfix modifiers.
1411 1411
1412 This is for those who use Latin-3 (ISO-8859-3) for Turkish. If you 1412 This is for those who use Latin-3 (ISO-8859-3) for Turkish. If you
1413 use Latin-5 (ISO-8859-9), you should use \"turkish-alt-postfix\" instead. 1413 use Latin-5 (ISO-8859-9), you should use \"turkish-alt-postfix\" instead.
1414 1414
1415 Note for I, ,C9(B, ,C)(B, i. 1415 Note for I, ,C9(B, ,C)(B, i.
1466 ("U^^" ["U^"]) 1466 ("U^^" ["U^"])
1467 ("u^^" ["u^"]) 1467 ("u^^" ["u^"])
1468 ) 1468 )
1469 1469
1470 (quail-define-package 1470 (quail-define-package
1471 "turkish-alt-postfix" "Latin-5" "TR,M+(B" t 1471 "turkish-alt-postfix" "Turkish" "TR,A+(B" t
1472 "Turkish (T,M|(Brk,Mg(Be) input method with postfix modifiers. 1472 "Turkish (T,A|(Brk,Ag(Be) input method with postfix modifiers.
1473 1473
1474 This is for those who use Latin-5 (ISO-8859-9) for Turkish. If you 1474 This is for those who use Latin-5 (ISO-8859-9) for Turkish. If you
1475 use Latin-3 (ISO-8859-3), you should use 1475 use Latin-3 (ISO-8859-3), you should use
1476 \"turkish-latin-3-alt-postfix\" instead. 1476 \"turkish-latin-3-alt-postfix\" instead.
1477 1477
1531 ) 1531 )
1532 1532
1533 ;; Dutch Quail input method derived from the one in Yudit by Roman 1533 ;; Dutch Quail input method derived from the one in Yudit by Roman
1534 ;; Czyborra. 1534 ;; Czyborra.
1535 (quail-define-package 1535 (quail-define-package
1536 "dutch" "Latin" "NL" t 1536 "dutch" "Dutch" "NL" t
1537 "Dutch character mixfix input method. 1537 "Dutch character mixfix input method.
1538 Uses the `mule-unicode-0100-24ff' charset to supplement Latin-1. 1538 Uses the `mule-unicode-0100-24ff' charset to supplement Latin-1.
1539 1539
1540 | | examples 1540 | | examples
1541 ------------+---------+---------- 1541 ------------+---------+----------
1555 1555
1556 Doubling the postfix separates the letter and postfix: e.g. a'' -> a' 1556 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
1557 " nil t nil nil nil nil nil nil nil nil t) 1557 " nil t nil nil nil nil nil nil nil nil t)
1558 1558
1559 (quail-define-rules 1559 (quail-define-rules
1560 ("fl." "$,1!R(B") ;; LATIN SMALL LETTER F WITH HOOK (florin currency symbol) 1560 ("fl." ?$,1!R(B) ;; LATIN SMALL LETTER F WITH HOOK (florin currency symbol)
1561 ("eur." "$,1tL(B") ;; EURO SIGN 1561 ("eur." ?$,1tL(B) ;; EURO SIGN
1562 ;; $,1r|(BThe 25th letter of the Dutch alphabet.$,1r}(B 1562 ;; $,1r|(BThe 25th letter of the Dutch alphabet.$,1r}(B
1563 ("ij" "$,1 S(B") ;; LATIN SMALL LIGATURE IJ 1563 ("ij" ?$,1 S(B) ;; LATIN SMALL LIGATURE IJ
1564 ("IJ" "$,1 R(B") ;; LATIN CAPITAL LIGATURE IJ 1564 ("IJ" ?$,1 R(B) ;; LATIN CAPITAL LIGATURE IJ
1565 ;; $,1r|(BTrema on the second letter of vowel pair.$,1r}(B Yudit uses `:', not `"'. 1565 ;; $,1r|(BTrema on the second letter of vowel pair.$,1r}(B Yudit uses `:', not `"'.
1566 ("\"a" ",Ad(B") ;; LATIN SMALL LETTER A WITH DIAERESIS 1566 ("\"a" ?,Ad(B) ;; LATIN SMALL LETTER A WITH DIAERESIS
1567 ("\"e" ",Ak(B") ;; LATIN SMALL LETTER E WITH DIAERESIS 1567 ("\"e" ?,Ak(B) ;; LATIN SMALL LETTER E WITH DIAERESIS
1568 ("\"i" ",Ao(B") ;; LATIN SMALL LETTER I WITH DIAERESIS 1568 ("\"i" ?,Ao(B) ;; LATIN SMALL LETTER I WITH DIAERESIS
1569 ("\"o" ",Av(B") ;; LATIN SMALL LETTER O WITH DIAERESIS 1569 ("\"o" ?,Av(B) ;; LATIN SMALL LETTER O WITH DIAERESIS
1570 ("\"u" ",A|(B") ;; LATIN SMALL LETTER U WITH DIAERESIS 1570 ("\"u" ?,A|(B) ;; LATIN SMALL LETTER U WITH DIAERESIS
1571 ("\"A" ",AD(B") ;; LATIN CAPITAL LETTER A WITH DIAERESIS 1571 ("\"A" ?,AD(B) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
1572 ("\"E" ",AK(B") ;; LATIN CAPITAL LETTER E WITH DIAERESIS 1572 ("\"E" ?,AK(B) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
1573 ("\"I" ",AO(B") ;; LATIN CAPITAL LETTER I WITH DIAERESIS 1573 ("\"I" ?,AO(B) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
1574 ("\"O" ",AV(B") ;; LATIN CAPITAL LETTER O WITH DIAERESIS 1574 ("\"O" ?,AV(B) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
1575 ("\"U" ",A\(B") ;; LATIN CAPITAL LETTER U WITH DIAERESIS 1575 ("\"U" ?,A\(B) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
1576 ;; $,1r|(BAcute, marking emphasis on long vowels$,1r}(B: 1576 ;; $,1r|(BAcute, marking emphasis on long vowels$,1r}(B:
1577 ("a'" ",Aa(B") ;; LATIN SMALL LETTER A WITH ACUTE 1577 ("a'" ?,Aa(B) ;; LATIN SMALL LETTER A WITH ACUTE
1578 ("e'" ",Ai(B") ;; LATIN SMALL LETTER E WITH ACUTE 1578 ("e'" ?,Ai(B) ;; LATIN SMALL LETTER E WITH ACUTE
1579 ("i'" ",Am(B") ;; LATIN SMALL LETTER I WITH ACUTE 1579 ("i'" ?,Am(B) ;; LATIN SMALL LETTER I WITH ACUTE
1580 ("o'" ",As(B") ;; LATIN SMALL LETTER O WITH ACUTE 1580 ("o'" ?,As(B) ;; LATIN SMALL LETTER O WITH ACUTE
1581 ("u'" ",Az(B") ;; LATIN SMALL LETTER U WITH ACUTE 1581 ("u'" ?,Az(B) ;; LATIN SMALL LETTER U WITH ACUTE
1582 ("A'" ",AA(B") ;; LATIN CAPITAL LETTER A WITH ACUTE 1582 ("A'" ?,AA(B) ;; LATIN CAPITAL LETTER A WITH ACUTE
1583 ("E'" ",AI(B") ;; LATIN CAPITAL LETTER E WITH ACUTE 1583 ("E'" ?,AI(B) ;; LATIN CAPITAL LETTER E WITH ACUTE
1584 ("I'" ",AM(B") ;; LATIN CAPITAL LETTER I WITH ACUTE 1584 ("I'" ?,AM(B) ;; LATIN CAPITAL LETTER I WITH ACUTE
1585 ("O'" ",AS(B") ;; LATIN CAPITAL LETTER O WITH ACUTE 1585 ("O'" ?,AS(B) ;; LATIN CAPITAL LETTER O WITH ACUTE
1586 ("U'" ",AZ(B") ;; LATIN CAPITAL LETTER U WITH ACUTE 1586 ("U'" ?,AZ(B) ;; LATIN CAPITAL LETTER U WITH ACUTE
1587 ;; $,1r|(BGrave, marking emphasis on short vowels$,1r}(B: 1587 ;; $,1r|(BGrave, marking emphasis on short vowels$,1r}(B:
1588 ("a`" ",A`(B") ;; LATIN SMALL LETTER A WITH GRAVE 1588 ("a`" ?,A`(B) ;; LATIN SMALL LETTER A WITH GRAVE
1589 ("e`" ",Ah(B") ;; LATIN SMALL LETTER E WITH GRAVE 1589 ("e`" ?,Ah(B) ;; LATIN SMALL LETTER E WITH GRAVE
1590 ("i`" ",Al(B") ;; LATIN SMALL LETTER I WITH GRAVE 1590 ("i`" ?,Al(B) ;; LATIN SMALL LETTER I WITH GRAVE
1591 ("o`" ",Ar(B") ;; LATIN SMALL LETTER O WITH GRAVE 1591 ("o`" ?,Ar(B) ;; LATIN SMALL LETTER O WITH GRAVE
1592 ("u`" ",Ay(B") ;; LATIN SMALL LETTER U WITH GRAVE 1592 ("u`" ?,Ay(B) ;; LATIN SMALL LETTER U WITH GRAVE
1593 ("A`" ",A@(B") ;; LATIN CAPITAL LETTER A WITH GRAVE 1593 ("A`" ?,A@(B) ;; LATIN CAPITAL LETTER A WITH GRAVE
1594 ("E`" ",AH(B") ;; LATIN CAPITAL LETTER E WITH GRAVE 1594 ("E`" ?,AH(B) ;; LATIN CAPITAL LETTER E WITH GRAVE
1595 ("I`" ",AL(B") ;; LATIN CAPITAL LETTER I WITH GRAVE 1595 ("I`" ?,AL(B) ;; LATIN CAPITAL LETTER I WITH GRAVE
1596 ("O`" ",AR(B") ;; LATIN CAPITAL LETTER O WITH GRAVE 1596 ("O`" ?,AR(B) ;; LATIN CAPITAL LETTER O WITH GRAVE
1597 ("U`" ",AY(B") ;; LATIN CAPITAL LETTER U WITH GRAVE 1597 ("U`" ?,AY(B) ;; LATIN CAPITAL LETTER U WITH GRAVE
1598 ;; $,1r|(BCater for the use of many French words and use of the circumflex 1598 ;; $,1r|(BCater for the use of many French words and use of the circumflex
1599 ;; in Frisian.$,1r}(B Yudit used `;' for cedilla. 1599 ;; in Frisian.$,1r}(B Yudit used `;' for cedilla.
1600 ("c," ",Ag(B") ;; LATIN SMALL LETTER C WITH CEDILLA 1600 ("c," ?,Ag(B) ;; LATIN SMALL LETTER C WITH CEDILLA
1601 ("C," ",AG(B") ;; LATIN CAPITAL LETTER C WITH CEDILLA 1601 ("C," ?,AG(B) ;; LATIN CAPITAL LETTER C WITH CEDILLA
1602 ("a^" ",Ab(B") ;; LATIN SMALL LETTER A WITH CIRCUMFLEX 1602 ("a^" ?,Ab(B) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
1603 ("e^" ",Aj(B") ;; LATIN SMALL LETTER E WITH CIRCUMFLEX 1603 ("e^" ?,Aj(B) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
1604 ("i^" ",An(B") ;; LATIN SMALL LETTER I WITH CIRCUMFLEX 1604 ("i^" ?,An(B) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
1605 ("o^" ",At(B") ;; LATIN SMALL LETTER O WITH CIRCUMFLEX 1605 ("o^" ?,At(B) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
1606 ("u^" ",A{(B") ;; LATIN SMALL LETTER U WITH CIRCUMFLEX 1606 ("u^" ?,A{(B) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
1607 ("A^" ",AB(B") ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX 1607 ("A^" ?,AB(B) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
1608 ("E^" ",AJ(B") ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX 1608 ("E^" ?,AJ(B) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
1609 ("I^" ",AN(B") ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX 1609 ("I^" ?,AN(B) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
1610 ("O^" ",AT(B") ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX 1610 ("O^" ?,AT(B) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
1611 ("U^" ",A[(B") ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX 1611 ("U^" ?,A[(B) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
1612 ;; $,1r|(BFollow the example of the Dutch POSIX locale, using ISO-8859-9 to 1612 ;; $,1r|(BFollow the example of the Dutch POSIX locale, using ISO-8859-9 to
1613 ;; cater to the many Turks in Dutch society.$,1r}(B Perhaps German methods 1613 ;; cater to the many Turks in Dutch society.$,1r}(B Perhaps German methods
1614 ;; should do so too. Follow turkish-alt-postfix here. 1614 ;; should do so too. Follow turkish-alt-postfix here.
1615 ("i/" "$,1 Q(B") ;; LATIN SMALL LETTER I WITH NO DOT 1615 ("i/" ?$,1 Q(B) ;; LATIN SMALL LETTER I WITH NO DOT
1616 ("s," "$,1 (B") ;; LATIN SMALL LETTER S WITH CEDILLA 1616 ("s," ?$,1 (B) ;; LATIN SMALL LETTER S WITH CEDILLA
1617 ("g^" "$,1 ?(B") ;; LATIN SMALL LETTER G WITH BREVE 1617 ("g^" ?$,1 ?(B) ;; LATIN SMALL LETTER G WITH BREVE
1618 ("I/" "$,1 P(B") ;; LATIN CAPITAL LETTER I WITH DOT ABOVE 1618 ("I/" ?$,1 P(B) ;; LATIN CAPITAL LETTER I WITH DOT ABOVE
1619 ("S," "$,1 ~(B") ;; LATIN CAPITAL LETTER S WITH CEDILLA 1619 ("S," ?$,1 ~(B) ;; LATIN CAPITAL LETTER S WITH CEDILLA
1620 ("G^" "$,1 >(B") ;; LATIN CAPITAL LETTER G WITH BREVE 1620 ("G^" ?$,1 >(B) ;; LATIN CAPITAL LETTER G WITH BREVE
1621 ) 1621 )
1622
1623 ;; Originally from Yudit, discussed with Albertas Agejevas
1624 ;; <alga@uosis.mif.vu.lt>
1625 (quail-define-package
1626 "lithuanian-numeric" "Lithuanian" "LtN" t
1627 "Lithuanian numeric input method.
1628 " nil t t t t nil nil nil nil nil t)
1629
1630 (quail-define-rules
1631 (?1 ?$,1 %(B)
1632 (?2 ?$,1 -(B)
1633 (?3 ?$,1 9(B)
1634 (?4 ?$,1 7(B)
1635 (?5 ?$,1 O(B)
1636 (?6 ?$,1!!(B)
1637 (?7 ?$,1!3(B)
1638 (?8 ?$,1!+(B)
1639 (?9 ?$,1r~(B)
1640 (?0 ?$,1r|(B)
1641 (?= ?$,1!>(B)
1642 (?! ?$,1 $(B)
1643 (?@ ?$,1 ,(B)
1644 (?# ?$,1 8(B)
1645 (?$ ?$,1 6(B)
1646 (?% ?$,1 N(B)
1647 (?^ ?$,1! (B)
1648 (?& ?$,1!2(B)
1649 (?* ?$,1!*(B)
1650 (?+ ?$,1!=(B))
1651
1652
1653 ;; From XFree 4.1 /usr/X11R6/lib/X11/xkb/symbols/lt, suggested by
1654 ;; Albertas Agejevas <alga@uosis.mif.vu.lt>
1655 (quail-define-package
1656 "lithuanian-keyboard" "Lithuanian" "Lt" t
1657 "Lithuanian standard keyboard input method.
1658 " nil t t t t nil nil nil nil nil t)
1659
1660 (quail-define-rules
1661 (?1 ?$,1 %(B)
1662 (?! ?$,1 $(B)
1663 (?2 ?$,1 -(B)
1664 (?@ ?$,1 ,(B)
1665 (?# ?$,1 8(B)
1666 (?4 ?$,1 7(B)
1667 (?$ ?$,1 6(B)
1668 (?5 ?$,1 O(B)
1669 (?% ?$,1 N(B)
1670 (?6 ?$,1!!(B)
1671 (?^ ?$,1! (B)
1672 (?7 ?$,1!3(B)
1673 (?& ?$,1!2(B)
1674 (?9 ?$,1r~(B)
1675 (?0 ?$,1r|(B)
1676 (?= ?$,1!>(B)
1677 (?+ ?$,1!=(B))
1678
1679 ;; From XFree 4.1 /usr/X11R6/lib/X11/xkb/symbols/lv
1680 (quail-define-package
1681 "latvian-keyboard" "Latvian" "Lv" t
1682 "Latvian standard keyboard input method.
1683 " nil t t t t nil nil nil nil nil t)
1684
1685 (quail-define-rules
1686 (?4 ?$,1tL(B)
1687 (?$ ?,A"(B)
1688 (?e ?$,1 3(B)
1689 (?E ?$,1 2(B)
1690 (?r ?$,1 w(B)
1691 (?R ?$,1 v(B)
1692 (?u ?$,1!+(B)
1693 (?U ?$,1!*(B)
1694 (?i ?$,1 K(B)
1695 (?I ?$,1 J(B)
1696 (?o ?$,1 m(B)
1697 (?O ?$,1 l(B)
1698 (?a ?$,1 !(B)
1699 (?A ?$,1 (B)
1700 (?s ?$,1!!(B)
1701 (?S ?$,1! (B)
1702 (?g ?$,1 C(B)
1703 (?G ?$,1 B(B)
1704 (?k ?$,1 W(B)
1705 (?K ?$,1 V(B)
1706 (?l ?$,1 \(B)
1707 (?L ?$,1 [(B)
1708 (?\' ?$,1r|(B)
1709 (?\" ?$,1r~(B)
1710 (?z ?$,1!>(B)
1711 (?Z ?$,1!=(B)
1712 (?c ?$,1 -(B)
1713 (?C ?$,1 ,(B)
1714 (?n ?$,1 f(B)
1715 (?N ?$,1 e(B))
1622 1716
1623 ;;; latin-alt.el ends here 1717 ;;; latin-alt.el ends here