("latin-prefix"): New.

1 files changed, 202 insertions, 0 deletions

diff --git a/leim/quail/latin-pre.el b/leim/quail/latin-pre.el
index 2fe5a7ce835..749fb18396d 100644
--- a/leim/quail/latin-pre.el
+++ b/leim/quail/latin-pre.el
@@ -980,4 +980,206 @@ For example, the character named `aogonek' is obtained by `/a'."
  ("^r" ?,_.(B)
  ("^c" ?,_)(B))
 
+(quail-define-package
+ "latin-prefix" "Latin" "L>" t
+ "Latin characters input method with prefix modifiers.
+This is the union of various input methods originally made for input
+of characters from a single Latin-N charset.
+
+    effect   | prefix | examples
+ ------------+--------+----------
+    acute    |   '    | 'a -> ,Aa(B, '' -> ,A4(B
+    grave    |   `    | `a -> ,A`(B
+  circumflex |   ^    | ^a -> ,Ab(B
+  diaeresis  |   \"    | \"a -> ,Ad(B  \"\" -> ,A((B
+    tilde    |   ~    | ~a -> ,Ac(B
+   cedilla   |   ~    | ~c -> ,Ag(B
+    breve    |   ~    | ~a -> $,1 #(B
+    caron    |   ~    | ~c -> $,1 -(B
+  dot above  | ~ / .  | ~o -> $,1 A(B   /o -> $,1 A(B   .o -> $,1 A(B
+    misc     | \" ~ /  | \"s -> ,A_(B  ~d -> ,Ap(B  ~t -> ,A~(B  /a -> ,Ae(B  /e -> ,Af(B  /o -> ,Ax(B
+   symbol    |   ~    | ~> -> ,A;(B  ~< -> ,A+(B  ~! -> ,A!(B  ~? -> ,A?(B  ~~ -> ,A8(B
+   symbol    |  _ /   | _o -> ,A:(B  _a -> ,A*(B  // -> ,A0(B  /\\ -> ,AW(B  _y -> ,A%(B
+   symbol    |   ^    | ^r -> ,A.(B  ^c -> ,A)(B  ^1 -> ,A9(B  ^2 -> ,A2(B  ^3 -> ,A3(B
+" nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("' " ?')
+ ("''" ?,A4(B)
+ ("'A" ?,AA(B)
+ ("'E" ?,AI(B)
+ ("'I" ?,AM(B)
+ ("'O" ?,AS(B)
+ ("'U" ?,AZ(B)
+ ("'W" ?$,1nb(B)
+ ("'Y" ?,A](B)
+ ("'a" ?,Aa(B)
+ ("'e" ?,Ai(B)
+ ("'i" ?,Am(B)
+ ("'o" ?,As(B)
+ ("'u" ?,Az(B)
+ ("'w" ?$,1nc(B)
+ ("'y" ?,A}(B)
+ (".B" ?$,1mB(B)
+ (".C" ?$,1 *(B)
+ (".D" ?$,1mJ(B)
+ (".F" ?$,1m^(B)
+ (".G" ?$,1 @(B)
+ (".I" ?$,1 P(B)
+ (".M" ?$,1n (B)
+ (".P" ?$,1n6(B)
+ (".S" ?$,1n@(B)
+ (".T" ?$,1nJ(B)
+ (".Z" ?$,1!;(B)
+ (".b" ?$,1mC(B)
+ (".c" ?$,1 +(B)
+ (".d" ?$,1mK(B)
+ (".f" ?$,1m_(B)
+ (".g" ?$,1 A(B)
+ (".m" ?$,1n!(B)
+ (".p" ?$,1n7(B)
+ (".s" ?$,1nA(B)
+ (".t" ?$,1nK(B)
+ (".z" ?$,1!<(B)
+ ("/ " ?/)
+ ("/#" ?,A#(B)
+ ("/$" ?,A$(B)
+ ("/." ?$,1$y(B)
+ ("//" ?,A0(B)
+ ("/2" ?,A=(B)
+ ("/3" ?,A>(B)
+ ("/4" ?,A<(B)
+ ("/=" ?,A,(B)
+ ("/A" ?,AE(B)
+ ("/C" ?$,1 *(B)
+ ("/E" ?,AF(B)
+ ("/G" ?$,1 @(B)
+ ("/H" ?$,1 F(B)
+ ("/I" ?$,1 P(B)
+ ("/O" ?,AX(B)
+ ("/O" ?$,1 r(B)
+ ("/Z" ?$,1!;(B)
+ ("/\\" ?,AW(B)
+ ("/a" ?,Ae(B)
+ ("/c" ?,A"(B)
+ ("/c" ?$,1 +(B)
+ ("/e" ?,Af(B)
+ ("/g" ?$,1 A(B)
+ ("/h" ?$,1 G(B)
+ ("/i" ?$,1 Q(B)
+ ("/o" ?,Ax(B)
+ ("/o" ?$,1 s(B)
+ ("/z" ?$,1!<(B)
+ ("\" " ?\")
+ ("\"A" ?,AD(B)
+ ("\"E" ?,AK(B)
+ ("\"I" ?,AO(B)
+ ("\"O" ?,AV(B)
+ ("\"U" ?,A\(B)
+ ("\"W" ?$,1nd(B)
+ ("\"Y" ?$,1!8(B)
+ ("\"\"" ?,A((B)
+ ("\"a" ?,Ad(B)
+ ("\"e" ?,Ak(B)
+ ("\"i" ?,Ao(B)
+ ("\"o" ?,Av(B)
+ ("\"s" ?,A_(B)
+ ("\"u" ?,A|(B)
+ ("\"w" ?$,1ne(B)
+ ("\"y" ?,A(B)
+ ("^ " ?^)
+ ("^1" ?,A9(B)
+ ("^2" ?,A2(B)
+ ("^3" ?,A3(B)
+ ("^A" ?,AB(B)
+ ("^C" ?$,1 ((B)
+ ("^E" ?,AJ(B)
+ ("^G" ?$,1 <(B)
+ ("^H" ?$,1 D(B)
+ ("^I" ?,AN(B)
+ ("^J" ?$,1 T(B)
+ ("^O" ?,AT(B)
+ ("^S" ?$,1 |(B)
+ ("^U" ?,A[(B)
+ ("^W" ?$,1!4(B)
+ ("^Y" ?$,1!6(B)
+ ("^^" ?^)
+ ("^a" ?,Ab(B)
+ ("^c" ?,A)(B)
+ ("^c" ?$,1 )(B)
+ ("^e" ?,Aj(B)
+ ("^g" ?$,1 =(B)
+ ("^h" ?$,1 E(B)
+ ("^i" ?,An(B)
+ ("^j" ?$,1 U(B)
+ ("^o" ?,At(B)
+ ("^r" ?,A.(B)
+ ("^s" ?$,1 }(B)
+ ("^u" ?,A{(B)
+ ("^w" ?$,1!5(B)
+ ("^y" ?$,1!7(B)
+ ("_+" ?,A1(B)
+ ("_:" ?,Aw(B)
+ ("_a" ?,A*(B)
+ ("_o" ?,A:(B)
+ ("_y" ?,A%(B)
+ ("_ " ?,A (B)
+ ("` " ?`)
+ ("`A" ?,A@(B)
+ ("`E" ?,AH(B)
+ ("`I" ?,AL(B)
+ ("`O" ?,AR(B)
+ ("`U" ?,AY(B)
+ ("`W" ?$,1n`(B)
+ ("`Y" ?$,1or(B)
+ ("``" ?`)
+ ("`a" ?,A`(B)
+ ("`e" ?,Ah(B)
+ ("`i" ?,Al(B)
+ ("`o" ?,Ar(B)
+ ("`u" ?,Ay(B)
+ ("`w" ?$,1na(B)
+ ("`y" ?$,1os(B)
+ ("~ " ?~)
+ ("~!" ?,A!(B)
+ ("~$" ?,A#(B)
+ ("~-" ?,A-(B)
+ ("~." ?,A7(B)
+ ("~<" ?\,A+(B)
+ ("~=" ?,A/(B)
+ ("~>" ?\,A;(B)
+ ("~?" ?,A?(B)
+ ("~A" ?,AC(B)
+ ("~C" ?,AG(B)
+ ("~D" ?,AP(B)
+ ("~G" ?$,1 >(B)
+ ("~N" ?,AQ(B)
+ ("~O" ?,AU(B)
+ ("~O" ?$,1 @(B)
+ ("~S" ?$,1 ~(B)
+ ("~S" ?$,1! (B)
+ ("~T" ?,A^(B)
+ ("~U" ?$,1!,(B)
+ ("~Z" ?$,1!=(B)
+ ("~`" ?$,1$x(B)
+ ("~a" ?,Ac(B)
+ ("~c" ?,Ag(B)
+ ("~d" ?,Ap(B)
+ ("~e" ?$,1tL(B)
+ ("~g" ?$,1 ?(B)
+ ("~n" ?,Aq(B)
+ ("~o" ?,Au(B)
+ ("~o" ?$,1 A(B)
+ ("~p" ?,A6(B)
+ ("~s" ?,A'(B)
+ ("~s" ?$,1 (B)
+ ("~s" ?$,1!!(B)
+ ("~t" ?,A~(B)
+ ("~u" ?,A5(B)
+ ("~u" ?$,1!-(B)
+ ("~x" ?,A$(B)
+ ("~z" ?$,1!>(B)
+ ("~|" ?,A&(B)
+ ("~~" ?,A8(B)
+)
 ;;; latin-pre.el ends here