Mercurial > emacs
view leim/quail/latin-alt.el @ 20539:4eae32c75642
(command_loop_1): Use PT_BYTE when calling FETCH_BYTE.
Instead of Fforward_point, just add.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 01 Jan 1998 02:39:04 +0000 |
| parents | ba2ea2a6386a |
| children | 8b9dd332ccf1 |
line wrap: on
line source
;; 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^"]) )