Mercurial > emacs
annotate leim/quail/latin-alt.el @ 39942:728d02aa7502
(display-message-or-buffer): Pass the correct buffer to `display-buffer'.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 15 Oct 2001 01:00:54 +0000 |
| parents | 519983161a46 |
| children | 241787c37705 |
| rev | line source |
|---|---|
|
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
34937
diff
changeset
|
1 ;;; latin-alt.el --- Quail packages for inputting various European characters |
| 19901 | 2 |
| 3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. | |
| 4 ;; Licensed to the Free Software Foundation. | |
| 5 | |
| 6 ;; Keywords: multilingual, input method, latin | |
| 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 ;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp> | |
| 26 | |
|
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
34937
diff
changeset
|
27 ;;; Commentary: |
|
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
34937
diff
changeset
|
28 |
|
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
34937
diff
changeset
|
29 ;;; Code: |
|
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
34937
diff
changeset
|
30 |
| 19901 | 31 (require 'quail) |
| 32 | |
| 33 (quail-define-package | |
| 34 "latin-1-alt-postfix" "Latin-1" "1<" t | |
| 35 "Latin-1 character input method with postfix modifiers | |
| 36 | |
| 37 | postfix | examples | |
| 38 ------------+---------+---------- | |
| 39 acute | ' | a' -> ,Aa(B | |
| 40 grave | ` | a` -> ,A`(B | |
| 41 circumflex | ^ | a^ -> ,Ab(B | |
| 42 diaeresis | \" | a\" -> ,Ad(B | |
| 43 tilde | ~ | a~ -> ,Ac(B | |
| 44 cedilla | / | c/ -> ,Ag(B | |
| 45 nordic | / | d/ -> ,Ap(B t/ -> ,A~(B a/ -> ,Ae(B e/ -> ,Af(B o/ -> ,Ax(B | |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
46 others | /<> | s/ -> ,A_(B ?/ -> ,A?(B !/ -> ,A!(B |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
47 | various | << -> ,A+(B >> -> ,A;(B o_ -> ,A:(B a_ -> ,A*(B |
| 19901 | 48 |
| 49 It would be natural to use comma for cedillas, but that would be | |
| 50 inconvenient in practice because commas are needed very often after a | |
| 51 letter. | |
| 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) | |
| 55 | |
| 56 (quail-define-rules | |
| 57 ("A`" ?,A@(B) | |
| 58 ("A'" ?,AA(B) | |
| 59 ("A^" ?,AB(B) | |
| 60 ("A~" ?,AC(B) | |
| 61 ("A\"" ?,AD(B) | |
| 62 ("A/" ?,AE(B) | |
| 63 ("a`" ?,A`(B) | |
| 64 ("a'" ?,Aa(B) | |
| 65 ("a^" ?,Ab(B) | |
| 66 ("a~" ?,Ac(B) | |
| 67 ("a\"" ?,Ad(B) | |
| 68 ("a/" ?,Ae(B) | |
| 69 ("E`" ?,AH(B) | |
| 70 ("E'" ?,AI(B) | |
| 71 ("E^" ?,AJ(B) | |
| 72 ("E\"" ?,AK(B) | |
| 73 ("E/" ?,AF(B) | |
| 74 ("e`" ?,Ah(B) | |
| 75 ("e'" ?,Ai(B) | |
| 76 ("e^" ?,Aj(B) | |
| 77 ("e\"" ?,Ak(B) | |
| 78 ("e/" ?,Af(B) | |
| 79 ("I`" ?,AL(B) | |
| 80 ("i`" ?,Al(B) | |
| 81 ("I'" ?,AM(B) | |
| 82 ("i'" ?,Am(B) | |
| 83 ("I^" ?,AN(B) | |
| 84 ("i^" ?,An(B) | |
| 85 ("I\"" ?,AO(B) | |
| 86 ("i\"" ?,Ao(B) | |
| 87 ("O`" ?,AR(B) | |
| 88 ("o`" ?,Ar(B) | |
| 89 ("O'" ?,AS(B) | |
| 90 ("o'" ?,As(B) | |
| 91 ("O^" ?,AT(B) | |
| 92 ("o^" ?,At(B) | |
| 93 ("O~" ?,AU(B) | |
| 94 ("o~" ?,Au(B) | |
| 95 ("O\"" ?,AV(B) | |
| 96 ("o\"" ?,Av(B) | |
| 97 ("O/" ?,AX(B) | |
| 98 ("o/" ?,Ax(B) | |
| 99 ("U`" ?,AY(B) | |
| 100 ("u`" ?,Ay(B) | |
| 101 ("U'" ?,AZ(B) | |
| 102 ("u'" ?,Az(B) | |
| 103 ("U^" ?,A[(B) | |
| 104 ("u^" ?,A{(B) | |
| 105 ("U\"" ?,A\(B) | |
| 106 ("u\"" ?,A|(B) | |
| 107 ("Y'" ?,A](B) | |
| 108 ("y'" ?,A}(B) | |
| 109 ("y\"" ?,A(B) | |
| 110 ("D/" ?,AP(B) | |
| 111 ("d/" ?,Ap(B) | |
| 112 ("T/" ?,A^(B) | |
| 113 ("t/" ?,A~(B) | |
| 114 ("s/" ?,A_(B) | |
| 115 ("C/" ?,AG(B) | |
| 116 ("c/" ?,Ag(B) | |
| 117 ("N~" ?,AQ(B) | |
| 118 ("n~" ?,Aq(B) | |
| 119 ("?/" ?,A?(B) | |
| 120 ("!/" ?,A!(B) | |
| 121 ("<<" ?,A+(B) | |
| 122 (">>" ?,A;(B) | |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
123 ("o_" ?,A:(B) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
124 ("a_" ?,A*(B) |
| 19901 | 125 |
| 126 ("A``" ["A`"]) | |
| 127 ("A''" ["A'"]) | |
| 128 ("A^^" ["A^"]) | |
| 129 ("A~~" ["A~"]) | |
| 130 ("A\"\"" ["A\""]) | |
| 131 ("A//" ["A/"]) | |
| 132 ("a``" ["a`"]) | |
| 133 ("a''" ["a'"]) | |
| 134 ("a^^" ["a^"]) | |
| 135 ("a~~" ["a~"]) | |
| 136 ("a\"\"" ["a\""]) | |
| 137 ("a//" ["a/"]) | |
| 138 ("E``" ["E`"]) | |
| 139 ("E''" ["E'"]) | |
| 140 ("E^^" ["E^"]) | |
| 141 ("E\"\"" ["E\""]) | |
| 142 ("E//" ["E/"]) | |
| 143 ("e``" ["e`"]) | |
| 144 ("e''" ["e'"]) | |
| 145 ("e^^" ["e^"]) | |
| 146 ("e\"\"" ["e\""]) | |
| 147 ("e//" ["e/"]) | |
| 148 ("I``" ["I`"]) | |
| 149 ("i``" ["i`"]) | |
| 150 ("I''" ["I'"]) | |
| 151 ("i''" ["i'"]) | |
| 152 ("I^^" ["I^"]) | |
| 153 ("i^^" ["i^"]) | |
| 154 ("I\"\"" ["I\""]) | |
| 155 ("i\"\"" ["i\""]) | |
| 156 ("O``" ["O`"]) | |
| 157 ("o``" ["o`"]) | |
| 158 ("O''" ["O'"]) | |
| 159 ("o''" ["o'"]) | |
| 160 ("O^^" ["O^"]) | |
| 161 ("o^^" ["o^"]) | |
| 162 ("O~~" ["O~"]) | |
| 163 ("o~~" ["o~"]) | |
| 164 ("O\"\"" ["O\""]) | |
| 165 ("o\"\"" ["o\""]) | |
| 166 ("O//" ["O/"]) | |
| 167 ("o//" ["o/"]) | |
| 168 ("U``" ["U`"]) | |
| 169 ("u``" ["u`"]) | |
| 170 ("U''" ["U'"]) | |
| 171 ("u''" ["u'"]) | |
| 172 ("U^^" ["U^"]) | |
| 173 ("u^^" ["u^"]) | |
| 174 ("U\"\"" ["U\""]) | |
| 175 ("u\"\"" ["u\""]) | |
| 176 ("Y''" ["Y'"]) | |
| 177 ("y''" ["y'"]) | |
| 178 ("y\"\"" ["y\""]) | |
| 179 ("D//" ["D/"]) | |
| 180 ("d//" ["d/"]) | |
| 181 ("T//" ["T/"]) | |
| 182 ("t//" ["t/"]) | |
| 183 ("s//" ["s/"]) | |
| 184 ("C//" ["C/"]) | |
| 185 ("c//" ["c/"]) | |
| 186 ("N~~" ["N~"]) | |
| 187 ("n~~" ["n~"]) | |
| 188 ("?//" ["?/"]) | |
| 189 ("!//" ["!/"]) | |
| 190 ("<<<" ["<<"]) | |
| 191 (">>>" [">>"]) | |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
192 ("o__" ["o_"]) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
193 ("a__" ["a_"]) |
| 19901 | 194 ) |
| 195 | |
| 196 (quail-define-package | |
| 197 "latin-2-alt-postfix" "Latin-2" "2<" t | |
| 198 "Latin-2 character input method with postfix modifiers | |
| 199 | |
| 200 | postfix | examples | |
| 201 ------------+---------+---------- | |
| 202 acute | ' | a' -> ,Ba(B | |
| 203 ogonek | ` | a` -> ,B1(B | |
| 204 diaeresis | \" | a\" -> ,Bd(B | |
| 205 circumflex | ^ | a^ -> ,Bb(B | |
| 206 breve | ~ | a~ -> ,Bc(B | |
| 207 cedilla | ` | c` -> ,Bg(B | |
| 208 caron | ~ | c~ -> ,Bh(B | |
|
21507
8b9dd332ccf1
(latin-2-alt-postfix): Doc fix.
Andreas Schwab <schwab@suse.de>
parents:
19940
diff
changeset
|
209 dbl. acute | : | o: -> ,Bu(B |
| 19901 | 210 ring | ` | u` -> ,By(B |
| 211 dot | ` | z` -> ,B?(B | |
| 212 stroke | / | d/ -> ,Bp(B | |
| 213 others | / | s/ -> ,B_(B | |
| 214 | |
| 215 It would be natural to use period and comma for dots/rings and | |
| 216 cedillas/ogoneks, but that would inconvenient in practice, because | |
| 217 periods and commas are needed very often after a letter. | |
| 218 | |
| 219 Doubling the postfix separates the letter and postfix: e.g. a'' -> a' | |
| 220 " nil t nil nil nil nil nil nil nil nil t) | |
| 221 | |
| 222 (quail-define-rules | |
| 223 ("A'" ?,BA(B) | |
| 224 ("A`" ?,B!(B) | |
| 225 ("A\"" ?,BD(B) | |
| 226 ("A^" ?,BB(B) | |
| 227 ("A~" ?,BC(B) | |
| 228 ("C'" ?,BF(B) | |
| 229 ("C`" ?,BG(B) | |
| 230 ("C~" ?,BH(B) | |
| 231 ("D/" ?,BP(B) | |
| 232 ("D~" ?,BO(B) | |
| 233 ("E'" ?,BI(B) | |
| 234 ("E`" ?,BJ(B) | |
| 235 ("E\"" ?,BK(B) | |
| 236 ("E~" ?,BL(B) | |
| 237 ("I'" ?,BM(B) | |
| 238 ("I^" ?,BN(B) | |
| 239 ("L'" ?,BE(B) | |
| 240 ("L/" ?,B#(B) | |
| 241 ("L~" ?,B%(B) | |
| 242 ("N'" ?,BQ(B) | |
| 243 ("N~" ?,BR(B) | |
| 244 ("O'" ?,BS(B) | |
|
19940
ba2ea2a6386a
(latin-2-postfix): Use : for double-acute again.
Richard M. Stallman <rms@gnu.org>
parents:
19901
diff
changeset
|
245 ("O:" ?,BU(B) |
| 19901 | 246 ("O\"" ?,BV(B) |
| 247 ("O^" ?,BT(B) | |
| 248 ("R'" ?,B@(B) | |
| 249 ("R~" ?,BX(B) | |
| 250 ("S'" ?,B&(B) | |
| 251 ("S`" ?,B*(B) | |
| 252 ("S~" ?,B)(B) | |
| 253 ("T`" ?,B^(B) | |
| 254 ("T~" ?,B+(B) | |
| 255 ("U'" ?,BZ(B) | |
|
19940
ba2ea2a6386a
(latin-2-postfix): Use : for double-acute again.
Richard M. Stallman <rms@gnu.org>
parents:
19901
diff
changeset
|
256 ("U:" ?,B[(B) |
| 19901 | 257 ("U\"" ?,B\(B) |
| 258 ("U`" ?,BY(B) | |
| 259 ("Y'" ?,B](B) | |
| 260 ("Z'" ?,B,(B) | |
| 261 ("Z`" ?,B/(B) | |
| 262 ("Z~" ?,B.(B) | |
| 263 ("a'" ?,Ba(B) | |
| 264 ("a`" ?,B1(B) | |
| 265 ("a\"" ?,Bd(B) | |
| 266 ("a^" ?,Bb(B) | |
| 267 ("a~" ?,Bc(B) | |
| 268 ("c'" ?,Bf(B) | |
| 269 ("c`" ?,Bg(B) | |
| 270 ("c~" ?,Bh(B) | |
| 271 ("d/" ?,Bp(B) | |
| 272 ("d~" ?,Bo(B) | |
| 273 ("e'" ?,Bi(B) | |
| 274 ("e`" ?,Bj(B) | |
| 275 ("e\"" ?,Bk(B) | |
| 276 ("e~" ?,Bl(B) | |
| 277 ("i'" ?,Bm(B) | |
| 278 ("i^" ?,Bn(B) | |
| 279 ("l'" ?,Be(B) | |
| 280 ("l/" ?,B3(B) | |
| 281 ("l~" ?,B5(B) | |
| 282 ("n'" ?,Bq(B) | |
| 283 ("n~" ?,Br(B) | |
| 284 ("o'" ?,Bs(B) | |
|
19940
ba2ea2a6386a
(latin-2-postfix): Use : for double-acute again.
Richard M. Stallman <rms@gnu.org>
parents:
19901
diff
changeset
|
285 ("o:" ?,Bu(B) |
| 19901 | 286 ("o\"" ?,Bv(B) |
| 287 ("o^" ?,Bt(B) | |
| 288 ("r'" ?,B`(B) | |
| 289 ("r~" ?,Bx(B) | |
| 290 ("s'" ?,B6(B) | |
| 291 ("s`" ?,B:(B) | |
| 292 ("s/" ?,B_(B) | |
| 293 ("s~" ?,B9(B) | |
| 294 ("t`" ?,B~(B) | |
| 295 ("t~" ?,B;(B) | |
| 296 ("u'" ?,Bz(B) | |
|
19940
ba2ea2a6386a
(latin-2-postfix): Use : for double-acute again.
Richard M. Stallman <rms@gnu.org>
parents:
19901
diff
changeset
|
297 ("u:" ?,B{(B) |
| 19901 | 298 ("u\"" ?,B|(B) |
| 299 ("u`" ?,By(B) | |
| 300 ("y'" ?,B}(B) | |
| 301 ("z'" ?,B<(B) | |
| 302 ("z`" ?,B?(B) | |
| 303 ("z~" ?,B>(B) | |
| 304 | |
| 305 ("A''" ["A'"]) | |
| 306 ("A``" ["A`"]) | |
| 307 ("A\"\"" ["A\""]) | |
| 308 ("A^^" ["A^"]) | |
| 309 ("A~~" ["A~"]) | |
| 310 ("C''" ["C'"]) | |
| 311 ("C``" ["C`"]) | |
| 312 ("C~~" ["C~"]) | |
| 313 ("D//" ["D/"]) | |
| 314 ("D~~" ["D~"]) | |
| 315 ("E''" ["E'"]) | |
| 316 ("E``" ["E`"]) | |
| 317 ("E\"\"" ["E\""]) | |
| 318 ("E~~" ["E~"]) | |
| 319 ("I''" ["I'"]) | |
| 320 ("I^^" ["I^"]) | |
| 321 ("L''" ["L'"]) | |
| 322 ("L//" ["L/"]) | |
| 323 ("L~~" ["L~"]) | |
| 324 ("N''" ["N'"]) | |
| 325 ("N~~" ["N~"]) | |
| 326 ("O''" ["O'"]) | |
| 327 ("O::" ["O:"]) | |
| 328 ("O\"\"" ["O\""]) | |
| 329 ("O^^" ["O^"]) | |
| 330 ("R''" ["R'"]) | |
| 331 ("R~~" ["R~"]) | |
| 332 ("S''" ["S'"]) | |
| 333 ("S``" ["S`"]) | |
| 334 ("S~~" ["S~"]) | |
| 335 ("T``" ["T`"]) | |
| 336 ("T~~" ["T~"]) | |
| 337 ("U''" ["U'"]) | |
| 338 ("U::" ["U:"]) | |
| 339 ("U\"\"" ["U\""]) | |
| 340 ("U``" ["U`"]) | |
| 341 ("Y''" ["Y'"]) | |
| 342 ("Z''" ["Z'"]) | |
| 343 ("Z``" ["Z`"]) | |
| 344 ("Z~~" ["Z~"]) | |
| 345 ("a''" ["a'"]) | |
| 346 ("a``" ["a`"]) | |
| 347 ("a\"\"" ["a\""]) | |
| 348 ("a^^" ["a^"]) | |
| 349 ("a~~" ["a~"]) | |
| 350 ("c''" ["c'"]) | |
| 351 ("c``" ["c`"]) | |
| 352 ("c~~" ["c~"]) | |
| 353 ("d//" ["d/"]) | |
| 354 ("d~~" ["d~"]) | |
| 355 ("e''" ["e'"]) | |
| 356 ("e``" ["e`"]) | |
| 357 ("e\"\"" ["e\""]) | |
| 358 ("e~~" ["e~"]) | |
| 359 ("i''" ["i'"]) | |
| 360 ("i^^" ["i^"]) | |
| 361 ("l''" ["l'"]) | |
| 362 ("l//" ["l/"]) | |
| 363 ("l~~" ["l~"]) | |
| 364 ("n''" ["n'"]) | |
| 365 ("n~~" ["n~"]) | |
| 366 ("o''" ["o'"]) | |
| 367 ("o::" ["o:"]) | |
| 368 ("o\"\"" ["o\""]) | |
| 369 ("o^^" ["o^"]) | |
| 370 ("r''" ["r'"]) | |
| 371 ("r~~" ["r~"]) | |
| 372 ("s''" ["s'"]) | |
| 373 ("s``" ["s`"]) | |
| 374 ("s//" ["s/"]) | |
| 375 ("s~~" ["s~"]) | |
| 376 ("t``" ["t`"]) | |
| 377 ("t~~" ["t~"]) | |
| 378 ("u''" ["u'"]) | |
| 379 ("u::" ["u:"]) | |
| 380 ("u\"\"" ["u\""]) | |
| 381 ("u``" ["u`"]) | |
| 382 ("y''" ["y'"]) | |
| 383 ("z''" ["z'"]) | |
| 384 ("z``" ["z`"]) | |
| 385 ("z~~" ["z~"]) | |
| 386 ) | |
| 387 | |
| 388 (quail-define-package | |
| 389 "latin-3-alt-postfix" "Latin-3" "3<" t | |
| 390 "Latin-3 character input method with postfix modifiers | |
| 391 | |
| 392 | postfix | examples | |
| 393 ------------+---------+---------- | |
| 394 acute | ' | a' -> ,Ca(B | |
| 395 grave | ` | a` -> ,C`(B | |
| 396 circumflex | ^ | a^ -> ,Cb(B | |
| 397 diaeresis | \" | a\" -> ,Cd(B | |
| 398 dot | / | c/ -> ,Ce(B i/ -> ,C9(B I/ -> ,C)(B | |
| 399 cedilla | ` | c` -> ,Cg(B | |
| 400 breve | ~ | g~ -> ,C;(B | |
| 401 tilde | ~ | n~ -> ,Cq(B | |
| 402 stroke | / | h/ -> ,C1(B | |
| 403 others | / | s/ -> ,C_(B | |
| 404 | |
| 405 It would be natural to use period and comma for dots and cedillas, but | |
| 406 that would inconvenient in practice, because periods and commas are | |
| 407 needed very often after a letter. | |
| 408 | |
| 409 Doubling the postfix separates the letter and postfix: e.g. a'' -> a' | |
| 410 " nil t nil nil nil nil nil nil nil nil t) | |
| 411 | |
| 412 (quail-define-rules | |
| 413 ("A`" ?,C@(B) | |
| 414 ("A'" ?,CA(B) | |
| 415 ("A^" ?,CB(B) | |
| 416 ("A\"" ?,CD(B) | |
| 417 ("C/" ?,CE(B) | |
| 418 ("C^" ?,CF(B) | |
| 419 ("C`" ?,CG(B) | |
| 420 ("E`" ?,CH(B) | |
| 421 ("E'" ?,CI(B) | |
| 422 ("E^" ?,CJ(B) | |
| 423 ("E\"" ?,CK(B) | |
| 424 ("G~" ?,C+(B) | |
| 425 ("G/" ?,CU(B) | |
| 426 ("G^" ?,CX(B) | |
| 427 ("H/" ?,C!(B) | |
| 428 ("H^" ?,C&(B) | |
| 429 ("I/" ?,C)(B) | |
| 430 ("I`" ?,CL(B) | |
| 431 ("I'" ?,CM(B) | |
| 432 ("I^" ?,CN(B) | |
| 433 ("I\"" ?,CO(B) | |
| 434 ("J^" ?,C,(B) | |
| 435 ("N~" ?,CQ(B) | |
| 436 ("O`" ?,CR(B) | |
| 437 ("O'" ?,CS(B) | |
| 438 ("O^" ?,CT(B) | |
| 439 ("O\"" ?,CV(B) | |
| 440 ("S`" ?,C*(B) | |
| 441 ("S^" ?,C^(B) | |
| 442 ("U`" ?,CY(B) | |
| 443 ("U'" ?,CZ(B) | |
| 444 ("U^" ?,C[(B) | |
| 445 ("U\"" ?,C\(B) | |
| 446 ("U~" ?,C](B) | |
| 447 ("Z/" ?,C/(B) | |
| 448 ("a`" ?,C`(B) | |
| 449 ("a'" ?,Ca(B) | |
| 450 ("a^" ?,Cb(B) | |
| 451 ("a\"" ?,Cd(B) | |
| 452 ("c/" ?,Ce(B) | |
| 453 ("c^" ?,Cf(B) | |
| 454 ("c`" ?,Cg(B) | |
| 455 ("e`" ?,Ch(B) | |
| 456 ("e'" ?,Ci(B) | |
| 457 ("e^" ?,Cj(B) | |
| 458 ("e\"" ?,Ck(B) | |
| 459 ("g~" ?,C;(B) | |
| 460 ("g/" ?,Cu(B) | |
| 461 ("g^" ?,Cx(B) | |
| 462 ("h/" ?,C1(B) | |
| 463 ("h^" ?,C6(B) | |
| 464 ("i/" ?,C9(B) | |
| 465 ("i`" ?,Cl(B) | |
| 466 ("i'" ?,Cm(B) | |
| 467 ("i^" ?,Cn(B) | |
| 468 ("i\"" ?,Co(B) | |
| 469 ("j^" ?,C<(B) | |
| 470 ("n~" ?,Cq(B) | |
| 471 ("o`" ?,Cr(B) | |
| 472 ("o'" ?,Cs(B) | |
| 473 ("o^" ?,Ct(B) | |
| 474 ("o\"" ?,Cv(B) | |
| 475 ("s`" ?,C:(B) | |
| 476 ("s/" ?,C_(B) | |
| 477 ("s^" ?,C~(B) | |
| 478 ("u`" ?,Cy(B) | |
| 479 ("u'" ?,Cz(B) | |
| 480 ("u^" ?,C{(B) | |
| 481 ("u\"" ?,C|(B) | |
| 482 ("u~" ?,C}(B) | |
| 483 ("z/" ?,C?(B) | |
| 484 | |
| 485 ("A``" ["A`"]) | |
| 486 ("A''" ["A'"]) | |
| 487 ("A^^" ["A^"]) | |
| 488 ("A\"\"" ["A\""]) | |
| 489 ("C//" ["C/"]) | |
| 490 ("C^^" ["C^"]) | |
| 491 ("C``" ["C`"]) | |
| 492 ("E``" ["E`"]) | |
| 493 ("E''" ["E'"]) | |
| 494 ("E^^" ["E^"]) | |
| 495 ("E\"\"" ["E\""]) | |
| 496 ("G~~" ["G~"]) | |
| 497 ("G//" ["G/"]) | |
| 498 ("G^^" ["G^"]) | |
| 499 ("H//" ["H/"]) | |
| 500 ("H^^" ["H^"]) | |
| 501 ("I//" ["I/"]) | |
| 502 ("I``" ["I`"]) | |
| 503 ("I''" ["I'"]) | |
| 504 ("I^^" ["I^"]) | |
| 505 ("I\"\"" ["I\""]) | |
| 506 ("J^^" ["J^"]) | |
| 507 ("N~~" ["N~"]) | |
| 508 ("O``" ["O`"]) | |
| 509 ("O''" ["O'"]) | |
| 510 ("O^^" ["O^"]) | |
| 511 ("O\"\"" ["O\""]) | |
| 512 ("S``" ["S`"]) | |
| 513 ("S^^" ["S^"]) | |
| 514 ("U``" ["U`"]) | |
| 515 ("U''" ["U'"]) | |
| 516 ("U^^" ["U^"]) | |
| 517 ("U\"\"" ["U\""]) | |
| 518 ("U~~" ["U~"]) | |
| 519 ("Z//" ["Z/"]) | |
| 520 ("a``" ["a`"]) | |
| 521 ("a''" ["a'"]) | |
| 522 ("a^^" ["a^"]) | |
| 523 ("a\"\"" ["a\""]) | |
| 524 ("c//" ["c/"]) | |
| 525 ("c^^" ["c^"]) | |
| 526 ("c``" ["c`"]) | |
| 527 ("e``" ["e`"]) | |
| 528 ("e''" ["e'"]) | |
| 529 ("e^^" ["e^"]) | |
| 530 ("e\"\"" ["e\""]) | |
| 531 ("g~~" ["g~"]) | |
| 532 ("g//" ["g/"]) | |
| 533 ("g^^" ["g^"]) | |
| 534 ("h//" ["h/"]) | |
| 535 ("h^^" ["h^"]) | |
| 536 ("i//" ["i/"]) | |
| 537 ("i``" ["i`"]) | |
| 538 ("i''" ["i'"]) | |
| 539 ("i^^" ["i^"]) | |
| 540 ("i\"\"" ["i\""]) | |
| 541 ("j^^" ["j^"]) | |
| 542 ("n~~" ["n~"]) | |
| 543 ("o``" ["o`"]) | |
| 544 ("o''" ["o'"]) | |
| 545 ("o^^" ["o^"]) | |
| 546 ("o\"\"" ["o\""]) | |
| 547 ("s``" ["s`"]) | |
| 548 ("s//" ["s/"]) | |
| 549 ("s^^" ["s^"]) | |
| 550 ("u``" ["u`"]) | |
| 551 ("u''" ["u'"]) | |
| 552 ("u^^" ["u^"]) | |
| 553 ("u\"\"" ["u\""]) | |
| 554 ("u~~" ["u~"]) | |
| 555 ("z//" ["z/"]) | |
| 556 ) | |
| 557 | |
| 558 (quail-define-package | |
| 559 "latin-4-alt-postfix" "Latin-4" "4<" t | |
| 560 "Latin-4 characters input method with postfix modifiers | |
| 561 | |
| 562 | postfix | examples | |
| 563 ------------+---------+---------- | |
| 564 acute | ' | a' -> ,Da(B | |
| 565 circumflex | ^ | a^ -> ,Db(B | |
| 566 diaeresis | \" | a\" -> ,Dd(B | |
| 567 ogonek | ` | a` -> ,D1(B | |
| 568 macron | - | a- -> ,D`(B | |
| 569 tilde | ~ | a~ -> ,Dc(B | |
| 570 caron | ~ | c~ -> ,Dh(B | |
| 571 dot | ~ | e~ -> ,Dl(B | |
| 572 cedilla | ` | k` -> ,Ds(B g` -> ,D;(B | |
| 573 stroke | / | d/ -> ,Dp(B | |
| 574 nordic | / | a/ -> ,De(B e/ -> ,Df(B o/ -> ,Dx(B | |
| 575 others | / | s/ -> ,D_(B n/ -> ,D?(B k/ -> ,D"(B | |
| 576 | |
| 577 It would be natural to use period and comma for dots and | |
| 578 cedillas/ogoneks, but that would inconvenient in practice, because | |
| 579 periods and commas are needed very often after a letter. | |
| 580 | |
| 581 Doubling the postfix separates the letter and postfix: e.g. a'' -> a' | |
| 582 " nil t nil nil nil nil nil nil nil nil t) | |
| 583 | |
| 584 (quail-define-rules | |
| 585 ("A`" ?,D!(B) | |
| 586 ("A-" ?,D@(B) | |
| 587 ("A'" ?,DA(B) | |
| 588 ("A^" ?,DB(B) | |
| 589 ("A~" ?,DC(B) | |
| 590 ("A\"" ?,DD(B) | |
| 591 ("A/" ?,DE(B) | |
| 592 ("C~" ?,DH(B) | |
| 593 ("D/" ?,DP(B) | |
| 594 ("E/" ?,DF(B) | |
| 595 ("E-" ?,D*(B) | |
| 596 ("E'" ?,DI(B) | |
| 597 ("E`" ?,DJ(B) | |
| 598 ("E\"" ?,DK(B) | |
| 599 ("E~" ?,DL(B) | |
| 600 ("G`" ?,D+(B) | |
| 601 ("I~" ?,D%(B) | |
| 602 ("I`" ?,DG(B) | |
| 603 ("I'" ?,DM(B) | |
| 604 ("I^" ?,DN(B) | |
| 605 ("I-" ?,DO(B) | |
| 606 ("K`" ?,DS(B) | |
| 607 ("L`" ?,D&(B) | |
| 608 ("N/" ?,D=(B) | |
| 609 ("N`" ?,DQ(B) | |
| 610 ("O-" ?,DR(B) | |
| 611 ("O^" ?,DT(B) | |
| 612 ("O~" ?,DU(B) | |
| 613 ("O\"" ?,DV(B) | |
| 614 ("O/" ?,DX(B) | |
| 615 ("R`" ?,D#(B) | |
| 616 ("S~" ?,D)(B) | |
| 617 ("T/" ?,D,(B) | |
| 618 ("U`" ?,DY(B) | |
| 619 ("U'" ?,DZ(B) | |
| 620 ("U^" ?,D[(B) | |
| 621 ("U\"" ?,D\(B) | |
| 622 ("U~" ?,D](B) | |
| 623 ("U-" ?,D^(B) | |
| 624 ("Z~" ?,D.(B) | |
| 625 ("a`" ?,D1(B) | |
| 626 ("a-" ?,D`(B) | |
| 627 ("a'" ?,Da(B) | |
| 628 ("a^" ?,Db(B) | |
| 629 ("a~" ?,Dc(B) | |
| 630 ("a\"" ?,Dd(B) | |
| 631 ("a/" ?,De(B) | |
| 632 ("c~" ?,Dh(B) | |
| 633 ("d/" ?,Dp(B) | |
| 634 ("e/" ?,Df(B) | |
| 635 ("e-" ?,D:(B) | |
| 636 ("e'" ?,Di(B) | |
| 637 ("e`" ?,Dj(B) | |
| 638 ("e\"" ?,Dk(B) | |
| 639 ("e~" ?,Dl(B) | |
| 640 ("g`" ?,D;(B) | |
| 641 ("i~" ?,D5(B) | |
| 642 ("i`" ?,Dg(B) | |
| 643 ("i'" ?,Dm(B) | |
| 644 ("i^" ?,Dn(B) | |
| 645 ("i-" ?,Do(B) | |
| 646 ("k/" ?,D"(B) | |
| 647 ("k`" ?,Ds(B) | |
| 648 ("l`" ?,D6(B) | |
| 649 ("n/" ?,D?(B) | |
| 650 ("n`" ?,Dq(B) | |
| 651 ("o-" ?,Dr(B) | |
| 652 ("o^" ?,Dt(B) | |
| 653 ("o~" ?,Du(B) | |
| 654 ("o\"" ?,Dv(B) | |
| 655 ("o/" ?,Dx(B) | |
| 656 ("r`" ?,D3(B) | |
| 657 ("s/" ?,D_(B) | |
| 658 ("s~" ?,D9(B) | |
| 659 ("t/" ?,D<(B) | |
| 660 ("u`" ?,Dy(B) | |
| 661 ("u'" ?,Dz(B) | |
| 662 ("u^" ?,D{(B) | |
| 663 ("u\"" ?,D|(B) | |
| 664 ("u~" ?,D}(B) | |
| 665 ("u-" ?,D~(B) | |
| 666 ("z~" ?,D>(B) | |
| 667 | |
| 668 ("A``" ["A`"]) | |
| 669 ("A--" ["A-"]) | |
| 670 ("A''" ["A'"]) | |
| 671 ("A^^" ["A^"]) | |
| 672 ("A~~" ["A~"]) | |
| 673 ("A\"\"" ["A\""]) | |
| 674 ("A//" ["A/"]) | |
| 675 ("C~~" ["C~"]) | |
| 676 ("D//" ["D/"]) | |
| 677 ("E//" ["E/"]) | |
| 678 ("E--" ["E-"]) | |
| 679 ("E''" ["E'"]) | |
| 680 ("E``" ["E`"]) | |
| 681 ("E\"\"" ["E\""]) | |
| 682 ("E~~" ["E~"]) | |
| 683 ("G``" ["G`"]) | |
| 684 ("I~~" ["I~"]) | |
| 685 ("I``" ["I`"]) | |
| 686 ("I''" ["I'"]) | |
| 687 ("I^^" ["I^"]) | |
| 688 ("I--" ["I-"]) | |
| 689 ("K``" ["K`"]) | |
| 690 ("L``" ["L`"]) | |
| 691 ("N//" ["N/"]) | |
| 692 ("N``" ["N`"]) | |
| 693 ("O--" ["O-"]) | |
| 694 ("O^^" ["O^"]) | |
| 695 ("O~~" ["O~"]) | |
| 696 ("O\"\"" ["O\""]) | |
| 697 ("O//" ["O/"]) | |
| 698 ("R``" ["R`"]) | |
| 699 ("S~~" ["S~"]) | |
| 700 ("T//" ["T/"]) | |
| 701 ("U``" ["U`"]) | |
| 702 ("U''" ["U'"]) | |
| 703 ("U^^" ["U^"]) | |
| 704 ("U\"\"" ["U\""]) | |
| 705 ("U~~" ["U~"]) | |
| 706 ("U--" ["U-"]) | |
| 707 ("Z~~" ["Z~"]) | |
| 708 ("a``" ["a`"]) | |
| 709 ("a--" ["a-"]) | |
| 710 ("a''" ["a'"]) | |
| 711 ("a^^" ["a^"]) | |
| 712 ("a~~" ["a~"]) | |
| 713 ("a\"\"" ["a\""]) | |
| 714 ("a//" ["a/"]) | |
| 715 ("c~~" ["c~"]) | |
| 716 ("d//" ["d/"]) | |
| 717 ("e//" ["e/"]) | |
| 718 ("e--" ["e-"]) | |
| 719 ("e''" ["e'"]) | |
| 720 ("e``" ["e`"]) | |
| 721 ("e\"\"" ["e\""]) | |
| 722 ("e~~" ["e~"]) | |
| 723 ("g``" ["g`"]) | |
| 724 ("i~~" ["i~"]) | |
| 725 ("i``" ["i`"]) | |
| 726 ("i''" ["i'"]) | |
| 727 ("i^^" ["i^"]) | |
| 728 ("i--" ["i-"]) | |
| 729 ("k//" ["k/"]) | |
| 730 ("k``" ["k`"]) | |
| 731 ("l``" ["l`"]) | |
| 732 ("n//" ["n/"]) | |
| 733 ("n``" ["n`"]) | |
| 734 ("o--" ["o-"]) | |
| 735 ("o^^" ["o^"]) | |
| 736 ("o~~" ["o~"]) | |
| 737 ("o\"\"" ["o\""]) | |
| 738 ("o//" ["o/"]) | |
| 739 ("r``" ["r`"]) | |
| 740 ("s//" ["s/"]) | |
| 741 ("s~~" ["s~"]) | |
| 742 ("t//" ["t/"]) | |
| 743 ("u``" ["u`"]) | |
| 744 ("u''" ["u'"]) | |
| 745 ("u^^" ["u^"]) | |
| 746 ("u\"\"" ["u\""]) | |
| 747 ("u~~" ["u~"]) | |
| 748 ("u--" ["u-"]) | |
| 749 ("z~~" ["z~"]) | |
| 750 ) | |
| 751 | |
| 752 (quail-define-package | |
| 753 "latin-5-alt-postfix" "Latin-5" "5<" t | |
| 754 "Latin-5 characters input method with postfix modifiers | |
| 755 | |
| 756 | postfix | examples | |
| 757 ------------+---------+---------- | |
| 758 acute | ' | a' -> ,Ma(B | |
| 759 grave | ` | a` -> ,M`(B | |
| 760 circumflex | ^ | a^ -> ,Mb(B | |
| 761 diaeresis | \" | a\" -> ,Md(B | |
| 762 tilde | ~ | a~ -> ,Mc(B | |
| 763 breve | ~ | g~ -> ,Mp(B | |
| 764 cedilla | ` | c` -> ,Mg(B | |
| 765 dot | / | i/ -> ,M}(B I/ -> ,M](B | |
| 766 nordic | / | a/ -> ,Me(B e/ -> ,Mf(B o/ -> ,Mx(B | |
| 767 others | / | s/ -> ,M_(B | |
| 768 | |
| 769 It would be natural to use period and comma for dots and cedillas, but | |
| 770 that would inconvenient in practice, because periods and commas are | |
| 771 needed very often after a letter. | |
| 772 | |
| 773 Doubling the postfix separates the letter and postfix: e.g. a'' -> a' | |
| 774 " nil t nil nil nil nil nil nil nil nil t) | |
| 775 | |
| 776 (quail-define-rules | |
| 777 ("A'" ?,MA(B) | |
| 778 ("A/" ?,ME(B) | |
| 779 ("A\"" ?,MD(B) | |
| 780 ("A^" ?,MB(B) | |
| 781 ("A`" ?,M@(B) | |
| 782 ("A~" ?,MC(B) | |
| 783 ("C`" ?,MG(B) | |
| 784 ("E'" ?,MI(B) | |
| 785 ("E/" ?,MF(B) | |
| 786 ("E\"" ?,MK(B) | |
| 787 ("E^" ?,MJ(B) | |
| 788 ("E`" ?,MH(B) | |
| 789 ("G~" ?,MP(B) | |
| 790 ("I'" ?,MM(B) | |
| 791 ("I/" ?,M](B) | |
| 792 ("I\"" ?,MO(B) | |
| 793 ("I^" ?,MN(B) | |
| 794 ("I`" ?,ML(B) | |
| 795 ("N~" ?,MQ(B) | |
| 796 ("O'" ?,MS(B) | |
| 797 ("O/" ?,MX(B) | |
| 798 ("O\"" ?,MV(B) | |
| 799 ("O^" ?,MT(B) | |
| 800 ("O`" ?,MR(B) | |
| 801 ("O~" ?,MU(B) | |
| 802 ("S`" ?,M^(B) | |
| 803 ("U'" ?,MZ(B) | |
| 804 ("U\"" ?,M\(B) | |
| 805 ("U^" ?,M[(B) | |
| 806 ("U`" ?,MY(B) | |
| 807 ("a'" ?,Ma(B) | |
| 808 ("a/" ?,Me(B) | |
| 809 ("a\"" ?,Md(B) | |
| 810 ("a^" ?,Mb(B) | |
| 811 ("a`" ?,M`(B) | |
| 812 ("a~" ?,Mc(B) | |
| 813 ("c`" ?,Mg(B) | |
| 814 ("e'" ?,Mi(B) | |
| 815 ("e/" ?,Mf(B) | |
| 816 ("e\"" ?,Mk(B) | |
| 817 ("e^" ?,Mj(B) | |
| 818 ("e`" ?,Mh(B) | |
| 819 ("g~" ?,Mp(B) | |
| 820 ("i'" ?,Mm(B) | |
| 821 ("i/" ?,M}(B) | |
| 822 ("i\"" ?,Mo(B) | |
| 823 ("i^" ?,Mn(B) | |
| 824 ("i`" ?,Ml(B) | |
| 825 ("n~" ?,Mq(B) | |
| 826 ("o'" ?,Ms(B) | |
| 827 ("o/" ?,Mx(B) | |
| 828 ("o\"" ?,Mv(B) | |
| 829 ("o^" ?,Mt(B) | |
| 830 ("o`" ?,Mr(B) | |
| 831 ("o~" ?,Mu(B) | |
| 832 ("s`" ?,M~(B) | |
| 833 ("s/" ?,M_(B) | |
| 834 ("u'" ?,Mz(B) | |
| 835 ("u\"" ?,M|(B) | |
| 836 ("u^" ?,M{(B) | |
| 837 ("u`" ?,My(B) | |
| 838 ("y\"" ?,M(B) | |
| 839 | |
| 840 ("A''" ["A'"]) | |
| 841 ("A//" ["A/"]) | |
| 842 ("A\"\"" ["A\""]) | |
| 843 ("A^^" ["A^"]) | |
| 844 ("A``" ["A`"]) | |
| 845 ("A~~" ["A~"]) | |
| 846 ("C``" ["C`"]) | |
| 847 ("E''" ["E'"]) | |
| 848 ("E//" ["E/"]) | |
| 849 ("E\"\"" ["E\""]) | |
| 850 ("E^^" ["E^"]) | |
| 851 ("E``" ["E`"]) | |
| 852 ("G~~" ["G~"]) | |
| 853 ("I''" ["I'"]) | |
| 854 ("I//" ["I/"]) | |
| 855 ("I\"\"" ["I\""]) | |
| 856 ("I^^" ["I^"]) | |
| 857 ("I``" ["I`"]) | |
| 858 ("N~~" ["N~"]) | |
| 859 ("O''" ["O'"]) | |
| 860 ("O//" ["O/"]) | |
| 861 ("O\"\"" ["O\""]) | |
| 862 ("O^^" ["O^"]) | |
| 863 ("O``" ["O`"]) | |
| 864 ("O~~" ["O~"]) | |
| 865 ("S``" ["S`"]) | |
| 866 ("U''" ["U'"]) | |
| 867 ("U\"\"" ["U\""]) | |
| 868 ("U^^" ["U^"]) | |
| 869 ("U``" ["U`"]) | |
| 870 ("a''" ["a'"]) | |
| 871 ("a//" ["a/"]) | |
| 872 ("a\"\"" ["a\""]) | |
| 873 ("a^^" ["a^"]) | |
| 874 ("a``" ["a`"]) | |
| 875 ("a~~" ["a~"]) | |
| 876 ("c``" ["c`"]) | |
| 877 ("e''" ["e'"]) | |
| 878 ("e//" ["e/"]) | |
| 879 ("e\"\"" ["e\""]) | |
| 880 ("e^^" ["e^"]) | |
| 881 ("e``" ["e`"]) | |
| 882 ("g~~" ["g~"]) | |
| 883 ("i''" ["i'"]) | |
| 884 ("i//" ["i/"]) | |
| 885 ("i\"\"" ["i\""]) | |
| 886 ("i^^" ["i^"]) | |
| 887 ("i``" ["i`"]) | |
| 888 ("n~~" ["n~"]) | |
| 889 ("o''" ["o'"]) | |
| 890 ("o//" ["o/"]) | |
| 891 ("o\"\"" ["o\""]) | |
| 892 ("o^^" ["o^"]) | |
| 893 ("o``" ["o`"]) | |
| 894 ("o~~" ["o~"]) | |
| 895 ("s``" ["s`"]) | |
| 896 ("s//" ["s/"]) | |
| 897 ("u''" ["u'"]) | |
| 898 ("u\"\"" ["u\""]) | |
| 899 ("u^^" ["u^"]) | |
| 900 ("u``" ["u`"]) | |
| 901 ("y\"\"" ["y\""]) | |
| 902 ) | |
| 903 | |
| 904 (quail-define-package | |
| 905 "danish-alt-postfix" "Latin-1" "DA<" t | |
| 906 "Danish input method (rule: AE -> ,AF(B, OE -> ,AX(B, AA -> ,AE(B, E' -> ,AI(B) | |
| 907 | |
| 908 Doubling the postfix separates the letter and postfix: e.g. aee -> ae | |
| 909 " | |
| 910 nil t nil nil nil nil nil nil nil nil t) | |
| 911 | |
| 912 (quail-define-rules | |
| 913 ("AE" ?,AF(B) | |
| 914 ("ae" ?,Af(B) | |
| 915 ("OE" ?,AX(B) | |
| 916 ("oe" ?,Ax(B) | |
| 917 ("AA" ?,AE(B) | |
| 918 ("aa" ?,Ae(B) | |
| 919 ("E'" ?,AI(B) | |
| 920 ("e'" ?,Ai(B) | |
| 921 | |
| 922 ("AEE" ["AE"]) | |
| 923 ("aee" ["ae"]) | |
| 924 ("OEE" ["OE"]) | |
| 925 ("oee" ["oe"]) | |
| 926 ("AAA" ["AA"]) | |
| 927 ("aaa" ["aa"]) | |
| 928 ("E''" ["E'"]) | |
| 929 ("e''" ["e'"]) | |
| 930 ) | |
| 931 | |
| 932 (quail-define-package | |
| 933 "esperanto-alt-postfix" "Latin-3" "EO<" t | |
| 934 "Esperanto input method with postfix modifiers | |
| 935 | |
| 936 A following ^ or x will produce an accented character, | |
| 34937 | 937 e.g. c^ -> ,Cf(B gx -> ,Cx(B u^ -> ,C}(B. |
| 19901 | 938 |
| 939 Doubling the postfix separates the letter and postfix, | |
| 940 e.g. a'' -> a'. | |
| 941 " nil t nil nil nil nil nil nil nil nil t) | |
| 942 | |
| 943 (quail-define-rules | |
| 944 ("Cx" ?,CF(B) | |
| 945 ("C^" ?,CF(B) | |
| 946 ("cx" ?,Cf(B) | |
| 947 ("c^" ?,Cf(B) | |
| 948 ("Gx" ?,CX(B) | |
| 949 ("G^" ?,CX(B) | |
| 950 ("gx" ?,Cx(B) | |
| 951 ("g^" ?,Cx(B) | |
| 952 ("Hx" ?,C&(B) | |
| 953 ("H^" ?,C&(B) | |
| 954 ("hx" ?,C6(B) | |
| 955 ("h^" ?,C6(B) | |
| 956 ("Jx" ?,C,(B) | |
| 957 ("J^" ?,C,(B) | |
| 958 ("jx" ?,C<(B) | |
| 959 ("j^" ?,C<(B) | |
| 960 ("Sx" ?,C^(B) | |
| 961 ("S^" ?,C^(B) | |
| 962 ("sx" ?,C~(B) | |
| 963 ("s^" ?,C~(B) | |
| 964 ("Ux" ?,C](B) | |
| 965 ("U^" ?,C](B) | |
| 966 ("ux" ?,C}(B) | |
| 967 ("u^" ?,C}(B) | |
| 968 | |
| 969 ("Cxx" ["Cx"]) | |
| 970 ("C^^" ["C^"]) | |
| 971 ("cxx" ["cx"]) | |
| 972 ("c^^" ["c^"]) | |
| 973 ("Gxx" ["Gx"]) | |
| 974 ("G^^" ["G^"]) | |
| 975 ("gxx" ["gx"]) | |
| 976 ("g^^" ["g^"]) | |
| 977 ("Hxx" ["Hx"]) | |
| 978 ("H^^" ["H^"]) | |
| 979 ("hxx" ["hx"]) | |
| 980 ("h^^" ["h^"]) | |
| 981 ("Jxx" ["Jx"]) | |
| 982 ("J^^" ["J^"]) | |
| 983 ("jxx" ["jx"]) | |
| 984 ("j^^" ["j^"]) | |
| 985 ("Sxx" ["Sx"]) | |
| 986 ("S^^" ["S^"]) | |
| 987 ("sxx" ["sx"]) | |
| 988 ("s^^" ["s^"]) | |
| 989 ("Uxx" ["Ux"]) | |
| 990 ("U^^" ["U^"]) | |
| 991 ("uxx" ["ux"]) | |
| 992 ("u^^" ["u^"]) | |
| 993 ) | |
| 994 | |
| 995 (quail-define-package | |
| 996 "finnish-alt-postfix" "Latin-1" "FI<" t | |
| 997 "Finnish (Suomi) input method | |
| 998 | |
| 999 AE -> ,AD(B | |
| 1000 AEE -> AE | |
| 1001 OE -> ,AV(B | |
| 1002 OEE -> OE | |
| 1003 " | |
| 1004 nil t nil nil nil nil nil nil nil nil t) | |
| 1005 | |
| 1006 (quail-define-rules | |
| 1007 ("AE" ?,AD(B) | |
| 1008 ("ae" ?,Ad(B) | |
| 1009 ("OE" ?,AV(B) | |
| 1010 ("oe" ?,Av(B) | |
| 1011 | |
| 1012 ("AEE" ["AE"]) | |
| 1013 ("aee" ["ae"]) | |
| 1014 ("OEE" ["OE"]) | |
| 1015 ("oee" ["oe"]) | |
| 1016 ) | |
| 1017 | |
| 1018 (quail-define-package | |
| 1019 "french-alt-postfix" "Latin-1" "FR<" t | |
| 1020 "French (Fran,Ag(Bais) input method with postfix modifiers | |
| 1021 | |
| 1022 ` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr,Ai(Bma. | |
| 34937 | 1023 Par exemple: a` -> ,A`(B e' -> ,Ai(B. |
| 19901 | 1024 |
| 1025 ,AG(B, ,A+(B, et ,A;(B sont produits par C/, <<, et >>. | |
| 1026 | |
| 1027 En doublant la frappe des diacritiques, ils s'isoleront de la lettre. | |
| 1028 Par exemple: e'' -> e' | |
| 1029 | |
| 1030 <e dans l'o> n'est pas disponible." | |
| 1031 nil t nil nil nil nil nil nil nil nil t) | |
| 1032 | |
| 1033 (quail-define-rules | |
| 1034 ("A`" ?,A@(B) | |
| 1035 ("A^" ?,AB(B) | |
| 1036 ("a`" ?,A`(B) | |
| 1037 ("a^" ?,Ab(B) | |
| 1038 ("E`" ?,AH(B) | |
| 1039 ("E'" ?,AI(B) | |
| 1040 ("E^" ?,AJ(B) | |
| 1041 ("E\"" ?,AK(B) | |
| 1042 ("e`" ?,Ah(B) | |
| 1043 ("e'" ?,Ai(B) | |
| 1044 ("e^" ?,Aj(B) | |
| 1045 ("e\"" ?,Ak(B) | |
| 1046 ("I^" ?,AN(B) | |
| 1047 ("I\"" ?,AO(B) | |
| 1048 ("i^" ?,An(B) | |
| 1049 ("i\"" ?,Ao(B) | |
| 1050 ("O^" ?,AT(B) | |
| 1051 ("o^" ?,At(B) | |
| 1052 ("U`" ?,AY(B) | |
| 1053 ("U^" ?,A[(B) | |
| 1054 ("U\"" ?,A\(B) | |
| 1055 ("u`" ?,Ay(B) | |
| 1056 ("u^" ?,A{(B) | |
| 1057 ("u\"" ?,A|(B) | |
| 1058 ("C/" ?,AG(B) | |
| 1059 ("c/" ?,Ag(B) | |
| 1060 ("<<" ?,A+(B) | |
| 1061 (">>" ?,A;(B) | |
| 1062 | |
| 1063 ("A``" ["A`"]) | |
| 1064 ("A^^" ["A^"]) | |
| 1065 ("a``" ["a`"]) | |
| 1066 ("a^^" ["a^"]) | |
| 1067 ("E``" ["E`"]) | |
| 1068 ("E''" ["E'"]) | |
| 1069 ("E^^" ["E^"]) | |
| 1070 ("E\"\"" ["E\""]) | |
| 1071 ("e``" ["e`"]) | |
| 1072 ("e''" ["e'"]) | |
| 1073 ("e^^" ["e^"]) | |
| 1074 ("e\"\"" ["e\""]) | |
| 1075 ("I^^" ["I^"]) | |
| 1076 ("I\"\"" ["I\""]) | |
| 1077 ("i^^" ["i^"]) | |
| 1078 ("i\"\"" ["i\""]) | |
| 1079 ("O^^" ["O^"]) | |
| 1080 ("o^^" ["o^"]) | |
| 1081 ("U``" ["U`"]) | |
| 1082 ("U^^" ["U^"]) | |
| 1083 ("U\"\"" ["U\""]) | |
| 1084 ("u``" ["u`"]) | |
| 1085 ("u^^" ["u^"]) | |
| 1086 ("u\"\"" ["u\""]) | |
| 1087 ("C//" ["C/"]) | |
| 1088 ("c//" ["c/"]) | |
| 1089 ("<<<" ["<<"]) | |
| 1090 (">>>" [">>"]) | |
| 1091 ) | |
| 1092 | |
| 1093 (quail-define-package | |
| 1094 "german-alt-postfix" "Latin-1" "DE<" t | |
| 1095 "German (Deutsch) input method | |
| 1096 | |
| 1097 ae -> ,Ad(B | |
| 1098 aee -> ae | |
| 1099 oe -> ,Av(B | |
| 1100 oee -> oe | |
| 1101 ue -> ,A|(B | |
| 1102 uee -> ue | |
| 1103 sz -> ,A_(B | |
| 1104 szz -> sz | |
| 1105 " | |
| 1106 nil t nil nil nil nil nil nil nil nil t) | |
| 1107 | |
| 1108 (quail-define-rules | |
| 1109 ("AE" ?,AD(B) | |
| 1110 ("ae" ?,Ad(B) | |
| 1111 ("OE" ?,AV(B) | |
| 1112 ("oe" ?,Av(B) | |
| 1113 ("UE" ?,A\(B) | |
| 1114 ("ue" ?,A|(B) | |
| 1115 ("sz" ?,A_(B) | |
| 1116 | |
| 1117 ("AEE" ["AE"]) | |
| 1118 ("aee" ["ae"]) | |
| 1119 ("OEE" ["OE"]) | |
| 1120 ("oee" ["oe"]) | |
| 1121 ("UEE" ["UE"]) | |
| 1122 ("uee" ["ue"]) | |
| 1123 ("szz" ["sz"]) | |
| 1124 ) | |
| 1125 | |
| 1126 (quail-define-package | |
| 1127 "icelandic-alt-postfix" "Latin-1" "IS<" t | |
| 1128 "Icelandic (,AM(Bslenska) input method with postfix modifiers | |
| 1129 | |
| 1130 A' -> ,AA(B | |
| 1131 E' -> ,AI(B | |
| 1132 I' -> ,AM(B | |
| 1133 O' -> ,AS(B | |
| 1134 U' -> ,AZ(B | |
| 1135 Y' -> ,A](B | |
| 1136 AE -> ,AF(B | |
| 1137 OE -> ,AV(B | |
| 1138 D/ -> ,AP(B (eth) | |
| 1139 T/ -> ,A^(B (thorn) | |
| 1140 | |
| 1141 Doubling the postfix separates the letter and postfix: e.g. a'' -> a' | |
| 1142 " nil t nil nil nil nil nil nil nil nil t) | |
| 1143 | |
| 1144 (quail-define-rules | |
| 1145 ("A'" ?,AA(B) | |
| 1146 ("a'" ?,Aa(B) | |
| 1147 ("E'" ?,AI(B) | |
| 1148 ("e'" ?,Ai(B) | |
| 1149 ("I'" ?,AM(B) | |
| 1150 ("i'" ?,Am(B) | |
| 1151 ("O'" ?,AS(B) | |
| 1152 ("o'" ?,As(B) | |
| 1153 ("U'" ?,AZ(B) | |
| 1154 ("u'" ?,Az(B) | |
| 1155 ("Y'" ?,A](B) | |
| 1156 ("y'" ?,A}(B) | |
| 1157 ("AE" ?,AF(B) | |
| 1158 ("ae" ?,Af(B) | |
| 1159 ("OE" ?,AV(B) | |
| 1160 ("oe" ?,Av(B) | |
| 1161 ("D/" ?,AP(B) | |
| 1162 ("d/" ?,Ap(B) | |
| 1163 ("T/" ?,A^(B) | |
| 1164 ("t/" ?,A~(B) | |
| 1165 | |
| 1166 ("A''" ["A'"]) | |
| 1167 ("a''" ["a'"]) | |
| 1168 ("E''" ["E'"]) | |
| 1169 ("e''" ["e'"]) | |
| 1170 ("I''" ["I'"]) | |
| 1171 ("i''" ["i'"]) | |
| 1172 ("O''" ["O'"]) | |
| 1173 ("o''" ["o'"]) | |
| 1174 ("U''" ["U'"]) | |
| 1175 ("u''" ["u'"]) | |
| 1176 ("Y''" ["Y'"]) | |
| 1177 ("y''" ["y'"]) | |
| 1178 ("AEE" ["AE"]) | |
| 1179 ("aee" ["ae"]) | |
| 1180 ("OEE" ["OE"]) | |
| 1181 ("oee" ["oe"]) | |
| 1182 ("D//" ["D/"]) | |
| 1183 ("d//" ["d/"]) | |
| 1184 ("T//" ["T/"]) | |
| 1185 ("t//" ["t/"]) | |
| 1186 ) | |
| 1187 | |
| 1188 (quail-define-package | |
| 1189 "italian-alt-postfix" "Latin-1" "IT<" t | |
| 1190 "Italian (Italiano) input method with postfix modifiers | |
| 1191 | |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1192 a' -> ,Aa(B A' -> ,AA(B a` -> ,A`(B A` -> ,A@(B i^ -> ,An(B << -> ,A+(B |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1193 e' -> ,Ai(B E' -> ,AI(B e` -> ,Ah(B E` -> ,AH(B I^ -> ,AN(B >> -> ,A;(B |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1194 i' -> ,Am(B I' -> ,AM(B i` -> ,Al(B I` -> ,AL(B o_ -> ,A:(B |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1195 o' -> ,As(B O' -> ,AS(B o` -> ,Ar(B O` -> ,AR(B a_ -> ,A*(B |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1196 u' -> ,Az(B U' -> ,AZ(B u` -> ,Ay(B U` -> ,AY(B |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1197 |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1198 This method is for purists who like accents the old way. |
| 19901 | 1199 |
| 1200 Doubling the postfix separates the letter and postfix: e.g. a`` -> a` | |
| 1201 " nil t nil nil nil nil nil nil nil nil t) | |
| 1202 | |
| 1203 (quail-define-rules | |
| 1204 ("A`" ?,A@(B) | |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1205 ("A'" ?,AA(B) |
| 19901 | 1206 ("a`" ?,A`(B) |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1207 ("a'" ?,Aa(B) |
| 19901 | 1208 ("E`" ?,AH(B) |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1209 ("E'" ?,AI(B) |
| 19901 | 1210 ("e`" ?,Ah(B) |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1211 ("e'" ?,Ai(B) |
| 19901 | 1212 ("I`" ?,AL(B) |
| 1213 ("i`" ?,Al(B) | |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1214 ("I'" ?,AM(B) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1215 ("i'" ?,Am(B) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1216 ("I^" ?,AN(B) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1217 ("i^" ?,An(B) |
| 19901 | 1218 ("O`" ?,AR(B) |
| 1219 ("o`" ?,Ar(B) | |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1220 ("O'" ?,AS(B) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1221 ("o'" ?,As(B) |
| 19901 | 1222 ("U`" ?,AY(B) |
| 1223 ("u`" ?,Ay(B) | |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1224 ("U'" ?,AZ(B) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1225 ("u'" ?,Az(B) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1226 ("<<" ?,A+(B) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1227 (">>" ?,A;(B) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1228 ("o_" ?,A:(B) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1229 ("a_" ?,A*(B) |
| 19901 | 1230 |
| 1231 ("A``" ["A`"]) | |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1232 ("A''" ["A'"]) |
| 19901 | 1233 ("a``" ["a`"]) |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1234 ("a''" ["a'"]) |
| 19901 | 1235 ("E``" ["E`"]) |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1236 ("E''" ["E'"]) |
| 19901 | 1237 ("e``" ["e`"]) |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1238 ("e''" ["e'"]) |
| 19901 | 1239 ("I``" ["I`"]) |
| 1240 ("i``" ["i`"]) | |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1241 ("I''" ["I'"]) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1242 ("i''" ["i'"]) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1243 ("I^^" ["I^"]) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1244 ("i^^" ["i^"]) |
| 19901 | 1245 ("O``" ["O`"]) |
| 1246 ("o``" ["o`"]) | |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1247 ("O''" ["O'"]) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1248 ("o''" ["o'"]) |
| 19901 | 1249 ("U``" ["U`"]) |
| 1250 ("u``" ["u`"]) | |
|
23446
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1251 ("U''" ["U'"]) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1252 ("u''" ["u'"]) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1253 ("<<<" ["<<"]) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1254 (">>>" [">>"]) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1255 ("o__" ["o_"]) |
|
2a31f1833c0e
("latin-1-alt-postfix"): Add a method to enter the
Richard M. Stallman <rms@gnu.org>
parents:
21507
diff
changeset
|
1256 ("a__" ["a_"]) |
| 19901 | 1257 ) |
| 1258 | |
| 1259 (quail-define-package | |
| 1260 "norwegian-alt-postfix" "Latin-1" "NO<" t | |
| 1261 "Norwegian (Norsk) input method (rule: AE->,AF(B, OE->,AX(B, AA->,AE(B, E'->,AI(B) | |
| 1262 | |
| 1263 Doubling the postfix separates the letter and postfix: e.g. aee -> ae | |
| 1264 " | |
| 1265 nil t nil nil nil nil nil nil nil nil t) | |
| 1266 | |
| 1267 (quail-define-rules | |
| 1268 ("AE" ?,AF(B) | |
| 1269 ("ae" ?,Af(B) | |
| 1270 ("OE" ?,AX(B) | |
| 1271 ("oe" ?,Ax(B) | |
| 1272 ("AA" ?,AE(B) | |
| 1273 ("aa" ?,Ae(B) | |
| 1274 ("E'" ?,AI(B) | |
| 1275 ("e'" ?,Ai(B) | |
| 1276 | |
| 1277 ("AEE" ["AE"]) | |
| 1278 ("aee" ["ae"]) | |
| 1279 ("OEE" ["OE"]) | |
| 1280 ("oee" ["oe"]) | |
| 1281 ("AAA" ["AA"]) | |
| 1282 ("aaa" ["aa"]) | |
| 1283 ("E''" ["E'"]) | |
| 1284 ("e''" ["e'"]) | |
| 1285 ) | |
| 1286 | |
| 1287 (quail-define-package | |
| 1288 "scandinavian-alt-postfix" "Latin-1" "SC<" t | |
| 1289 "Scandinavian input method with postfix modifiers | |
| 1290 Supported languages are Swidish, Norwegian, Danish, and Finnish. | |
| 1291 | |
| 1292 ae -> ,Af(B | |
| 1293 oe -> ,Ax(B | |
| 1294 aa -> ,Ae(B | |
| 1295 a\" -> ,Ad(B | |
| 1296 o\" -> ,Av(B | |
| 1297 e' -> ,Ai(B | |
| 1298 | |
| 1299 Doubling the postfix separates the letter and postfix: | |
| 34937 | 1300 aee -> ae o\"\" -> o\" etc. |
| 19901 | 1301 " nil t nil nil nil nil nil nil nil nil t) |
| 1302 | |
| 1303 (quail-define-rules | |
| 1304 ("AE" ?,AF(B) | |
| 1305 ("ae" ?,Af(B) | |
| 1306 ("OE" ?,AX(B) | |
| 1307 ("oe" ?,Ax(B) | |
| 1308 ("AA" ?,AE(B) | |
| 1309 ("aa" ?,Ae(B) | |
| 1310 ("A\"" ?,AD(B) | |
| 1311 ("a\"" ?,Ad(B) | |
| 1312 ("O\"" ?,AV(B) | |
| 1313 ("o\"" ?,Av(B) | |
| 1314 ("E'" ?,AI(B) | |
| 1315 ("e'" ?,Ai(B) | |
| 1316 | |
| 1317 ("AEE" ["AE"]) | |
| 1318 ("aee" ["ae"]) | |
| 1319 ("OEE" ["OE"]) | |
| 1320 ("oee" ["oe"]) | |
| 1321 ("AAA" ["AA"]) | |
| 1322 ("aaa" ["aa"]) | |
| 1323 ("A\"\"" ["A\""]) | |
| 1324 ("a\"\"" ["a\""]) | |
| 1325 ("O\"\"" ["O\""]) | |
| 1326 ("o\"\"" ["o\""]) | |
| 1327 ("E''" ["E'"]) | |
| 1328 ("e''" ["e'"]) | |
| 1329 ) | |
| 1330 | |
| 1331 (quail-define-package | |
| 1332 "spanish-alt-postfix" "Latin-1" "ES<" t | |
| 1333 "Spanish (Espa,Aq(Bol) input method with postfix modifiers | |
| 1334 | |
| 1335 A' -> ,AA(B | |
| 1336 E' -> ,AI(B | |
| 1337 I' -> ,AM(B | |
| 1338 O' -> ,AS(B | |
| 1339 U' -> ,AZ(B | |
| 1340 N~ -> ,AQ(B | |
| 1341 !/ -> ,A!(B | |
| 1342 ?/ -> ,A?(B | |
| 1343 | |
| 1344 Doubling the postfix separates the letter and postfix: | |
| 34937 | 1345 a'' -> a' n~~ -> n~, etc. |
| 19901 | 1346 " nil t nil nil nil nil nil nil nil nil t) |
| 1347 | |
| 1348 (quail-define-rules | |
| 1349 ("A'" ?,AA(B) | |
| 1350 ("a'" ?,Aa(B) | |
| 1351 ("E'" ?,AI(B) | |
| 1352 ("e'" ?,Ai(B) | |
| 1353 ("I'" ?,AM(B) | |
| 1354 ("i'" ?,Am(B) | |
| 1355 ("O'" ?,AS(B) | |
| 1356 ("o'" ?,As(B) | |
| 1357 ("U'" ?,AZ(B) | |
| 1358 ("u'" ?,Az(B) | |
| 1359 ("N~" ?,AQ(B) | |
| 1360 ("n~" ?,Aq(B) | |
| 1361 ("?/" ?,A?(B) | |
| 1362 ("!/" ?,A!(B) | |
| 1363 | |
| 1364 ("A''" ["A'"]) | |
| 1365 ("a''" ["a'"]) | |
| 1366 ("E''" ["E'"]) | |
| 1367 ("e''" ["e'"]) | |
| 1368 ("I''" ["I'"]) | |
| 1369 ("i''" ["i'"]) | |
| 1370 ("O''" ["O'"]) | |
| 1371 ("o''" ["o'"]) | |
| 1372 ("U''" ["U'"]) | |
| 1373 ("u''" ["u'"]) | |
| 1374 ("N~~" ["N~"]) | |
| 1375 ("n~~" ["n~"]) | |
| 1376 ("?//" ["?/"]) | |
| 1377 ("!//" ["!/"]) | |
| 1378 ) | |
| 1379 | |
| 1380 (quail-define-package | |
| 1381 "swedish-alt-postfix" "Latin-1" "SV<" t | |
| 1382 "Swedish (Svenska) input method (rule: AA -> ,AE(B, AE -> ,AD(B, OE -> ,AV(B, E' -> ,AI(B) | |
| 1383 | |
| 1384 Doubling the postfix separates the letter and postfix: e.g. aee -> ae | |
| 1385 " nil t nil nil nil nil nil nil nil nil t) | |
| 1386 | |
| 1387 (quail-define-rules | |
| 1388 ("AA" ?,AE(B) | |
| 1389 ("aa" ?,Ae(B) | |
| 1390 ("AE" ?,AD(B) | |
| 1391 ("ae" ?,Ad(B) | |
| 1392 ("OE" ?,AV(B) | |
| 1393 ("oe" ?,Av(B) | |
| 1394 ("E'" ?,AI(B) | |
| 1395 ("e'" ?,Ai(B) | |
| 1396 | |
| 1397 ("AAA" ["AA"]) | |
| 1398 ("aaa" ["aa"]) | |
| 1399 ("AEE" ["AE"]) | |
| 1400 ("aee" ["ae"]) | |
| 1401 ("OEE" ["OE"]) | |
| 1402 ("oee" ["oe"]) | |
| 1403 ("E''" ["E'"]) | |
| 1404 ("e''" ["e'"]) | |
| 1405 ) | |
| 1406 | |
| 1407 (quail-define-package | |
|
25774
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1408 "turkish-latin-3-alt-postfix" "Latin-3" "TR3<<" t |
| 34937 | 1409 "Turkish (T,C|(Brk,Cg(Be) input method with postfix modifiers. |
| 19901 | 1410 |
|
25774
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1411 This is for those who use Latin-3 (ISO-8859-3) for Turkish. If you |
| 34937 | 1412 use Latin-5 (ISO-8859-9), you should use \"turkish-alt-postfix\" instead. |
|
25774
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1413 |
| 19901 | 1414 Note for I, ,C9(B, ,C)(B, i. |
| 1415 | |
| 1416 A^ -> ,CB(B | |
| 1417 C` -> ,CG(B | |
| 1418 G^ -> ,C+(B | |
| 1419 I -> I | |
| 1420 i -> ,C9(B | |
| 1421 I/ -> ,C)(B | |
| 1422 i/ -> i | |
| 1423 O\" -> ,CV(B | |
| 1424 S` -> ,C*(B | |
| 1425 U\" -> ,C\(B | |
| 1426 U^ -> ,C[(B | |
| 1427 | |
| 1428 Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^ | |
| 1429 " nil t nil nil nil nil nil nil nil nil t) | |
| 1430 | |
| 1431 (quail-define-rules | |
| 1432 ("A^" ?,CB(B) | |
| 1433 ("a^" ?,Cb(B) | |
| 1434 ("C`" ?,CG(B) | |
| 1435 ("c`" ?,Cg(B) | |
| 1436 ("G^" ?,C+(B) | |
| 1437 ("g^" ?,C;(B) | |
| 1438 ("I/" ?,C)(B) | |
| 1439 ("i" ?,C9(B) | |
| 1440 ("i/" ?i) | |
| 1441 ("O\"" ?,CV(B) | |
| 1442 ("o\"" ?,Cv(B) | |
| 1443 ("S`" ?,C*(B) | |
| 1444 ("s`" ?,C:(B) | |
| 1445 ("U\"" ?,C\(B) | |
| 1446 ("u\"" ?,C|(B) | |
| 1447 ("U^" ?,C[(B) | |
| 1448 ("u^" ?,C{(B) | |
| 1449 | |
| 1450 ("A^^" ["A^"]) | |
| 1451 ("a^^" ["a^"]) | |
| 1452 ("C``" ["C`"]) | |
| 1453 ("c``" ["c`"]) | |
| 1454 ("G^^" ["G^"]) | |
| 1455 ("g^^" ["g^"]) | |
| 1456 ("I//" ["I/"]) | |
| 1457 ("i" ["i"]) | |
| 1458 ("i//" ["i/"]) | |
| 1459 ("O\"\"" ["O\""]) | |
| 1460 ("o\"\"" ["o\""]) | |
| 1461 ("S``" ["S`"]) | |
| 1462 ("s``" ["s`"]) | |
| 1463 ("U\"\"" ["U\""]) | |
| 1464 ("u\"\"" ["u\""]) | |
| 1465 ("U^^" ["U^"]) | |
| 1466 ("u^^" ["u^"]) | |
| 1467 ) | |
|
25774
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1468 |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1469 (quail-define-package |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1470 "turkish-alt-postfix" "Latin-5" "TR,M+(B" t |
| 34937 | 1471 "Turkish (T,M|(Brk,Mg(Be) input method with postfix modifiers. |
|
25774
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1472 |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1473 This is for those who use Latin-5 (ISO-8859-9) for Turkish. If you |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1474 use Latin-3 (ISO-8859-3), you should use |
| 34937 | 1475 \"turkish-latin-3-alt-postfix\" instead. |
|
25774
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1476 |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1477 Note for I, ,M}(B, ,M](B, i. |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1478 |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1479 A^ -> ,MB(B |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1480 C` -> ,MG(B |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1481 G^ -> ,MP(B |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1482 I -> I |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1483 i -> ,M}(B |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1484 I/ -> ,M](B |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1485 i/ -> i |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1486 O\" -> ,MV(B |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1487 S` -> ,M^(B |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1488 U\" -> ,M\(B |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1489 U^ -> ,M[(B |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1490 |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1491 Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^ |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1492 " nil t nil nil nil nil nil nil nil nil t) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1493 |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1494 (quail-define-rules |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1495 ("A^" ?,MB(B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1496 ("a^" ?,Mb(B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1497 ("C`" ?,MG(B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1498 ("c`" ?,Mg(B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1499 ("G^" ?,MP(B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1500 ("g^" ?,Mp(B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1501 ("I/" ?,M](B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1502 ("i" ?,M}(B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1503 ("i/" ?i) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1504 ("O\"" ?,MV(B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1505 ("o\"" ?,Cv(B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1506 ("S`" ?,M^(B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1507 ("s`" ?,M~(B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1508 ("U\"" ?,M\(B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1509 ("u\"" ?,M|(B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1510 ("U^" ?,M[(B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1511 ("u^" ?,M{(B) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1512 |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1513 ("A^^" ["A^"]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1514 ("a^^" ["a^"]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1515 ("C``" ["C`"]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1516 ("c``" ["c`"]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1517 ("G^^" ["G^"]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1518 ("g^^" ["g^"]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1519 ("I//" ["I/"]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1520 ("i" ["i"]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1521 ("i//" ["i/"]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1522 ("O\"\"" ["O\""]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1523 ("o\"\"" ["o\""]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1524 ("S``" ["S`"]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1525 ("s``" ["s`"]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1526 ("U\"\"" ["U\""]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1527 ("u\"\"" ["u\""]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1528 ("U^^" ["U^"]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1529 ("u^^" ["u^"]) |
|
ccc7f2d178dd
("turkish-latin-3-alt-postfix"): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
23446
diff
changeset
|
1530 ) |
|
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
34937
diff
changeset
|
1531 |
|
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
34937
diff
changeset
|
1532 ;;; latin-alt.el ends here |