("latin-postfix"): New.

2 files changed, 398 insertions, 0 deletions

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 9e5623b46a0..6a812c2f7c7 100644
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,7 +1,12 @@
 2002-07-24  Dave Love  <fx@gnu.org>
 
+        * quail/latin-alt.el ("latin-alt-postfix"): New.
+
+        * quail/latin-post.el ("latin-postfix"): New.
+
         * quail/latin-pre.el ("latin-1-prefix"): Add nbsp.
         ("latin-3-prefix"): Doc fix.
+        ("latin-prefix"): New.
 
 2002-07-12  Dave Love  <fx@gnu.org>
 
diff --git a/leim/quail/latin-post.el b/leim/quail/latin-post.el
index 2542846b2ed..bca0cfa5d0f 100644
--- a/leim/quail/latin-post.el
+++ b/leim/quail/latin-post.el
@@ -2126,4 +2126,397 @@ Dead accent is right to ,Af(B." nil t t t t nil nil nil nil nil t)
  ("?" ?Z)
  )
 
+(quail-define-package
+ "latin-postfix" "Latin" "L<" t
+ "Latin character input method with postfix modifiers.
+This is the union of various input methods originally made for input
+of characters from a single Latin-N charset.
+
+             | 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
+  ogonek     |    ,    | a, -> $,1 %(B
+  breve      |    ~    | a~ -> $,1 #(B
+  caron      |    ~    | c~ -> $,1 -(B
+  dbl. acute |    :    | o: -> $,1 q(B
+  ring       |    .    | u. -> $,1!/(B
+  dot        |    .    | z. -> $,1!<(B
+  stroke     |    /    | d/ -> $,1 1(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   // -> ,A0(B
+             | various | << -> ,A+(B   >> -> ,A;(B   o_ -> ,A:(B   a_ -> ,A*(B
+
+Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
+" nil t nil nil nil nil nil nil nil nil t)
+
+;; Fixme: ,A&(B ,A'(B ,A((B ,A)(B ,A,(B ,A-(B ,A.(B ,A/(B ,A1(B ,A2(B ,A3(B ,A4(B ,A5(B ,A6(B ,A7(B ,A8(B ,A9(B ,A<(B ,A=(B ,A>(B ,AW(B ,Aw(B
+(quail-define-rules
+ (" _" ?,A (B)
+ ("!/" ?,A!(B)
+ ("//" ?,A0(B)
+ ("<<" ?\,A+(B)
+ (">>" ?\,A;(B)
+ ("?/" ?,A?(B)
+ ("$/" ?,A#(B)
+ ("$/" ?,A$(B)
+ ("A'" ?,AA(B)
+ ("A," ?$,1 $(B)
+ ("A-" ?$,1  (B)
+ ("A/" ?,AE(B)
+ ("A\"" ?,AD(B)
+ ("A^" ?,AB(B)
+ ("A`" ?,A@(B)
+ ("A~" ?,AC(B)
+ ("A~" ?$,1 "(B)
+ ("C'" ?$,1 &(B)
+ ("C," ?,AG(B)
+ ("C." ?$,1 *(B)
+ ("C^" ?$,1 ((B)
+ ("C~" ?$,1 ,(B)
+ ("D/" ?,AP(B)
+ ("D/" ?$,1 0(B)
+ ("D~" ?$,1 .(B)
+ ("E'" ?,AI(B)
+ ("E," ?$,1 8(B)
+ ("E-" ?$,1 2(B)
+ ("E." ?$,1 6(B)
+ ("E/" ?,AF(B)
+ ("E\"" ?,AK(B)
+ ("E^" ?,AJ(B)
+ ("E`" ?,AH(B)
+ ("E~" ?$,1 :(B)
+ ("G," ?$,1 B(B)
+ ("G." ?$,1 @(B)
+ ("G^" ?$,1 <(B)
+ ("G~" ?$,1 >(B)
+ ("H/" ?$,1 F(B)
+ ("H^" ?$,1 D(B)
+ ("I'" ?,AM(B)
+ ("I," ?$,1 N(B)
+ ("I-" ?$,1 J(B)
+ ("I." ?$,1 P(B)
+ ("I\"" ?,AO(B)
+ ("I^" ?,AN(B)
+ ("I`" ?,AL(B)
+ ("I~" ?$,1 H(B)
+ ("J^" ?$,1 T(B)
+ ("K," ?$,1 V(B)
+ ("L'" ?$,1 Y(B)
+ ("L," ?$,1 [(B)
+ ("L/" ?$,1 a(B)
+ ("L~" ?$,1 ](B)
+ ("N'" ?$,1 c(B)
+ ("N," ?$,1 e(B)
+ ("N/" ?$,1 j(B)
+ ("N~" ?,AQ(B)
+ ("N~" ?$,1 g(B)
+ ("O'" ?,AS(B)
+ ("O-" ?$,1 l(B)
+ ("O/" ?,AX(B)
+ ("O/" ?$,1 r(B)
+ ("O:" ?$,1 p(B)
+ ("O\"" ?,AV(B)
+ ("O^" ?,AT(B)
+ ("O`" ?,AR(B)
+ ("O~" ?,AU(B)
+ ("R'" ?$,1 t(B)
+ ("R," ?$,1 v(B)
+ ("R~" ?$,1 x(B)
+ ("S'" ?$,1 z(B)
+ ("S," ?$,1 ~(B)
+ ("S^" ?$,1 |(B)
+ ("S~" ?$,1! (B)
+ ("T," ?$,1!"(B)
+ ("T/" ?,A^(B)
+ ("T/" ?$,1!&(B)
+ ("T~" ?$,1!$(B)
+ ("U'" ?,AZ(B)
+ ("U," ?$,1!2(B)
+ ("U-" ?$,1!*(B)
+ ("U." ?$,1!.(B)
+ ("U:" ?$,1!0(B)
+ ("U\"" ?,A\(B)
+ ("U^" ?,A[(B)
+ ("U`" ?,AY(B)
+ ("U~" ?$,1!((B)
+ ("U~" ?$,1!,(B)
+ ("Y'" ?,A](B)
+ ("Y\"" ?$,1!8(B)
+ ("Y=" ?,A%(B)
+ ("Z'" ?$,1!9(B)
+ ("Z." ?$,1!;(B)
+ ("Z~" ?$,1!=(B)
+ ("a'" ?,Aa(B)
+ ("a," ?$,1 %(B)
+ ("a-" ?$,1 !(B)
+ ("a/" ?,Ae(B)
+ ("a\"" ?,Ad(B)
+ ("a^" ?,Ab(B)
+ ("a_" ?,A*(B)
+ ("a`" ?,A`(B)
+ ("a~" ?,Ac(B)
+ ("a~" ?$,1 #(B)
+ ("c'" ?$,1 '(B)
+ ("c," ?,Ag(B)
+ ("c." ?$,1 +(B)
+ ("c^" ?$,1 )(B)
+ ("c~" ?$,1 -(B)
+ ("c/" ?,A"(B)
+ ("d/" ?,Ap(B)
+ ("d/" ?$,1 1(B)
+ ("d~" ?$,1 /(B)
+ ("e'" ?,Ai(B)
+ ("e," ?$,1 9(B)
+ ("e-" ?$,1 3(B)
+ ("e." ?$,1 7(B)
+ ("e/" ?,Af(B)
+ ("e\"" ?,Ak(B)
+ ("e^" ?,Aj(B)
+ ("e`" ?,Ah(B)
+ ("e~" ?$,1 ;(B)
+ ("e=" ?$,1tL(B)
+ ("g," ?$,1 C(B)
+ ("g." ?$,1 A(B)
+ ("g^" ?$,1 =(B)
+ ("g~" ?$,1 ?(B)
+ ("h/" ?$,1 G(B)
+ ("h^" ?$,1 E(B)
+ ("i'" ?,Am(B)
+ ("i," ?$,1 O(B)
+ ("i-" ?$,1 K(B)
+ ("i." ?$,1 Q(B)
+ ("i\"" ?,Ao(B)
+ ("i^" ?,An(B)
+ ("i`" ?,Al(B)
+ ("i~" ?$,1 I(B)
+ ("j^" ?$,1 U(B)
+ ("k," ?$,1 W(B)
+ ("k/" ?$,1 X(B)
+ ("l'" ?$,1 Z(B)
+ ("l," ?$,1 \(B)
+ ("l/" ?$,1 b(B)
+ ("l~" ?$,1 ^(B)
+ ("n'" ?$,1 d(B)
+ ("n," ?$,1 f(B)
+ ("n/" ?$,1 k(B)
+ ("n~" ?,Aq(B)
+ ("n~" ?$,1 h(B)
+ ("o'" ?,As(B)
+ ("o-" ?$,1 m(B)
+ ("o/" ?,Ax(B)
+ ("o/" ?$,1 s(B)
+ ("o:" ?$,1 q(B)
+ ("o\"" ?,Av(B)
+ ("o^" ?,At(B)
+ ("o_" ?,A:(B)
+ ("o`" ?,Ar(B)
+ ("o~" ?,Au(B)
+ ("r'" ?$,1 u(B)
+ ("r," ?$,1 w(B)
+ ("r~" ?$,1 y(B)
+ ("s'" ?$,1 {(B)
+ ("s," ?$,1 (B)
+ ("s/" ?,A_(B)
+ ("s^" ?$,1 }(B)
+ ("s~" ?$,1!!(B)
+ ("t," ?$,1!#(B)
+ ("t/" ?,A~(B)
+ ("t/" ?$,1!'(B)
+ ("t~" ?$,1!%(B)
+ ("u'" ?,Az(B)
+ ("u," ?$,1!3(B)
+ ("u-" ?$,1!+(B)
+ ("u." ?$,1!/(B)
+ ("u:" ?$,1!1(B)
+ ("u\"" ?,A|(B)
+ ("u^" ?,A{(B)
+ ("u`" ?,Ay(B)
+ ("u~" ?$,1!)(B)
+ ("u~" ?$,1!-(B)
+ ("y'" ?,A}(B)
+ ("y\"" ?,A(B)
+ ("z'" ?$,1!:(B)
+ ("z." ?$,1!<(B)
+ ("z~" ?$,1!>(B)
+
+ ("!//" ["!/"])
+ ("///" ["//"])
+ ("<<<" ["<<"])
+ (">>>" [">>"])
+ ("?//" ["?/"])
+ ("$//" ["$/"])
+ ("A''" ["A'"])
+ ("A,," ["A,"])
+ ("A--" ["A-"])
+ ("A//" ["A/"])
+ ("A\"\"" ["A\""])
+ ("A^^" ["A^"])
+ ("A``" ["A`"])
+ ("A~~" ["A~"])
+ ("C''" ["C'"])
+ ("C,," ["C,"])
+ ("C.." ["C."])
+ ("C^^" ["C^"])
+ ("C~~" ["C~"])
+ ("D//" ["D/"])
+ ("D~~" ["D~"])
+ ("E''" ["E'"])
+ ("E,," ["E,"])
+ ("E--" ["E-"])
+ ("E.." ["E."])
+ ("E//" ["E/"])
+ ("E\"\"" ["E\""])
+ ("E^^" ["E^"])
+ ("E``" ["E`"])
+ ("E~~" ["E~"])
+ ("G,," ["G,"])
+ ("G.." ["G."])
+ ("G^^" ["G^"])
+ ("G~~" ["G~"])
+ ("H//" ["H/"])
+ ("H^^" ["H^"])
+ ("I''" ["I'"])
+ ("I,," ["I,"])
+ ("I--" ["I-"])
+ ("I.." ["I."])
+ ("I\"\"" ["I\""])
+ ("I^^" ["I^"])
+ ("I``" ["I`"])
+ ("I~~" ["I~"])
+ ("J^^" ["J^"])
+ ("K,," ["K,"])
+ ("L''" ["L'"])
+ ("L,," ["L,"])
+ ("L//" ["L/"])
+ ("L~~" ["L~"])
+ ("N''" ["N'"])
+ ("N,," ["N,"])
+ ("N//" ["N/"])
+ ("N~~" ["N~"])
+ ("O''" ["O'"])
+ ("O--" ["O-"])
+ ("O//" ["O/"])
+ ("O::" ["O:"])
+ ("O\"\"" ["O\""])
+ ("O^^" ["O^"])
+ ("O``" ["O`"])
+ ("O~~" ["O~"])
+ ("R''" ["R'"])
+ ("R,," ["R,"])
+ ("R~~" ["R~"])
+ ("S''" ["S'"])
+ ("S,," ["S,"])
+ ("S^^" ["S^"])
+ ("S~~" ["S~"])
+ ("T,," ["T,"])
+ ("T//" ["T/"])
+ ("T~~" ["T~"])
+ ("U''" ["U'"])
+ ("U,," ["U,"])
+ ("U--" ["U-"])
+ ("U.." ["U."])
+ ("U::" ["U:"])
+ ("U\"\"" ["U\""])
+ ("U^^" ["U^"])
+ ("U``" ["U`"])
+ ("U~~" ["U~"])
+ ("Y''" ["Y'"])
+ ("Y\"\"" ["Y\""])
+ ("Y==" ["Y="])
+ ("Z''" ["Z'"])
+ ("Z.." ["Z."])
+ ("Z~~" ["Z~"])
+ ("a''" ["a'"])
+ ("a,," ["a,"])
+ ("a--" ["a-"])
+ ("a//" ["a/"])
+ ("a\"\"" ["a\""])
+ ("a^^" ["a^"])
+ ("a__" ["a_"])
+ ("a``" ["a`"])
+ ("a~~" ["a~"])
+ ("c''" ["c'"])
+ ("c,," ["c,"])
+ ("c.." ["c."])
+ ("c^^" ["c^"])
+ ("c~~" ["c~"])
+ ("c//" ["c/"])
+ ("d//" ["d/"])
+ ("d~~" ["d~"])
+ ("e''" ["e'"])
+ ("e,," ["e,"])
+ ("e--" ["e-"])
+ ("e.." ["e."])
+ ("e//" ["e/"])
+ ("e\"\"" ["e\""])
+ ("e^^" ["e^"])
+ ("e``" ["e`"])
+ ("e==" ["e="])
+ ("e~~" ["e~"])
+ ("g,," ["g,"])
+ ("g.." ["g."])
+ ("g^^" ["g^"])
+ ("g~~" ["g~"])
+ ("h//" ["h/"])
+ ("h^^" ["h^"])
+ ("i''" ["i'"])
+ ("i,," ["i,"])
+ ("i--" ["i-"])
+ ("i.." ["i."])
+ ("i\"\"" ["i\""])
+ ("i^^" ["i^"])
+ ("i``" ["i`"])
+ ("i~~" ["i~"])
+ ("j^^" ["j^"])
+ ("k,," ["k,"])
+ ("k//" ["k/"])
+ ("l''" ["l'"])
+ ("l,," ["l,"])
+ ("l//" ["l/"])
+ ("l~~" ["l~"])
+ ("n''" ["n'"])
+ ("n,," ["n,"])
+ ("n//" ["n/"])
+ ("n~~" ["n~"])
+ ("o''" ["o'"])
+ ("o--" ["o-"])
+ ("o//" ["o/"])
+ ("o::" ["o:"])
+ ("o\"\"" ["o\""])
+ ("o^^" ["o^"])
+ ("o__" ["o_"])
+ ("o``" ["o`"])
+ ("o~~" ["o~"])
+ ("r''" ["r'"])
+ ("r,," ["r,"])
+ ("r~~" ["r~"])
+ ("s''" ["s'"])
+ ("s,," ["s,"])
+ ("s//" ["s/"])
+ ("s^^" ["s^"])
+ ("s~~" ["s~"])
+ ("t,," ["t,"])
+ ("t//" ["t/"])
+ ("t~~" ["t~"])
+ ("u''" ["u'"])
+ ("u,," ["u,"])
+ ("u--" ["u-"])
+ ("u.." ["u."])
+ ("u::" ["u:"])
+ ("u\"\"" ["u\""])
+ ("u^^" ["u^"])
+ ("u``" ["u`"])
+ ("u~~" ["u~"])
+ ("y''" ["y'"])
+ ("y\"\"" ["y\""])
+ ("z''" ["z'"])
+ ("z.." ["z."])
+ ("z~~" ["z~"])
+ )
+
 ;;; latin-post.el ends here