2 |
|
|
3 |
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. |
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. |
4 |
;; Licensed to the Free Software Foundation. |
;; Licensed to the Free Software Foundation. |
5 |
;; Copyright (C) 2000 Free Software Foundation, Inc. |
;; Copyright (C) 2000, 2002 Free Software Foundation, Inc. |
6 |
|
|
7 |
;; Keywords: mule, multilingual, latin, input method |
;; Keywords: mule, multilingual, latin, input method |
8 |
|
|
26 |
;;; Commentary: |
;;; Commentary: |
27 |
|
|
28 |
;; Key translation maps were originally copied from iso-acc.el. |
;; Key translation maps were originally copied from iso-acc.el. |
29 |
;; latin-1-prefix: extra special characters added, adapted from the vim |
;; latin-1-prefix: extra special characters added, adapted from the vim |
30 |
;; digraphs (from J.H.M.Dassen <jdassen@wi.leidenuniv.nl>) |
;; digraphs (from J.H.M.Dassen <jdassen@wi.leidenuniv.nl>) |
31 |
;; by R.F. Smith <rsmith@xs4all.nl> |
;; by R.F. Smith <rsmith@xs4all.nl> |
32 |
;; |
;; |
36 |
;; |
;; |
37 |
;; latin-[89]-prefix: Dave Love <fx@gnu.org> |
;; latin-[89]-prefix: Dave Love <fx@gnu.org> |
38 |
|
|
39 |
|
;; You might make extra input sequences on the basis of the X |
40 |
|
;; locale/*/Compose files (which have both prefix and postfix |
41 |
|
;; sequences), but bear in mind that sequences which are logical in |
42 |
|
;; that context may not be sensible when they're not signalled with |
43 |
|
;; the Compose key. An example is a double space for NBSP. |
44 |
|
|
45 |
;;; Code: |
;;; Code: |
46 |
|
|
47 |
(require 'quail) |
(require 'quail) |
64 |
| ~ | ~p -> ,A6(B ~- -> ,A-(B ~= -> ,A/(B ~| -> ,A&(B |
| ~ | ~p -> ,A6(B ~- -> ,A-(B ~= -> ,A/(B ~| -> ,A&(B |
65 |
symbol | _ / | _o -> ,A:(B _a -> ,A*(B // -> ,A0(B /\\ -> ,AW(B _y -> ,A%(B |
symbol | _ / | _o -> ,A:(B _a -> ,A*(B // -> ,A0(B /\\ -> ,AW(B _y -> ,A%(B |
66 |
| _ / | _: -> ,Aw(B /c -> ,A"(B /2 -> ,A=(B /4 -> ,A<(B /3 -> ,A>(B |
| _ / | _: -> ,Aw(B /c -> ,A"(B /2 -> ,A=(B /4 -> ,A<(B /3 -> ,A>(B |
67 |
| _ / | /= => ,A,(B |
| _ / | /= -> ,A,(B |
68 |
symbol | ^ | ^r -> ,A.(B ^c -> ,A)(B ^1 -> ,A9(B ^2 -> ,A2(B ^3 -> ,A3(B |
symbol | ^ | ^r -> ,A.(B ^c -> ,A)(B ^1 -> ,A9(B ^2 -> ,A2(B ^3 -> ,A3(B |
69 |
" nil t nil nil nil nil nil nil nil nil t) |
" nil t nil nil nil nil nil nil nil nil t) |
70 |
|
|
|
;; Fixme: should we have non-break space somehow? If so, how? |
|
71 |
(quail-define-rules |
(quail-define-rules |
72 |
("'A" ?,AA(B) |
("'A" ?,AA(B) |
73 |
("'E" ?,AI(B) |
("'E" ?,AI(B) |
149 |
("/ " ?/) |
("/ " ?/) |
150 |
("_o" ?,A:(B) |
("_o" ?,A:(B) |
151 |
("_a" ?,A*(B) |
("_a" ?,A*(B) |
152 |
|
("_ " ?,A (B) |
153 |
;; Symbols added by Roland Smith <rsmith@xs4all.nl> |
;; Symbols added by Roland Smith <rsmith@xs4all.nl> |
154 |
("_+" ?,A1(B) |
("_+" ?,A1(B) |
155 |
("_y" ?,A%(B) |
("_y" ?,A%(B) |
595 |
circumflex | ^ | ^a -> ,Cb(B |
circumflex | ^ | ^a -> ,Cb(B |
596 |
diaeresis | \" | \"a -> ,Cd(B \"\" -> ,C((B |
diaeresis | \" | \"a -> ,Cd(B \"\" -> ,C((B |
597 |
cedilla | ~ | ~c -> ,Cg(B ~s -> ,C:(B ~~ -> ,C8(B |
cedilla | ~ | ~c -> ,Cg(B ~s -> ,C:(B ~~ -> ,C8(B |
598 |
dot above | ~ / . | ~o -> ,Cu(B /o -> ,Cu(B .o -> ,Cu(B |
dot above | / . | /g -> ,Cu(B .o -> ,Cu(B |
599 |
misc | \" ~ / | \"s -> ,C_(B ~g -> ,C;(B ~u -> ,C}(B /h -> ,C1(B /i -> ,C9(B |
misc | \" ~ / | \"s -> ,C_(B ~g -> ,C;(B ~u -> ,C}(B /h -> ,C1(B /i -> ,C9(B |
600 |
symbol | ~ | ~` -> ,C"(B /# -> ,C#(B /$ -> ,C$(B // -> ,C0(B |
symbol | ~ | ~` -> ,C"(B /# -> ,C#(B /$ -> ,C$(B // -> ,C0(B |
601 |
" nil t nil nil nil nil nil nil nil nil t) |
" nil t nil nil nil nil nil nil nil nil t) |
660 |
("\"s" ?,C_(B) |
("\"s" ?,C_(B) |
661 |
("\"\"" ?,C((B) |
("\"\"" ?,C((B) |
662 |
("\" " ?\") |
("\" " ?\") |
|
("~A" ?,CC(B) |
|
663 |
("~C" ?,CG(B) |
("~C" ?,CG(B) |
|
("~D" ?,CP(B) |
|
664 |
("~N" ?,CQ(B) |
("~N" ?,CQ(B) |
|
("~O" ?,CU(B) |
|
|
("~a" ?,Cc(B) |
|
665 |
("~c" ?,Cg(B) |
("~c" ?,Cg(B) |
|
("~d" ?,Cp(B) |
|
666 |
("~n" ?,Cq(B) |
("~n" ?,Cq(B) |
|
("~o" ?,Cu(B) |
|
|
("~$" ?,C%(B) |
|
667 |
("~S" ?,C*(B) |
("~S" ?,C*(B) |
668 |
("~s" ?,C:(B) |
("~s" ?,C:(B) |
669 |
("~G" ?,C+(B) |
("~G" ?,C+(B) |
683 |
("/h" ?,C1(B) |
("/h" ?,C1(B) |
684 |
("/i" ?,C9(B) |
("/i" ?,C9(B) |
685 |
("/z" ?,C?(B) |
("/z" ?,C?(B) |
|
("/r" ?,C.(B) |
|
686 |
("/." ?,C(B) |
("/." ?,C(B) |
687 |
("/#" ?,C#(B) |
("/#" ?,C#(B) |
688 |
("/$" ?,C$(B) |
("/$" ?,C$(B) |
710 |
("/e" ?,Bj(B) |
("/e" ?,Bj(B) |
711 |
("/l" ?,B3(B) |
("/l" ?,B3(B) |
712 |
("/n" ?,Bq(B) |
("/n" ?,Bq(B) |
713 |
("/o" ?,Bs(B) |
("/o" ?,Bs(B) |
714 |
("/s" ?,B6(B) |
("/s" ?,B6(B) |
715 |
("/x" ?,B<(B) |
("/x" ?,B<(B) |
716 |
("/z" ?,B?(B) |
("/z" ?,B?(B) |
719 |
("/E" ?,BJ(B) |
("/E" ?,BJ(B) |
720 |
("/L" ?,B#(B) |
("/L" ?,B#(B) |
721 |
("/N" ?,BQ(B) |
("/N" ?,BQ(B) |
722 |
("/O" ?,BS(B) |
("/O" ?,BS(B) |
723 |
("/S" ?,B&(B) |
("/S" ?,B&(B) |
724 |
("/X" ?,B,(B) |
("/X" ?,B,(B) |
725 |
("/Z" ?,B/(B)) |
("/Z" ?,B/(B)) |
875 |
symbol | ^ | ^r -> ,_.(B ^c -> ,_)(B |
symbol | ^ | ^r -> ,_.(B ^c -> ,_)(B |
876 |
" nil t nil nil nil nil nil nil nil nil t) |
" nil t nil nil nil nil nil nil nil nil t) |
877 |
|
|
878 |
;; Basically following Latin-1 plus dottiness from Latin-3. |
;; Basically following Latin-1, plus dottiness from Latin-3. |
879 |
(quail-define-rules |
(quail-define-rules |
880 |
(".B" ?,_!(B) |
(".B" ?,_!(B) |
881 |
(".b" ?,_"(B) |
(".b" ?,_"(B) |
980 |
("^r" ?,_.(B) |
("^r" ?,_.(B) |
981 |
("^c" ?,_)(B)) |
("^c" ?,_)(B)) |
982 |
|
|
983 |
|
(quail-define-package |
984 |
|
"latin-prefix" "Latin" "L>" t |
985 |
|
"Latin characters input method with prefix modifiers. |
986 |
|
This is the union of various input methods originally made for input |
987 |
|
of characters from a single Latin-N charset. |
988 |
|
|
989 |
|
effect | prefix | examples |
990 |
|
------------+--------+---------- |
991 |
|
acute | ' | 'a -> ,Aa(B, '' -> ,A4(B |
992 |
|
grave | ` | `a -> ,A`(B |
993 |
|
circumflex | ^ | ^a -> ,Ab(B |
994 |
|
diaeresis | \" | \"a -> ,Ad(B \"\" -> ,A((B |
995 |
|
tilde | ~ | ~a -> ,Ac(B |
996 |
|
cedilla | ~ | ~c -> ,Ag(B |
997 |
|
breve | ~ | ~a -> $,1 #(B |
998 |
|
caron | ~ | ~c -> $,1 -(B |
999 |
|
dot above | ~ / . | ~o -> $,1 A(B /o -> $,1 A(B .o -> $,1 A(B |
1000 |
|
misc | \" ~ / | \"s -> ,A_(B ~d -> ,Ap(B ~t -> ,A~(B /a -> ,Ae(B /e -> ,Af(B /o -> ,Ax(B |
1001 |
|
symbol | ~ | ~> -> ,A;(B ~< -> ,A+(B ~! -> ,A!(B ~? -> ,A?(B ~~ -> ,A8(B |
1002 |
|
symbol | _ / | _o -> ,A:(B _a -> ,A*(B // -> ,A0(B /\\ -> ,AW(B _y -> ,A%(B |
1003 |
|
symbol | ^ | ^r -> ,A.(B ^c -> ,A)(B ^1 -> ,A9(B ^2 -> ,A2(B ^3 -> ,A3(B |
1004 |
|
" nil t nil nil nil nil nil nil nil nil t) |
1005 |
|
|
1006 |
|
(quail-define-rules |
1007 |
|
("' " ?') |
1008 |
|
("''" ?,A4(B) |
1009 |
|
("'A" ?,AA(B) |
1010 |
|
("'E" ?,AI(B) |
1011 |
|
("'I" ?,AM(B) |
1012 |
|
("'O" ?,AS(B) |
1013 |
|
("'U" ?,AZ(B) |
1014 |
|
("'W" ?$,1nb(B) |
1015 |
|
("'Y" ?,A](B) |
1016 |
|
("'a" ?,Aa(B) |
1017 |
|
("'e" ?,Ai(B) |
1018 |
|
("'i" ?,Am(B) |
1019 |
|
("'o" ?,As(B) |
1020 |
|
("'u" ?,Az(B) |
1021 |
|
("'w" ?$,1nc(B) |
1022 |
|
("'y" ?,A}(B) |
1023 |
|
(".B" ?$,1mB(B) |
1024 |
|
(".C" ?$,1 *(B) |
1025 |
|
(".D" ?$,1mJ(B) |
1026 |
|
(".F" ?$,1m^(B) |
1027 |
|
(".G" ?$,1 @(B) |
1028 |
|
(".I" ?$,1 P(B) |
1029 |
|
(".M" ?$,1n (B) |
1030 |
|
(".P" ?$,1n6(B) |
1031 |
|
(".S" ?$,1n@(B) |
1032 |
|
(".T" ?$,1nJ(B) |
1033 |
|
(".Z" ?$,1!;(B) |
1034 |
|
(".b" ?$,1mC(B) |
1035 |
|
(".c" ?$,1 +(B) |
1036 |
|
(".d" ?$,1mK(B) |
1037 |
|
(".f" ?$,1m_(B) |
1038 |
|
(".g" ?$,1 A(B) |
1039 |
|
(".m" ?$,1n!(B) |
1040 |
|
(".p" ?$,1n7(B) |
1041 |
|
(".s" ?$,1nA(B) |
1042 |
|
(".t" ?$,1nK(B) |
1043 |
|
(".z" ?$,1!<(B) |
1044 |
|
("/ " ?/) |
1045 |
|
("/#" ?,A#(B) |
1046 |
|
("/$" ?,A$(B) |
1047 |
|
("/." ?$,1$y(B) |
1048 |
|
("//" ?,A0(B) |
1049 |
|
("/2" ?,A=(B) |
1050 |
|
("/3" ?,A>(B) |
1051 |
|
("/4" ?,A<(B) |
1052 |
|
("/=" ?,A,(B) |
1053 |
|
("/A" ?,AE(B) |
1054 |
|
("/C" ?$,1 *(B) |
1055 |
|
("/E" ?,AF(B) |
1056 |
|
("/G" ?$,1 @(B) |
1057 |
|
("/H" ?$,1 F(B) |
1058 |
|
("/I" ?$,1 P(B) |
1059 |
|
("/O" ?,AX(B) |
1060 |
|
("/O" ?$,1 r(B) |
1061 |
|
("/Z" ?$,1!;(B) |
1062 |
|
("/\\" ?,AW(B) |
1063 |
|
("/a" ?,Ae(B) |
1064 |
|
("/c" ?,A"(B) |
1065 |
|
("/c" ?$,1 +(B) |
1066 |
|
("/e" ?,Af(B) |
1067 |
|
("/g" ?$,1 A(B) |
1068 |
|
("/h" ?$,1 G(B) |
1069 |
|
("/i" ?$,1 Q(B) |
1070 |
|
("/o" ?,Ax(B) |
1071 |
|
("/o" ?$,1 s(B) |
1072 |
|
("/z" ?$,1!<(B) |
1073 |
|
("\" " ?\") |
1074 |
|
("\"A" ?,AD(B) |
1075 |
|
("\"E" ?,AK(B) |
1076 |
|
("\"I" ?,AO(B) |
1077 |
|
("\"O" ?,AV(B) |
1078 |
|
("\"U" ?,A\(B) |
1079 |
|
("\"W" ?$,1nd(B) |
1080 |
|
("\"Y" ?$,1!8(B) |
1081 |
|
("\"\"" ?,A((B) |
1082 |
|
("\"a" ?,Ad(B) |
1083 |
|
("\"e" ?,Ak(B) |
1084 |
|
("\"i" ?,Ao(B) |
1085 |
|
("\"o" ?,Av(B) |
1086 |
|
("\"s" ?,A_(B) |
1087 |
|
("\"u" ?,A|(B) |
1088 |
|
("\"w" ?$,1ne(B) |
1089 |
|
("\"y" ?,A(B) |
1090 |
|
("^ " ?^) |
1091 |
|
("^1" ?,A9(B) |
1092 |
|
("^2" ?,A2(B) |
1093 |
|
("^3" ?,A3(B) |
1094 |
|
("^A" ?,AB(B) |
1095 |
|
("^C" ?$,1 ((B) |
1096 |
|
("^E" ?,AJ(B) |
1097 |
|
("^G" ?$,1 <(B) |
1098 |
|
("^H" ?$,1 D(B) |
1099 |
|
("^I" ?,AN(B) |
1100 |
|
("^J" ?$,1 T(B) |
1101 |
|
("^O" ?,AT(B) |
1102 |
|
("^S" ?$,1 |(B) |
1103 |
|
("^U" ?,A[(B) |
1104 |
|
("^W" ?$,1!4(B) |
1105 |
|
("^Y" ?$,1!6(B) |
1106 |
|
("^^" ?^) |
1107 |
|
("^a" ?,Ab(B) |
1108 |
|
("^c" ?,A)(B) |
1109 |
|
("^c" ?$,1 )(B) |
1110 |
|
("^e" ?,Aj(B) |
1111 |
|
("^g" ?$,1 =(B) |
1112 |
|
("^h" ?$,1 E(B) |
1113 |
|
("^i" ?,An(B) |
1114 |
|
("^j" ?$,1 U(B) |
1115 |
|
("^o" ?,At(B) |
1116 |
|
("^r" ?,A.(B) |
1117 |
|
("^s" ?$,1 }(B) |
1118 |
|
("^u" ?,A{(B) |
1119 |
|
("^w" ?$,1!5(B) |
1120 |
|
("^y" ?$,1!7(B) |
1121 |
|
("_+" ?,A1(B) |
1122 |
|
("_:" ?,Aw(B) |
1123 |
|
("_a" ?,A*(B) |
1124 |
|
("_o" ?,A:(B) |
1125 |
|
("_y" ?,A%(B) |
1126 |
|
("_ " ?,A (B) |
1127 |
|
("` " ?`) |
1128 |
|
("`A" ?,A@(B) |
1129 |
|
("`E" ?,AH(B) |
1130 |
|
("`I" ?,AL(B) |
1131 |
|
("`O" ?,AR(B) |
1132 |
|
("`U" ?,AY(B) |
1133 |
|
("`W" ?$,1n`(B) |
1134 |
|
("`Y" ?$,1or(B) |
1135 |
|
("``" ?`) |
1136 |
|
("`a" ?,A`(B) |
1137 |
|
("`e" ?,Ah(B) |
1138 |
|
("`i" ?,Al(B) |
1139 |
|
("`o" ?,Ar(B) |
1140 |
|
("`u" ?,Ay(B) |
1141 |
|
("`w" ?$,1na(B) |
1142 |
|
("`y" ?$,1os(B) |
1143 |
|
("~ " ?~) |
1144 |
|
("~!" ?,A!(B) |
1145 |
|
("~$" ?,A#(B) |
1146 |
|
("~-" ?,A-(B) |
1147 |
|
("~." ?,A7(B) |
1148 |
|
("~<" ?\,A+(B) |
1149 |
|
("~=" ?,A/(B) |
1150 |
|
("~>" ?\,A;(B) |
1151 |
|
("~?" ?,A?(B) |
1152 |
|
("~A" ?,AC(B) |
1153 |
|
("~C" ?,AG(B) |
1154 |
|
("~D" ?,AP(B) |
1155 |
|
("~G" ?$,1 >(B) |
1156 |
|
("~N" ?,AQ(B) |
1157 |
|
("~O" ?,AU(B) |
1158 |
|
("~O" ?$,1 @(B) |
1159 |
|
("~S" ?$,1 ~(B) |
1160 |
|
("~S" ?$,1! (B) |
1161 |
|
("~T" ?,A^(B) |
1162 |
|
("~U" ?$,1!,(B) |
1163 |
|
("~Z" ?$,1!=(B) |
1164 |
|
("~`" ?$,1$x(B) |
1165 |
|
("~a" ?,Ac(B) |
1166 |
|
("~c" ?,Ag(B) |
1167 |
|
("~d" ?,Ap(B) |
1168 |
|
("~e" ?$,1tL(B) |
1169 |
|
("~g" ?$,1 ?(B) |
1170 |
|
("~n" ?,Aq(B) |
1171 |
|
("~o" ?,Au(B) |
1172 |
|
("~o" ?$,1 A(B) |
1173 |
|
("~p" ?,A6(B) |
1174 |
|
("~s" ?,A'(B) |
1175 |
|
("~s" ?$,1 (B) |
1176 |
|
("~s" ?$,1!!(B) |
1177 |
|
("~t" ?,A~(B) |
1178 |
|
("~u" ?,A5(B) |
1179 |
|
("~u" ?$,1!-(B) |
1180 |
|
("~x" ?,A$(B) |
1181 |
|
("~z" ?$,1!>(B) |
1182 |
|
("~|" ?,A&(B) |
1183 |
|
("~~" ?,A8(B) |
1184 |
|
) |
1185 |
;;; latin-pre.el ends here |
;;; latin-pre.el ends here |