Mercurial > emacs
annotate leim/quail/latin-pre.el @ 89005:7c7b866077e9
*** empty log message ***
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 19 Aug 2002 06:12:43 +0000 |
parents | bf88f61fd824 |
children | 139bded29592 |
rev | line source |
---|---|
88786 | 1 ;;; latin-pre.el --- Quail packages for inputting various European characters -*-coding: utf-8;-*- |
18673 | 2 |
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. | |
4 ;; Licensed to the Free Software Foundation. | |
88786 | 5 ;; Copyright (C) 2000, 2002 Free Software Foundation, Inc. |
18673 | 6 |
7 ;; Keywords: mule, multilingual, latin, input method | |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
25 | |
26 ;;; Commentary: | |
27 | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
28 ;; Key translation maps were originally copied from iso-acc.el. |
28434
08cd5ffb5799
("polish-slash"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
27940
diff
changeset
|
29 ;; latin-1-prefix: extra special characters added, adapted from the vim |
27940
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
30 ;; 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
|
31 ;; by R.F. Smith <rsmith@xs4all.nl> |
28434
08cd5ffb5799
("polish-slash"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
27940
diff
changeset
|
32 ;; |
08cd5ffb5799
("polish-slash"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
27940
diff
changeset
|
33 ;; polish-slash: |
88786 | 34 ;; Author: Włodek Bzyl <matwb@univ.gda.pl> |
35 ;; Maintainer: Włodek Bzyl <matwb@univ.gda.pl> | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
36 ;; |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
37 ;; latin-[89]-prefix: Dave Love <fx@gnu.org> |
18673 | 38 |
39 ;;; Code: | |
40 | |
41 (require 'quail) | |
42 | |
43 (quail-define-package | |
18716
25c391385880
Change titles of quail packages.
Kenichi Handa <handa@m17n.org>
parents:
18673
diff
changeset
|
44 "latin-1-prefix" "Latin-1" "1>" t |
18673 | 45 "Latin-1 characters input method with prefix modifiers |
46 | |
47 effect | prefix | examples | |
48 ------------+--------+---------- | |
88786 | 49 acute | ' | 'a -> á, '' -> ´ |
50 grave | ` | `a -> à | |
51 circumflex | ^ | ^a -> â | |
52 diaeresis | \" | \"a -> ä \"\" -> ¨ | |
53 tilde | ~ | ~a -> ã | |
54 cedilla | ~ | ~c -> ç | |
55 misc | \" ~ / | \"s -> ß ~d -> ð ~t -> þ /a -> å /e -> æ /o -> ø | |
56 symbol | ~ | ~> -> » ~< -> « ~! -> ¡ ~? -> ¿ ~~ -> ¸ | |
57 | ~ | ~s -> § ~x -> ¤ ~. -> · ~$ -> £ ~u -> µ | |
58 | ~ | ~p -> ¶ ~- -> ~= -> ¯ ~| -> ¦ | |
59 symbol | _ / | _o -> º _a -> ª // -> ° /\\ -> × _y -> ¥ | |
60 | _ / | _: -> ÷ /c -> ¢ /2 -> ½ /4 -> ¼ /3 -> ¾ | |
61 | _ / | /= -> ¬ | |
62 symbol | ^ | ^r -> ® ^c -> © ^1 -> ¹ ^2 -> ² ^3 -> ³ | |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
63 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 64 |
65 (quail-define-rules | |
88786 | 66 ("'A" ?Á) |
67 ("'E" ?É) | |
68 ("'I" ?Í) | |
69 ("'O" ?Ó) | |
70 ("'U" ?Ú) | |
71 ("'Y" ?Ý) | |
72 ("'a" ?á) | |
73 ("'e" ?é) | |
74 ("'i" ?í) | |
75 ("'o" ?ó) | |
76 ("'u" ?ú) | |
77 ("'y" ?ý) | |
78 ("''" ?´) | |
18673 | 79 ("' " ?') |
88786 | 80 ("`A" ?À) |
81 ("`E" ?È) | |
82 ("`I" ?Ì) | |
83 ("`O" ?Ò) | |
84 ("`U" ?Ù) | |
85 ("`a" ?à) | |
86 ("`e" ?è) | |
87 ("`i" ?ì) | |
88 ("`o" ?ò) | |
89 ("`u" ?ù) | |
18673 | 90 ("``" ?`) |
91 ("` " ?`) | |
88786 | 92 ("^A" ?Â) |
93 ("^E" ?Ê) | |
94 ("^I" ?Î) | |
95 ("^O" ?Ô) | |
96 ("^U" ?Û) | |
97 ("^a" ?â) | |
98 ("^e" ?ê) | |
99 ("^i" ?î) | |
100 ("^o" ?ô) | |
101 ("^u" ?û) | |
18673 | 102 ("^^" ?^) |
103 ("^ " ?^) | |
88786 | 104 ("\"A" ?Ä) |
105 ("\"E" ?Ë) | |
106 ("\"I" ?Ï) | |
107 ("\"O" ?Ö) | |
108 ("\"U" ?Ü) | |
109 ("\"a" ?ä) | |
110 ("\"e" ?ë) | |
111 ("\"i" ?ï) | |
112 ("\"o" ?ö) | |
113 ("\"s" ?ß) | |
114 ("\"u" ?ü) | |
115 ("\"y" ?ÿ) | |
116 ("\"\"" ?¨) | |
18673 | 117 ("\" " ?\") |
88786 | 118 ("~A" ?Ã) |
119 ("~C" ?Ç) | |
120 ("~D" ?Ð) | |
121 ("~N" ?Ñ) | |
122 ("~O" ?Õ) | |
123 ("~T" ?Þ) | |
124 ("~a" ?ã) | |
125 ("~c" ?ç) | |
126 ("~d" ?ð) | |
127 ("~n" ?ñ) | |
128 ("~o" ?õ) | |
129 ("~t" ?þ) | |
130 ("~>" ?\») | |
131 ("~<" ?\«) | |
132 ("~!" ?¡) | |
133 ("~?" ?¿) | |
134 ("~~" ?¸) | |
18673 | 135 ("~ " ?~) |
88786 | 136 ("/A" ?Å) |
137 ("/E" ?Æ) | |
138 ("/O" ?Ø) | |
139 ("/a" ?å) | |
140 ("/e" ?æ) | |
141 ("/o" ?ø) | |
142 ("//" ?°) | |
21221
cb6ab6de7548
("latin-1-prefix"): Fix the translation of
Kenichi Handa <handa@m17n.org>
parents:
19652
diff
changeset
|
143 ("/ " ?/) |
88786 | 144 ("_o" ?º) |
145 ("_a" ?ª) | |
27940
ad4ce97753b4
("latin-1-prefix"): Add rules for symbols.
Kenichi Handa <handa@m17n.org>
parents:
26822
diff
changeset
|
146 ;; Symbols added by Roland Smith <rsmith@xs4all.nl> |
88786 | 147 ("_+" ?±) |
148 ("_y" ?¥) | |
149 ("_:" ?÷) | |
150 ("/c" ?¢) | |
151 ("/\\" ?×) | |
152 ("/2" ?½) | |
153 ("/4" ?¼) | |
154 ("/3" ?¾) | |
155 ("~s" ?§) | |
156 ("~p" ?¶) | |
157 ("~x" ?¤) | |
158 ("~." ?·) | |
159 ("~$" ?£) | |
160 ("~u" ?µ) | |
161 ("^r" ?®) | |
162 ("^c" ?©) | |
163 ("^1" ?¹) | |
164 ("^2" ?²) | |
165 ("^3" ?³) | |
166 ("~-" ?) | |
167 ("~|" ?¦) | |
168 ("/=" ?¬) | |
169 ("~=" ?¯) | |
170 ("_ " ? ) ; nbsp | |
18673 | 171 ) |
172 | |
173 (quail-define-package | |
18716
25c391385880
Change titles of quail packages.
Kenichi Handa <handa@m17n.org>
parents:
18673
diff
changeset
|
174 "catalan-prefix" "Latin-1" "CA>" t |
18673 | 175 "Catalan and Spanish input method with prefix modifiers |
176 | |
177 effect | prefix | examples | |
178 ------------+--------+---------- | |
88786 | 179 acute | ' | 'a -> á '' -> ´ |
180 grave | ` | `a -> à | |
181 diaeresis | \" | \"i -> ï \"\" -> ¨ | |
182 tilde | ~ | ~n -> ñ | |
183 cedilla | ~ | ~c -> ç | |
184 symbol | ~ | ~> -> » ~< -> « ~! -> ¡ ~? -> ¿ | |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
185 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 186 |
187 (quail-define-rules | |
88786 | 188 ("'A" ?Á) |
189 ("'E" ?É) | |
190 ("'I" ?Í) | |
191 ("'O" ?Ó) | |
192 ("'U" ?Ú) | |
193 ("'a" ?á) | |
194 ("'e" ?é) | |
195 ("'i" ?í) | |
196 ("'o" ?ó) | |
197 ("'u" ?ú) | |
18673 | 198 ("' " ?') |
88786 | 199 ("`A" ?À) |
200 ("`E" ?È) | |
201 ("`O" ?Ò) | |
202 ("`a" ?à) | |
203 ("`e" ?è) | |
204 ("`o" ?ò) | |
18673 | 205 ("` " ?`) |
88786 | 206 ("\"I" ?Ï) |
207 ("\"U" ?Ü) | |
208 ("\"i" ?ï) | |
209 ("\"u" ?ü) | |
18673 | 210 ("\" " ?\") |
88786 | 211 ("~C" ?Ç) |
212 ("~N" ?Ñ) | |
213 ("~c" ?ç) | |
214 ("~n" ?ñ) | |
215 ("~>" ?\») | |
216 ("~<" ?\«) | |
217 ("~!" ?¡) | |
218 ("~?" ?¿) | |
18673 | 219 ("~ " ?~) |
220 ) | |
221 | |
222 (quail-define-package | |
26822
62c80c35f341
("esperanto-prefix"): Make it produce Latin-3
Kenichi Handa <handa@m17n.org>
parents:
24705
diff
changeset
|
223 "esperanto-prefix" "Latin-3" "EO>" t |
18673 | 224 "Esperanto input method with prefix modifiers |
225 Key translation rules are: | |
88786 | 226 ^H -> ?Ĥ ^J -> ?Ĵ ^h -> ?ĥ ^j -> ?ĵ ^C -> ?Ĉ ^G -> ?Ĝ, |
227 ^S -> ?Ŝ ^c -> ?ĉ ^g -> ?ĝ ^s -> ?ŝ ~U -> ?Ŭ ~u -> ?ŭ | |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
228 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 229 |
230 (quail-define-rules | |
88786 | 231 ("^H" ?Ĥ) |
232 ("^J" ?Ĵ) | |
233 ("^h" ?ĥ) | |
234 ("^j" ?ĵ) | |
235 ("^C" ?Ĉ) | |
236 ("^G" ?Ĝ) | |
237 ("^S" ?Ŝ) | |
238 ("^c" ?ĉ) | |
239 ("^g" ?ĝ) | |
240 ("^s" ?ŝ) | |
18673 | 241 ("^^" ?^) |
242 ("^ " ?^) | |
88786 | 243 ("~U" ?Ŭ) |
244 ("~u" ?ŭ) | |
18673 | 245 ("~ " ?~) |
246 ) | |
247 | |
248 (quail-define-package | |
42023
b8cca72f7c5f
("french-prefix", "german-prefix")
Dave Love <fx@gnu.org>
parents:
40708
diff
changeset
|
249 "french-prefix" "French" "FR>" t |
88786 | 250 "French (Français) input method with prefix modifiers |
18673 | 251 |
252 effect | prefix | examples | |
253 ------------+--------+---------- | |
88786 | 254 acute | ' | 'e -> é |
255 grave | ` | `a -> à | |
256 circumflex | ^ | ^a -> â | |
257 diaeresis | \" | \"i -> ï | |
258 cedilla | ~ or , | ~c -> ç ,c -> ç | |
259 symbol | ~ | ~> -> » ~< -> « | |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
260 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 261 |
262 (quail-define-rules | |
88786 | 263 ("'E" ?É) |
264 ("'C" ?Ç) | |
265 ("'e" ?é) | |
266 ("'c" ?ç) | |
18673 | 267 ("' " ?') |
88786 | 268 ("`A" ?À) |
269 ("`E" ?È) | |
270 ("`U" ?Ù) | |
271 ("`a" ?à) | |
272 ("`e" ?è) | |
273 ("`u" ?ù) | |
18673 | 274 ("` " ?`) |
88786 | 275 ("^A" ?Â) |
276 ("^E" ?Ê) | |
277 ("^I" ?Î) | |
278 ("^O" ?Ô) | |
279 ("^U" ?Û) | |
280 ("^a" ?â) | |
281 ("^e" ?ê) | |
282 ("^i" ?î) | |
283 ("^o" ?ô) | |
284 ("^u" ?û) | |
18673 | 285 ("^ " ?^) |
88786 | 286 ("\"E" ?Ë) |
287 ("\"I" ?Ï) | |
288 ("\"e" ?ë) | |
289 ("\"i" ?ï) | |
18673 | 290 ("\" " ?\") |
88786 | 291 ("~<" ?\«) |
292 ("~>" ?\») | |
293 ("~C" ?Ç) | |
294 ("~c" ?ç) | |
43128
d7ccb71bc97c
(french-prefix): ", " => "," and "~ " => "~". Don't define "~," at all.
Richard M. Stallman <rms@gnu.org>
parents:
43022
diff
changeset
|
295 ("~ " ?~) |
88786 | 296 (",C" ?Ç) |
297 (",c" ?ç) | |
43128
d7ccb71bc97c
(french-prefix): ", " => "," and "~ " => "~". Don't define "~," at all.
Richard M. Stallman <rms@gnu.org>
parents:
43022
diff
changeset
|
298 (", " ?,) |
18673 | 299 ) |
300 | |
301 (quail-define-package | |
24705
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
302 "romanian-prefix" "Romanian" "RO>" t |
88786 | 303 "Romanian (româneşte) input method with prefix modifiers |
24705
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
304 |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
305 effect | prefix | examples |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
306 ------------+--------+------------------ |
88786 | 307 tilde | ~ | ~a -> ă |
308 circumflex | ^ | ^a -> â, ^i -> î | |
309 cedilla | , | ,s -> ş, ,t -> ţ | |
24705
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 ^ | ^ | ^^ -> ^ |
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 " 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
|
314 |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
315 (quail-define-rules |
88786 | 316 ("~A" ?Ă) ("~a" ?ă) |
317 ("^A" ?Â) ("^a" ?â) | |
318 ("^I" ?Î) ("^i" ?î) | |
319 (",S" ?Ş) (",s" ?ş) | |
320 (",T" ?Ţ) (",t" ?ţ) | |
24705
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
321 ("^^" ?^) ("~~" ?~) (",," ?,)) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
322 |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
323 (quail-define-package |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
324 "romanian-alt-prefix" "Romanian" "RO>" t |
88786 | 325 "Alternative Romanian (româneşte) input method with prefix modifiers |
24705
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 effect | prefix | examples |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
328 ------------+--------+------------------ |
88786 | 329 tilde | \" | \"a -> â |
330 circumflex | ' | 'a -> â, 'i -> î | |
331 cedilla | ' | 's -> ş, 't -> ţ | |
24705
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
332 ' | ' | '' -> ' |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
333 \" | \" | \"\" -> \" |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
334 " 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
|
335 |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
336 (quail-define-rules |
88786 | 337 ("'A" ?Ă) ("'a" ?ă) |
338 ("\"A" ?Â) ("\"a" ?â) | |
339 ("'I" ?Î) ("'i" ?î) | |
340 ("'S" ?Ş) ("'s" ?ş) | |
341 ("'T" ?Ţ) ("'t" ?ţ) | |
24705
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
342 ("''" ?') ("\"\"" ?\")) |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
343 |
af1bca0bf79b
("romanian-prefix"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
23470
diff
changeset
|
344 (quail-define-package |
42023
b8cca72f7c5f
("french-prefix", "german-prefix")
Dave Love <fx@gnu.org>
parents:
40708
diff
changeset
|
345 "german-prefix" "German" "DE>" t |
18673 | 346 "German (Deutsch) input method with prefix modifiers |
347 Key translation rules are: | |
88786 | 348 \"A -> Ä -> \"O -> Ö \"U -> Ü \"s -> ?ß |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
349 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 350 |
351 (quail-define-rules | |
88786 | 352 ("\"A" ?Ä) |
353 ("\"O" ?Ö) | |
354 ("\"U" ?Ü) | |
355 ("\"a" ?ä) | |
356 ("\"o" ?ö) | |
357 ("\"u" ?ü) | |
358 ("\"s" ?ß) | |
18673 | 359 ("\" " ?\") |
360 ) | |
361 | |
362 (quail-define-package | |
18716
25c391385880
Change titles of quail packages.
Kenichi Handa <handa@m17n.org>
parents:
18673
diff
changeset
|
363 "irish-prefix" "Latin-1" "GA>" t |
18673 | 364 "Irish input method with prefix modifiers |
365 Key translation rules are: | |
88786 | 366 'A -> Á 'E -> É 'I -> Í 'O -> Ó 'U -> Ú |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
367 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 368 |
369 (quail-define-rules | |
88786 | 370 ("'A" ?Á) |
371 ("'E" ?É) | |
372 ("'I" ?Í) | |
373 ("'O" ?Ó) | |
374 ("'U" ?Ú) | |
375 ("'a" ?á) | |
376 ("'e" ?é) | |
377 ("'i" ?í) | |
378 ("'o" ?ó) | |
379 ("'u" ?ú) | |
18673 | 380 ("' " ?') |
381 ) | |
382 | |
383 (quail-define-package | |
18716
25c391385880
Change titles of quail packages.
Kenichi Handa <handa@m17n.org>
parents:
18673
diff
changeset
|
384 "portuguese-prefix" "Latin-1" "PT>" t |
18673 | 385 "Portuguese input method with prefix modifiers |
386 | |
387 effect | prefix | examples | |
388 ------------+--------+---------- | |
88786 | 389 acute | ' | 'a -> á '' -> ´ |
390 grave | ` | `a -> à | |
391 circumflex | ^ | ^a -> â | |
392 diaeresis | \" | \"u -> ü | |
393 tilde | ~ | ~a -> ã | |
394 cedilla | ' or , | 'c -> ç ,c -> ç | |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
395 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 396 |
397 (quail-define-rules | |
88786 | 398 ("'A" ?Á) |
399 ("'E" ?É) | |
400 ("'I" ?Í) | |
401 ("'O" ?Ó) | |
402 ("'U" ?Ú) | |
403 ("'C" ?Ç) | |
404 ("'a" ?á) | |
405 ("'e" ?é) | |
406 ("'i" ?í) | |
407 ("'o" ?ó) | |
408 ("'u" ?ú) | |
409 ("'c" ?ç) | |
18673 | 410 ("' " ?') |
88786 | 411 ("`A" ?À) |
412 ("`a" ?à) | |
18673 | 413 ("` " ?`) |
88786 | 414 ("^A" ?Â) |
415 ("^E" ?Ê) | |
416 ("^O" ?Ô) | |
417 ("^a" ?â) | |
418 ("^e" ?ê) | |
419 ("^o" ?ô) | |
18673 | 420 ("^ " ?^) |
88786 | 421 ("\"U" ?Ü) |
422 ("\"u" ?ü) | |
18673 | 423 ("\" " ?\") |
88786 | 424 ("~A" ?Ã) |
425 ("~O" ?Õ) | |
426 ("~a" ?ã) | |
427 ("~o" ?õ) | |
18673 | 428 ("~ " ?~) |
88786 | 429 (",c" ?ç) |
430 (",C" ?Ç) | |
18673 | 431 (",," ?,) |
432 ) | |
433 | |
434 (quail-define-package | |
42023
b8cca72f7c5f
("french-prefix", "german-prefix")
Dave Love <fx@gnu.org>
parents:
40708
diff
changeset
|
435 "spanish-prefix" "Spanish" "ES>" t |
88786 | 436 "Spanish (Español) input method with prefix modifiers |
18673 | 437 |
438 effect | prefix | examples | |
439 ------------+--------+---------- | |
88786 | 440 acute | ' | 'a -> á |
441 diaeresis | \" | \"u -> ü | |
442 tilde | ~ | ~n -> ñ | |
443 symbol | ~ | ~> -> » ~< -> « ~! -> ¡ ~? -> ¿ | |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
444 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 445 |
446 (quail-define-rules | |
88786 | 447 ("'A" ?Á) |
448 ("'E" ?É) | |
449 ("'I" ?Í) | |
450 ("'O" ?Ó) | |
451 ("'U" ?Ú) | |
452 ("'a" ?á) | |
453 ("'e" ?é) | |
454 ("'i" ?í) | |
455 ("'o" ?ó) | |
456 ("'u" ?ú) | |
18673 | 457 ("' " ?') |
88786 | 458 ("\"U" ?Ü) |
459 ("\"u" ?ü) | |
18673 | 460 ("\" " ?\") |
88786 | 461 ("~N" ?Ñ) |
462 ("~n" ?ñ) | |
463 ("~>" ?\») | |
464 ("~<" ?\«) | |
465 ("~!" ?¡) | |
466 ("~?" ?¿) | |
18673 | 467 ("~ " ?~) |
468 ) | |
469 | |
470 (quail-define-package | |
18716
25c391385880
Change titles of quail packages.
Kenichi Handa <handa@m17n.org>
parents:
18673
diff
changeset
|
471 "latin-2-prefix" "Latin-2" "2>" t |
18673 | 472 "Latin-2 characters input method with prefix modifiers |
473 | |
474 effect | prefix | examples | |
475 ------------+--------+---------- | |
88786 | 476 acute | ' | 'a -> á '' -> ?´ |
477 circumflex | ^ | ^a -> â | |
478 diaeresis | \" | \"a -> ä \"\" -> ¨ | |
479 breve | ~ | ~a -> ă | |
480 caron | ~ | ~c -> č | |
481 cedilla | ` | `c -> ç `e -> ?ę | |
482 misc | ' ` ~ | 'd -> đ `l -> ł `z -> ż ~o -> ő ~u -> ű | |
483 symbol | ~ | `. -> ˙ ~~ -> ˘ ~. -> ?¸ | |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
484 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 485 |
486 (quail-define-rules | |
88786 | 487 ("'A" ?Á) |
488 ("'C" ?Ć) | |
489 ("'D" ?Đ) | |
490 ("'E" ?É) | |
491 ("'I" ?Í) | |
492 ("'L" ?Ĺ) | |
493 ("'N" ?Ń) | |
494 ("'O" ?Ó) | |
495 ("'R" ?Ŕ) | |
496 ("'S" ?Ś) | |
497 ("'U" ?Ú) | |
498 ("'Y" ?Ý) | |
499 ("'Z" ?Ź) | |
500 ("'a" ?á) | |
501 ("'c" ?ć) | |
502 ("'d" ?đ) | |
503 ("'e" ?é) | |
504 ("'i" ?í) | |
505 ("'l" ?ĺ) | |
506 ("'n" ?ń) | |
507 ("'o" ?ó) | |
508 ("'r" ?ŕ) | |
509 ("'s" ?ś) | |
510 ("'u" ?ú) | |
511 ("'y" ?ý) | |
512 ("'z" ?ź) | |
513 ("''" ?´) | |
18673 | 514 ("' " ?') |
88786 | 515 ("`A" ?Ą) |
516 ("`C" ?Ç) | |
517 ("`E" ?Ę) | |
518 ("`L" ?Ł) | |
519 ("`S" ?Ş) | |
520 ("`T" ?Ţ) | |
521 ("`Z" ?Ż) | |
522 ("`a" ?ą) | |
523 ("`l" ?ł) | |
524 ("`c" ?ç) | |
525 ("`e" ?ę) | |
526 ("`s" ?ş) | |
527 ("`t" ?ţ) | |
528 ("`z" ?ż) | |
529 ("``" ?Ş) | |
530 ("`." ?˙) | |
18673 | 531 ("` " ?`) |
88786 | 532 ("^A" ?Â) |
533 ("^I" ?Î) | |
534 ("^O" ?Ô) | |
535 ("^a" ?â) | |
536 ("^i" ?î) | |
537 ("^o" ?ô) | |
18673 | 538 ("^^" ?^) |
539 ("^ " ?^) | |
88786 | 540 ("\"A" ?Ä) |
541 ("\"E" ?Ë) | |
542 ("\"O" ?Ö) | |
543 ("\"U" ?Ü) | |
544 ("\"a" ?ä) | |
545 ("\"e" ?ë) | |
546 ("\"o" ?ö) | |
547 ("\"s" ?ß) | |
548 ("\"u" ?ü) | |
549 ("\"\"" ?¨) | |
18673 | 550 ("\" " ?\") |
88786 | 551 ("~A" ?Ă) |
552 ("~C" ?Č) | |
553 ("~D" ?Ď) | |
554 ("~E" ?Ě) | |
555 ("~L" ?Ľ) | |
556 ("~N" ?Ň) | |
557 ("~O" ?Ő) | |
558 ("~R" ?Ř) | |
559 ("~S" ?Š) | |
560 ("~T" ?Ť) | |
561 ("~U" ?Ű) | |
562 ("~Z" ?Ž) | |
563 ("~a" ?ă) | |
564 ("~c" ?č) | |
565 ("~d" ?ď) | |
566 ("~e" ?ě) | |
567 ("~l" ?ľ) | |
568 ("~n" ?ň) | |
569 ("~o" ?ő) | |
570 ("~r" ?ř) | |
571 ("~s" ?š) | |
572 ("~t" ?ť) | |
573 ("~u" ?ű) | |
574 ("~z" ?ž) | |
575 ("~v" ?˘) | |
576 ("~~" ?˘) | |
577 ("~." ?¸) | |
18673 | 578 ("~ " ?~) |
579 ) | |
580 | |
581 (quail-define-package | |
18716
25c391385880
Change titles of quail packages.
Kenichi Handa <handa@m17n.org>
parents:
18673
diff
changeset
|
582 "latin-3-prefix" "Latin-3" "3>" t |
18673 | 583 "Latin-3 characters input method with prefix modifiers |
584 | |
585 effect | prefix | examples | |
586 ------------+--------+---------- | |
88786 | 587 acute | ' | 'a -> á '' -> ?´ |
588 grave | ` | `a -> à | |
589 circumflex | ^ | ^a -> â | |
590 diaeresis | \" | \"a -> ä \"\" -> ¨ | |
591 cedilla | ~ | ~c -> ç ~s -> ş ~~ -> ¸ | |
592 dot above | ~ / . | ~o -> ġ /o -> ġ .o -> ġ | |
593 misc | \" ~ / | \"s -> ß ~g -> ğ ~u -> ŭ /h -> ħ /i -> ı | |
594 symbol | ~ | ~` -> ˘ /# -> £ /$ -> ¤ // -> ° | |
19652
c1b01ff226c4
Pass t for the SIMPLE argument to quail-define-package.
Richard M. Stallman <rms@gnu.org>
parents:
18716
diff
changeset
|
595 " nil t nil nil nil nil nil nil nil nil t) |
18673 | 596 |
597 (quail-define-rules | |
88786 | 598 ("'A" ?Á) |
599 ("'E" ?É) | |
600 ("'I" ?Í) | |
601 ("'O" ?Ó) | |
602 ("'U" ?Ú) | |
603 ("'a" ?á) | |
604 ("'e" ?é) | |
605 ("'i" ?í) | |
606 ("'o" ?ó) | |
607 ("'u" ?ú) | |
608 ("''" ?´) | |
18673 | 609 ("' " ?') |
88786 | 610 ("`A" ?À) |
611 ("`E" ?È) | |
612 ("`I" ?Ì) | |
613 ("`O" ?Ò) | |
614 ("`U" ?Ù) | |
615 ("`a" ?à) | |
616 ("`e" ?è) | |
617 ("`i" ?ì) | |
618 ("`o" ?ò) | |
619 ("`u" ?ù) | |
18673 | 620 ("``" ?`) |
621 ("` " ?`) | |
88786 | 622 ("^A" ?Â) |
623 ("^C" ?Ĉ) | |
624 ("^E" ?Ê) | |
625 ("^G" ?Ĝ) | |
626 ("^H" ?Ĥ) | |
627 ("^I" ?Î) | |
628 ("^J" ?Ĵ) | |
629 ("^O" ?Ô) | |
630 ("^S" ?Ŝ) | |
631 ("^U" ?Û) | |
632 ("^a" ?â) | |
633 ("^c" ?ĉ) | |
634 ("^e" ?ê) | |
635 ("^g" ?ĝ) | |
636 ("^h" ?ĥ) | |
637 ("^i" ?î) | |
638 ("^j" ?ĵ) | |
639 ("^o" ?ô) | |
640 ("^s" ?ŝ) | |
641 ("^u" ?û) | |
18673 | 642 ("^^" ?^) |
643 ("^ " ?^) | |
88786 | 644 ("\"A" ?Ä) |
645 ("\"E" ?Ë) | |
646 ("\"I" ?Ï) | |
647 ("\"O" ?Ö) | |
648 ("\"U" ?Ü) | |
649 ("\"a" ?ä) | |
650 ("\"e" ?ë) | |
651 ("\"i" ?ï) | |
652 ("\"o" ?ö) | |
653 ("\"u" ?ü) | |
654 ("\"s" ?ß) | |
655 ("\"\"" ?¨) | |
18673 | 656 ("\" " ?\") |
88786 | 657 ("~C" ?Ç) |
658 ("~N" ?Ñ) | |
659 ("~O" ?Õ) | |
660 ("~c" ?ç) | |
661 ("~n" ?ñ) | |
662 ("~o" ?õ) | |
663 ("~S" ?Ş) | |
664 ("~s" ?ş) | |
665 ("~G" ?Ğ) | |
666 ("~g" ?ğ) | |
667 ("~U" ?Ŭ) | |
668 ("~u" ?ŭ) | |
669 ("~`" ?˘) | |
670 ("~~" ?¸) | |
18673 | 671 ("~ " ?~) |
88786 | 672 ("/C" ?Ċ) |
673 ("/G" ?Ġ) | |
674 ("/H" ?Ħ) | |
675 ("/I" ?İ) | |
676 ("/Z" ?Ż) | |
677 ("/c" ?ċ) | |
678 ("/g" ?ġ) | |
679 ("/h" ?ħ) | |
680 ("/i" ?ı) | |
681 ("/z" ?ż) | |
682 ("/." ?˙) | |
683 ("/#" ?£) | |
684 ("/$" ?¤) | |
685 ("//" ?°) | |
18673 | 686 ("/ " ?/) |
88786 | 687 (".C" ?Ċ) |
688 (".G" ?Ġ) | |
689 (".I" ?İ) | |
690 (".Z" ?Ż) | |
691 (".c" ?ċ) | |
692 (".g" ?ġ) | |
693 (".z" ?ż) | |
18673 | 694 ) |
28434
08cd5ffb5799
("polish-slash"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
27940
diff
changeset
|
695 |
08cd5ffb5799
("polish-slash"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
27940
diff
changeset
|
696 |
08cd5ffb5799
("polish-slash"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
27940
diff
changeset
|
697 (quail-define-package |
08cd5ffb5799
("polish-slash"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
27940
diff
changeset
|
698 "polish-slash" "Polish" "PL>" nil |
08cd5ffb5799
("polish-slash"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
27940
diff
changeset
|
699 "Polish diacritics in Latin-2 encoding are input as `/[acelnosxzACELNOSXZ]'. |
08cd5ffb5799
("polish-slash"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
27940
diff
changeset
|
700 For example, the character named `aogonek' is obtained by `/a'." |
31428
cc90f3f49ddf
("polish-slash"): Don't use keyboard translation.
Kenichi Handa <handa@m17n.org>
parents:
31268
diff
changeset
|
701 nil t t t nil nil nil nil nil nil t) |
28434
08cd5ffb5799
("polish-slash"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
27940
diff
changeset
|
702 |
08cd5ffb5799
("polish-slash"): New input method.
Kenichi Handa <handa@m17n.org>
parents:
27940
diff
changeset
|
703 (quail-define-rules |
88786 | 704 ("/a" ?ą) |
705 ("/c" ?ć) | |
706 ("/e" ?ę) | |
707 ("/l" ?ł) | |
708 ("/n" ?ń) | |
709 ("/o" ?ó) | |
710 ("/s" ?ś) | |
711 ("/x" ?ź) | |
712 ("/z" ?ż) | |
713 ("/A" ?Ą) | |
714 ("/C" ?Ć) | |
715 ("/E" ?Ę) | |
716 ("/L" ?Ł) | |
717 ("/N" ?Ń) | |
718 ("/O" ?Ó) | |
719 ("/S" ?Ś) | |
720 ("/X" ?Ź) | |
721 ("/Z" ?Ż)) | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
722 |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
723 (quail-define-package |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
724 "latin-9-prefix" "Latin-9" "0>" t |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
725 "Latin-9 characters input method with prefix modifiers |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
726 |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
727 effect | prefix | examples |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
728 ------------+--------+---------- |
88786 | 729 acute | ' | 'a -> á |
730 grave | ` | `a -> à | |
731 circumflex | ^ | ^a -> â | |
732 diaeresis | \" | \"a -> ä, \"Y -> Ÿ | |
733 tilde | ~ | ~a -> ã | |
734 caron | ~ | ~z -> ž | |
735 cedilla | ~ | ~c -> ç | |
736 misc | \" ~ / | \"s -> ß ~d -> ð ~t -> þ /a -> å /e -> æ /o -> ø | |
737 | \" ~ / | /o -> œ | |
738 symbol | ~ | ~> -> » ~< -> « ~! -> ¡ ~? -> ¿ ~~ -> ž | |
739 | ~ | ~s -> § ~e -> € ~. -> · ~$ -> £ ~u -> µ | |
740 | ~ | ~- -> ~= -> ¯ | |
741 symbol | _ / | _o -> º _a -> ª // -> ° /\\ -> × _y -> ¥ | |
742 | _ / | _: -> ÷ /c -> ¢ ~p -> ¶ | |
743 | _ / | /= -> ¬ | |
744 symbol | ^ | ^r -> ® ^c -> © ^1 -> ¹ ^2 -> ² ^3 -> ³ _a -> ª | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
745 " nil t nil nil nil nil nil nil nil nil t) |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
746 |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
747 (quail-define-rules |
88786 | 748 ("'A" ?Á) |
749 ("'E" ?É) | |
750 ("'I" ?Í) | |
751 ("'O" ?Ó) | |
752 ("'U" ?Ú) | |
753 ("'Y" ?Ý) | |
754 ("'a" ?á) | |
755 ("'e" ?é) | |
756 ("'i" ?í) | |
757 ("'o" ?ó) | |
758 ("'u" ?ú) | |
759 ("'y" ?ý) | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
760 ("' " ?') |
88786 | 761 ("`A" ?À) |
762 ("`E" ?È) | |
763 ("`I" ?Ì) | |
764 ("`O" ?Ò) | |
765 ("`U" ?Ù) | |
766 ("`a" ?à) | |
767 ("`e" ?è) | |
768 ("`i" ?ì) | |
769 ("`o" ?ò) | |
770 ("`u" ?ù) | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
771 ("``" ?`) |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
772 ("` " ?`) |
88786 | 773 ("^A" ?Â) |
774 ("^E" ?Ê) | |
775 ("^I" ?Î) | |
776 ("^O" ?Ô) | |
777 ("^U" ?Û) | |
778 ("^a" ?â) | |
779 ("^e" ?ê) | |
780 ("^i" ?î) | |
781 ("^o" ?ô) | |
782 ("^u" ?û) | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
783 ("^^" ?^) |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
784 ("^ " ?^) |
88786 | 785 ("\"A" ?Ä) |
786 ("\"E" ?Ë) | |
787 ("\"I" ?Ï) | |
788 ("\"O" ?Ö) | |
789 ("\"U" ?Ü) | |
790 ("\"a" ?ä) | |
791 ("\"e" ?ë) | |
792 ("\"i" ?ï) | |
793 ("\"o" ?ö) | |
794 ("\"s" ?ß) | |
795 ("\"u" ?ü) | |
796 ("\"y" ?ÿ) | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
797 ("\" " ?\") |
88786 | 798 ("~A" ?Ã) |
799 ("~C" ?Ç) | |
800 ("~D" ?Ð) | |
801 ("~N" ?Ñ) | |
802 ("~O" ?Õ) | |
803 ("~S" ?Š) | |
804 ("~T" ?Þ) | |
805 ("~Z" ?Ž) | |
806 ("~a" ?ã) | |
807 ("~c" ?ç) | |
808 ("~d" ?ð) | |
809 ("~n" ?ñ) | |
810 ("~o" ?õ) | |
811 ("~s" ?š) | |
812 ("~t" ?þ) | |
813 ("~z" ?ž) | |
814 ("~>" ?\») | |
815 ("~<" ?\«) | |
816 ("~!" ?¡) | |
817 ("~?" ?¿) | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
818 ("~ " ?~) |
88786 | 819 ("~_" ? ) |
820 ("/A" ?Å) | |
821 ("/E" ?Æ) | |
822 ("/O" ?Ø) | |
823 ("/a" ?å) | |
824 ("/e" ?æ) | |
825 ("/o" ?ø) | |
826 ("//" ?°) | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
827 ("/ " ?/) |
88786 | 828 ("_o" ?º) |
829 ("_a" ?ª) | |
830 ("_+" ?±) | |
831 ("_y" ?¥) | |
832 ("_:" ?÷) | |
833 ("/c" ?¢) | |
834 ("/\\" ?×) | |
835 ("/o" ?œ) ; clash with ø, but æ uses / | |
836 ("/O" ?Œ) | |
837 ("\"Y" ?Ÿ) | |
838 ("~s" ?§) | |
839 ("~p" ?¶) | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
840 ;; Is this the best option for Euro entry? |
88786 | 841 ("~e" ?€) |
842 ("~." ?·) | |
843 ("~$" ?£) | |
844 ("~u" ?µ) | |
845 ("^r" ?®) | |
846 ("^c" ?©) | |
847 ("^1" ?¹) | |
848 ("^2" ?²) | |
849 ("^3" ?³) | |
850 ("~-" ?) | |
851 ("~=" ?¯) | |
852 ("/=" ?¬)) | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
853 |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
854 ;; Latin-8 was done by an Englishman -- Johnny Celt should take a |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
855 ;; squint at it. |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
856 |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
857 (quail-define-package |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
858 "latin-8-prefix" "Latin-8" "8>" t |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
859 "Latin-8 characters input method with prefix modifiers |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
860 |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
861 effect | prefix | examples |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
862 ------------+--------+---------- |
88786 | 863 acute | ' | 'a -> á |
864 grave | ` | `a -> à | |
865 circumflex | ^ | ^w -> ŵ | |
866 diaeresis | \" | \"a -> ä | |
867 dot above | . | .b -> ḃ | |
868 tilde | ~ | ~a -> ã | |
869 cedilla | ~ | ~c -> ç | |
870 misc | \" ~ / | \"s -> ß /a -> å /e -> æ /o -> ø | |
871 | ~ | ~s -> § ~$ -> £ ~p -> ¶ | |
872 symbol | ^ | ^r -> ® ^c -> © | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
873 " nil t nil nil nil nil nil nil nil nil t) |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
874 |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
875 ;; Basically following Latin-1 plus dottiness from Latin-3. |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
876 (quail-define-rules |
88786 | 877 (".B" ?Ḃ) |
878 (".b" ?ḃ) | |
879 (".c" ?ċ) | |
880 (".C" ?Ċ) | |
881 (".D" ?Ḋ) | |
882 (".d" ?ḋ) | |
883 (".f" ?ḟ) | |
884 (".F" ?Ḟ) | |
885 (".g" ?ġ) | |
886 (".G" ?Ġ) | |
887 (".m" ?ṁ) | |
888 (".M" ?Ṁ) | |
889 (".p" ?ṗ) | |
890 (".P" ?Ṗ) | |
891 (".s" ?ṡ) | |
892 (".S" ?Ṡ) | |
893 (".t" ?ṫ) | |
894 (".T" ?Ṫ) | |
895 ("'A" ?Á) | |
896 ("'E" ?É) | |
897 ("'I" ?Í) | |
898 ("'O" ?Ó) | |
899 ("'U" ?Ú) | |
900 ("'Y" ?Ý) | |
901 ("'W" ?Ẃ) | |
902 ("'a" ?á) | |
903 ("'e" ?é) | |
904 ("'i" ?í) | |
905 ("'o" ?ó) | |
906 ("'u" ?ú) | |
907 ("'w" ?ẃ) | |
908 ("'y" ?ý) | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
909 ("' " ?') |
88786 | 910 ("`A" ?À) |
911 ("`E" ?È) | |
912 ("`I" ?Ì) | |
913 ("`O" ?Ò) | |
914 ("`U" ?Ù) | |
915 ("`W" ?Ẁ) | |
916 ("`Y" ?Ỳ) | |
917 ("`a" ?à) | |
918 ("`e" ?è) | |
919 ("`i" ?ì) | |
920 ("`o" ?ò) | |
921 ("`u" ?ù) | |
922 ("`w" ?ẁ) | |
923 ("`y" ?ỳ) | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
924 ("``" ?`) |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
925 ("` " ?`) |
88786 | 926 ("^A" ?Â) |
927 ("^E" ?Ê) | |
928 ("^I" ?Î) | |
929 ("^O" ?Ô) | |
930 ("^U" ?Û) | |
931 ("^a" ?â) | |
932 ("^e" ?ê) | |
933 ("^i" ?î) | |
934 ("^o" ?ô) | |
935 ("^u" ?û) | |
936 ("^w" ?ŵ) | |
937 ("^W" ?Ŵ) | |
938 ("^y" ?ŷ) | |
939 ("^Y" ?Ŷ) | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
940 ("^^" ?^) |
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
941 ("^ " ?^) |
88786 | 942 ("\"A" ?Ä) |
943 ("\"E" ?Ë) | |
944 ("\"I" ?Ï) | |
945 ("\"O" ?Ö) | |
946 ("\"U" ?Ü) | |
947 ("\"a" ?ä) | |
948 ("\"e" ?ë) | |
949 ("\"i" ?ï) | |
950 ("\"o" ?ö) | |
951 ("\"s" ?ß) | |
952 ("\"u" ?ü) | |
953 ("\"w" ?ẅ) | |
954 ("\"W" ?Ẅ) | |
955 ("\"y" ?ÿ) | |
956 ("\"Y" ?Ÿ) | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
957 ("\" " ?\") |
88786 | 958 ("~A" ?Ã) |
959 ("~C" ?Ç) | |
960 ("~N" ?Ñ) | |
961 ("~O" ?Õ) | |
962 ("~a" ?ã) | |
963 ("~c" ?ç) | |
964 ("~n" ?ñ) | |
965 ("~o" ?õ) | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
966 ("~ " ?~) |
88786 | 967 ("~_" ? ) |
968 ("/A" ?Å) | |
969 ("/E" ?Æ) | |
970 ("/O" ?Ø) | |
971 ("/a" ?å) | |
972 ("/e" ?æ) | |
973 ("/o" ?ø) | |
974 ("/ " ?/) | |
975 ("~p" ?¶) | |
976 ("~s" ?§) | |
977 ("~$" ?£) | |
978 ("^r" ?®) | |
979 ("^c" ?©)) | |
980 | |
981 | |
982 (quail-define-package | |
983 "latin-prefix" "Latin" "L>" t | |
984 "Latin characters input method with prefix modifiers. | |
985 This is the union of various input methods originally made for input | |
986 of characters from a single Latin-N charset. | |
987 | |
988 effect | prefix | examples | |
989 ------------+--------+---------- | |
990 acute | ' | 'a -> á, '' -> ´ | |
991 grave | ` | `a -> à | |
992 circumflex | ^ | ^a -> â | |
993 diaeresis | \" | \"a -> ä \"\" -> ¨ | |
994 tilde | ~ | ~a -> ã | |
995 cedilla | ~ | ~c -> ç | |
996 breve | ~ | ~a -> ă | |
997 caron | ~ | ~c -> č | |
998 dot above | ~ / . | ~o -> ġ /o -> ġ .o -> ġ | |
999 misc | \" ~ / | \"s -> ß ~d -> ð ~t -> þ /a -> å /e -> æ /o -> ø | |
1000 symbol | ~ | ~> -> » ~< -> « ~! -> ¡ ~? -> ¿ ~~ -> ¸ | |
1001 symbol | _ / | _o -> º _a -> ª // -> ° /\\ -> × _y -> ¥ | |
1002 symbol | ^ | ^r -> ® ^c -> © ^1 -> ¹ ^2 -> ² ^3 -> ³ | |
1003 " nil t nil nil nil nil nil nil nil nil t) | |
1004 | |
1005 (quail-define-rules | |
1006 ("' " ?') | |
1007 ("''" ?´) | |
1008 ("'A" ?Á) | |
1009 ("'E" ?É) | |
1010 ("'I" ?Í) | |
1011 ("'O" ?Ó) | |
1012 ("'U" ?Ú) | |
1013 ("'W" ?Ẃ) | |
1014 ("'Y" ?Ý) | |
1015 ("'a" ?á) | |
1016 ("'e" ?é) | |
1017 ("'i" ?í) | |
1018 ("'o" ?ó) | |
1019 ("'u" ?ú) | |
1020 ("'w" ?ẃ) | |
1021 ("'y" ?ý) | |
1022 (".B" ?Ḃ) | |
1023 (".C" ?Ċ) | |
1024 (".D" ?Ḋ) | |
1025 (".F" ?Ḟ) | |
1026 (".G" ?Ġ) | |
1027 (".I" ?İ) | |
1028 (".M" ?Ṁ) | |
1029 (".P" ?Ṗ) | |
1030 (".S" ?Ṡ) | |
1031 (".T" ?Ṫ) | |
1032 (".Z" ?Ż) | |
1033 (".b" ?ḃ) | |
1034 (".c" ?ċ) | |
1035 (".d" ?ḋ) | |
1036 (".f" ?ḟ) | |
1037 (".g" ?ġ) | |
1038 (".m" ?ṁ) | |
1039 (".p" ?ṗ) | |
1040 (".s" ?ṡ) | |
1041 (".t" ?ṫ) | |
1042 (".z" ?ż) | |
31268
4c6d8d40e71c
("latin-9-prefix"): Change entries for ? and ?.
Dave Love <fx@gnu.org>
parents:
31134
diff
changeset
|
1043 ("/ " ?/) |
88786 | 1044 ("/#" ?£) |
1045 ("/$" ?¤) | |
1046 ("/." ?˙) | |
1047 ("//" ?°) | |
1048 ("/2" ?½) | |
1049 ("/3" ?¾) | |
1050 ("/4" ?¼) | |
1051 ("/=" ?¬) | |
1052 ("/A" ?Å) | |
1053 ("/C" ?Ċ) | |
1054 ("/E" ?Æ) | |
1055 ("/G" ?Ġ) | |
1056 ("/H" ?Ħ) | |
1057 ("/I" ?İ) | |
1058 ("/O" ?Ø) | |
1059 ("/O" ?Œ) | |
1060 ("/Z" ?Ż) | |
1061 ("/\\" ?×) | |
1062 ("/a" ?å) | |
1063 ("/c" ?¢) | |
1064 ("/c" ?ċ) | |
1065 ("/e" ?æ) | |
1066 ("/g" ?ġ) | |
1067 ("/h" ?ħ) | |
1068 ("/i" ?ı) | |
1069 ("/o" ?ø) | |
1070 ("/o" ?œ) | |
1071 ("/z" ?ż) | |
1072 ("\" " ?\") | |
1073 ("\"A" ?Ä) | |
1074 ("\"E" ?Ë) | |
1075 ("\"I" ?Ï) | |
1076 ("\"O" ?Ö) | |
1077 ("\"U" ?Ü) | |
1078 ("\"W" ?Ẅ) | |
1079 ("\"Y" ?Ÿ) | |
1080 ("\"\"" ?¨) | |
1081 ("\"a" ?ä) | |
1082 ("\"e" ?ë) | |
1083 ("\"i" ?ï) | |
1084 ("\"o" ?ö) | |
1085 ("\"s" ?ß) | |
1086 ("\"u" ?ü) | |
1087 ("\"w" ?ẅ) | |
1088 ("\"y" ?ÿ) | |
1089 ("^ " ?^) | |
1090 ("^1" ?¹) | |
1091 ("^2" ?²) | |
1092 ("^3" ?³) | |
1093 ("^A" ?Â) | |
1094 ("^C" ?Ĉ) | |
1095 ("^E" ?Ê) | |
1096 ("^G" ?Ĝ) | |
1097 ("^H" ?Ĥ) | |
1098 ("^I" ?Î) | |
1099 ("^J" ?Ĵ) | |
1100 ("^O" ?Ô) | |
1101 ("^S" ?Ŝ) | |
1102 ("^U" ?Û) | |
1103 ("^W" ?Ŵ) | |
1104 ("^Y" ?Ŷ) | |
1105 ("^^" ?^) | |
1106 ("^a" ?â) | |
1107 ("^c" ?©) | |
1108 ("^c" ?ĉ) | |
1109 ("^e" ?ê) | |
1110 ("^g" ?ĝ) | |
1111 ("^h" ?ĥ) | |
1112 ("^i" ?î) | |
1113 ("^j" ?ĵ) | |
1114 ("^o" ?ô) | |
1115 ("^r" ?®) | |
1116 ("^s" ?ŝ) | |
1117 ("^u" ?û) | |
1118 ("^w" ?ŵ) | |
1119 ("^y" ?ŷ) | |
1120 ("_+" ?±) | |
1121 ("_:" ?÷) | |
1122 ("_a" ?ª) | |
1123 ("_o" ?º) | |
1124 ("_y" ?¥) | |
1125 ("_ " ? ) | |
1126 ("` " ?`) | |
1127 ("`A" ?À) | |
1128 ("`E" ?È) | |
1129 ("`I" ?Ì) | |
1130 ("`O" ?Ò) | |
1131 ("`U" ?Ù) | |
1132 ("`W" ?Ẁ) | |
1133 ("`Y" ?Ỳ) | |
1134 ("``" ?`) | |
1135 ("`a" ?à) | |
1136 ("`e" ?è) | |
1137 ("`i" ?ì) | |
1138 ("`o" ?ò) | |
1139 ("`u" ?ù) | |
1140 ("`w" ?ẁ) | |
1141 ("`y" ?ỳ) | |
1142 ("~ " ?~) | |
1143 ("~!" ?¡) | |
1144 ("~$" ?£) | |
1145 ("~-" ?) | |
1146 ("~." ?·) | |
1147 ("~<" ?\«) | |
1148 ("~=" ?¯) | |
1149 ("~>" ?\») | |
1150 ("~?" ?¿) | |
1151 ("~A" ?Ã) | |
1152 ("~C" ?Ç) | |
1153 ("~D" ?Ð) | |
1154 ("~G" ?Ğ) | |
1155 ("~N" ?Ñ) | |
1156 ("~O" ?Õ) | |
1157 ("~O" ?Ġ) | |
1158 ("~S" ?Ş) | |
1159 ("~S" ?Š) | |
1160 ("~T" ?Þ) | |
1161 ("~U" ?Ŭ) | |
1162 ("~Z" ?Ž) | |
1163 ("~`" ?˘) | |
1164 ("~a" ?ã) | |
1165 ("~c" ?ç) | |
1166 ("~d" ?ð) | |
1167 ("~e" ?€) | |
1168 ("~g" ?ğ) | |
1169 ("~n" ?ñ) | |
1170 ("~o" ?õ) | |
1171 ("~o" ?ġ) | |
1172 ("~p" ?¶) | |
1173 ("~s" ?§) | |
1174 ("~s" ?ş) | |
1175 ("~s" ?š) | |
1176 ("~t" ?þ) | |
1177 ("~u" ?µ) | |
1178 ("~u" ?ŭ) | |
1179 ("~x" ?¤) | |
1180 ("~z" ?ž) | |
1181 ("~|" ?¦) | |
1182 ("~~" ?¸) | |
1183 ) | |
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
34694
diff
changeset
|
1184 |
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
34694
diff
changeset
|
1185 ;;; latin-pre.el ends here |