Mercurial > emacs
changeset 19901:1a1c332f5b46
Initial revision
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 13 Sep 1997 04:32:07 +0000 |
parents | fa397fb1d859 |
children | fa9889643596 |
files | leim/quail/latin-alt.el |
diffstat | 1 files changed, 1421 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/leim/quail/latin-alt.el Sat Sep 13 04:32:07 1997 +0000 @@ -0,0 +1,1421 @@ +;; Quail packages for inputting various European characters. + +;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. +;; Licensed to the Free Software Foundation. + +;; Keywords: multilingual, input method, latin + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp> + +(require 'quail) + +(quail-define-package + "latin-1-alt-postfix" "Latin-1" "1<" t + "Latin-1 character input method with postfix modifiers + + | postfix | examples + ------------+---------+---------- + acute | ' | a' -> ,Aa(B + grave | ` | a` -> ,A`(B + circumflex | ^ | a^ -> ,Ab(B + diaeresis | \" | a\" -> ,Ad(B + tilde | ~ | a~ -> ,Ac(B + cedilla | / | c/ -> ,Ag(B + nordic | / | d/ -> ,Ap(B t/ -> ,A~(B a/ -> ,Ae(B e/ -> ,Af(B o/ -> ,Ax(B + others | /<> | s/ -> ,A_(B ?/ -> ,A?(B !/ -> ,A!(B << -> ,A+(B >> -> ,A;(B + +It would be natural to use comma for cedillas, but that would be +inconvenient in practice because commas are needed very often after a +letter. + +Doubling the postfix separates the letter and postfix: e.g. a'' -> a' +" nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("A`" ?,A@(B) + ("A'" ?,AA(B) + ("A^" ?,AB(B) + ("A~" ?,AC(B) + ("A\"" ?,AD(B) + ("A/" ?,AE(B) + ("a`" ?,A`(B) + ("a'" ?,Aa(B) + ("a^" ?,Ab(B) + ("a~" ?,Ac(B) + ("a\"" ?,Ad(B) + ("a/" ?,Ae(B) + ("E`" ?,AH(B) + ("E'" ?,AI(B) + ("E^" ?,AJ(B) + ("E\"" ?,AK(B) + ("E/" ?,AF(B) + ("e`" ?,Ah(B) + ("e'" ?,Ai(B) + ("e^" ?,Aj(B) + ("e\"" ?,Ak(B) + ("e/" ?,Af(B) + ("I`" ?,AL(B) + ("i`" ?,Al(B) + ("I'" ?,AM(B) + ("i'" ?,Am(B) + ("I^" ?,AN(B) + ("i^" ?,An(B) + ("I\"" ?,AO(B) + ("i\"" ?,Ao(B) + ("O`" ?,AR(B) + ("o`" ?,Ar(B) + ("O'" ?,AS(B) + ("o'" ?,As(B) + ("O^" ?,AT(B) + ("o^" ?,At(B) + ("O~" ?,AU(B) + ("o~" ?,Au(B) + ("O\"" ?,AV(B) + ("o\"" ?,Av(B) + ("O/" ?,AX(B) + ("o/" ?,Ax(B) + ("U`" ?,AY(B) + ("u`" ?,Ay(B) + ("U'" ?,AZ(B) + ("u'" ?,Az(B) + ("U^" ?,A[(B) + ("u^" ?,A{(B) + ("U\"" ?,A\(B) + ("u\"" ?,A|(B) + ("Y'" ?,A](B) + ("y'" ?,A}(B) + ("y\"" ?,A(B) + ("D/" ?,AP(B) + ("d/" ?,Ap(B) + ("T/" ?,A^(B) + ("t/" ?,A~(B) + ("s/" ?,A_(B) + ("C/" ?,AG(B) + ("c/" ?,Ag(B) + ("N~" ?,AQ(B) + ("n~" ?,Aq(B) + ("?/" ?,A?(B) + ("!/" ?,A!(B) + ("<<" ?,A+(B) + (">>" ?,A;(B) + + ("A``" ["A`"]) + ("A''" ["A'"]) + ("A^^" ["A^"]) + ("A~~" ["A~"]) + ("A\"\"" ["A\""]) + ("A//" ["A/"]) + ("a``" ["a`"]) + ("a''" ["a'"]) + ("a^^" ["a^"]) + ("a~~" ["a~"]) + ("a\"\"" ["a\""]) + ("a//" ["a/"]) + ("E``" ["E`"]) + ("E''" ["E'"]) + ("E^^" ["E^"]) + ("E\"\"" ["E\""]) + ("E//" ["E/"]) + ("e``" ["e`"]) + ("e''" ["e'"]) + ("e^^" ["e^"]) + ("e\"\"" ["e\""]) + ("e//" ["e/"]) + ("I``" ["I`"]) + ("i``" ["i`"]) + ("I''" ["I'"]) + ("i''" ["i'"]) + ("I^^" ["I^"]) + ("i^^" ["i^"]) + ("I\"\"" ["I\""]) + ("i\"\"" ["i\""]) + ("O``" ["O`"]) + ("o``" ["o`"]) + ("O''" ["O'"]) + ("o''" ["o'"]) + ("O^^" ["O^"]) + ("o^^" ["o^"]) + ("O~~" ["O~"]) + ("o~~" ["o~"]) + ("O\"\"" ["O\""]) + ("o\"\"" ["o\""]) + ("O//" ["O/"]) + ("o//" ["o/"]) + ("U``" ["U`"]) + ("u``" ["u`"]) + ("U''" ["U'"]) + ("u''" ["u'"]) + ("U^^" ["U^"]) + ("u^^" ["u^"]) + ("U\"\"" ["U\""]) + ("u\"\"" ["u\""]) + ("Y''" ["Y'"]) + ("y''" ["y'"]) + ("y\"\"" ["y\""]) + ("D//" ["D/"]) + ("d//" ["d/"]) + ("T//" ["T/"]) + ("t//" ["t/"]) + ("s//" ["s/"]) + ("C//" ["C/"]) + ("c//" ["c/"]) + ("N~~" ["N~"]) + ("n~~" ["n~"]) + ("?//" ["?/"]) + ("!//" ["!/"]) + ("<<<" ["<<"]) + (">>>" [">>"]) + ) + +(quail-define-package + "latin-2-alt-postfix" "Latin-2" "2<" t + "Latin-2 character input method with postfix modifiers + + | postfix | examples + ------------+---------+---------- + acute | ' | a' -> ,Ba(B + ogonek | ` | a` -> ,B1(B + diaeresis | \" | a\" -> ,Bd(B + circumflex | ^ | a^ -> ,Bb(B + breve | ~ | a~ -> ,Bc(B + cedilla | ` | c` -> ,Bg(B + caron | ~ | c~ -> ,Bh(B + dbl. acute | \" | o\" -> ,Bu(B + ring | ` | u` -> ,By(B + dot | ` | z` -> ,B?(B + stroke | / | d/ -> ,Bp(B + others | / | s/ -> ,B_(B + +It would be natural to use period and comma for dots/rings and +cedillas/ogoneks, but that would inconvenient in practice, because +periods and commas are needed very often after a letter. + +Doubling the postfix separates the letter and postfix: e.g. a'' -> a' +" nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("A'" ?,BA(B) + ("A`" ?,B!(B) + ("A\"" ?,BD(B) + ("A^" ?,BB(B) + ("A~" ?,BC(B) + ("C'" ?,BF(B) + ("C`" ?,BG(B) + ("C~" ?,BH(B) + ("D/" ?,BP(B) + ("D~" ?,BO(B) + ("E'" ?,BI(B) + ("E`" ?,BJ(B) + ("E\"" ?,BK(B) + ("E~" ?,BL(B) + ("I'" ?,BM(B) + ("I^" ?,BN(B) + ("L'" ?,BE(B) + ("L/" ?,B#(B) + ("L~" ?,B%(B) + ("N'" ?,BQ(B) + ("N~" ?,BR(B) + ("O'" ?,BS(B) + ("O\"" ?,BU(B) + ("O\"" ?,BV(B) + ("O^" ?,BT(B) + ("R'" ?,B@(B) + ("R~" ?,BX(B) + ("S'" ?,B&(B) + ("S`" ?,B*(B) + ("S~" ?,B)(B) + ("T`" ?,B^(B) + ("T~" ?,B+(B) + ("U'" ?,BZ(B) + ("U\"" ?,B[(B) + ("U\"" ?,B\(B) + ("U`" ?,BY(B) + ("Y'" ?,B](B) + ("Z'" ?,B,(B) + ("Z`" ?,B/(B) + ("Z~" ?,B.(B) + ("a'" ?,Ba(B) + ("a`" ?,B1(B) + ("a\"" ?,Bd(B) + ("a^" ?,Bb(B) + ("a~" ?,Bc(B) + ("c'" ?,Bf(B) + ("c`" ?,Bg(B) + ("c~" ?,Bh(B) + ("d/" ?,Bp(B) + ("d~" ?,Bo(B) + ("e'" ?,Bi(B) + ("e`" ?,Bj(B) + ("e\"" ?,Bk(B) + ("e~" ?,Bl(B) + ("i'" ?,Bm(B) + ("i^" ?,Bn(B) + ("l'" ?,Be(B) + ("l/" ?,B3(B) + ("l~" ?,B5(B) + ("n'" ?,Bq(B) + ("n~" ?,Br(B) + ("o'" ?,Bs(B) + ("o\"" ?,Bu(B) + ("o\"" ?,Bv(B) + ("o^" ?,Bt(B) + ("r'" ?,B`(B) + ("r~" ?,Bx(B) + ("s'" ?,B6(B) + ("s`" ?,B:(B) + ("s/" ?,B_(B) + ("s~" ?,B9(B) + ("t`" ?,B~(B) + ("t~" ?,B;(B) + ("u'" ?,Bz(B) + ("u\"" ?,B{(B) + ("u\"" ?,B|(B) + ("u`" ?,By(B) + ("y'" ?,B}(B) + ("z'" ?,B<(B) + ("z`" ?,B?(B) + ("z~" ?,B>(B) + + ("A''" ["A'"]) + ("A``" ["A`"]) + ("A\"\"" ["A\""]) + ("A^^" ["A^"]) + ("A~~" ["A~"]) + ("C''" ["C'"]) + ("C``" ["C`"]) + ("C~~" ["C~"]) + ("D//" ["D/"]) + ("D~~" ["D~"]) + ("E''" ["E'"]) + ("E``" ["E`"]) + ("E\"\"" ["E\""]) + ("E~~" ["E~"]) + ("I''" ["I'"]) + ("I^^" ["I^"]) + ("L''" ["L'"]) + ("L//" ["L/"]) + ("L~~" ["L~"]) + ("N''" ["N'"]) + ("N~~" ["N~"]) + ("O''" ["O'"]) + ("O::" ["O:"]) + ("O\"\"" ["O\""]) + ("O^^" ["O^"]) + ("R''" ["R'"]) + ("R~~" ["R~"]) + ("S''" ["S'"]) + ("S``" ["S`"]) + ("S~~" ["S~"]) + ("T``" ["T`"]) + ("T~~" ["T~"]) + ("U''" ["U'"]) + ("U::" ["U:"]) + ("U\"\"" ["U\""]) + ("U``" ["U`"]) + ("Y''" ["Y'"]) + ("Z''" ["Z'"]) + ("Z``" ["Z`"]) + ("Z~~" ["Z~"]) + ("a''" ["a'"]) + ("a``" ["a`"]) + ("a\"\"" ["a\""]) + ("a^^" ["a^"]) + ("a~~" ["a~"]) + ("c''" ["c'"]) + ("c``" ["c`"]) + ("c~~" ["c~"]) + ("d//" ["d/"]) + ("d~~" ["d~"]) + ("e''" ["e'"]) + ("e``" ["e`"]) + ("e\"\"" ["e\""]) + ("e~~" ["e~"]) + ("i''" ["i'"]) + ("i^^" ["i^"]) + ("l''" ["l'"]) + ("l//" ["l/"]) + ("l~~" ["l~"]) + ("n''" ["n'"]) + ("n~~" ["n~"]) + ("o''" ["o'"]) + ("o::" ["o:"]) + ("o\"\"" ["o\""]) + ("o^^" ["o^"]) + ("r''" ["r'"]) + ("r~~" ["r~"]) + ("s''" ["s'"]) + ("s``" ["s`"]) + ("s//" ["s/"]) + ("s~~" ["s~"]) + ("t``" ["t`"]) + ("t~~" ["t~"]) + ("u''" ["u'"]) + ("u::" ["u:"]) + ("u\"\"" ["u\""]) + ("u``" ["u`"]) + ("y''" ["y'"]) + ("z''" ["z'"]) + ("z``" ["z`"]) + ("z~~" ["z~"]) + ) + +(quail-define-package + "latin-3-alt-postfix" "Latin-3" "3<" t + "Latin-3 character input method with postfix modifiers + + | postfix | examples + ------------+---------+---------- + acute | ' | a' -> ,Ca(B + grave | ` | a` -> ,C`(B + circumflex | ^ | a^ -> ,Cb(B + diaeresis | \" | a\" -> ,Cd(B + dot | / | c/ -> ,Ce(B i/ -> ,C9(B I/ -> ,C)(B + cedilla | ` | c` -> ,Cg(B + breve | ~ | g~ -> ,C;(B + tilde | ~ | n~ -> ,Cq(B + stroke | / | h/ -> ,C1(B + others | / | s/ -> ,C_(B + +It would be natural to use period and comma for dots and cedillas, but +that would inconvenient in practice, because periods and commas are +needed very often after a letter. + +Doubling the postfix separates the letter and postfix: e.g. a'' -> a' +" nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("A`" ?,C@(B) + ("A'" ?,CA(B) + ("A^" ?,CB(B) + ("A\"" ?,CD(B) + ("C/" ?,CE(B) + ("C^" ?,CF(B) + ("C`" ?,CG(B) + ("E`" ?,CH(B) + ("E'" ?,CI(B) + ("E^" ?,CJ(B) + ("E\"" ?,CK(B) + ("G~" ?,C+(B) + ("G/" ?,CU(B) + ("G^" ?,CX(B) + ("H/" ?,C!(B) + ("H^" ?,C&(B) + ("I/" ?,C)(B) + ("I`" ?,CL(B) + ("I'" ?,CM(B) + ("I^" ?,CN(B) + ("I\"" ?,CO(B) + ("J^" ?,C,(B) + ("N~" ?,CQ(B) + ("O`" ?,CR(B) + ("O'" ?,CS(B) + ("O^" ?,CT(B) + ("O\"" ?,CV(B) + ("S`" ?,C*(B) + ("S^" ?,C^(B) + ("U`" ?,CY(B) + ("U'" ?,CZ(B) + ("U^" ?,C[(B) + ("U\"" ?,C\(B) + ("U~" ?,C](B) + ("Z/" ?,C/(B) + ("a`" ?,C`(B) + ("a'" ?,Ca(B) + ("a^" ?,Cb(B) + ("a\"" ?,Cd(B) + ("c/" ?,Ce(B) + ("c^" ?,Cf(B) + ("c`" ?,Cg(B) + ("e`" ?,Ch(B) + ("e'" ?,Ci(B) + ("e^" ?,Cj(B) + ("e\"" ?,Ck(B) + ("g~" ?,C;(B) + ("g/" ?,Cu(B) + ("g^" ?,Cx(B) + ("h/" ?,C1(B) + ("h^" ?,C6(B) + ("i/" ?,C9(B) + ("i`" ?,Cl(B) + ("i'" ?,Cm(B) + ("i^" ?,Cn(B) + ("i\"" ?,Co(B) + ("j^" ?,C<(B) + ("n~" ?,Cq(B) + ("o`" ?,Cr(B) + ("o'" ?,Cs(B) + ("o^" ?,Ct(B) + ("o\"" ?,Cv(B) + ("s`" ?,C:(B) + ("s/" ?,C_(B) + ("s^" ?,C~(B) + ("u`" ?,Cy(B) + ("u'" ?,Cz(B) + ("u^" ?,C{(B) + ("u\"" ?,C|(B) + ("u~" ?,C}(B) + ("z/" ?,C?(B) + + ("A``" ["A`"]) + ("A''" ["A'"]) + ("A^^" ["A^"]) + ("A\"\"" ["A\""]) + ("C//" ["C/"]) + ("C^^" ["C^"]) + ("C``" ["C`"]) + ("E``" ["E`"]) + ("E''" ["E'"]) + ("E^^" ["E^"]) + ("E\"\"" ["E\""]) + ("G~~" ["G~"]) + ("G//" ["G/"]) + ("G^^" ["G^"]) + ("H//" ["H/"]) + ("H^^" ["H^"]) + ("I//" ["I/"]) + ("I``" ["I`"]) + ("I''" ["I'"]) + ("I^^" ["I^"]) + ("I\"\"" ["I\""]) + ("J^^" ["J^"]) + ("N~~" ["N~"]) + ("O``" ["O`"]) + ("O''" ["O'"]) + ("O^^" ["O^"]) + ("O\"\"" ["O\""]) + ("S``" ["S`"]) + ("S^^" ["S^"]) + ("U``" ["U`"]) + ("U''" ["U'"]) + ("U^^" ["U^"]) + ("U\"\"" ["U\""]) + ("U~~" ["U~"]) + ("Z//" ["Z/"]) + ("a``" ["a`"]) + ("a''" ["a'"]) + ("a^^" ["a^"]) + ("a\"\"" ["a\""]) + ("c//" ["c/"]) + ("c^^" ["c^"]) + ("c``" ["c`"]) + ("e``" ["e`"]) + ("e''" ["e'"]) + ("e^^" ["e^"]) + ("e\"\"" ["e\""]) + ("g~~" ["g~"]) + ("g//" ["g/"]) + ("g^^" ["g^"]) + ("h//" ["h/"]) + ("h^^" ["h^"]) + ("i//" ["i/"]) + ("i``" ["i`"]) + ("i''" ["i'"]) + ("i^^" ["i^"]) + ("i\"\"" ["i\""]) + ("j^^" ["j^"]) + ("n~~" ["n~"]) + ("o``" ["o`"]) + ("o''" ["o'"]) + ("o^^" ["o^"]) + ("o\"\"" ["o\""]) + ("s``" ["s`"]) + ("s//" ["s/"]) + ("s^^" ["s^"]) + ("u``" ["u`"]) + ("u''" ["u'"]) + ("u^^" ["u^"]) + ("u\"\"" ["u\""]) + ("u~~" ["u~"]) + ("z//" ["z/"]) + ) + +(quail-define-package + "latin-4-alt-postfix" "Latin-4" "4<" t + "Latin-4 characters input method with postfix modifiers + + | postfix | examples + ------------+---------+---------- + acute | ' | a' -> ,Da(B + circumflex | ^ | a^ -> ,Db(B + diaeresis | \" | a\" -> ,Dd(B + ogonek | ` | a` -> ,D1(B + macron | - | a- -> ,D`(B + tilde | ~ | a~ -> ,Dc(B + caron | ~ | c~ -> ,Dh(B + dot | ~ | e~ -> ,Dl(B + cedilla | ` | k` -> ,Ds(B g` -> ,D;(B + stroke | / | d/ -> ,Dp(B + nordic | / | a/ -> ,De(B e/ -> ,Df(B o/ -> ,Dx(B + others | / | s/ -> ,D_(B n/ -> ,D?(B k/ -> ,D"(B + +It would be natural to use period and comma for dots and +cedillas/ogoneks, but that would inconvenient in practice, because +periods and commas are needed very often after a letter. + +Doubling the postfix separates the letter and postfix: e.g. a'' -> a' +" nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("A`" ?,D!(B) + ("A-" ?,D@(B) + ("A'" ?,DA(B) + ("A^" ?,DB(B) + ("A~" ?,DC(B) + ("A\"" ?,DD(B) + ("A/" ?,DE(B) + ("C~" ?,DH(B) + ("D/" ?,DP(B) + ("E/" ?,DF(B) + ("E-" ?,D*(B) + ("E'" ?,DI(B) + ("E`" ?,DJ(B) + ("E\"" ?,DK(B) + ("E~" ?,DL(B) + ("G`" ?,D+(B) + ("I~" ?,D%(B) + ("I`" ?,DG(B) + ("I'" ?,DM(B) + ("I^" ?,DN(B) + ("I-" ?,DO(B) + ("K`" ?,DS(B) + ("L`" ?,D&(B) + ("N/" ?,D=(B) + ("N`" ?,DQ(B) + ("O-" ?,DR(B) + ("O^" ?,DT(B) + ("O~" ?,DU(B) + ("O\"" ?,DV(B) + ("O/" ?,DX(B) + ("R`" ?,D#(B) + ("S~" ?,D)(B) + ("T/" ?,D,(B) + ("U`" ?,DY(B) + ("U'" ?,DZ(B) + ("U^" ?,D[(B) + ("U\"" ?,D\(B) + ("U~" ?,D](B) + ("U-" ?,D^(B) + ("Z~" ?,D.(B) + ("a`" ?,D1(B) + ("a-" ?,D`(B) + ("a'" ?,Da(B) + ("a^" ?,Db(B) + ("a~" ?,Dc(B) + ("a\"" ?,Dd(B) + ("a/" ?,De(B) + ("c~" ?,Dh(B) + ("d/" ?,Dp(B) + ("e/" ?,Df(B) + ("e-" ?,D:(B) + ("e'" ?,Di(B) + ("e`" ?,Dj(B) + ("e\"" ?,Dk(B) + ("e~" ?,Dl(B) + ("g`" ?,D;(B) + ("i~" ?,D5(B) + ("i`" ?,Dg(B) + ("i'" ?,Dm(B) + ("i^" ?,Dn(B) + ("i-" ?,Do(B) + ("k/" ?,D"(B) + ("k`" ?,Ds(B) + ("l`" ?,D6(B) + ("n/" ?,D?(B) + ("n`" ?,Dq(B) + ("o-" ?,Dr(B) + ("o^" ?,Dt(B) + ("o~" ?,Du(B) + ("o\"" ?,Dv(B) + ("o/" ?,Dx(B) + ("r`" ?,D3(B) + ("s/" ?,D_(B) + ("s~" ?,D9(B) + ("t/" ?,D<(B) + ("u`" ?,Dy(B) + ("u'" ?,Dz(B) + ("u^" ?,D{(B) + ("u\"" ?,D|(B) + ("u~" ?,D}(B) + ("u-" ?,D~(B) + ("z~" ?,D>(B) + + ("A``" ["A`"]) + ("A--" ["A-"]) + ("A''" ["A'"]) + ("A^^" ["A^"]) + ("A~~" ["A~"]) + ("A\"\"" ["A\""]) + ("A//" ["A/"]) + ("C~~" ["C~"]) + ("D//" ["D/"]) + ("E//" ["E/"]) + ("E--" ["E-"]) + ("E''" ["E'"]) + ("E``" ["E`"]) + ("E\"\"" ["E\""]) + ("E~~" ["E~"]) + ("G``" ["G`"]) + ("I~~" ["I~"]) + ("I``" ["I`"]) + ("I''" ["I'"]) + ("I^^" ["I^"]) + ("I--" ["I-"]) + ("K``" ["K`"]) + ("L``" ["L`"]) + ("N//" ["N/"]) + ("N``" ["N`"]) + ("O--" ["O-"]) + ("O^^" ["O^"]) + ("O~~" ["O~"]) + ("O\"\"" ["O\""]) + ("O//" ["O/"]) + ("R``" ["R`"]) + ("S~~" ["S~"]) + ("T//" ["T/"]) + ("U``" ["U`"]) + ("U''" ["U'"]) + ("U^^" ["U^"]) + ("U\"\"" ["U\""]) + ("U~~" ["U~"]) + ("U--" ["U-"]) + ("Z~~" ["Z~"]) + ("a``" ["a`"]) + ("a--" ["a-"]) + ("a''" ["a'"]) + ("a^^" ["a^"]) + ("a~~" ["a~"]) + ("a\"\"" ["a\""]) + ("a//" ["a/"]) + ("c~~" ["c~"]) + ("d//" ["d/"]) + ("e//" ["e/"]) + ("e--" ["e-"]) + ("e''" ["e'"]) + ("e``" ["e`"]) + ("e\"\"" ["e\""]) + ("e~~" ["e~"]) + ("g``" ["g`"]) + ("i~~" ["i~"]) + ("i``" ["i`"]) + ("i''" ["i'"]) + ("i^^" ["i^"]) + ("i--" ["i-"]) + ("k//" ["k/"]) + ("k``" ["k`"]) + ("l``" ["l`"]) + ("n//" ["n/"]) + ("n``" ["n`"]) + ("o--" ["o-"]) + ("o^^" ["o^"]) + ("o~~" ["o~"]) + ("o\"\"" ["o\""]) + ("o//" ["o/"]) + ("r``" ["r`"]) + ("s//" ["s/"]) + ("s~~" ["s~"]) + ("t//" ["t/"]) + ("u``" ["u`"]) + ("u''" ["u'"]) + ("u^^" ["u^"]) + ("u\"\"" ["u\""]) + ("u~~" ["u~"]) + ("u--" ["u-"]) + ("z~~" ["z~"]) + ) + +(quail-define-package + "latin-5-alt-postfix" "Latin-5" "5<" t + "Latin-5 characters input method with postfix modifiers + + | postfix | examples + ------------+---------+---------- + acute | ' | a' -> ,Ma(B + grave | ` | a` -> ,M`(B + circumflex | ^ | a^ -> ,Mb(B + diaeresis | \" | a\" -> ,Md(B + tilde | ~ | a~ -> ,Mc(B + breve | ~ | g~ -> ,Mp(B + cedilla | ` | c` -> ,Mg(B + dot | / | i/ -> ,M}(B I/ -> ,M](B + nordic | / | a/ -> ,Me(B e/ -> ,Mf(B o/ -> ,Mx(B + others | / | s/ -> ,M_(B + +It would be natural to use period and comma for dots and cedillas, but +that would inconvenient in practice, because periods and commas are +needed very often after a letter. + +Doubling the postfix separates the letter and postfix: e.g. a'' -> a' +" nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("A'" ?,MA(B) + ("A/" ?,ME(B) + ("A\"" ?,MD(B) + ("A^" ?,MB(B) + ("A`" ?,M@(B) + ("A~" ?,MC(B) + ("C`" ?,MG(B) + ("E'" ?,MI(B) + ("E/" ?,MF(B) + ("E\"" ?,MK(B) + ("E^" ?,MJ(B) + ("E`" ?,MH(B) + ("G~" ?,MP(B) + ("I'" ?,MM(B) + ("I/" ?,M](B) + ("I\"" ?,MO(B) + ("I^" ?,MN(B) + ("I`" ?,ML(B) + ("N~" ?,MQ(B) + ("O'" ?,MS(B) + ("O/" ?,MX(B) + ("O\"" ?,MV(B) + ("O^" ?,MT(B) + ("O`" ?,MR(B) + ("O~" ?,MU(B) + ("S`" ?,M^(B) + ("U'" ?,MZ(B) + ("U\"" ?,M\(B) + ("U^" ?,M[(B) + ("U`" ?,MY(B) + ("a'" ?,Ma(B) + ("a/" ?,Me(B) + ("a\"" ?,Md(B) + ("a^" ?,Mb(B) + ("a`" ?,M`(B) + ("a~" ?,Mc(B) + ("c`" ?,Mg(B) + ("e'" ?,Mi(B) + ("e/" ?,Mf(B) + ("e\"" ?,Mk(B) + ("e^" ?,Mj(B) + ("e`" ?,Mh(B) + ("g~" ?,Mp(B) + ("i'" ?,Mm(B) + ("i/" ?,M}(B) + ("i\"" ?,Mo(B) + ("i^" ?,Mn(B) + ("i`" ?,Ml(B) + ("n~" ?,Mq(B) + ("o'" ?,Ms(B) + ("o/" ?,Mx(B) + ("o\"" ?,Mv(B) + ("o^" ?,Mt(B) + ("o`" ?,Mr(B) + ("o~" ?,Mu(B) + ("s`" ?,M~(B) + ("s/" ?,M_(B) + ("u'" ?,Mz(B) + ("u\"" ?,M|(B) + ("u^" ?,M{(B) + ("u`" ?,My(B) + ("y\"" ?,M(B) + + ("A''" ["A'"]) + ("A//" ["A/"]) + ("A\"\"" ["A\""]) + ("A^^" ["A^"]) + ("A``" ["A`"]) + ("A~~" ["A~"]) + ("C``" ["C`"]) + ("E''" ["E'"]) + ("E//" ["E/"]) + ("E\"\"" ["E\""]) + ("E^^" ["E^"]) + ("E``" ["E`"]) + ("G~~" ["G~"]) + ("I''" ["I'"]) + ("I//" ["I/"]) + ("I\"\"" ["I\""]) + ("I^^" ["I^"]) + ("I``" ["I`"]) + ("N~~" ["N~"]) + ("O''" ["O'"]) + ("O//" ["O/"]) + ("O\"\"" ["O\""]) + ("O^^" ["O^"]) + ("O``" ["O`"]) + ("O~~" ["O~"]) + ("S``" ["S`"]) + ("U''" ["U'"]) + ("U\"\"" ["U\""]) + ("U^^" ["U^"]) + ("U``" ["U`"]) + ("a''" ["a'"]) + ("a//" ["a/"]) + ("a\"\"" ["a\""]) + ("a^^" ["a^"]) + ("a``" ["a`"]) + ("a~~" ["a~"]) + ("c``" ["c`"]) + ("e''" ["e'"]) + ("e//" ["e/"]) + ("e\"\"" ["e\""]) + ("e^^" ["e^"]) + ("e``" ["e`"]) + ("g~~" ["g~"]) + ("i''" ["i'"]) + ("i//" ["i/"]) + ("i\"\"" ["i\""]) + ("i^^" ["i^"]) + ("i``" ["i`"]) + ("n~~" ["n~"]) + ("o''" ["o'"]) + ("o//" ["o/"]) + ("o\"\"" ["o\""]) + ("o^^" ["o^"]) + ("o``" ["o`"]) + ("o~~" ["o~"]) + ("s``" ["s`"]) + ("s//" ["s/"]) + ("u''" ["u'"]) + ("u\"\"" ["u\""]) + ("u^^" ["u^"]) + ("u``" ["u`"]) + ("y\"\"" ["y\""]) + ) + +(quail-define-package + "danish-alt-postfix" "Latin-1" "DA<" t + "Danish input method (rule: AE -> ,AF(B, OE -> ,AX(B, AA -> ,AE(B, E' -> ,AI(B) + +Doubling the postfix separates the letter and postfix: e.g. aee -> ae +" + nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("AE" ?,AF(B) + ("ae" ?,Af(B) + ("OE" ?,AX(B) + ("oe" ?,Ax(B) + ("AA" ?,AE(B) + ("aa" ?,Ae(B) + ("E'" ?,AI(B) + ("e'" ?,Ai(B) + + ("AEE" ["AE"]) + ("aee" ["ae"]) + ("OEE" ["OE"]) + ("oee" ["oe"]) + ("AAA" ["AA"]) + ("aaa" ["aa"]) + ("E''" ["E'"]) + ("e''" ["e'"]) + ) + +(quail-define-package + "esperanto-alt-postfix" "Latin-3" "EO<" t + "Esperanto input method with postfix modifiers + +A following ^ or x will produce an accented character, +e.g. c^ -> ,Cf(B, gx -> ,Cx(B, u^ -> ,C}(B. + +Doubling the postfix separates the letter and postfix, +e.g. a'' -> a'. +" nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("Cx" ?,CF(B) + ("C^" ?,CF(B) + ("cx" ?,Cf(B) + ("c^" ?,Cf(B) + ("Gx" ?,CX(B) + ("G^" ?,CX(B) + ("gx" ?,Cx(B) + ("g^" ?,Cx(B) + ("Hx" ?,C&(B) + ("H^" ?,C&(B) + ("hx" ?,C6(B) + ("h^" ?,C6(B) + ("Jx" ?,C,(B) + ("J^" ?,C,(B) + ("jx" ?,C<(B) + ("j^" ?,C<(B) + ("Sx" ?,C^(B) + ("S^" ?,C^(B) + ("sx" ?,C~(B) + ("s^" ?,C~(B) + ("Ux" ?,C](B) + ("U^" ?,C](B) + ("ux" ?,C}(B) + ("u^" ?,C}(B) + + ("Cxx" ["Cx"]) + ("C^^" ["C^"]) + ("cxx" ["cx"]) + ("c^^" ["c^"]) + ("Gxx" ["Gx"]) + ("G^^" ["G^"]) + ("gxx" ["gx"]) + ("g^^" ["g^"]) + ("Hxx" ["Hx"]) + ("H^^" ["H^"]) + ("hxx" ["hx"]) + ("h^^" ["h^"]) + ("Jxx" ["Jx"]) + ("J^^" ["J^"]) + ("jxx" ["jx"]) + ("j^^" ["j^"]) + ("Sxx" ["Sx"]) + ("S^^" ["S^"]) + ("sxx" ["sx"]) + ("s^^" ["s^"]) + ("Uxx" ["Ux"]) + ("U^^" ["U^"]) + ("uxx" ["ux"]) + ("u^^" ["u^"]) + ) + +(quail-define-package + "finnish-alt-postfix" "Latin-1" "FI<" t + "Finnish (Suomi) input method + +AE -> ,AD(B +AEE -> AE +OE -> ,AV(B +OEE -> OE +" + nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("AE" ?,AD(B) + ("ae" ?,Ad(B) + ("OE" ?,AV(B) + ("oe" ?,Av(B) + + ("AEE" ["AE"]) + ("aee" ["ae"]) + ("OEE" ["OE"]) + ("oee" ["oe"]) + ) + +(quail-define-package + "french-alt-postfix" "Latin-1" "FR<" t + "French (Fran,Ag(Bais) input method with postfix modifiers + +` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr,Ai(Bma. +Par exemple: a` -> ,A`(B, e' -> ,Ai(B. + +,AG(B, ,A+(B, et ,A;(B sont produits par C/, <<, et >>. + +En doublant la frappe des diacritiques, ils s'isoleront de la lettre. +Par exemple: e'' -> e' + +<e dans l'o> n'est pas disponible." + nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("A`" ?,A@(B) + ("A^" ?,AB(B) + ("a`" ?,A`(B) + ("a^" ?,Ab(B) + ("E`" ?,AH(B) + ("E'" ?,AI(B) + ("E^" ?,AJ(B) + ("E\"" ?,AK(B) + ("e`" ?,Ah(B) + ("e'" ?,Ai(B) + ("e^" ?,Aj(B) + ("e\"" ?,Ak(B) + ("I^" ?,AN(B) + ("I\"" ?,AO(B) + ("i^" ?,An(B) + ("i\"" ?,Ao(B) + ("O^" ?,AT(B) + ("o^" ?,At(B) + ("U`" ?,AY(B) + ("U^" ?,A[(B) + ("U\"" ?,A\(B) + ("u`" ?,Ay(B) + ("u^" ?,A{(B) + ("u\"" ?,A|(B) + ("C/" ?,AG(B) + ("c/" ?,Ag(B) + ("<<" ?,A+(B) + (">>" ?,A;(B) + + ("A``" ["A`"]) + ("A^^" ["A^"]) + ("a``" ["a`"]) + ("a^^" ["a^"]) + ("E``" ["E`"]) + ("E''" ["E'"]) + ("E^^" ["E^"]) + ("E\"\"" ["E\""]) + ("e``" ["e`"]) + ("e''" ["e'"]) + ("e^^" ["e^"]) + ("e\"\"" ["e\""]) + ("I^^" ["I^"]) + ("I\"\"" ["I\""]) + ("i^^" ["i^"]) + ("i\"\"" ["i\""]) + ("O^^" ["O^"]) + ("o^^" ["o^"]) + ("U``" ["U`"]) + ("U^^" ["U^"]) + ("U\"\"" ["U\""]) + ("u``" ["u`"]) + ("u^^" ["u^"]) + ("u\"\"" ["u\""]) + ("C//" ["C/"]) + ("c//" ["c/"]) + ("<<<" ["<<"]) + (">>>" [">>"]) + ) + +(quail-define-package + "german-alt-postfix" "Latin-1" "DE<" t + "German (Deutsch) input method + +ae -> ,Ad(B +aee -> ae +oe -> ,Av(B +oee -> oe +ue -> ,A|(B +uee -> ue +sz -> ,A_(B +szz -> sz +" + nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("AE" ?,AD(B) + ("ae" ?,Ad(B) + ("OE" ?,AV(B) + ("oe" ?,Av(B) + ("UE" ?,A\(B) + ("ue" ?,A|(B) + ("sz" ?,A_(B) + + ("AEE" ["AE"]) + ("aee" ["ae"]) + ("OEE" ["OE"]) + ("oee" ["oe"]) + ("UEE" ["UE"]) + ("uee" ["ue"]) + ("szz" ["sz"]) + ) + +(quail-define-package + "icelandic-alt-postfix" "Latin-1" "IS<" t + "Icelandic (,AM(Bslenska) input method with postfix modifiers + +A' -> ,AA(B +E' -> ,AI(B +I' -> ,AM(B +O' -> ,AS(B +U' -> ,AZ(B +Y' -> ,A](B +AE -> ,AF(B +OE -> ,AV(B +D/ -> ,AP(B (eth) +T/ -> ,A^(B (thorn) + +Doubling the postfix separates the letter and postfix: e.g. a'' -> a' +" nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("A'" ?,AA(B) + ("a'" ?,Aa(B) + ("E'" ?,AI(B) + ("e'" ?,Ai(B) + ("I'" ?,AM(B) + ("i'" ?,Am(B) + ("O'" ?,AS(B) + ("o'" ?,As(B) + ("U'" ?,AZ(B) + ("u'" ?,Az(B) + ("Y'" ?,A](B) + ("y'" ?,A}(B) + ("AE" ?,AF(B) + ("ae" ?,Af(B) + ("OE" ?,AV(B) + ("oe" ?,Av(B) + ("D/" ?,AP(B) + ("d/" ?,Ap(B) + ("T/" ?,A^(B) + ("t/" ?,A~(B) + + ("A''" ["A'"]) + ("a''" ["a'"]) + ("E''" ["E'"]) + ("e''" ["e'"]) + ("I''" ["I'"]) + ("i''" ["i'"]) + ("O''" ["O'"]) + ("o''" ["o'"]) + ("U''" ["U'"]) + ("u''" ["u'"]) + ("Y''" ["Y'"]) + ("y''" ["y'"]) + ("AEE" ["AE"]) + ("aee" ["ae"]) + ("OEE" ["OE"]) + ("oee" ["oe"]) + ("D//" ["D/"]) + ("d//" ["d/"]) + ("T//" ["T/"]) + ("t//" ["t/"]) + ) + +(quail-define-package + "italian-alt-postfix" "Latin-1" "IT<" t + "Italian (Italiano) input method with postfix modifiers + +A` -> ,A@(B +E` -> ,AH(B +I` -> ,AL(B +O` -> ,AR(B +U` -> ,AY(B + +Doubling the postfix separates the letter and postfix: e.g. a`` -> a` +" nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("A`" ?,A@(B) + ("a`" ?,A`(B) + ("E`" ?,AH(B) + ("e`" ?,Ah(B) + ("I`" ?,AL(B) + ("i`" ?,Al(B) + ("O`" ?,AR(B) + ("o`" ?,Ar(B) + ("U`" ?,AY(B) + ("u`" ?,Ay(B) + + ("A``" ["A`"]) + ("a``" ["a`"]) + ("E``" ["E`"]) + ("e``" ["e`"]) + ("I``" ["I`"]) + ("i``" ["i`"]) + ("O``" ["O`"]) + ("o``" ["o`"]) + ("U``" ["U`"]) + ("u``" ["u`"]) + ) + +(quail-define-package + "norwegian-alt-postfix" "Latin-1" "NO<" t + "Norwegian (Norsk) input method (rule: AE->,AF(B, OE->,AX(B, AA->,AE(B, E'->,AI(B) + +Doubling the postfix separates the letter and postfix: e.g. aee -> ae +" + nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("AE" ?,AF(B) + ("ae" ?,Af(B) + ("OE" ?,AX(B) + ("oe" ?,Ax(B) + ("AA" ?,AE(B) + ("aa" ?,Ae(B) + ("E'" ?,AI(B) + ("e'" ?,Ai(B) + + ("AEE" ["AE"]) + ("aee" ["ae"]) + ("OEE" ["OE"]) + ("oee" ["oe"]) + ("AAA" ["AA"]) + ("aaa" ["aa"]) + ("E''" ["E'"]) + ("e''" ["e'"]) + ) + +(quail-define-package + "scandinavian-alt-postfix" "Latin-1" "SC<" t + "Scandinavian input method with postfix modifiers +Supported languages are Swidish, Norwegian, Danish, and Finnish. + +ae -> ,Af(B +oe -> ,Ax(B +aa -> ,Ae(B +a\" -> ,Ad(B +o\" -> ,Av(B +e' -> ,Ai(B + +Doubling the postfix separates the letter and postfix: +aee -> ae, o\"\" -> o\", etc. +" nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("AE" ?,AF(B) + ("ae" ?,Af(B) + ("OE" ?,AX(B) + ("oe" ?,Ax(B) + ("AA" ?,AE(B) + ("aa" ?,Ae(B) + ("A\"" ?,AD(B) + ("a\"" ?,Ad(B) + ("O\"" ?,AV(B) + ("o\"" ?,Av(B) + ("E'" ?,AI(B) + ("e'" ?,Ai(B) + + ("AEE" ["AE"]) + ("aee" ["ae"]) + ("OEE" ["OE"]) + ("oee" ["oe"]) + ("AAA" ["AA"]) + ("aaa" ["aa"]) + ("A\"\"" ["A\""]) + ("a\"\"" ["a\""]) + ("O\"\"" ["O\""]) + ("o\"\"" ["o\""]) + ("E''" ["E'"]) + ("e''" ["e'"]) + ) + +(quail-define-package + "spanish-alt-postfix" "Latin-1" "ES<" t + "Spanish (Espa,Aq(Bol) input method with postfix modifiers + +A' -> ,AA(B +E' -> ,AI(B +I' -> ,AM(B +O' -> ,AS(B +U' -> ,AZ(B +N~ -> ,AQ(B +!/ -> ,A!(B +?/ -> ,A?(B + +Doubling the postfix separates the letter and postfix: +a'' -> a', n~~ -> n~, etc. +" nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("A'" ?,AA(B) + ("a'" ?,Aa(B) + ("E'" ?,AI(B) + ("e'" ?,Ai(B) + ("I'" ?,AM(B) + ("i'" ?,Am(B) + ("O'" ?,AS(B) + ("o'" ?,As(B) + ("U'" ?,AZ(B) + ("u'" ?,Az(B) + ("N~" ?,AQ(B) + ("n~" ?,Aq(B) + ("?/" ?,A?(B) + ("!/" ?,A!(B) + + ("A''" ["A'"]) + ("a''" ["a'"]) + ("E''" ["E'"]) + ("e''" ["e'"]) + ("I''" ["I'"]) + ("i''" ["i'"]) + ("O''" ["O'"]) + ("o''" ["o'"]) + ("U''" ["U'"]) + ("u''" ["u'"]) + ("N~~" ["N~"]) + ("n~~" ["n~"]) + ("?//" ["?/"]) + ("!//" ["!/"]) + ) + +(quail-define-package + "swedish-alt-postfix" "Latin-1" "SV<" t + "Swedish (Svenska) input method (rule: AA -> ,AE(B, AE -> ,AD(B, OE -> ,AV(B, E' -> ,AI(B) + +Doubling the postfix separates the letter and postfix: e.g. aee -> ae +" nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("AA" ?,AE(B) + ("aa" ?,Ae(B) + ("AE" ?,AD(B) + ("ae" ?,Ad(B) + ("OE" ?,AV(B) + ("oe" ?,Av(B) + ("E'" ?,AI(B) + ("e'" ?,Ai(B) + + ("AAA" ["AA"]) + ("aaa" ["aa"]) + ("AEE" ["AE"]) + ("aee" ["ae"]) + ("OEE" ["OE"]) + ("oee" ["oe"]) + ("E''" ["E'"]) + ("e''" ["e'"]) + ) + +(quail-define-package + "turkish-alt-postfix" "Latin-3" "TR<" t + "Turkish (T,C|(Brk,Cg(Be) input method with postfix modifiers + +Note for I, ,C9(B, ,C)(B, i. + +A^ -> ,CB(B +C` -> ,CG(B +G^ -> ,C+(B +I -> I +i -> ,C9(B +I/ -> ,C)(B +i/ -> i +O\" -> ,CV(B +S` -> ,C*(B +U\" -> ,C\(B +U^ -> ,C[(B + +Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^ +" nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("A^" ?,CB(B) + ("a^" ?,Cb(B) + ("C`" ?,CG(B) + ("c`" ?,Cg(B) + ("G^" ?,C+(B) + ("g^" ?,C;(B) + ("I/" ?,C)(B) + ("i" ?,C9(B) + ("i/" ?i) + ("O\"" ?,CV(B) + ("o\"" ?,Cv(B) + ("S`" ?,C*(B) + ("s`" ?,C:(B) + ("U\"" ?,C\(B) + ("u\"" ?,C|(B) + ("U^" ?,C[(B) + ("u^" ?,C{(B) + + ("A^^" ["A^"]) + ("a^^" ["a^"]) + ("C``" ["C`"]) + ("c``" ["c`"]) + ("G^^" ["G^"]) + ("g^^" ["g^"]) + ("I//" ["I/"]) + ("i" ["i"]) + ("i//" ["i/"]) + ("O\"\"" ["O\""]) + ("o\"\"" ["o\""]) + ("S``" ["S`"]) + ("s``" ["s`"]) + ("U\"\"" ["U\""]) + ("u\"\"" ["u\""]) + ("U^^" ["U^"]) + ("u^^" ["u^"]) + )