/[emacs]/emacs/leim/quail/latin-pre.el
ViewVC logotype

Diff of /emacs/leim/quail/latin-pre.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by rms, Wed Feb 6 15:23:30 2002 UTC revision 1.18.4.1 by miles, Fri Apr 4 06:19:54 2003 UTC
# Line 2  Line 2 
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    
# Line 26  Line 26 
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  ;;  ;;
# Line 36  Line 36 
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)
# Line 58  Line 64 
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)
# Line 144  Line 149 
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)
# Line 589  Key translation rules are: Line 595  Key translation rules are:
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)
# Line 654  Key translation rules are: Line 660  Key translation rules are:
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)
# Line 684  Key translation rules are: Line 683  Key translation rules are:
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)
# Line 712  For example, the character named `aogone Line 710  For example, the character named `aogone
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)
# Line 721  For example, the character named `aogone Line 719  For example, the character named `aogone
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))
# Line 877  For example, the character named `aogone Line 875  For example, the character named `aogone
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)
# Line 982  For example, the character named `aogone Line 980  For example, the character named `aogone
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

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.18.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26