latin-post.el 46.8 KB
Newer Older
Dave Love's avatar
Dave Love committed
1
;;; latin-post.el --- Quail packages for inputting various European characters  -*-coding: iso-2022-7bit;-*-
Kenichi Handa's avatar
Kenichi Handa committed
2

3 4 5 6
;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007
;;   Free Software Foundation, Inc.
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
;;   2006, 2007
Kenichi Handa's avatar
Kenichi Handa committed
7 8
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H14PRO021
Kenichi Handa's avatar
Kenichi Handa committed
9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

;; Keywords: multilingual, input method, latin

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
Lute Kamstra's avatar
Lute Kamstra committed
26 27
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
Kenichi Handa's avatar
Kenichi Handa committed
28 29 30

;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp>

31 32 33 34
;;; Commentary:

;;; Code:

Kenichi Handa's avatar
Kenichi Handa committed
35 36 37
(require 'quail)

(quail-define-package
38
 "latin-1-postfix" "Latin-1" "1<" t
39
 "Latin-1 character input method with postfix modifiers
Kenichi Handa's avatar
Kenichi Handa committed
40

41
             | postfix | examples
Kenichi Handa's avatar
Kenichi Handa committed
42
 ------------+---------+----------
43 44
  acute      |    '    | a' -> ,Aa(B
  grave      |    `    | a` -> ,A`(B
Kenichi Handa's avatar
Kenichi Handa committed
45 46
  circumflex |    ^    | a^ -> ,Ab(B
  diaeresis  |    \"    | a\" -> ,Ad(B
47
  tilde      |    ~    | a~ -> ,Ac(B
Richard M. Stallman's avatar
Richard M. Stallman committed
48
  cedilla    |    ,    | c, -> ,Ag(B
49
  nordic     |    /    | d/ -> ,Ap(B   t/ -> ,A~(B   a/ -> ,Ae(B   e/ -> ,Af(B   o/ -> ,Ax(B
Richard M. Stallman's avatar
Richard M. Stallman committed
50
  others     |    /    | s/ -> ,A_(B   ?/ -> ,A?(B   !/ -> ,A!(B   // -> ,A0(B
51
             | various | << -> ,A+(B   >> -> ,A;(B   o_ -> ,A:(B   a_ -> ,A*(B
52 53

Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
54
" nil t nil nil nil nil nil nil nil nil t)
Kenichi Handa's avatar
Kenichi Handa committed
55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80

(quail-define-rules
 ("A`" ?,A@(B)
 ("A'" ?,AA(B)
 ("A^" ?,AB(B)
 ("A~" ?,AC(B)
 ("A\"" ?,AD(B)
 ("A/" ?,AE(B)
 ("a`" ?,A`(B)
 ("a'" ?,Aa(B)
 ("a^" ?,Ab(B)
 ("a~" ?,Ac(B)
 ("a\"" ?,Ad(B)
 ("a/" ?,Ae(B)
 ("E`" ?,AH(B)
 ("E'" ?,AI(B)
 ("E^" ?,AJ(B)
 ("E\"" ?,AK(B)
 ("E/" ?,AF(B)
 ("e`" ?,Ah(B)
 ("e'" ?,Ai(B)
 ("e^" ?,Aj(B)
 ("e\"" ?,Ak(B)
 ("e/" ?,Af(B)
 ("I`" ?,AL(B)
 ("i`" ?,Al(B)
81
 ("I'" ?,AM(B)
Kenichi Handa's avatar
Kenichi Handa committed
82
 ("i'" ?,Am(B)
83
 ("I^" ?,AN(B)
Kenichi Handa's avatar
Kenichi Handa committed
84
 ("i^" ?,An(B)
85
 ("I\"" ?,AO(B)
Kenichi Handa's avatar
Kenichi Handa committed
86 87 88
 ("i\"" ?,Ao(B)
 ("O`" ?,AR(B)
 ("o`" ?,Ar(B)
89
 ("O'" ?,AS(B)
Kenichi Handa's avatar
Kenichi Handa committed
90
 ("o'" ?,As(B)
91
 ("O^" ?,AT(B)
Kenichi Handa's avatar
Kenichi Handa committed
92
 ("o^" ?,At(B)
93
 ("O~" ?,AU(B)
Kenichi Handa's avatar
Kenichi Handa committed
94
 ("o~" ?,Au(B)
95
 ("O\"" ?,AV(B)
Kenichi Handa's avatar
Kenichi Handa committed
96
 ("o\"" ?,Av(B)
97
 ("O/" ?,AX(B)
Kenichi Handa's avatar
Kenichi Handa committed
98 99 100
 ("o/" ?,Ax(B)
 ("U`" ?,AY(B)
 ("u`" ?,Ay(B)
101
 ("U'" ?,AZ(B)
Kenichi Handa's avatar
Kenichi Handa committed
102
 ("u'" ?,Az(B)
103
 ("U^" ?,A[(B)
Kenichi Handa's avatar
Kenichi Handa committed
104
 ("u^" ?,A{(B)
105
 ("U\"" ?,A\(B)
Kenichi Handa's avatar
Kenichi Handa committed
106 107 108
 ("u\"" ?,A|(B)
 ("Y'" ?,A](B)
 ("y'" ?,A}(B)
109
 ("y\"" ?,A(B)
Kenichi Handa's avatar
Kenichi Handa committed
110 111 112 113 114
 ("D/" ?,AP(B)
 ("d/" ?,Ap(B)
 ("T/" ?,A^(B)
 ("t/" ?,A~(B)
 ("s/" ?,A_(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
115 116
 ("C," ?,AG(B)
 ("c," ?,Ag(B)
Kenichi Handa's avatar
Kenichi Handa committed
117 118 119 120 121
 ("N~" ?,AQ(B)
 ("n~" ?,Aq(B)
 ("?/" ?,A?(B)
 ("!/" ?,A!(B)
 ("<<" ?,A+(B)
122
 (">>" ?,A;(B)
123 124
 ("o_" ?,A:(B)
 ("a_" ?,A*(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
125
 ("//" ?,A0(B)
126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184

 ("A``" ["A`"])
 ("A''" ["A'"])
 ("A^^" ["A^"])
 ("A~~" ["A~"])
 ("A\"\"" ["A\""])
 ("A//" ["A/"])
 ("a``" ["a`"])
 ("a''" ["a'"])
 ("a^^" ["a^"])
 ("a~~" ["a~"])
 ("a\"\"" ["a\""])
 ("a//" ["a/"])
 ("E``" ["E`"])
 ("E''" ["E'"])
 ("E^^" ["E^"])
 ("E\"\"" ["E\""])
 ("E//" ["E/"])
 ("e``" ["e`"])
 ("e''" ["e'"])
 ("e^^" ["e^"])
 ("e\"\"" ["e\""])
 ("e//" ["e/"])
 ("I``" ["I`"])
 ("i``" ["i`"])
 ("I''" ["I'"])
 ("i''" ["i'"])
 ("I^^" ["I^"])
 ("i^^" ["i^"])
 ("I\"\"" ["I\""])
 ("i\"\"" ["i\""])
 ("O``" ["O`"])
 ("o``" ["o`"])
 ("O''" ["O'"])
 ("o''" ["o'"])
 ("O^^" ["O^"])
 ("o^^" ["o^"])
 ("O~~" ["O~"])
 ("o~~" ["o~"])
 ("O\"\"" ["O\""])
 ("o\"\"" ["o\""])
 ("O//" ["O/"])
 ("o//" ["o/"])
 ("U``" ["U`"])
 ("u``" ["u`"])
 ("U''" ["U'"])
 ("u''" ["u'"])
 ("U^^" ["U^"])
 ("u^^" ["u^"])
 ("U\"\"" ["U\""])
 ("u\"\"" ["u\""])
 ("Y''" ["Y'"])
 ("y''" ["y'"])
 ("y\"\"" ["y\""])
 ("D//" ["D/"])
 ("d//" ["d/"])
 ("T//" ["T/"])
 ("t//" ["t/"])
 ("s//" ["s/"])
Richard M. Stallman's avatar
Richard M. Stallman committed
185 186
 ("C,," ["C,"])
 ("c,," ["c,"])
187 188 189 190 191 192
 ("N~~" ["N~"])
 ("n~~" ["n~"])
 ("?//" ["?/"])
 ("!//" ["!/"])
 ("<<<" ["<<"])
 (">>>" [">>"])
193 194
 ("o__" ["o_"])
 ("a__" ["a_"])
Richard M. Stallman's avatar
Richard M. Stallman committed
195
 ("///" ["//"])
196
 )
Kenichi Handa's avatar
Kenichi Handa committed
197 198

(quail-define-package
199
 "latin-2-postfix" "Latin-2" "2<" t
200
 "Latin-2 character input method with postfix modifiers
Kenichi Handa's avatar
Kenichi Handa committed
201

202
             | postfix | examples
Kenichi Handa's avatar
Kenichi Handa committed
203
 ------------+---------+----------
204
  acute      |    '    | a' -> ,Ba(B
Richard M. Stallman's avatar
Richard M. Stallman committed
205
  ogonek     |    ,    | a, -> ,B1(B
Kenichi Handa's avatar
Kenichi Handa committed
206 207
  diaeresis  |    \"    | a\" -> ,Bd(B
  circumflex |    ^    | a^ -> ,Bb(B
208
  breve      |    ~    | a~ -> ,Bc(B
Richard M. Stallman's avatar
Richard M. Stallman committed
209
  cedilla    |    ,    | c, -> ,Bg(B
210
  caron      |    ~    | c~ -> ,Bh(B
Richard M. Stallman's avatar
Richard M. Stallman committed
211 212 213
  dbl. acute |    :    | o: -> ,Bu(B
  ring       |    .    | u. -> ,By(B
  dot        |    .    | z. -> ,B?(B
214 215 216 217
  stroke     |    /    | d/ -> ,Bp(B
  others     |    /    | s/ -> ,B_(B

Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
218
" nil t nil nil nil nil nil nil nil nil t)
Kenichi Handa's avatar
Kenichi Handa committed
219 220 221

(quail-define-rules
 ("A'" ?,BA(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
222
 ("A," ?,B!(B)
Kenichi Handa's avatar
Kenichi Handa committed
223 224 225 226
 ("A\"" ?,BD(B)
 ("A^" ?,BB(B)
 ("A~" ?,BC(B)
 ("C'" ?,BF(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
227
 ("C," ?,BG(B)
Kenichi Handa's avatar
Kenichi Handa committed
228 229 230 231
 ("C~" ?,BH(B)
 ("D/" ?,BP(B)
 ("D~" ?,BO(B)
 ("E'" ?,BI(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
232
 ("E," ?,BJ(B)
Kenichi Handa's avatar
Kenichi Handa committed
233 234 235 236 237 238 239 240 241 242
 ("E\"" ?,BK(B)
 ("E~" ?,BL(B)
 ("I'" ?,BM(B)
 ("I^" ?,BN(B)
 ("L'" ?,BE(B)
 ("L/" ?,B#(B)
 ("L~" ?,B%(B)
 ("N'" ?,BQ(B)
 ("N~" ?,BR(B)
 ("O'" ?,BS(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
243
 ("O:" ?,BU(B)
Kenichi Handa's avatar
Kenichi Handa committed
244 245 246 247 248
 ("O\"" ?,BV(B)
 ("O^" ?,BT(B)
 ("R'" ?,B@(B)
 ("R~" ?,BX(B)
 ("S'" ?,B&(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
249
 ("S," ?,B*(B)
Kenichi Handa's avatar
Kenichi Handa committed
250
 ("S~" ?,B)(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
251
 ("T," ?,B^(B)
Kenichi Handa's avatar
Kenichi Handa committed
252 253
 ("T~" ?,B+(B)
 ("U'" ?,BZ(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
254
 ("U:" ?,B[(B)
Kenichi Handa's avatar
Kenichi Handa committed
255
 ("U\"" ?,B\(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
256
 ("U." ?,BY(B)
Kenichi Handa's avatar
Kenichi Handa committed
257 258
 ("Y'" ?,B](B)
 ("Z'" ?,B,(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
259
 ("Z." ?,B/(B)
Kenichi Handa's avatar
Kenichi Handa committed
260 261
 ("Z~" ?,B.(B)
 ("a'" ?,Ba(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
262
 ("a," ?,B1(B)
Kenichi Handa's avatar
Kenichi Handa committed
263 264 265 266
 ("a\"" ?,Bd(B)
 ("a^" ?,Bb(B)
 ("a~" ?,Bc(B)
 ("c'" ?,Bf(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
267
 ("c," ?,Bg(B)
Kenichi Handa's avatar
Kenichi Handa committed
268 269 270 271
 ("c~" ?,Bh(B)
 ("d/" ?,Bp(B)
 ("d~" ?,Bo(B)
 ("e'" ?,Bi(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
272
 ("e," ?,Bj(B)
Kenichi Handa's avatar
Kenichi Handa committed
273 274 275 276 277 278 279 280 281 282
 ("e\"" ?,Bk(B)
 ("e~" ?,Bl(B)
 ("i'" ?,Bm(B)
 ("i^" ?,Bn(B)
 ("l'" ?,Be(B)
 ("l/" ?,B3(B)
 ("l~" ?,B5(B)
 ("n'" ?,Bq(B)
 ("n~" ?,Br(B)
 ("o'" ?,Bs(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
283
 ("o:" ?,Bu(B)
Kenichi Handa's avatar
Kenichi Handa committed
284 285 286 287 288
 ("o\"" ?,Bv(B)
 ("o^" ?,Bt(B)
 ("r'" ?,B`(B)
 ("r~" ?,Bx(B)
 ("s'" ?,B6(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
289
 ("s," ?,B:(B)
Kenichi Handa's avatar
Kenichi Handa committed
290 291
 ("s/" ?,B_(B)
 ("s~" ?,B9(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
292
 ("t," ?,B~(B)
Kenichi Handa's avatar
Kenichi Handa committed
293 294
 ("t~" ?,B;(B)
 ("u'" ?,Bz(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
295
 ("u:" ?,B{(B)
Kenichi Handa's avatar
Kenichi Handa committed
296
 ("u\"" ?,B|(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
297
 ("u." ?,By(B)
Kenichi Handa's avatar
Kenichi Handa committed
298 299
 ("y'" ?,B}(B)
 ("z'" ?,B<(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
300
 ("z." ?,B?(B)
Kenichi Handa's avatar
Kenichi Handa committed
301
 ("z~" ?,B>(B)
302 303

 ("A''" ["A'"])
Richard M. Stallman's avatar
Richard M. Stallman committed
304
 ("A,," ["A,"])
305 306 307 308
 ("A\"\"" ["A\""])
 ("A^^" ["A^"])
 ("A~~" ["A~"])
 ("C''" ["C'"])
Richard M. Stallman's avatar
Richard M. Stallman committed
309
 ("C,," ["C,"])
310 311 312 313
 ("C~~" ["C~"])
 ("D//" ["D/"])
 ("D~~" ["D~"])
 ("E''" ["E'"])
Richard M. Stallman's avatar
Richard M. Stallman committed
314
 ("E,," ["E,"])
315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330
 ("E\"\"" ["E\""])
 ("E~~" ["E~"])
 ("I''" ["I'"])
 ("I^^" ["I^"])
 ("L''" ["L'"])
 ("L//" ["L/"])
 ("L~~" ["L~"])
 ("N''" ["N'"])
 ("N~~" ["N~"])
 ("O''" ["O'"])
 ("O::" ["O:"])
 ("O\"\"" ["O\""])
 ("O^^" ["O^"])
 ("R''" ["R'"])
 ("R~~" ["R~"])
 ("S''" ["S'"])
Richard M. Stallman's avatar
Richard M. Stallman committed
331
 ("S,," ["S,"])
332
 ("S~~" ["S~"])
Richard M. Stallman's avatar
Richard M. Stallman committed
333
 ("T,," ["T,"])
334 335 336 337
 ("T~~" ["T~"])
 ("U''" ["U'"])
 ("U::" ["U:"])
 ("U\"\"" ["U\""])
Richard M. Stallman's avatar
Richard M. Stallman committed
338
 ("U.." ["U."])
339 340
 ("Y''" ["Y'"])
 ("Z''" ["Z'"])
Richard M. Stallman's avatar
Richard M. Stallman committed
341
 ("Z.." ["Z."])
342 343
 ("Z~~" ["Z~"])
 ("a''" ["a'"])
Richard M. Stallman's avatar
Richard M. Stallman committed
344
 ("a,," ["a,"])
345 346 347 348
 ("a\"\"" ["a\""])
 ("a^^" ["a^"])
 ("a~~" ["a~"])
 ("c''" ["c'"])
Richard M. Stallman's avatar
Richard M. Stallman committed
349
 ("c,," ["c,"])
350 351 352 353
 ("c~~" ["c~"])
 ("d//" ["d/"])
 ("d~~" ["d~"])
 ("e''" ["e'"])
Richard M. Stallman's avatar
Richard M. Stallman committed
354
 ("e,," ["e,"])
355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370
 ("e\"\"" ["e\""])
 ("e~~" ["e~"])
 ("i''" ["i'"])
 ("i^^" ["i^"])
 ("l''" ["l'"])
 ("l//" ["l/"])
 ("l~~" ["l~"])
 ("n''" ["n'"])
 ("n~~" ["n~"])
 ("o''" ["o'"])
 ("o::" ["o:"])
 ("o\"\"" ["o\""])
 ("o^^" ["o^"])
 ("r''" ["r'"])
 ("r~~" ["r~"])
 ("s''" ["s'"])
Richard M. Stallman's avatar
Richard M. Stallman committed
371
 ("s,," ["s,"])
372 373
 ("s//" ["s/"])
 ("s~~" ["s~"])
Richard M. Stallman's avatar
Richard M. Stallman committed
374
 ("t,," ["t,"])
375 376 377 378
 ("t~~" ["t~"])
 ("u''" ["u'"])
 ("u::" ["u:"])
 ("u\"\"" ["u\""])
Richard M. Stallman's avatar
Richard M. Stallman committed
379
 ("u.." ["u."])
380 381
 ("y''" ["y'"])
 ("z''" ["z'"])
Richard M. Stallman's avatar
Richard M. Stallman committed
382
 ("z.." ["z."])
383
 ("z~~" ["z~"])
Kenichi Handa's avatar
Kenichi Handa committed
384 385 386
 )

(quail-define-package
387
 "latin-3-postfix" "Latin-3" "3<" t
388
 "Latin-3 character input method with postfix modifiers
Kenichi Handa's avatar
Kenichi Handa committed
389

390
             | postfix | examples
Kenichi Handa's avatar
Kenichi Handa committed
391
 ------------+---------+----------
392 393
  acute      |    '    | a' -> ,Ca(B
  grave      |    `    | a` -> ,C`(B
Kenichi Handa's avatar
Kenichi Handa committed
394 395
  circumflex |    ^    | a^ -> ,Cb(B
  diaeresis  |    \"    | a\" -> ,Cd(B
Richard M. Stallman's avatar
Richard M. Stallman committed
396 397
  dot        |    .    | c. -> ,Ce(B   i. -> ,C9(B   I. -> ,C)(B
  cedilla    |    ,    | c, -> ,Cg(B
398 399 400 401 402 403
  breve      |    ~    | g~ -> ,C;(B
  tilde      |    ~    | n~ -> ,Cq(B
  stroke     |    /    | h/ -> ,C1(B
  others     |    /    | s/ -> ,C_(B

Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
404
" nil t nil nil nil nil nil nil nil nil t)
Kenichi Handa's avatar
Kenichi Handa committed
405 406 407 408 409 410

(quail-define-rules
 ("A`" ?,C@(B)
 ("A'" ?,CA(B)
 ("A^" ?,CB(B)
 ("A\"" ?,CD(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
411
 ("C." ?,CE(B)
Kenichi Handa's avatar
Kenichi Handa committed
412
 ("C^" ?,CF(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
413
 ("C," ?,CG(B)
Kenichi Handa's avatar
Kenichi Handa committed
414 415 416 417 418
 ("E`" ?,CH(B)
 ("E'" ?,CI(B)
 ("E^" ?,CJ(B)
 ("E\"" ?,CK(B)
 ("G~" ?,C+(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
419
 ("G." ?,CU(B)
Kenichi Handa's avatar
Kenichi Handa committed
420 421 422
 ("G^" ?,CX(B)
 ("H/" ?,C!(B)
 ("H^" ?,C&(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
423
 ("I." ?,C)(B)
Kenichi Handa's avatar
Kenichi Handa committed
424 425 426 427 428 429 430 431 432 433
 ("I`" ?,CL(B)
 ("I'" ?,CM(B)
 ("I^" ?,CN(B)
 ("I\"" ?,CO(B)
 ("J^" ?,C,(B)
 ("N~" ?,CQ(B)
 ("O`" ?,CR(B)
 ("O'" ?,CS(B)
 ("O^" ?,CT(B)
 ("O\"" ?,CV(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
434
 ("S," ?,C*(B)
Kenichi Handa's avatar
Kenichi Handa committed
435 436 437 438 439 440
 ("S^" ?,C^(B)
 ("U`" ?,CY(B)
 ("U'" ?,CZ(B)
 ("U^" ?,C[(B)
 ("U\"" ?,C\(B)
 ("U~" ?,C](B)
Richard M. Stallman's avatar
Richard M. Stallman committed
441
 ("Z." ?,C/(B)
Kenichi Handa's avatar
Kenichi Handa committed
442 443 444 445
 ("a`" ?,C`(B)
 ("a'" ?,Ca(B)
 ("a^" ?,Cb(B)
 ("a\"" ?,Cd(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
446
 ("c." ?,Ce(B)
Kenichi Handa's avatar
Kenichi Handa committed
447
 ("c^" ?,Cf(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
448
 ("c," ?,Cg(B)
Kenichi Handa's avatar
Kenichi Handa committed
449 450 451 452 453
 ("e`" ?,Ch(B)
 ("e'" ?,Ci(B)
 ("e^" ?,Cj(B)
 ("e\"" ?,Ck(B)
 ("g~" ?,C;(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
454
 ("g." ?,Cu(B)
Kenichi Handa's avatar
Kenichi Handa committed
455 456 457
 ("g^" ?,Cx(B)
 ("h/" ?,C1(B)
 ("h^" ?,C6(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
458
 ("i." ?,C9(B)
Kenichi Handa's avatar
Kenichi Handa committed
459 460 461 462 463 464 465 466 467 468
 ("i`" ?,Cl(B)
 ("i'" ?,Cm(B)
 ("i^" ?,Cn(B)
 ("i\"" ?,Co(B)
 ("j^" ?,C<(B)
 ("n~" ?,Cq(B)
 ("o`" ?,Cr(B)
 ("o'" ?,Cs(B)
 ("o^" ?,Ct(B)
 ("o\"" ?,Cv(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
469
 ("s," ?,C:(B)
Kenichi Handa's avatar
Kenichi Handa committed
470 471 472 473 474 475 476
 ("s/" ?,C_(B)
 ("s^" ?,C~(B)
 ("u`" ?,Cy(B)
 ("u'" ?,Cz(B)
 ("u^" ?,C{(B)
 ("u\"" ?,C|(B)
 ("u~" ?,C}(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
477
 ("z." ?,C?(B)
478 479 480 481 482

 ("A``" ["A`"])
 ("A''" ["A'"])
 ("A^^" ["A^"])
 ("A\"\"" ["A\""])
Richard M. Stallman's avatar
Richard M. Stallman committed
483
 ("C.." ["C."])
484
 ("C^^" ["C^"])
Richard M. Stallman's avatar
Richard M. Stallman committed
485
 ("C,," ["C,"])
486 487 488 489 490
 ("E``" ["E`"])
 ("E''" ["E'"])
 ("E^^" ["E^"])
 ("E\"\"" ["E\""])
 ("G~~" ["G~"])
Richard M. Stallman's avatar
Richard M. Stallman committed
491
 ("G.." ["G."])
492 493 494
 ("G^^" ["G^"])
 ("H//" ["H/"])
 ("H^^" ["H^"])
Richard M. Stallman's avatar
Richard M. Stallman committed
495
 ("I.." ["I."])
496 497 498 499 500 501 502 503 504 505
 ("I``" ["I`"])
 ("I''" ["I'"])
 ("I^^" ["I^"])
 ("I\"\"" ["I\""])
 ("J^^" ["J^"])
 ("N~~" ["N~"])
 ("O``" ["O`"])
 ("O''" ["O'"])
 ("O^^" ["O^"])
 ("O\"\"" ["O\""])
Richard M. Stallman's avatar
Richard M. Stallman committed
506
 ("S,," ["S,"])
507 508 509 510 511 512
 ("S^^" ["S^"])
 ("U``" ["U`"])
 ("U''" ["U'"])
 ("U^^" ["U^"])
 ("U\"\"" ["U\""])
 ("U~~" ["U~"])
Richard M. Stallman's avatar
Richard M. Stallman committed
513
 ("Z.." ["Z."])
514 515 516 517
 ("a``" ["a`"])
 ("a''" ["a'"])
 ("a^^" ["a^"])
 ("a\"\"" ["a\""])
Richard M. Stallman's avatar
Richard M. Stallman committed
518
 ("c.." ["c."])
519
 ("c^^" ["c^"])
Richard M. Stallman's avatar
Richard M. Stallman committed
520
 ("c,," ["c,"])
521 522 523 524 525
 ("e``" ["e`"])
 ("e''" ["e'"])
 ("e^^" ["e^"])
 ("e\"\"" ["e\""])
 ("g~~" ["g~"])
Richard M. Stallman's avatar
Richard M. Stallman committed
526
 ("g.." ["g."])
527 528 529
 ("g^^" ["g^"])
 ("h//" ["h/"])
 ("h^^" ["h^"])
Richard M. Stallman's avatar
Richard M. Stallman committed
530
 ("i.." ["i."])
531 532 533 534 535 536 537 538 539 540
 ("i``" ["i`"])
 ("i''" ["i'"])
 ("i^^" ["i^"])
 ("i\"\"" ["i\""])
 ("j^^" ["j^"])
 ("n~~" ["n~"])
 ("o``" ["o`"])
 ("o''" ["o'"])
 ("o^^" ["o^"])
 ("o\"\"" ["o\""])
Richard M. Stallman's avatar
Richard M. Stallman committed
541
 ("s,," ["s,"])
542 543 544 545 546 547 548
 ("s//" ["s/"])
 ("s^^" ["s^"])
 ("u``" ["u`"])
 ("u''" ["u'"])
 ("u^^" ["u^"])
 ("u\"\"" ["u\""])
 ("u~~" ["u~"])
Richard M. Stallman's avatar
Richard M. Stallman committed
549
 ("z.." ["z."])
Kenichi Handa's avatar
Kenichi Handa committed
550 551 552
 )

(quail-define-package
553
 "latin-4-postfix" "Latin-4" "4<" t
Kenichi Handa's avatar
Kenichi Handa committed
554 555
 "Latin-4 characters input method with postfix modifiers

556
             | postfix | examples
Kenichi Handa's avatar
Kenichi Handa committed
557
 ------------+---------+----------
558
  acute      |    '    | a' -> ,Da(B
Kenichi Handa's avatar
Kenichi Handa committed
559 560
  circumflex |    ^    | a^ -> ,Db(B
  diaeresis  |    \"    | a\" -> ,Dd(B
Richard M. Stallman's avatar
Richard M. Stallman committed
561
  ogonek     |    ,    | a, -> ,D1(B
562 563 564
  macron     |    -    | a- -> ,D`(B
  tilde      |    ~    | a~ -> ,Dc(B
  caron      |    ~    | c~ -> ,Dh(B
Richard M. Stallman's avatar
Richard M. Stallman committed
565 566
  dot        |    .    | e. -> ,Dl(B
  cedilla    |    ,    | k, -> ,Ds(B   g, -> ,D;(B
567 568 569 570 571
  stroke     |    /    | d/ -> ,Dp(B
  nordic     |    /    | a/ -> ,De(B   e/ -> ,Df(B   o/ -> ,Dx(B
  others     |    /    | s/ -> ,D_(B   n/ -> ,D?(B   k/ -> ,D"(B

Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
572
" nil t nil nil nil nil nil nil nil nil t)
Kenichi Handa's avatar
Kenichi Handa committed
573 574

(quail-define-rules
Richard M. Stallman's avatar
Richard M. Stallman committed
575
 ("A," ?,D!(B)
Kenichi Handa's avatar
Kenichi Handa committed
576 577 578 579 580 581 582 583 584 585 586
 ("A-" ?,D@(B)
 ("A'" ?,DA(B)
 ("A^" ?,DB(B)
 ("A~" ?,DC(B)
 ("A\"" ?,DD(B)
 ("A/" ?,DE(B)
 ("C~" ?,DH(B)
 ("D/" ?,DP(B)
 ("E/" ?,DF(B)
 ("E-" ?,D*(B)
 ("E'" ?,DI(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
587
 ("E," ?,DJ(B)
Kenichi Handa's avatar
Kenichi Handa committed
588
 ("E\"" ?,DK(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
589 590
 ("E." ?,DL(B)
 ("G," ?,D+(B)
Kenichi Handa's avatar
Kenichi Handa committed
591
 ("I~" ?,D%(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
592
 ("I," ?,DG(B)
Kenichi Handa's avatar
Kenichi Handa committed
593 594 595
 ("I'" ?,DM(B)
 ("I^" ?,DN(B)
 ("I-" ?,DO(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
596 597
 ("K," ?,DS(B)
 ("L," ?,D&(B)
Kenichi Handa's avatar
Kenichi Handa committed
598
 ("N/" ?,D=(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
599
 ("N," ?,DQ(B)
Kenichi Handa's avatar
Kenichi Handa committed
600 601 602 603 604
 ("O-" ?,DR(B)
 ("O^" ?,DT(B)
 ("O~" ?,DU(B)
 ("O\"" ?,DV(B)
 ("O/" ?,DX(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
605
 ("R," ?,D#(B)
Kenichi Handa's avatar
Kenichi Handa committed
606 607
 ("S~" ?,D)(B)
 ("T/" ?,D,(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
608
 ("U," ?,DY(B)
Kenichi Handa's avatar
Kenichi Handa committed
609 610 611 612 613 614
 ("U'" ?,DZ(B)
 ("U^" ?,D[(B)
 ("U\"" ?,D\(B)
 ("U~" ?,D](B)
 ("U-" ?,D^(B)
 ("Z~" ?,D.(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
615
 ("a," ?,D1(B)
Kenichi Handa's avatar
Kenichi Handa committed
616 617 618 619 620 621 622 623 624 625 626
 ("a-" ?,D`(B)
 ("a'" ?,Da(B)
 ("a^" ?,Db(B)
 ("a~" ?,Dc(B)
 ("a\"" ?,Dd(B)
 ("a/" ?,De(B)
 ("c~" ?,Dh(B)
 ("d/" ?,Dp(B)
 ("e/" ?,Df(B)
 ("e-" ?,D:(B)
 ("e'" ?,Di(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
627
 ("e," ?,Dj(B)
Kenichi Handa's avatar
Kenichi Handa committed
628
 ("e\"" ?,Dk(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
629 630
 ("e." ?,Dl(B)
 ("g," ?,D;(B)
Kenichi Handa's avatar
Kenichi Handa committed
631
 ("i~" ?,D5(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
632
 ("i," ?,Dg(B)
Kenichi Handa's avatar
Kenichi Handa committed
633 634 635 636
 ("i'" ?,Dm(B)
 ("i^" ?,Dn(B)
 ("i-" ?,Do(B)
 ("k/" ?,D"(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
637 638
 ("k," ?,Ds(B)
 ("l," ?,D6(B)
Kenichi Handa's avatar
Kenichi Handa committed
639
 ("n/" ?,D?(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
640
 ("n," ?,Dq(B)
Kenichi Handa's avatar
Kenichi Handa committed
641 642 643 644 645
 ("o-" ?,Dr(B)
 ("o^" ?,Dt(B)
 ("o~" ?,Du(B)
 ("o\"" ?,Dv(B)
 ("o/" ?,Dx(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
646
 ("r," ?,D3(B)
Kenichi Handa's avatar
Kenichi Handa committed
647 648 649
 ("s/" ?,D_(B)
 ("s~" ?,D9(B)
 ("t/" ?,D<(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
650
 ("u," ?,Dy(B)
Kenichi Handa's avatar
Kenichi Handa committed
651 652 653 654 655 656
 ("u'" ?,Dz(B)
 ("u^" ?,D{(B)
 ("u\"" ?,D|(B)
 ("u~" ?,D}(B)
 ("u-" ?,D~(B)
 ("z~" ?,D>(B)
657

Richard M. Stallman's avatar
Richard M. Stallman committed
658
 ("A,," ["A,"])
659 660 661 662 663 664 665 666 667 668 669
 ("A--" ["A-"])
 ("A''" ["A'"])
 ("A^^" ["A^"])
 ("A~~" ["A~"])
 ("A\"\"" ["A\""])
 ("A//" ["A/"])
 ("C~~" ["C~"])
 ("D//" ["D/"])
 ("E//" ["E/"])
 ("E--" ["E-"])
 ("E''" ["E'"])
Richard M. Stallman's avatar
Richard M. Stallman committed
670
 ("E,," ["E,"])
671
 ("E\"\"" ["E\""])
Richard M. Stallman's avatar
Richard M. Stallman committed
672 673
 ("E.." ["E."])
 ("G,," ["G,"])
674
 ("I~~" ["I~"])
Richard M. Stallman's avatar
Richard M. Stallman committed
675
 ("I,," ["I,"])
676 677 678
 ("I''" ["I'"])
 ("I^^" ["I^"])
 ("I--" ["I-"])
Richard M. Stallman's avatar
Richard M. Stallman committed
679 680
 ("K,," ["K,"])
 ("L,," ["L,"])
681
 ("N//" ["N/"])
Richard M. Stallman's avatar
Richard M. Stallman committed
682
 ("N,," ["N,"])
683 684 685 686 687
 ("O--" ["O-"])
 ("O^^" ["O^"])
 ("O~~" ["O~"])
 ("O\"\"" ["O\""])
 ("O//" ["O/"])
Richard M. Stallman's avatar
Richard M. Stallman committed
688
 ("R,," ["R,"])
689 690
 ("S~~" ["S~"])
 ("T//" ["T/"])
Richard M. Stallman's avatar
Richard M. Stallman committed
691
 ("U,," ["U,"])
692 693 694 695 696 697
 ("U''" ["U'"])
 ("U^^" ["U^"])
 ("U\"\"" ["U\""])
 ("U~~" ["U~"])
 ("U--" ["U-"])
 ("Z~~" ["Z~"])
Richard M. Stallman's avatar
Richard M. Stallman committed
698
 ("a,," ["a,"])
699 700 701 702 703 704 705 706 707 708 709
 ("a--" ["a-"])
 ("a''" ["a'"])
 ("a^^" ["a^"])
 ("a~~" ["a~"])
 ("a\"\"" ["a\""])
 ("a//" ["a/"])
 ("c~~" ["c~"])
 ("d//" ["d/"])
 ("e//" ["e/"])
 ("e--" ["e-"])
 ("e''" ["e'"])
Richard M. Stallman's avatar
Richard M. Stallman committed
710
 ("e,," ["e,"])
711
 ("e\"\"" ["e\""])
Richard M. Stallman's avatar
Richard M. Stallman committed
712 713
 ("e.." ["e."])
 ("g,," ["g,"])
714
 ("i~~" ["i~"])
Richard M. Stallman's avatar
Richard M. Stallman committed
715
 ("i,," ["i,"])
716 717 718 719
 ("i''" ["i'"])
 ("i^^" ["i^"])
 ("i--" ["i-"])
 ("k//" ["k/"])
Richard M. Stallman's avatar
Richard M. Stallman committed
720 721
 ("k,," ["k,"])
 ("l,," ["l,"])
722
 ("n//" ["n/"])
Richard M. Stallman's avatar
Richard M. Stallman committed
723
 ("n,," ["n,"])
724 725 726 727 728
 ("o--" ["o-"])
 ("o^^" ["o^"])
 ("o~~" ["o~"])
 ("o\"\"" ["o\""])
 ("o//" ["o/"])
Richard M. Stallman's avatar
Richard M. Stallman committed
729
 ("r,," ["r,"])
730 731 732
 ("s//" ["s/"])
 ("s~~" ["s~"])
 ("t//" ["t/"])
Richard M. Stallman's avatar
Richard M. Stallman committed
733
 ("u,," ["u,"])
734 735 736 737 738 739
 ("u''" ["u'"])
 ("u^^" ["u^"])
 ("u\"\"" ["u\""])
 ("u~~" ["u~"])
 ("u--" ["u-"])
 ("z~~" ["z~"])
Kenichi Handa's avatar
Kenichi Handa committed
740 741 742
 )

(quail-define-package
743
 "latin-5-postfix" "Latin-5" "5<" t
Kenichi Handa's avatar
Kenichi Handa committed
744 745
 "Latin-5 characters input method with postfix modifiers

746
             | postfix | examples
Kenichi Handa's avatar
Kenichi Handa committed
747
 ------------+---------+----------
748 749
  acute      |    '    | a' -> ,Ma(B
  grave      |    `    | a` -> ,M`(B
Kenichi Handa's avatar
Kenichi Handa committed
750 751
  circumflex |    ^    | a^ -> ,Mb(B
  diaeresis  |    \"    | a\" -> ,Md(B
752 753
  tilde      |    ~    | a~ -> ,Mc(B
  breve      |    ~    | g~ -> ,Mp(B
Richard M. Stallman's avatar
Richard M. Stallman committed
754 755
  cedilla    |    ,    | c, -> ,Mg(B
  dot        |    .    | i. -> ,M}(B   I. -> ,M](B
756 757 758 759
  nordic     |    /    | a/ -> ,Me(B   e/ -> ,Mf(B   o/ -> ,Mx(B
  others     |    /    | s/ -> ,M_(B

Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
760
" nil t nil nil nil nil nil nil nil nil t)
Kenichi Handa's avatar
Kenichi Handa committed
761 762 763 764 765 766 767 768

(quail-define-rules
 ("A'" ?,MA(B)
 ("A/" ?,ME(B)
 ("A\"" ?,MD(B)
 ("A^" ?,MB(B)
 ("A`" ?,M@(B)
 ("A~" ?,MC(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
769
 ("C," ?,MG(B)
Kenichi Handa's avatar
Kenichi Handa committed
770 771 772 773 774 775 776
 ("E'" ?,MI(B)
 ("E/" ?,MF(B)
 ("E\"" ?,MK(B)
 ("E^" ?,MJ(B)
 ("E`" ?,MH(B)
 ("G~" ?,MP(B)
 ("I'" ?,MM(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
777
 ("I." ?,M](B)
Kenichi Handa's avatar
Kenichi Handa committed
778 779 780 781 782 783 784 785 786 787
 ("I\"" ?,MO(B)
 ("I^" ?,MN(B)
 ("I`" ?,ML(B)
 ("N~" ?,MQ(B)
 ("O'" ?,MS(B)
 ("O/" ?,MX(B)
 ("O\"" ?,MV(B)
 ("O^" ?,MT(B)
 ("O`" ?,MR(B)
 ("O~" ?,MU(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
788
 ("S," ?,M^(B)
Kenichi Handa's avatar
Kenichi Handa committed
789 790 791 792 793 794 795 796 797 798
 ("U'" ?,MZ(B)
 ("U\"" ?,M\(B)
 ("U^" ?,M[(B)
 ("U`" ?,MY(B)
 ("a'" ?,Ma(B)
 ("a/" ?,Me(B)
 ("a\"" ?,Md(B)
 ("a^" ?,Mb(B)
 ("a`" ?,M`(B)
 ("a~" ?,Mc(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
799
 ("c," ?,Mg(B)
Kenichi Handa's avatar
Kenichi Handa committed
800 801 802 803 804 805 806
 ("e'" ?,Mi(B)
 ("e/" ?,Mf(B)
 ("e\"" ?,Mk(B)
 ("e^" ?,Mj(B)
 ("e`" ?,Mh(B)
 ("g~" ?,Mp(B)
 ("i'" ?,Mm(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
807
 ("i." ?,M}(B)
Kenichi Handa's avatar
Kenichi Handa committed
808 809 810 811 812 813 814 815 816 817
 ("i\"" ?,Mo(B)
 ("i^" ?,Mn(B)
 ("i`" ?,Ml(B)
 ("n~" ?,Mq(B)
 ("o'" ?,Ms(B)
 ("o/" ?,Mx(B)
 ("o\"" ?,Mv(B)
 ("o^" ?,Mt(B)
 ("o`" ?,Mr(B)
 ("o~" ?,Mu(B)
Richard M. Stallman's avatar
Richard M. Stallman committed
818
 ("s," ?,M~(B)
Kenichi Handa's avatar
Kenichi Handa committed
819 820 821 822 823 824
 ("s/" ?,M_(B)
 ("u'" ?,Mz(B)
 ("u\"" ?,M|(B)
 ("u^" ?,M{(B)
 ("u`" ?,My(B)
 ("y\"" ?,M(B)
825 826 827 828 829 830 831

 ("A''" ["A'"])
 ("A//" ["A/"])
 ("A\"\"" ["A\""])
 ("A^^" ["A^"])
 ("A``" ["A`"])
 ("A~~" ["A~"])
Richard M. Stallman's avatar
Richard M. Stallman committed
832
 ("C,," ["C,"])
833 834 835 836 837 838 839
 ("E''" ["E'"])
 ("E//" ["E/"])
 ("E\"\"" ["E\""])
 ("E^^" ["E^"])
 ("E``" ["E`"])
 ("G~~" ["G~"])
 ("I''" ["I'"])
Richard M. Stallman's avatar
Richard M. Stallman committed
840
 ("I.." ["I."])
841 842 843 844 845 846 847 848 849 850
 ("I\"\"" ["I\""])
 ("I^^" ["I^"])
 ("I``" ["I`"])
 ("N~~" ["N~"])
 ("O''" ["O'"])
 ("O//" ["O/"])
 ("O\"\"" ["O\""])
 ("O^^" ["O^"])
 ("O``" ["O`"])
 ("O~~" ["O~"])
Richard M. Stallman's avatar
Richard M. Stallman committed
851
 ("S,," ["S,"])
852 853 854 855 856 857 858 859 860 861
 ("U''" ["U'"])
 ("U\"\"" ["U\""])
 ("U^^" ["U^"])
 ("U``" ["U`"])
 ("a''" ["a'"])
 ("a//" ["a/"])
 ("a\"\"" ["a\""])
 ("a^^" ["a^"])
 ("a``" ["a`"])
 ("a~~" ["a~"])
Richard M. Stallman's avatar
Richard M. Stallman committed
862
 ("c,," ["c,"])
863 864 865 866 867 868 869
 ("e''" ["e'"])
 ("e//" ["e/"])
 ("e\"\"" ["e\""])
 ("e^^" ["e^"])
 ("e``" ["e`"])
 ("g~~" ["g~"])
 ("i''" ["i'"])
Richard M. Stallman's avatar
Richard M. Stallman committed
870
 ("i.." ["i."])
871 872 873 874 875 876 877 878 879 880
 ("i\"\"" ["i\""])
 ("i^^" ["i^"])
 ("i``" ["i`"])
 ("n~~" ["n~"])
 ("o''" ["o'"])
 ("o//" ["o/"])
 ("o\"\"" ["o\""])
 ("o^^" ["o^"])
 ("o``" ["o`"])
 ("o~~" ["o~"])
Richard M. Stallman's avatar
Richard M. Stallman committed
881
 ("s,," ["s,"])
882 883 884 885 886 887
 ("s//" ["s/"])
 ("u''" ["u'"])
 ("u\"\"" ["u\""])
 ("u^^" ["u^"])
 ("u``" ["u`"])
 ("y\"\"" ["y\""])
Kenichi Handa's avatar
Kenichi Handa committed
888 889 890
 )

(quail-define-package
891
 "danish-postfix" "Latin-1" "DA<" t
892 893 894 895
 "Danish input method (rule: AE -> ,AF(B, OE -> ,AX(B, AA -> ,AE(B, E' -> ,AI(B)

Doubling the postfix separates the letter and postfix: e.g. aee -> ae
"
896
 nil t nil nil nil nil nil nil nil nil t)
Kenichi Handa's avatar
Kenichi Handa committed
897 898 899 900 901 902 903 904 905 906

(quail-define-rules
 ("AE" ?,AF(B)
 ("ae" ?,Af(B)
 ("OE" ?,AX(B)
 ("oe" ?,Ax(B)
 ("AA" ?,AE(B)
 ("aa" ?,Ae(B)
 ("E'" ?,AI(B)
 ("e'" ?,Ai(B)
907 908 909 910 911 912 913 914 915

 ("AEE" ["AE"])
 ("aee" ["ae"])
 ("OEE" ["OE"])
 ("oee" ["oe"])
 ("AAA" ["AA"])
 ("aaa" ["aa"])
 ("E''" ["E'"])
 ("e''" ["e'"])
Kenichi Handa's avatar
Kenichi Handa committed
916 917 918
 )

(quail-define-package
919
 "esperanto-postfix" "Latin-3" "EO<" t
Kenichi Handa's avatar
Kenichi Handa committed
920 921
 "Esperanto input method with postfix modifiers

922
A following ^ or x will produce an accented character,
Richard M. Stallman's avatar
Richard M. Stallman committed
923
e.g. c^ -> ,Cf(B   gx -> ,Cx(B   u^ -> ,C}(B.
924 925 926

Doubling the postfix separates the letter and postfix,
e.g. a'' -> a'.
927
" nil t nil nil nil nil nil nil nil nil t)
Kenichi Handa's avatar
Kenichi Handa committed
928 929 930

(quail-define-rules
 ("Cx" ?,CF(B)
931
 ("C^" ?,CF(B)
Kenichi Handa's avatar
Kenichi Handa committed
932
 ("cx" ?,Cf(B)
933
 ("c^" ?,Cf(B)
Kenichi Handa's avatar
Kenichi Handa committed
934
 ("Gx" ?,CX(B)
935
 ("G^" ?,CX(B)
Kenichi Handa's avatar
Kenichi Handa committed
936
 ("gx" ?,Cx(B)
937
 ("g^" ?,Cx(B)
Kenichi Handa's avatar
Kenichi Handa committed
938
 ("Hx" ?,C&(B)
939
 ("H^" ?,C&(B)
Kenichi Handa's avatar
Kenichi Handa committed
940
 ("hx" ?,C6(B)
941
 ("h^" ?,C6(B)
Kenichi Handa's avatar
Kenichi Handa committed
942
 ("Jx" ?,C,(B)
943
 ("J^" ?,C,(B)
Kenichi Handa's avatar
Kenichi Handa committed
944
 ("jx" ?,C<(B)
945
 ("j^" ?,C<(B)
Kenichi Handa's avatar
Kenichi Handa committed
946
 ("Sx" ?,C^(B)
947
 ("S^" ?,C^(B)
Kenichi Handa's avatar
Kenichi Handa committed
948
 ("sx" ?,C~(B)
949
 ("s^" ?,C~(B)
Kenichi Handa's avatar
Kenichi Handa committed
950
 ("Ux" ?,C](B)
951
 ("U^" ?,C](B)
Kenichi Handa's avatar
Kenichi Handa committed
952
 ("ux" ?,C}(B)
953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978
 ("u^" ?,C}(B)

 ("Cxx" ["Cx"])
 ("C^^" ["C^"])
 ("cxx" ["cx"])
 ("c^^" ["c^"])
 ("Gxx" ["Gx"])
 ("G^^" ["G^"])
 ("gxx" ["gx"])
 ("g^^" ["g^"])
 ("Hxx" ["Hx"])
 ("H^^" ["H^"])
 ("hxx" ["hx"])
 ("h^^" ["h^"])
 ("Jxx" ["Jx"])
 ("J^^" ["J^"])
 ("jxx" ["jx"])
 ("j^^" ["j^"])
 ("Sxx" ["Sx"])
 ("S^^" ["S^"])
 ("sxx" ["sx"])
 ("s^^" ["s^"])
 ("Uxx" ["Ux"])
 ("U^^" ["U^"])
 ("uxx" ["ux"])
 ("u^^" ["u^"])
Kenichi Handa's avatar
Kenichi Handa committed
979 980 981
 )

(quail-define-package
982
 "finnish-postfix" "Latin-1" "FI<" t
983 984 985 986 987 988 989
 "Finnish (Suomi) input method

AE  -> ,AD(B
AEE -> AE
OE  -> ,AV(B
OEE -> OE
"
990
 nil t nil nil nil nil nil nil nil nil t)
Kenichi Handa's avatar
Kenichi Handa committed
991 992 993 994 995 996

(quail-define-rules
 ("AE" ?,AD(B)
 ("ae" ?,Ad(B)
 ("OE" ?,AV(B)
 ("oe" ?,Av(B)
997 998 999 1000 1001

 ("AEE" ["AE"])
 ("aee" ["ae"])
 ("OEE" ["OE"])
 ("oee" ["oe"])
Kenichi Handa's avatar
Kenichi Handa committed
1002 1003 1004
 )

(quail-define-package
1005
 "french-postfix" "French" "FR<" t
Kenichi Handa's avatar
Kenichi Handa committed
1006 1007 1008
 "French (Fran,Ag(Bais) input method with postfix modifiers

` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr,Ai(Bma.
Richard M. Stallman's avatar
Richard M. Stallman committed
1009
Par exemple: a` -> ,A`(B   e' -> ,Ai(B.
1010

Richard M. Stallman's avatar
Richard M. Stallman committed
1011
,AG(B, ,A+(B, et ,A;(B sont produits par C,, <<, et >>.
Kenichi Handa's avatar
Kenichi Handa committed
1012

1013 1014
En doublant la frappe des diacritiques, ils s'isoleront de la lettre.
Par exemple: e'' -> e'
Kenichi Handa's avatar
Kenichi Handa committed
1015 1016

<e dans l'o> n'est pas disponible."
1017