Mercurial > emacs
annotate leim/quail/latin-pre.el @ 28263:73181b84ea57
(lface_same_font_attributes_p): Compare font attributes
as strings only if both are known to be strings.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Wed, 22 Mar 2000 12:08:11 +0000 |
parents | ad4ce97753b4 |
children | 08cd5ffb5799 |
rev | line source |
---|---|
18673 | 1 ;;; latin-pre.el -- Quail packages for inputting various European characters. |
2 | |
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. | |
4 ;; Licensed to the Free Software Foundation. | |
5 | |
6 ;; Keywords: mule, multilingual, latin, input method | |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
24 | |
25 ;;; Commentary: | |
26 | |
27 ;; All key translation maps are copied from iso-acc.el. | |
27940
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
28 ;; Latin-1-prefix: extra special characters added, adapted from the vim |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
29 ;; digraphs (from J.H.M.Dassen <jdassen@wi.leidenuniv.nl>) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
30 ;; by R.F. Smith <rsmith@xs4all.nl> |
18673 | 31 |
32 ;;; Code: | |
33 | |
34 (require 'quail) | |
35 | |
36 (quail-define-package | |
18716
25c391385880
Change titles of quail packages.
Kenichi Handa <handa@m17n.org>
parents:
18673
diff
changeset
|
37 "latin-1-prefix" "Latin-1" "1>" t |
18673 | 38 "Latin-1 characters input method with prefix modifiers |
39 | |
40 effect | prefix | examples | |
41 ------------+--------+---------- | |
42 acute | ' | 'a -> ,Aa(B, '' -> ,A4(B | |
43 grave | ` | `a -> ,A`(B | |
44 circumflex | ^ | ^a -> ,Ab(B | |
27940
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
45 diaeresis | \" | \"a -> ,Ad(B \"\" -> ,A((B |
18673 | 46 tilde | ~ | ~a -> ,Ac(B |
47 cedilla | ~ | ~c -> ,Ag(B | |
27940
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
48 misc | \" ~ / | \"s -> ,A_(B ~d -> ,Ap(B ~t -> ,A~(B /a -> ,Ae(B /e -> ,Af(B /o -> ,Ax(B |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
49 symbol | ~ | ~> -> ,A;(B ~< -> ,A+(B ~! -> ,A!(B ~? -> ,A?(B ~~ -> ,A8(B |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
50 | ~ | ~p -> ,A'(B ~x -> ,A$(B ~. -> ,A7(B ~$ -> ,A#(B ~u -> ,A5(B |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
51 symbol | _ / | _o -> ,A:(B _a -> ,A*(B // -> ,A0(B /\\ -> ,AW(B _y -> ,A%(B |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
52 | _ / | _: -> ,Aw(B /c -> ,A"(B /2 -> ,A=(B /4 -> ,A<(B /3 -> ,A>(B |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
53 symbol | ^ | ^r -> ,A.(B ^c -> ,A)(B ^2 -> ,A2(B ^3 -> ,A3(B |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
54 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 55 |
56 (quail-define-rules | |
57 ("'A" ?,AA(B) | |
58 ("'E" ?,AI(B) | |
59 ("'I" ?,AM(B) | |
60 ("'O" ?,AS(B) | |
61 ("'U" ?,AZ(B) | |
62 ("'Y" ?,A](B) | |
63 ("'a" ?,Aa(B) | |
64 ("'e" ?,Ai(B) | |
65 ("'i" ?,Am(B) | |
66 ("'o" ?,As(B) | |
67 ("'u" ?,Az(B) | |
68 ("'y" ?,A}(B) | |
69 ("''" ?,A4(B) | |
70 ("' " ?') | |
71 ("`A" ?,A@(B) | |
72 ("`E" ?,AH(B) | |
73 ("`I" ?,AL(B) | |
74 ("`O" ?,AR(B) | |
75 ("`U" ?,AY(B) | |
76 ("`a" ?,A`(B) | |
77 ("`e" ?,Ah(B) | |
78 ("`i" ?,Al(B) | |
79 ("`o" ?,Ar(B) | |
80 ("`u" ?,Ay(B) | |
81 ("``" ?`) | |
82 ("` " ?`) | |
83 ("^A" ?,AB(B) | |
84 ("^E" ?,AJ(B) | |
85 ("^I" ?,AN(B) | |
86 ("^O" ?,AT(B) | |
87 ("^U" ?,A[(B) | |
88 ("^a" ?,Ab(B) | |
89 ("^e" ?,Aj(B) | |
90 ("^i" ?,An(B) | |
91 ("^o" ?,At(B) | |
92 ("^u" ?,A{(B) | |
93 ("^^" ?^) | |
94 ("^ " ?^) | |
95 ("\"A" ?,AD(B) | |
96 ("\"E" ?,AK(B) | |
97 ("\"I" ?,AO(B) | |
98 ("\"O" ?,AV(B) | |
99 ("\"U" ?,A\(B) | |
100 ("\"a" ?,Ad(B) | |
101 ("\"e" ?,Ak(B) | |
102 ("\"i" ?,Ao(B) | |
103 ("\"o" ?,Av(B) | |
104 ("\"s" ?,A_(B) | |
105 ("\"u" ?,A|(B) | |
106 ("\"y" ?,A(B) | |
107 ("\"\"" ?,A((B) | |
108 ("\" " ?\") | |
109 ("~A" ?,AC(B) | |
110 ("~C" ?,AG(B) | |
111 ("~D" ?,AP(B) | |
112 ("~N" ?,AQ(B) | |
113 ("~O" ?,AU(B) | |
114 ("~T" ?,A^(B) | |
115 ("~a" ?,Ac(B) | |
116 ("~c" ?,Ag(B) | |
117 ("~d" ?,Ap(B) | |
118 ("~n" ?,Aq(B) | |
119 ("~o" ?,Au(B) | |
120 ("~t" ?,A~(B) | |
121 ("~>" ?\,A;(B) | |
122 ("~<" ?\,A+(B) | |
123 ("~!" ?,A!(B) | |
124 ("~?" ?,A?(B) | |
125 ("~~" ?,A8(B) | |
126 ("~ " ?~) | |
127 ("/A" ?,AE(B) | |
128 ("/E" ?,AF(B) | |
129 ("/O" ?,AX(B) | |
130 ("/a" ?,Ae(B) | |
131 ("/e" ?,Af(B) | |
132 ("/o" ?,Ax(B) | |
133 ("//" ?,A0(B) | |
21221
cb6ab6de7548
("latin-1-prefix"): Fix the translation of
Kenichi Handa <handa@m17n.org>
parents:
19652
diff
changeset
|
134 ("/ " ?/) |
23470 | 135 ("_o" ?,A:(B) |
136 ("_a" ?,A*(B) | |
27940
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
137 ;; Symbols added by Roland Smith <rsmith@xs4all.nl> |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
138 ("_+" ?,A1(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
139 ("_y" ?,A%(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
140 ("_:" ?,Aw(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
141 ("/c" ?,A"(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
142 ("/\\" ?,AW(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
143 ("/2" ?,A=(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
144 ("/4" ?,A<(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
145 ("/3" ?,A>(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
146 ("~p" ?,A'(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
147 ("~x" ?,A$(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
148 ("~." ?,A7(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
149 ("~$" ?,A#(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
150 ("~u" ?,A5(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
151 ("^r" ?,A.(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
152 ("^c" ?,A)(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
153 ("^2" ?,A2(B) |
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
154 ("^3" ?,A3(B) |
18673 | 155 ) |
156 | |
157 (quail-define-package | |
18716
25c391385880
Change titles of quail packages.
Kenichi Handa <handa@m17n.org>
parents:
18673
diff
changeset
|
158 "catalan-prefix" "Latin-1" "CA>" t |
18673 | 159 "Catalan and Spanish input method with prefix modifiers |
160 | |
161 effect | prefix | examples | |
162 ------------+--------+---------- | |
23470 | 163 acute | ' | 'a -> ,Aa(B '' -> ,A4(B |
18673 | 164 grave | ` | `a -> ,A`(B |
23470 | 165 diaeresis | \" | \"i -> ,Ao(B \"\" -> ,A((B |
18673 | 166 tilde | ~ | ~n -> ,Aq(B |
167 cedilla | ~ | ~c -> ,Ag(B | |
23470 | 168 symbol | ~ | ~> -> ,A;(B ~< -> ,A+(B ~! -> ,A!(B ~? -> ,A?(B |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
169 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 170 |
171 (quail-define-rules | |
172 ("'A" ?,AA(B) | |
173 ("'E" ?,AI(B) | |
174 ("'I" ?,AM(B) | |
175 ("'O" ?,AS(B) | |
176 ("'U" ?,AZ(B) | |
177 ("'a" ?,Aa(B) | |
178 ("'e" ?,Ai(B) | |
179 ("'i" ?,Am(B) | |
180 ("'o" ?,As(B) | |
181 ("'u" ?,Az(B) | |
182 ("' " ?') | |
183 ("`A" ?,A@(B) | |
184 ("`E" ?,AH(B) | |
185 ("`O" ?,AR(B) | |
186 ("`a" ?,A`(B) | |
187 ("`e" ?,Ah(B) | |
188 ("`o" ?,Ar(B) | |
189 ("` " ?`) | |
190 ("\"I" ?,AO(B) | |
191 ("\"U" ?,A\(B) | |
192 ("\"i" ?,Ao(B) | |
193 ("\"u" ?,A|(B) | |
194 ("\" " ?\") | |
195 ("~C" ?,AG(B) | |
196 ("~N" ?,AQ(B) | |
197 ("~c" ?,Ag(B) | |
198 ("~n" ?,Aq(B) | |
199 ("~>" ?\,A;(B) | |
200 ("~<" ?\,A+(B) | |
201 ("~!" ?,A!(B) | |
202 ("~?" ?,A?(B) | |
203 ("~ " ?~) | |
204 ) | |
205 | |
206 (quail-define-package | |
26822
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
207 "esperanto-prefix" "Latin-3" "EO>" t |
18673 | 208 "Esperanto input method with prefix modifiers |
209 Key translation rules are: | |
26822
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
210 ^H -> ?,C&(B ^J -> ?,C,(B ^h -> ?,C6(B ^j -> ?,C<(B ^C -> ?,CF(B ^G -> ?,CX(B, |
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
211 ^S -> ?,C^(B ^c -> ?,Cf(B ^g -> ?,Cx(B ^s -> ?,C~(B ~U -> ?,C](B ~u -> ?,C}(B |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
212 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 213 |
214 (quail-define-rules | |
26822
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
215 ("^H" ?,C&(B) |
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
216 ("^J" ?,C,(B) |
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
217 ("^h" ?,C6(B) |
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
218 ("^j" ?,C<(B) |
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
219 ("^C" ?,CF(B) |
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
220 ("^G" ?,CX(B) |
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
221 ("^S" ?,C^(B) |
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
222 ("^c" ?,Cf(B) |
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
223 ("^g" ?,Cx(B) |
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
224 ("^s" ?,C~(B) |
18673 | 225 ("^^" ?^) |
226 ("^ " ?^) | |
26822
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
227 ("~U" ?,C](B) |
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
228 ("~u" ?,C}(B) |
18673 | 229 ("~ " ?~) |
230 ) | |
231 | |
232 (quail-define-package | |
18716
25c391385880
Change titles of quail packages.
Kenichi Handa <handa@m17n.org>
parents:
18673
diff
changeset
|
233 "french-prefix" "Latin-1" "FR>" t |
18673 | 234 "French (Fran,Ag(Bais) input method with prefix modifiers |
235 | |
236 effect | prefix | examples | |
237 ------------+--------+---------- | |
238 acute | ' | 'e -> ,Ai(B | |
239 grave | ` | `a -> ,A`(B | |
240 circumflex | ^ | ^a -> ,Ab(B | |
241 diaeresis | \" | \"i -> ,Ao(B | |
23470 | 242 cedilla | ~ or , | ~c -> ,Ag(B ,c -> ,Ag(B |
243 symbol | ~ | ~> -> ,A;(B ~< -> ,A+(B | |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
244 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 245 |
246 (quail-define-rules | |
247 ("'E" ?,AI(B) | |
248 ("'C" ?,AG(B) | |
249 ("'e" ?,Ai(B) | |
250 ("'c" ?,Ag(B) | |
251 ("' " ?') | |
252 ("`A" ?,A@(B) | |
253 ("`E" ?,AH(B) | |
254 ("`U" ?,AY(B) | |
255 ("`a" ?,A`(B) | |
256 ("`e" ?,Ah(B) | |
257 ("`u" ?,Ay(B) | |
258 ("` " ?`) | |
259 ("^A" ?,AB(B) | |
260 ("^E" ?,AJ(B) | |
261 ("^I" ?,AN(B) | |
262 ("^O" ?,AT(B) | |
263 ("^U" ?,A[(B) | |
264 ("^a" ?,Ab(B) | |
265 ("^e" ?,Aj(B) | |
266 ("^i" ?,An(B) | |
267 ("^o" ?,At(B) | |
268 ("^u" ?,A{(B) | |
269 ("^ " ?^) | |
270 ("\"E" ?,AK(B) | |
271 ("\"I" ?,AO(B) | |
272 ("\"e" ?,Ak(B) | |
273 ("\"i" ?,Ao(B) | |
274 ("\" " ?\") | |
275 ("~<" ?\,A+(B) | |
276 ("~>" ?\,A;(B) | |
277 ("~C" ?,AG(B) | |
278 ("~c" ?,Ag(B) | |
279 ("~," ?,) | |
280 (",C" ?,AG(B) | |
281 (",c" ?,Ag(B) | |
282 (", " ?~) | |
283 ) | |
284 | |
285 (quail-define-package | |
24705
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
286 "romanian-prefix" "Romanian" "RO>" t |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
287 "Romanian (rom,Bb(Bne,B:(Bte) input method with prefix modifiers |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
288 |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
289 effect | prefix | examples |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
290 ------------+--------+------------------ |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
291 tilde | ~ | ~a -> ,Bc(B |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
292 circumflex | ^ | ^a -> ,Bb(B, ^i -> ,Bn(B |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
293 cedilla | , | ,s -> ,B:(B, ,t -> ,B~(B |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
294 ~ | ~ | ~~ -> ~ |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
295 ^ | ^ | ^^ -> ^ |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
296 , | , | ,, -> , |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
297 " nil t nil nil nil nil nil nil nil nil t) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
298 |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
299 (quail-define-rules |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
300 ("~A" ?,BC(B) ("~a" ?,Bc(B) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
301 ("^A" ?,BB(B) ("^a" ?,Bb(B) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
302 ("^I" ?,BN(B) ("^i" ?,Bn(B) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
303 (",S" ?,B*(B) (",s" ?,B:(B) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
304 (",T" ?,B^(B) (",t" ?,B~(B) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
305 ("^^" ?^) ("~~" ?~) (",," ?,)) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
306 |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
307 (quail-define-package |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
308 "romanian-alt-prefix" "Romanian" "RO>" t |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
309 "Alternative Romanian (rom,Bb(Bne,B:(Bte) input method with prefix modifiers |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
310 |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
311 effect | prefix | examples |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
312 ------------+--------+------------------ |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
313 tilde | \" | \"a -> ,Bb(B |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
314 circumflex | ' | 'a -> ,Bb(B, 'i -> ,Bn(B |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
315 cedilla | ' | 's -> ,B:(B, 't -> ,B~(B |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
316 ' | ' | '' -> ' |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
317 \" | \" | \"\" -> \" |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
318 " nil t nil nil nil nil nil nil nil nil t) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
319 |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
320 (quail-define-rules |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
321 ("'A" ?,BC(B) ("'a" ?,Bc(B) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
322 ("\"A" ?,BB(B) ("\"a" ?,Bb(B) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
323 ("'I" ?,BN(B) ("'i" ?,Bn(B) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
324 ("'S" ?,B*(B) ("'s" ?,B:(B) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
325 ("'T" ?,B^(B) ("'t" ?,B~(B) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
326 ("''" ?') ("\"\"" ?\")) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
327 |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
328 (quail-define-package |
18716
25c391385880
Change titles of quail packages.
Kenichi Handa <handa@m17n.org>
parents:
18673
diff
changeset
|
329 "german-prefix" "Latin-1" "DE>" t |
18673 | 330 "German (Deutsch) input method with prefix modifiers |
331 Key translation rules are: | |
23470 | 332 \"A -> ,AD(B -> \"O -> ,AV(B \"U -> ,A\(B \"s -> ?,A_(B |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
333 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 334 |
335 (quail-define-rules | |
336 ("\"A" ?,AD(B) | |
337 ("\"O" ?,AV(B) | |
338 ("\"U" ?,A\(B) | |
339 ("\"a" ?,Ad(B) | |
340 ("\"o" ?,Av(B) | |
341 ("\"u" ?,A|(B) | |
342 ("\"s" ?,A_(B) | |
343 ("\" " ?\") | |
344 ) | |
345 | |
346 (quail-define-package | |
18716
25c391385880
Change titles of quail packages.
Kenichi Handa <handa@m17n.org>
parents:
18673
diff
changeset
|
347 "irish-prefix" "Latin-1" "GA>" t |
18673 | 348 "Irish input method with prefix modifiers |
349 Key translation rules are: | |
23470 | 350 'A -> ,AA(B 'E -> ,AI(B 'I -> ,AM(B 'O -> ,AS(B 'U -> ,AZ(B |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
351 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 352 |
353 (quail-define-rules | |
354 ("'A" ?,AA(B) | |
355 ("'E" ?,AI(B) | |
356 ("'I" ?,AM(B) | |
357 ("'O" ?,AS(B) | |
358 ("'U" ?,AZ(B) | |
359 ("'a" ?,Aa(B) | |
360 ("'e" ?,Ai(B) | |
361 ("'i" ?,Am(B) | |
362 ("'o" ?,As(B) | |
363 ("'u" ?,Az(B) | |
364 ("' " ?') | |
365 ) | |
366 | |
367 (quail-define-package | |
18716
25c391385880
Change titles of quail packages.
Kenichi Handa <handa@m17n.org>
parents:
18673
diff
changeset
|
368 "portuguese-prefix" "Latin-1" "PT>" t |
18673 | 369 "Portuguese input method with prefix modifiers |
370 | |
371 effect | prefix | examples | |
372 ------------+--------+---------- | |
23470 | 373 acute | ' | 'a -> ,Aa(B '' -> ,A4(B |
18673 | 374 grave | ` | `a -> ,A`(B |
375 circumflex | ^ | ^a -> ,Ab(B | |
376 diaeresis | \" | \"u -> ,A|(B | |
377 tilde | ~ | ~a -> ,Ac(B | |
23470 | 378 cedilla | ' or , | 'c -> ,Ag(B ,c -> ,Ag(B |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
379 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 380 |
381 (quail-define-rules | |
382 ("'A" ?,AA(B) | |
383 ("'E" ?,AI(B) | |
384 ("'I" ?,AM(B) | |
385 ("'O" ?,AS(B) | |
386 ("'U" ?,AZ(B) | |
387 ("'C" ?,AG(B) | |
388 ("'a" ?,Aa(B) | |
389 ("'e" ?,Ai(B) | |
390 ("'i" ?,Am(B) | |
391 ("'o" ?,As(B) | |
392 ("'u" ?,Az(B) | |
393 ("'c" ?,Ag(B) | |
394 ("' " ?') | |
395 ("`A" ?,A@(B) | |
396 ("`a" ?,A`(B) | |
397 ("` " ?`) | |
398 ("^A" ?,AB(B) | |
399 ("^E" ?,AJ(B) | |
400 ("^O" ?,AT(B) | |
401 ("^a" ?,Ab(B) | |
402 ("^e" ?,Aj(B) | |
403 ("^o" ?,At(B) | |
404 ("^ " ?^) | |
405 ("\"U" ?,A\(B) | |
406 ("\"u" ?,A|(B) | |
407 ("\" " ?\") | |
408 ("~A" ?,AC(B) | |
409 ("~O" ?,AU(B) | |
410 ("~a" ?,Ac(B) | |
411 ("~o" ?,Au(B) | |
412 ("~ " ?~) | |
413 (",c" ?,Ag(B) | |
414 (",C" ?,AG(B) | |
415 (",," ?,) | |
416 ) | |
417 | |
418 (quail-define-package | |
18716
25c391385880
Change titles of quail packages.
Kenichi Handa <handa@m17n.org>
parents:
18673
diff
changeset
|
419 "spanish-prefix" "Latin-1" "ES>" t |
18673 | 420 "Spanish (Espa,Aq(Bol) input method with prefix modifiers |
421 | |
422 effect | prefix | examples | |
423 ------------+--------+---------- | |
424 acute | ' | 'a -> ,Aa(B | |
425 diaeresis | \" | \"u -> ,A|(B | |
426 tilde | ~ | ~n -> ,Aq(B | |
23470 | 427 symbol | ~ | ~> -> ,A;(B ~< -> ,A+(B ~! -> ,A!(B ~? -> ,A?(B |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
428 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 429 |
430 (quail-define-rules | |
431 ("'A" ?,AA(B) | |
432 ("'E" ?,AI(B) | |
433 ("'I" ?,AM(B) | |
434 ("'O" ?,AS(B) | |
435 ("'U" ?,AZ(B) | |
436 ("'a" ?,Aa(B) | |
437 ("'e" ?,Ai(B) | |
438 ("'i" ?,Am(B) | |
439 ("'o" ?,As(B) | |
440 ("'u" ?,Az(B) | |
441 ("' " ?') | |
442 ("\"U" ?,A\(B) | |
443 ("\"u" ?,A|(B) | |
444 ("\" " ?\") | |
445 ("~N" ?,AQ(B) | |
446 ("~n" ?,Aq(B) | |
447 ("~>" ?\,A;(B) | |
448 ("~<" ?\,A+(B) | |
449 ("~!" ?,A!(B) | |
450 ("~?" ?,A?(B) | |
451 ("~ " ?~) | |
452 ) | |
453 | |
454 (quail-define-package | |
18716
25c391385880
Change titles of quail packages.
Kenichi Handa <handa@m17n.org>
parents:
18673
diff
changeset
|
455 "latin-2-prefix" "Latin-2" "2>" t |
18673 | 456 "Latin-2 characters input method with prefix modifiers |
457 | |
458 effect | prefix | examples | |
459 ------------+--------+---------- | |
23470 | 460 acute | ' | 'a -> ,Ba(B '' -> ?,B4(B |
18673 | 461 circumflex | ^ | ^a -> ,Bb(B |
23470 | 462 diaeresis | \" | \"a -> ,Bd(B \"\" -> ,B((B |
18673 | 463 breve | ~ | ~a -> ,Bc(B |
464 caron | ~ | ~c -> ,Bh(B | |
23470 | 465 cedilla | ` | `c -> ,Bg(B `e -> ?,Bj(B |
466 misc | ' ` ~ | 'd -> ,Bp(B `l -> ,B3(B `z -> ,B?(B ~o -> ,Bu(B ~u -> ,B{(B | |
467 symbol | ~ | `. -> ,B(B ~~ -> ,B"(B ~. -> ?,B8(B | |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
468 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 469 |
470 (quail-define-rules | |
471 ("'A" ?,BA(B) | |
472 ("'C" ?,BF(B) | |
473 ("'D" ?,BP(B) | |
474 ("'E" ?,BI(B) | |
475 ("'I" ?,BM(B) | |
476 ("'L" ?,BE(B) | |
477 ("'N" ?,BQ(B) | |
478 ("'O" ?,BS(B) | |
479 ("'R" ?,B@(B) | |
480 ("'S" ?,B&(B) | |
481 ("'U" ?,BZ(B) | |
482 ("'Y" ?,B](B) | |
483 ("'Z" ?,B,(B) | |
484 ("'a" ?,Ba(B) | |
485 ("'c" ?,Bf(B) | |
486 ("'d" ?,Bp(B) | |
487 ("'e" ?,Bi(B) | |
488 ("'i" ?,Bm(B) | |
489 ("'l" ?,Be(B) | |
490 ("'n" ?,Bq(B) | |
491 ("'o" ?,Bs(B) | |
492 ("'r" ?,B`(B) | |
493 ("'s" ?,B6(B) | |
494 ("'u" ?,Bz(B) | |
495 ("'y" ?,B}(B) | |
496 ("'z" ?,B<(B) | |
497 ("''" ?,B4(B) | |
498 ("' " ?') | |
499 ("`A" ?,B!(B) | |
500 ("`C" ?,BG(B) | |
501 ("`E" ?,BJ(B) | |
502 ("`L" ?,B#(B) | |
503 ("`S" ?,B*(B) | |
504 ("`T" ?,B^(B) | |
505 ("`Z" ?,B/(B) | |
506 ("`a" ?,B1(B) | |
507 ("`l" ?,B3(B) | |
508 ("`c" ?,Bg(B) | |
509 ("`e" ?,Bj(B) | |
510 ("`s" ?,B:(B) | |
511 ("`t" ?,B~(B) | |
512 ("`z" ?,B?(B) | |
513 ("``" ?,B*(B) | |
514 ("`." ?,B(B) | |
515 ("` " ?`) | |
516 ("^A" ?,BB(B) | |
517 ("^I" ?,BN(B) | |
518 ("^O" ?,BT(B) | |
519 ("^a" ?,Bb(B) | |
520 ("^i" ?,Bn(B) | |
521 ("^o" ?,Bt(B) | |
522 ("^^" ?^) | |
523 ("^ " ?^) | |
524 ("\"A" ?,BD(B) | |
525 ("\"E" ?,BK(B) | |
526 ("\"O" ?,BV(B) | |
527 ("\"U" ?,B\(B) | |
528 ("\"a" ?,Bd(B) | |
529 ("\"e" ?,Bk(B) | |
530 ("\"o" ?,Bv(B) | |
531 ("\"s" ?,B_(B) | |
532 ("\"u" ?,B|(B) | |
533 ("\"\"" ?,B((B) | |
534 ("\" " ?\") | |
535 ("~A" ?,BC(B) | |
536 ("~C" ?,BH(B) | |
537 ("~D" ?,BO(B) | |
538 ("~L" ?,B%(B) | |
539 ("~N" ?,BR(B) | |
540 ("~O" ?,BU(B) | |
541 ("~R" ?,BX(B) | |
542 ("~S" ?,B)(B) | |
543 ("~T" ?,B+(B) | |
544 ("~U" ?,B[(B) | |
545 ("~Z" ?,B.(B) | |
546 ("~a" ?,Bc(B) | |
547 ("~c" ?,Bh(B) | |
548 ("~d" ?,Bo(B) | |
549 ("~l" ?,B5(B) | |
550 ("~n" ?,Br(B) | |
551 ("~o" ?,Bu(B) | |
552 ("~r" ?,Bx(B) | |
553 ("~s" ?,B9(B) | |
554 ("~t" ?,B;(B) | |
555 ("~u" ?,B{(B) | |
556 ("~z" ?,B>(B) | |
557 ("~v" ?,B"(B) | |
558 ("~~" ?,B"(B) | |
559 ("~." ?,B8(B) | |
560 ("~ " ?~) | |
561 ) | |
562 | |
563 (quail-define-package | |
18716
25c391385880
Change titles of quail packages.
Kenichi Handa <handa@m17n.org>
parents:
18673
diff
changeset
|
564 "latin-3-prefix" "Latin-3" "3>" t |
18673 | 565 "Latin-3 characters input method with prefix modifiers |
566 | |
567 effect | prefix | examples | |
568 ------------+--------+---------- | |
23470 | 569 acute | ' | 'a -> ,Ca(B '' -> ?,C4(B |
18673 | 570 grave | ` | `a -> ,C`(B |
571 circumflex | ^ | ^a -> ,Cb(B | |
23470 | 572 diaeresis | \" | \"a -> ,Cd(B \"\" -> ,C((B |
573 cedilla | ~ | ~c -> ,Cg(B ~s -> ,C:(B ~~ -> ,C8(B | |
574 dot above | ~ / . | ~o -> ,Cu(B /o -> ,Cu(B .o -> ,Cu(B | |
575 misc | \" ~ / | \"s -> ,C_(B ~g -> ,C;(B ~u -> ,C}(B /h -> ,C1(B /i -> ,C9(B | |
576 symbol | ~ | ~` -> ,C"(B /# -> ,C#(B /$ -> ,C$(B // -> ,C0(B | |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
577 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 578 |
579 (quail-define-rules | |
580 ("'A" ?,CA(B) | |
581 ("'E" ?,CI(B) | |
582 ("'I" ?,CM(B) | |
583 ("'O" ?,CS(B) | |
584 ("'U" ?,CZ(B) | |
585 ("'a" ?,Ca(B) | |
586 ("'e" ?,Ci(B) | |
587 ("'i" ?,Cm(B) | |
588 ("'o" ?,Cs(B) | |
589 ("'u" ?,Cz(B) | |
590 ("''" ?,C4(B) | |
591 ("' " ?') | |
592 ("`A" ?,C@(B) | |
593 ("`E" ?,CH(B) | |
594 ("`I" ?,CL(B) | |
595 ("`O" ?,CR(B) | |
596 ("`U" ?,CY(B) | |
597 ("`a" ?,C`(B) | |
598 ("`e" ?,Ch(B) | |
599 ("`i" ?,Cl(B) | |
600 ("`o" ?,Cr(B) | |
601 ("`u" ?,Cy(B) | |
602 ("``" ?`) | |
603 ("` " ?`) | |
604 ("^A" ?,CB(B) | |
605 ("^C" ?,CF(B) | |
606 ("^E" ?,CJ(B) | |
607 ("^G" ?,CX(B) | |
608 ("^H" ?,C&(B) | |
609 ("^I" ?,CN(B) | |
610 ("^J" ?,C,(B) | |
611 ("^O" ?,CT(B) | |
612 ("^S" ?,C^(B) | |
613 ("^U" ?,C[(B) | |
614 ("^a" ?,Cb(B) | |
615 ("^c" ?,Cf(B) | |
616 ("^e" ?,Cj(B) | |
617 ("^g" ?,Cx(B) | |
618 ("^h" ?,C6(B) | |
619 ("^i" ?,Cn(B) | |
620 ("^j" ?,C<(B) | |
621 ("^o" ?,Ct(B) | |
622 ("^s" ?,C~(B) | |
623 ("^u" ?,C{(B) | |
624 ("^^" ?^) | |
625 ("^ " ?^) | |
626 ("\"A" ?,CD(B) | |
627 ("\"E" ?,CK(B) | |
628 ("\"I" ?,CO(B) | |
629 ("\"O" ?,CV(B) | |
630 ("\"U" ?,C\(B) | |
631 ("\"a" ?,Cd(B) | |
632 ("\"e" ?,Ck(B) | |
633 ("\"i" ?,Co(B) | |
634 ("\"o" ?,Cv(B) | |
635 ("\"u" ?,C|(B) | |
636 ("\"s" ?,C_(B) | |
637 ("\"\"" ?,C((B) | |
638 ("\" " ?\") | |
639 ("~A" ?,CC(B) | |
640 ("~C" ?,CG(B) | |
641 ("~D" ?,CP(B) | |
642 ("~N" ?,CQ(B) | |
643 ("~O" ?,CU(B) | |
644 ("~a" ?,Cc(B) | |
645 ("~c" ?,Cg(B) | |
646 ("~d" ?,Cp(B) | |
647 ("~n" ?,Cq(B) | |
648 ("~o" ?,Cu(B) | |
649 ("~$" ?,C%(B) | |
650 ("~S" ?,C*(B) | |
651 ("~s" ?,C:(B) | |
652 ("~G" ?,C+(B) | |
653 ("~g" ?,C;(B) | |
654 ("~U" ?,C](B) | |
655 ("~u" ?,C}(B) | |
656 ("~`" ?,C"(B) | |
657 ("~~" ?,C8(B) | |
658 ("~ " ?~) | |
659 ("/C" ?,CE(B) | |
660 ("/G" ?,CU(B) | |
661 ("/H" ?,C!(B) | |
662 ("/I" ?,C)(B) | |
663 ("/Z" ?,C/(B) | |
664 ("/c" ?,Ce(B) | |
665 ("/g" ?,Cu(B) | |
666 ("/h" ?,C1(B) | |
667 ("/i" ?,C9(B) | |
668 ("/z" ?,C?(B) | |
669 ("/r" ?,C.(B) | |
670 ("/." ?,C(B) | |
671 ("/#" ?,C#(B) | |
672 ("/$" ?,C$(B) | |
673 ("//" ?,C0(B) | |
674 ("/ " ?/) | |
675 (".C" ?,CE(B) | |
676 (".G" ?,CU(B) | |
677 (".I" ?,C)(B) | |
678 (".Z" ?,C/(B) | |
679 (".c" ?,Ce(B) | |
680 (".g" ?,Cu(B) | |
681 (".z" ?,C?(B) | |
682 ) |