code.delx.au - gnu-emacs/blob - leim/quail/latin-post.el

   1 ;; Quail packages for inputting various European characters.
   2
   3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5
   6 ;; Keywords: 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
  27 (require 'quail)
  28
  29 (quail-define-package
  30  "latin-1-postfix" "Latin-1" "1<" t
  31  "Latin-1 character input method with postfix modifiers
  32
  33              | postfix | examples
  34  ------------+---------+----------
  35   acute      |    '    | a' -> \e,Aa\e(B
  36   grave      |    `    | a` -> \e,A`\e(B
  37   circumflex |    ^    | a^ -> \e,Ab\e(B
  38   diaeresis  |    \"    | a\" -> \e,Ad\e(B
  39   tilde      |    ~    | a~ -> \e,Ac\e(B
  40   cedilla    |    ,    | c, -> \e,Ag\e(B
  41   nordic     |    /    | d/ -> \e,Ap\e(B   t/ -> \e,A~\e(B   a/ -> \e,Ae\e(B   e/ -> \e,Af\e(B   o/ -> \e,Ax\e(B
  42   others     |   /<>   | s/ -> \e,A_\e(B   ?/ -> \e,A?\e(B   !/ -> \e,A!\e(B   << -> \e,A+\e(B   >> -> \e,A;\e(B
  43
  44 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
  45 " nil t nil nil nil nil nil nil nil nil t)
  46
  47 (quail-define-rules
  48  ("A`" ?\e,A@\e(B)
  49  ("A'" ?\e,AA\e(B)
  50  ("A^" ?\e,AB\e(B)
  51  ("A~" ?\e,AC\e(B)
  52  ("A\"" ?\e,AD\e(B)
  53  ("A/" ?\e,AE\e(B)
  54  ("a`" ?\e,A`\e(B)
  55  ("a'" ?\e,Aa\e(B)
  56  ("a^" ?\e,Ab\e(B)
  57  ("a~" ?\e,Ac\e(B)
  58  ("a\"" ?\e,Ad\e(B)
  59  ("a/" ?\e,Ae\e(B)
  60  ("E`" ?\e,AH\e(B)
  61  ("E'" ?\e,AI\e(B)
  62  ("E^" ?\e,AJ\e(B)
  63  ("E\"" ?\e,AK\e(B)
  64  ("E/" ?\e,AF\e(B)
  65  ("e`" ?\e,Ah\e(B)
  66  ("e'" ?\e,Ai\e(B)
  67  ("e^" ?\e,Aj\e(B)
  68  ("e\"" ?\e,Ak\e(B)
  69  ("e/" ?\e,Af\e(B)
  70  ("I`" ?\e,AL\e(B)
  71  ("i`" ?\e,Al\e(B)
  72  ("I'" ?\e,AM\e(B)
  73  ("i'" ?\e,Am\e(B)
  74  ("I^" ?\e,AN\e(B)
  75  ("i^" ?\e,An\e(B)
  76  ("I\"" ?\e,AO\e(B)
  77  ("i\"" ?\e,Ao\e(B)
  78  ("O`" ?\e,AR\e(B)
  79  ("o`" ?\e,Ar\e(B)
  80  ("O'" ?\e,AS\e(B)
  81  ("o'" ?\e,As\e(B)
  82  ("O^" ?\e,AT\e(B)
  83  ("o^" ?\e,At\e(B)
  84  ("O~" ?\e,AU\e(B)
  85  ("o~" ?\e,Au\e(B)
  86  ("O\"" ?\e,AV\e(B)
  87  ("o\"" ?\e,Av\e(B)
  88  ("O/" ?\e,AX\e(B)
  89  ("o/" ?\e,Ax\e(B)
  90  ("U`" ?\e,AY\e(B)
  91  ("u`" ?\e,Ay\e(B)
  92  ("U'" ?\e,AZ\e(B)
  93  ("u'" ?\e,Az\e(B)
  94  ("U^" ?\e,A[\e(B)
  95  ("u^" ?\e,A{\e(B)
  96  ("U\"" ?\e,A\\e(B)
  97  ("u\"" ?\e,A|\e(B)
  98  ("Y'" ?\e,A]\e(B)
  99  ("y'" ?\e,A}\e(B)
 100  ("y\"" ?\e,A\7f\e(B)
 101  ("D/" ?\e,AP\e(B)
 102  ("d/" ?\e,Ap\e(B)
 103  ("T/" ?\e,A^\e(B)
 104  ("t/" ?\e,A~\e(B)
 105  ("s/" ?\e,A_\e(B)
 106  ("C," ?\e,AG\e(B)
 107  ("c," ?\e,Ag\e(B)
 108  ("N~" ?\e,AQ\e(B)
 109  ("n~" ?\e,Aq\e(B)
 110  ("?/" ?\e,A?\e(B)
 111  ("!/" ?\e,A!\e(B)
 112  ("<<" ?\e,A+\e(B)
 113  (">>" ?\e,A;\e(B)
 114
 115  ("A``" ["A`"])
 116  ("A''" ["A'"])
 117  ("A^^" ["A^"])
 118  ("A~~" ["A~"])
 119  ("A\"\"" ["A\""])
 120  ("A//" ["A/"])
 121  ("a``" ["a`"])
 122  ("a''" ["a'"])
 123  ("a^^" ["a^"])
 124  ("a~~" ["a~"])
 125  ("a\"\"" ["a\""])
 126  ("a//" ["a/"])
 127  ("E``" ["E`"])
 128  ("E''" ["E'"])
 129  ("E^^" ["E^"])
 130  ("E\"\"" ["E\""])
 131  ("E//" ["E/"])
 132  ("e``" ["e`"])
 133  ("e''" ["e'"])
 134  ("e^^" ["e^"])
 135  ("e\"\"" ["e\""])
 136  ("e//" ["e/"])
 137  ("I``" ["I`"])
 138  ("i``" ["i`"])
 139  ("I''" ["I'"])
 140  ("i''" ["i'"])
 141  ("I^^" ["I^"])
 142  ("i^^" ["i^"])
 143  ("I\"\"" ["I\""])
 144  ("i\"\"" ["i\""])
 145  ("O``" ["O`"])
 146  ("o``" ["o`"])
 147  ("O''" ["O'"])
 148  ("o''" ["o'"])
 149  ("O^^" ["O^"])
 150  ("o^^" ["o^"])
 151  ("O~~" ["O~"])
 152  ("o~~" ["o~"])
 153  ("O\"\"" ["O\""])
 154  ("o\"\"" ["o\""])
 155  ("O//" ["O/"])
 156  ("o//" ["o/"])
 157  ("U``" ["U`"])
 158  ("u``" ["u`"])
 159  ("U''" ["U'"])
 160  ("u''" ["u'"])
 161  ("U^^" ["U^"])
 162  ("u^^" ["u^"])
 163  ("U\"\"" ["U\""])
 164  ("u\"\"" ["u\""])
 165  ("Y''" ["Y'"])
 166  ("y''" ["y'"])
 167  ("y\"\"" ["y\""])
 168  ("D//" ["D/"])
 169  ("d//" ["d/"])
 170  ("T//" ["T/"])
 171  ("t//" ["t/"])
 172  ("s//" ["s/"])
 173  ("C,," ["C,"])
 174  ("c,," ["c,"])
 175  ("N~~" ["N~"])
 176  ("n~~" ["n~"])
 177  ("?//" ["?/"])
 178  ("!//" ["!/"])
 179  ("<<<" ["<<"])
 180  (">>>" [">>"])
 181  )
 182
 183 (quail-define-package
 184  "latin-2-postfix" "Latin-2" "2<" t
 185  "Latin-2 character input method with postfix modifiers
 186
 187              | postfix | examples
 188  ------------+---------+----------
 189   acute      |    '    | a' -> \e,Ba\e(B
 190   ogonek     |    ,    | a, -> \e,B1\e(B
 191   diaeresis  |    \"    | a\" -> \e,Bd\e(B
 192   circumflex |    ^    | a^ -> \e,Bb\e(B
 193   breve      |    ~    | a~ -> \e,Bc\e(B
 194   cedilla    |    ,    | c, -> \e,Bg\e(B
 195   caron      |    ~    | c~ -> \e,Bh\e(B
 196   dbl. acute |    :    | o: -> \e,Bu\e(B
 197   ring       |    .    | u. -> \e,By\e(B
 198   dot        |    .    | z. -> \e,B?\e(B
 199   stroke     |    /    | d/ -> \e,Bp\e(B
 200   others     |    /    | s/ -> \e,B_\e(B
 201
 202 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 203 " nil t nil nil nil nil nil nil nil nil t)
 204
 205 (quail-define-rules
 206  ("A'" ?\e,BA\e(B)
 207  ("A," ?\e,B!\e(B)
 208  ("A\"" ?\e,BD\e(B)
 209  ("A^" ?\e,BB\e(B)
 210  ("A~" ?\e,BC\e(B)
 211  ("C'" ?\e,BF\e(B)
 212  ("C," ?\e,BG\e(B)
 213  ("C~" ?\e,BH\e(B)
 214  ("D/" ?\e,BP\e(B)
 215  ("D~" ?\e,BO\e(B)
 216  ("E'" ?\e,BI\e(B)
 217  ("E," ?\e,BJ\e(B)
 218  ("E\"" ?\e,BK\e(B)
 219  ("E~" ?\e,BL\e(B)
 220  ("I'" ?\e,BM\e(B)
 221  ("I^" ?\e,BN\e(B)
 222  ("L'" ?\e,BE\e(B)
 223  ("L/" ?\e,B#\e(B)
 224  ("L~" ?\e,B%\e(B)
 225  ("N'" ?\e,BQ\e(B)
 226  ("N~" ?\e,BR\e(B)
 227  ("O'" ?\e,BS\e(B)
 228  ("O:" ?\e,BU\e(B)
 229  ("O\"" ?\e,BV\e(B)
 230  ("O^" ?\e,BT\e(B)
 231  ("R'" ?\e,B@\e(B)
 232  ("R~" ?\e,BX\e(B)
 233  ("S'" ?\e,B&\e(B)
 234  ("S," ?\e,B*\e(B)
 235  ("S~" ?\e,B)\e(B)
 236  ("T," ?\e,B^\e(B)
 237  ("T~" ?\e,B+\e(B)
 238  ("U'" ?\e,BZ\e(B)
 239  ("U:" ?\e,B[\e(B)
 240  ("U\"" ?\e,B\\e(B)
 241  ("U." ?\e,BY\e(B)
 242  ("Y'" ?\e,B]\e(B)
 243  ("Z'" ?\e,B,\e(B)
 244  ("Z." ?\e,B/\e(B)
 245  ("Z~" ?\e,B.\e(B)
 246  ("a'" ?\e,Ba\e(B)
 247  ("a," ?\e,B1\e(B)
 248  ("a\"" ?\e,Bd\e(B)
 249  ("a^" ?\e,Bb\e(B)
 250  ("a~" ?\e,Bc\e(B)
 251  ("c'" ?\e,Bf\e(B)
 252  ("c," ?\e,Bg\e(B)
 253  ("c~" ?\e,Bh\e(B)
 254  ("d/" ?\e,Bp\e(B)
 255  ("d~" ?\e,Bo\e(B)
 256  ("e'" ?\e,Bi\e(B)
 257  ("e," ?\e,Bj\e(B)
 258  ("e\"" ?\e,Bk\e(B)
 259  ("e~" ?\e,Bl\e(B)
 260  ("i'" ?\e,Bm\e(B)
 261  ("i^" ?\e,Bn\e(B)
 262  ("l'" ?\e,Be\e(B)
 263  ("l/" ?\e,B3\e(B)
 264  ("l~" ?\e,B5\e(B)
 265  ("n'" ?\e,Bq\e(B)
 266  ("n~" ?\e,Br\e(B)
 267  ("o'" ?\e,Bs\e(B)
 268  ("o:" ?\e,Bu\e(B)
 269  ("o\"" ?\e,Bv\e(B)
 270  ("o^" ?\e,Bt\e(B)
 271  ("r'" ?\e,B`\e(B)
 272  ("r~" ?\e,Bx\e(B)
 273  ("s'" ?\e,B6\e(B)
 274  ("s," ?\e,B:\e(B)
 275  ("s/" ?\e,B_\e(B)
 276  ("s~" ?\e,B9\e(B)
 277  ("t," ?\e,B~\e(B)
 278  ("t~" ?\e,B;\e(B)
 279  ("u'" ?\e,Bz\e(B)
 280  ("u:" ?\e,B{\e(B)
 281  ("u\"" ?\e,B|\e(B)
 282  ("u." ?\e,By\e(B)
 283  ("y'" ?\e,B}\e(B)
 284  ("z'" ?\e,B<\e(B)
 285  ("z." ?\e,B?\e(B)
 286  ("z~" ?\e,B>\e(B)
 287
 288  ("A''" ["A'"])
 289  ("A,," ["A,"])
 290  ("A\"\"" ["A\""])
 291  ("A^^" ["A^"])
 292  ("A~~" ["A~"])
 293  ("C''" ["C'"])
 294  ("C,," ["C,"])
 295  ("C~~" ["C~"])
 296  ("D//" ["D/"])
 297  ("D~~" ["D~"])
 298  ("E''" ["E'"])
 299  ("E,," ["E,"])
 300  ("E\"\"" ["E\""])
 301  ("E~~" ["E~"])
 302  ("I''" ["I'"])
 303  ("I^^" ["I^"])
 304  ("L''" ["L'"])
 305  ("L//" ["L/"])
 306  ("L~~" ["L~"])
 307  ("N''" ["N'"])
 308  ("N~~" ["N~"])
 309  ("O''" ["O'"])
 310  ("O::" ["O:"])
 311  ("O\"\"" ["O\""])
 312  ("O^^" ["O^"])
 313  ("R''" ["R'"])
 314  ("R~~" ["R~"])
 315  ("S''" ["S'"])
 316  ("S,," ["S,"])
 317  ("S~~" ["S~"])
 318  ("T,," ["T,"])
 319  ("T~~" ["T~"])
 320  ("U''" ["U'"])
 321  ("U::" ["U:"])
 322  ("U\"\"" ["U\""])
 323  ("U.." ["U."])
 324  ("Y''" ["Y'"])
 325  ("Z''" ["Z'"])
 326  ("Z.." ["Z."])
 327  ("Z~~" ["Z~"])
 328  ("a''" ["a'"])
 329  ("a,," ["a,"])
 330  ("a\"\"" ["a\""])
 331  ("a^^" ["a^"])
 332  ("a~~" ["a~"])
 333  ("c''" ["c'"])
 334  ("c,," ["c,"])
 335  ("c~~" ["c~"])
 336  ("d//" ["d/"])
 337  ("d~~" ["d~"])
 338  ("e''" ["e'"])
 339  ("e,," ["e,"])
 340  ("e\"\"" ["e\""])
 341  ("e~~" ["e~"])
 342  ("i''" ["i'"])
 343  ("i^^" ["i^"])
 344  ("l''" ["l'"])
 345  ("l//" ["l/"])
 346  ("l~~" ["l~"])
 347  ("n''" ["n'"])
 348  ("n~~" ["n~"])
 349  ("o''" ["o'"])
 350  ("o::" ["o:"])
 351  ("o\"\"" ["o\""])
 352  ("o^^" ["o^"])
 353  ("r''" ["r'"])
 354  ("r~~" ["r~"])
 355  ("s''" ["s'"])
 356  ("s,," ["s,"])
 357  ("s//" ["s/"])
 358  ("s~~" ["s~"])
 359  ("t,," ["t,"])
 360  ("t~~" ["t~"])
 361  ("u''" ["u'"])
 362  ("u::" ["u:"])
 363  ("u\"\"" ["u\""])
 364  ("u.." ["u."])
 365  ("y''" ["y'"])
 366  ("z''" ["z'"])
 367  ("z.." ["z."])
 368  ("z~~" ["z~"])
 369  )
 370
 371 (quail-define-package
 372  "latin-3-postfix" "Latin-3" "3<" t
 373  "Latin-3 character input method with postfix modifiers
 374
 375              | postfix | examples
 376  ------------+---------+----------
 377   acute      |    '    | a' -> \e,Ca\e(B
 378   grave      |    `    | a` -> \e,C`\e(B
 379   circumflex |    ^    | a^ -> \e,Cb\e(B
 380   diaeresis  |    \"    | a\" -> \e,Cd\e(B
 381   dot        |    .    | c. -> \e,Ce\e(B   i. -> \e,C9\e(B   I. -> \e,C)\e(B
 382   cedilla    |    ,    | c, -> \e,Cg\e(B
 383   breve      |    ~    | g~ -> \e,C;\e(B
 384   tilde      |    ~    | n~ -> \e,Cq\e(B
 385   stroke     |    /    | h/ -> \e,C1\e(B
 386   others     |    /    | s/ -> \e,C_\e(B
 387
 388 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 389 " nil t nil nil nil nil nil nil nil nil t)
 390
 391 (quail-define-rules
 392  ("A`" ?\e,C@\e(B)
 393  ("A'" ?\e,CA\e(B)
 394  ("A^" ?\e,CB\e(B)
 395  ("A\"" ?\e,CD\e(B)
 396  ("C." ?\e,CE\e(B)
 397  ("C^" ?\e,CF\e(B)
 398  ("C," ?\e,CG\e(B)
 399  ("E`" ?\e,CH\e(B)
 400  ("E'" ?\e,CI\e(B)
 401  ("E^" ?\e,CJ\e(B)
 402  ("E\"" ?\e,CK\e(B)
 403  ("G~" ?\e,C+\e(B)
 404  ("G." ?\e,CU\e(B)
 405  ("G^" ?\e,CX\e(B)
 406  ("H/" ?\e,C!\e(B)
 407  ("H^" ?\e,C&\e(B)
 408  ("I." ?\e,C)\e(B)
 409  ("I`" ?\e,CL\e(B)
 410  ("I'" ?\e,CM\e(B)
 411  ("I^" ?\e,CN\e(B)
 412  ("I\"" ?\e,CO\e(B)
 413  ("J^" ?\e,C,\e(B)
 414  ("N~" ?\e,CQ\e(B)
 415  ("O`" ?\e,CR\e(B)
 416  ("O'" ?\e,CS\e(B)
 417  ("O^" ?\e,CT\e(B)
 418  ("O\"" ?\e,CV\e(B)
 419  ("S," ?\e,C*\e(B)
 420  ("S^" ?\e,C^\e(B)
 421  ("U`" ?\e,CY\e(B)
 422  ("U'" ?\e,CZ\e(B)
 423  ("U^" ?\e,C[\e(B)
 424  ("U\"" ?\e,C\\e(B)
 425  ("U~" ?\e,C]\e(B)
 426  ("Z." ?\e,C/\e(B)
 427  ("a`" ?\e,C`\e(B)
 428  ("a'" ?\e,Ca\e(B)
 429  ("a^" ?\e,Cb\e(B)
 430  ("a\"" ?\e,Cd\e(B)
 431  ("c." ?\e,Ce\e(B)
 432  ("c^" ?\e,Cf\e(B)
 433  ("c," ?\e,Cg\e(B)
 434  ("e`" ?\e,Ch\e(B)
 435  ("e'" ?\e,Ci\e(B)
 436  ("e^" ?\e,Cj\e(B)
 437  ("e\"" ?\e,Ck\e(B)
 438  ("g~" ?\e,C;\e(B)
 439  ("g." ?\e,Cu\e(B)
 440  ("g^" ?\e,Cx\e(B)
 441  ("h/" ?\e,C1\e(B)
 442  ("h^" ?\e,C6\e(B)
 443  ("i." ?\e,C9\e(B)
 444  ("i`" ?\e,Cl\e(B)
 445  ("i'" ?\e,Cm\e(B)
 446  ("i^" ?\e,Cn\e(B)
 447  ("i\"" ?\e,Co\e(B)
 448  ("j^" ?\e,C<\e(B)
 449  ("n~" ?\e,Cq\e(B)
 450  ("o`" ?\e,Cr\e(B)
 451  ("o'" ?\e,Cs\e(B)
 452  ("o^" ?\e,Ct\e(B)
 453  ("o\"" ?\e,Cv\e(B)
 454  ("s," ?\e,C:\e(B)
 455  ("s/" ?\e,C_\e(B)
 456  ("s^" ?\e,C~\e(B)
 457  ("u`" ?\e,Cy\e(B)
 458  ("u'" ?\e,Cz\e(B)
 459  ("u^" ?\e,C{\e(B)
 460  ("u\"" ?\e,C|\e(B)
 461  ("u~" ?\e,C}\e(B)
 462  ("z." ?\e,C?\e(B)
 463
 464  ("A``" ["A`"])
 465  ("A''" ["A'"])
 466  ("A^^" ["A^"])
 467  ("A\"\"" ["A\""])
 468  ("C.." ["C."])
 469  ("C^^" ["C^"])
 470  ("C,," ["C,"])
 471  ("E``" ["E`"])
 472  ("E''" ["E'"])
 473  ("E^^" ["E^"])
 474  ("E\"\"" ["E\""])
 475  ("G~~" ["G~"])
 476  ("G.." ["G."])
 477  ("G^^" ["G^"])
 478  ("H//" ["H/"])
 479  ("H^^" ["H^"])
 480  ("I.." ["I."])
 481  ("I``" ["I`"])
 482  ("I''" ["I'"])
 483  ("I^^" ["I^"])
 484  ("I\"\"" ["I\""])
 485  ("J^^" ["J^"])
 486  ("N~~" ["N~"])
 487  ("O``" ["O`"])
 488  ("O''" ["O'"])
 489  ("O^^" ["O^"])
 490  ("O\"\"" ["O\""])
 491  ("S,," ["S,"])
 492  ("S^^" ["S^"])
 493  ("U``" ["U`"])
 494  ("U''" ["U'"])
 495  ("U^^" ["U^"])
 496  ("U\"\"" ["U\""])
 497  ("U~~" ["U~"])
 498  ("Z.." ["Z."])
 499  ("a``" ["a`"])
 500  ("a''" ["a'"])
 501  ("a^^" ["a^"])
 502  ("a\"\"" ["a\""])
 503  ("c.." ["c."])
 504  ("c^^" ["c^"])
 505  ("c,," ["c,"])
 506  ("e``" ["e`"])
 507  ("e''" ["e'"])
 508  ("e^^" ["e^"])
 509  ("e\"\"" ["e\""])
 510  ("g~~" ["g~"])
 511  ("g.." ["g."])
 512  ("g^^" ["g^"])
 513  ("h//" ["h/"])
 514  ("h^^" ["h^"])
 515  ("i.." ["i."])
 516  ("i``" ["i`"])
 517  ("i''" ["i'"])
 518  ("i^^" ["i^"])
 519  ("i\"\"" ["i\""])
 520  ("j^^" ["j^"])
 521  ("n~~" ["n~"])
 522  ("o``" ["o`"])
 523  ("o''" ["o'"])
 524  ("o^^" ["o^"])
 525  ("o\"\"" ["o\""])
 526  ("s,," ["s,"])
 527  ("s//" ["s/"])
 528  ("s^^" ["s^"])
 529  ("u``" ["u`"])
 530  ("u''" ["u'"])
 531  ("u^^" ["u^"])
 532  ("u\"\"" ["u\""])
 533  ("u~~" ["u~"])
 534  ("z.." ["z."])
 535  )
 536
 537 (quail-define-package
 538  "latin-4-postfix" "Latin-4" "4<" t
 539  "Latin-4 characters input method with postfix modifiers
 540
 541              | postfix | examples
 542  ------------+---------+----------
 543   acute      |    '    | a' -> \e,Da\e(B
 544   circumflex |    ^    | a^ -> \e,Db\e(B
 545   diaeresis  |    \"    | a\" -> \e,Dd\e(B
 546   ogonek     |    ,    | a, -> \e,D1\e(B
 547   macron     |    -    | a- -> \e,D`\e(B
 548   tilde      |    ~    | a~ -> \e,Dc\e(B
 549   caron      |    ~    | c~ -> \e,Dh\e(B
 550   dot        |    .    | e. -> \e,Dl\e(B
 551   cedilla    |    ,    | k, -> \e,Ds\e(B   g, -> \e,D;\e(B
 552   stroke     |    /    | d/ -> \e,Dp\e(B
 553   nordic     |    /    | a/ -> \e,De\e(B   e/ -> \e,Df\e(B   o/ -> \e,Dx\e(B
 554   others     |    /    | s/ -> \e,D_\e(B   n/ -> \e,D?\e(B   k/ -> \e,D"\e(B
 555
 556 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 557 " nil t nil nil nil nil nil nil nil nil t)
 558
 559 (quail-define-rules
 560  ("A," ?\e,D!\e(B)
 561  ("A-" ?\e,D@\e(B)
 562  ("A'" ?\e,DA\e(B)
 563  ("A^" ?\e,DB\e(B)
 564  ("A~" ?\e,DC\e(B)
 565  ("A\"" ?\e,DD\e(B)
 566  ("A/" ?\e,DE\e(B)
 567  ("C~" ?\e,DH\e(B)
 568  ("D/" ?\e,DP\e(B)
 569  ("E/" ?\e,DF\e(B)
 570  ("E-" ?\e,D*\e(B)
 571  ("E'" ?\e,DI\e(B)
 572  ("E," ?\e,DJ\e(B)
 573  ("E\"" ?\e,DK\e(B)
 574  ("E." ?\e,DL\e(B)
 575  ("G," ?\e,D+\e(B)
 576  ("I~" ?\e,D%\e(B)
 577  ("I," ?\e,DG\e(B)
 578  ("I'" ?\e,DM\e(B)
 579  ("I^" ?\e,DN\e(B)
 580  ("I-" ?\e,DO\e(B)
 581  ("K," ?\e,DS\e(B)
 582  ("L," ?\e,D&\e(B)
 583  ("N/" ?\e,D=\e(B)
 584  ("N," ?\e,DQ\e(B)
 585  ("O-" ?\e,DR\e(B)
 586  ("O^" ?\e,DT\e(B)
 587  ("O~" ?\e,DU\e(B)
 588  ("O\"" ?\e,DV\e(B)
 589  ("O/" ?\e,DX\e(B)
 590  ("R," ?\e,D#\e(B)
 591  ("S~" ?\e,D)\e(B)
 592  ("T/" ?\e,D,\e(B)
 593  ("U," ?\e,DY\e(B)
 594  ("U'" ?\e,DZ\e(B)
 595  ("U^" ?\e,D[\e(B)
 596  ("U\"" ?\e,D\\e(B)
 597  ("U~" ?\e,D]\e(B)
 598  ("U-" ?\e,D^\e(B)
 599  ("Z~" ?\e,D.\e(B)
 600  ("a," ?\e,D1\e(B)
 601  ("a-" ?\e,D`\e(B)
 602  ("a'" ?\e,Da\e(B)
 603  ("a^" ?\e,Db\e(B)
 604  ("a~" ?\e,Dc\e(B)
 605  ("a\"" ?\e,Dd\e(B)
 606  ("a/" ?\e,De\e(B)
 607  ("c~" ?\e,Dh\e(B)
 608  ("d/" ?\e,Dp\e(B)
 609  ("e/" ?\e,Df\e(B)
 610  ("e-" ?\e,D:\e(B)
 611  ("e'" ?\e,Di\e(B)
 612  ("e," ?\e,Dj\e(B)
 613  ("e\"" ?\e,Dk\e(B)
 614  ("e." ?\e,Dl\e(B)
 615  ("g," ?\e,D;\e(B)
 616  ("i~" ?\e,D5\e(B)
 617  ("i," ?\e,Dg\e(B)
 618  ("i'" ?\e,Dm\e(B)
 619  ("i^" ?\e,Dn\e(B)
 620  ("i-" ?\e,Do\e(B)
 621  ("k/" ?\e,D"\e(B)
 622  ("k," ?\e,Ds\e(B)
 623  ("l," ?\e,D6\e(B)
 624  ("n/" ?\e,D?\e(B)
 625  ("n," ?\e,Dq\e(B)
 626  ("o-" ?\e,Dr\e(B)
 627  ("o^" ?\e,Dt\e(B)
 628  ("o~" ?\e,Du\e(B)
 629  ("o\"" ?\e,Dv\e(B)
 630  ("o/" ?\e,Dx\e(B)
 631  ("r," ?\e,D3\e(B)
 632  ("s/" ?\e,D_\e(B)
 633  ("s~" ?\e,D9\e(B)
 634  ("t/" ?\e,D<\e(B)
 635  ("u," ?\e,Dy\e(B)
 636  ("u'" ?\e,Dz\e(B)
 637  ("u^" ?\e,D{\e(B)
 638  ("u\"" ?\e,D|\e(B)
 639  ("u~" ?\e,D}\e(B)
 640  ("u-" ?\e,D~\e(B)
 641  ("z~" ?\e,D>\e(B)
 642
 643  ("A,," ["A,"])
 644  ("A--" ["A-"])
 645  ("A''" ["A'"])
 646  ("A^^" ["A^"])
 647  ("A~~" ["A~"])
 648  ("A\"\"" ["A\""])
 649  ("A//" ["A/"])
 650  ("C~~" ["C~"])
 651  ("D//" ["D/"])
 652  ("E//" ["E/"])
 653  ("E--" ["E-"])
 654  ("E''" ["E'"])
 655  ("E,," ["E,"])
 656  ("E\"\"" ["E\""])
 657  ("E.." ["E."])
 658  ("G,," ["G,"])
 659  ("I~~" ["I~"])
 660  ("I,," ["I,"])
 661  ("I''" ["I'"])
 662  ("I^^" ["I^"])
 663  ("I--" ["I-"])
 664  ("K,," ["K,"])
 665  ("L,," ["L,"])
 666  ("N//" ["N/"])
 667  ("N,," ["N,"])
 668  ("O--" ["O-"])
 669  ("O^^" ["O^"])
 670  ("O~~" ["O~"])
 671  ("O\"\"" ["O\""])
 672  ("O//" ["O/"])
 673  ("R,," ["R,"])
 674  ("S~~" ["S~"])
 675  ("T//" ["T/"])
 676  ("U,," ["U,"])
 677  ("U''" ["U'"])
 678  ("U^^" ["U^"])
 679  ("U\"\"" ["U\""])
 680  ("U~~" ["U~"])
 681  ("U--" ["U-"])
 682  ("Z~~" ["Z~"])
 683  ("a,," ["a,"])
 684  ("a--" ["a-"])
 685  ("a''" ["a'"])
 686  ("a^^" ["a^"])
 687  ("a~~" ["a~"])
 688  ("a\"\"" ["a\""])
 689  ("a//" ["a/"])
 690  ("c~~" ["c~"])
 691  ("d//" ["d/"])
 692  ("e//" ["e/"])
 693  ("e--" ["e-"])
 694  ("e''" ["e'"])
 695  ("e,," ["e,"])
 696  ("e\"\"" ["e\""])
 697  ("e.." ["e."])
 698  ("g,," ["g,"])
 699  ("i~~" ["i~"])
 700  ("i,," ["i,"])
 701  ("i''" ["i'"])
 702  ("i^^" ["i^"])
 703  ("i--" ["i-"])
 704  ("k//" ["k/"])
 705  ("k,," ["k,"])
 706  ("l,," ["l,"])
 707  ("n//" ["n/"])
 708  ("n,," ["n,"])
 709  ("o--" ["o-"])
 710  ("o^^" ["o^"])
 711  ("o~~" ["o~"])
 712  ("o\"\"" ["o\""])
 713  ("o//" ["o/"])
 714  ("r,," ["r,"])
 715  ("s//" ["s/"])
 716  ("s~~" ["s~"])
 717  ("t//" ["t/"])
 718  ("u,," ["u,"])
 719  ("u''" ["u'"])
 720  ("u^^" ["u^"])
 721  ("u\"\"" ["u\""])
 722  ("u~~" ["u~"])
 723  ("u--" ["u-"])
 724  ("z~~" ["z~"])
 725  )
 726
 727 (quail-define-package
 728  "latin-5-postfix" "Latin-5" "5<" t
 729  "Latin-5 characters input method with postfix modifiers
 730
 731              | postfix | examples
 732  ------------+---------+----------
 733   acute      |    '    | a' -> \e,Ma\e(B
 734   grave      |    `    | a` -> \e,M`\e(B
 735   circumflex |    ^    | a^ -> \e,Mb\e(B
 736   diaeresis  |    \"    | a\" -> \e,Md\e(B
 737   tilde      |    ~    | a~ -> \e,Mc\e(B
 738   breve      |    ~    | g~ -> \e,Mp\e(B
 739   cedilla    |    ,    | c, -> \e,Mg\e(B
 740   dot        |    .    | i. -> \e,M}\e(B   I. -> \e,M]\e(B
 741   nordic     |    /    | a/ -> \e,Me\e(B   e/ -> \e,Mf\e(B   o/ -> \e,Mx\e(B
 742   others     |    /    | s/ -> \e,M_\e(B
 743
 744 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 745 " nil t nil nil nil nil nil nil nil nil t)
 746
 747 (quail-define-rules
 748  ("A'" ?\e,MA\e(B)
 749  ("A/" ?\e,ME\e(B)
 750  ("A\"" ?\e,MD\e(B)
 751  ("A^" ?\e,MB\e(B)
 752  ("A`" ?\e,M@\e(B)
 753  ("A~" ?\e,MC\e(B)
 754  ("C," ?\e,MG\e(B)
 755  ("E'" ?\e,MI\e(B)
 756  ("E/" ?\e,MF\e(B)
 757  ("E\"" ?\e,MK\e(B)
 758  ("E^" ?\e,MJ\e(B)
 759  ("E`" ?\e,MH\e(B)
 760  ("G~" ?\e,MP\e(B)
 761  ("I'" ?\e,MM\e(B)
 762  ("I." ?\e,M]\e(B)
 763  ("I\"" ?\e,MO\e(B)
 764  ("I^" ?\e,MN\e(B)
 765  ("I`" ?\e,ML\e(B)
 766  ("N~" ?\e,MQ\e(B)
 767  ("O'" ?\e,MS\e(B)
 768  ("O/" ?\e,MX\e(B)
 769  ("O\"" ?\e,MV\e(B)
 770  ("O^" ?\e,MT\e(B)
 771  ("O`" ?\e,MR\e(B)
 772  ("O~" ?\e,MU\e(B)
 773  ("S," ?\e,M^\e(B)
 774  ("U'" ?\e,MZ\e(B)
 775  ("U\"" ?\e,M\\e(B)
 776  ("U^" ?\e,M[\e(B)
 777  ("U`" ?\e,MY\e(B)
 778  ("a'" ?\e,Ma\e(B)
 779  ("a/" ?\e,Me\e(B)
 780  ("a\"" ?\e,Md\e(B)
 781  ("a^" ?\e,Mb\e(B)
 782  ("a`" ?\e,M`\e(B)
 783  ("a~" ?\e,Mc\e(B)
 784  ("c," ?\e,Mg\e(B)
 785  ("e'" ?\e,Mi\e(B)
 786  ("e/" ?\e,Mf\e(B)
 787  ("e\"" ?\e,Mk\e(B)
 788  ("e^" ?\e,Mj\e(B)
 789  ("e`" ?\e,Mh\e(B)
 790  ("g~" ?\e,Mp\e(B)
 791  ("i'" ?\e,Mm\e(B)
 792  ("i." ?\e,M}\e(B)
 793  ("i\"" ?\e,Mo\e(B)
 794  ("i^" ?\e,Mn\e(B)
 795  ("i`" ?\e,Ml\e(B)
 796  ("n~" ?\e,Mq\e(B)
 797  ("o'" ?\e,Ms\e(B)
 798  ("o/" ?\e,Mx\e(B)
 799  ("o\"" ?\e,Mv\e(B)
 800  ("o^" ?\e,Mt\e(B)
 801  ("o`" ?\e,Mr\e(B)
 802  ("o~" ?\e,Mu\e(B)
 803  ("s," ?\e,M~\e(B)
 804  ("s/" ?\e,M_\e(B)
 805  ("u'" ?\e,Mz\e(B)
 806  ("u\"" ?\e,M|\e(B)
 807  ("u^" ?\e,M{\e(B)
 808  ("u`" ?\e,My\e(B)
 809  ("y\"" ?\e,M\7f\e(B)
 810
 811  ("A''" ["A'"])
 812  ("A//" ["A/"])
 813  ("A\"\"" ["A\""])
 814  ("A^^" ["A^"])
 815  ("A``" ["A`"])
 816  ("A~~" ["A~"])
 817  ("C,," ["C,"])
 818  ("E''" ["E'"])
 819  ("E//" ["E/"])
 820  ("E\"\"" ["E\""])
 821  ("E^^" ["E^"])
 822  ("E``" ["E`"])
 823  ("G~~" ["G~"])
 824  ("I''" ["I'"])
 825  ("I.." ["I."])
 826  ("I\"\"" ["I\""])
 827  ("I^^" ["I^"])
 828  ("I``" ["I`"])
 829  ("N~~" ["N~"])
 830  ("O''" ["O'"])
 831  ("O//" ["O/"])
 832  ("O\"\"" ["O\""])
 833  ("O^^" ["O^"])
 834  ("O``" ["O`"])
 835  ("O~~" ["O~"])
 836  ("S,," ["S,"])
 837  ("U''" ["U'"])
 838  ("U\"\"" ["U\""])
 839  ("U^^" ["U^"])
 840  ("U``" ["U`"])
 841  ("a''" ["a'"])
 842  ("a//" ["a/"])
 843  ("a\"\"" ["a\""])
 844  ("a^^" ["a^"])
 845  ("a``" ["a`"])
 846  ("a~~" ["a~"])
 847  ("c,," ["c,"])
 848  ("e''" ["e'"])
 849  ("e//" ["e/"])
 850  ("e\"\"" ["e\""])
 851  ("e^^" ["e^"])
 852  ("e``" ["e`"])
 853  ("g~~" ["g~"])
 854  ("i''" ["i'"])
 855  ("i.." ["i."])
 856  ("i\"\"" ["i\""])
 857  ("i^^" ["i^"])
 858  ("i``" ["i`"])
 859  ("n~~" ["n~"])
 860  ("o''" ["o'"])
 861  ("o//" ["o/"])
 862  ("o\"\"" ["o\""])
 863  ("o^^" ["o^"])
 864  ("o``" ["o`"])
 865  ("o~~" ["o~"])
 866  ("s,," ["s,"])
 867  ("s//" ["s/"])
 868  ("u''" ["u'"])
 869  ("u\"\"" ["u\""])
 870  ("u^^" ["u^"])
 871  ("u``" ["u`"])
 872  ("y\"\"" ["y\""])
 873  )
 874
 875 (quail-define-package
 876  "danish-postfix" "Latin-1" "DA<" t
 877  "Danish input method (rule: AE -> \e,AF\e(B, OE -> \e,AX\e(B, AA -> \e,AE\e(B, E' -> \e,AI\e(B)
 878
 879 Doubling the postfix separates the letter and postfix: e.g. aee -> ae
 880 "
 881  nil t nil nil nil nil nil nil nil nil t)
 882
 883 (quail-define-rules
 884  ("AE" ?\e,AF\e(B)
 885  ("ae" ?\e,Af\e(B)
 886  ("OE" ?\e,AX\e(B)
 887  ("oe" ?\e,Ax\e(B)
 888  ("AA" ?\e,AE\e(B)
 889  ("aa" ?\e,Ae\e(B)
 890  ("E'" ?\e,AI\e(B)
 891  ("e'" ?\e,Ai\e(B)
 892
 893  ("AEE" ["AE"])
 894  ("aee" ["ae"])
 895  ("OEE" ["OE"])
 896  ("oee" ["oe"])
 897  ("AAA" ["AA"])
 898  ("aaa" ["aa"])
 899  ("E''" ["E'"])
 900  ("e''" ["e'"])
 901  )
 902
 903 (quail-define-package
 904  "esperanto-postfix" "Latin-3" "EO<" t
 905  "Esperanto input method with postfix modifiers
 906
 907 A following ^ or x will produce an accented character,
 908 e.g. c^ -> \e,Cf\e(B, gx -> \e,Cx\e(B, u^ -> \e,C}\e(B.
 909
 910 Doubling the postfix separates the letter and postfix,
 911 e.g. a'' -> a'.
 912 " nil t nil nil nil nil nil nil nil nil t)
 913
 914 (quail-define-rules
 915  ("Cx" ?\e,CF\e(B)
 916  ("C^" ?\e,CF\e(B)
 917  ("cx" ?\e,Cf\e(B)
 918  ("c^" ?\e,Cf\e(B)
 919  ("Gx" ?\e,CX\e(B)
 920  ("G^" ?\e,CX\e(B)
 921  ("gx" ?\e,Cx\e(B)
 922  ("g^" ?\e,Cx\e(B)
 923  ("Hx" ?\e,C&\e(B)
 924  ("H^" ?\e,C&\e(B)
 925  ("hx" ?\e,C6\e(B)
 926  ("h^" ?\e,C6\e(B)
 927  ("Jx" ?\e,C,\e(B)
 928  ("J^" ?\e,C,\e(B)
 929  ("jx" ?\e,C<\e(B)
 930  ("j^" ?\e,C<\e(B)
 931  ("Sx" ?\e,C^\e(B)
 932  ("S^" ?\e,C^\e(B)
 933  ("sx" ?\e,C~\e(B)
 934  ("s^" ?\e,C~\e(B)
 935  ("Ux" ?\e,C]\e(B)
 936  ("U^" ?\e,C]\e(B)
 937  ("ux" ?\e,C}\e(B)
 938  ("u^" ?\e,C}\e(B)
 939
 940  ("Cxx" ["Cx"])
 941  ("C^^" ["C^"])
 942  ("cxx" ["cx"])
 943  ("c^^" ["c^"])
 944  ("Gxx" ["Gx"])
 945  ("G^^" ["G^"])
 946  ("gxx" ["gx"])
 947  ("g^^" ["g^"])
 948  ("Hxx" ["Hx"])
 949  ("H^^" ["H^"])
 950  ("hxx" ["hx"])
 951  ("h^^" ["h^"])
 952  ("Jxx" ["Jx"])
 953  ("J^^" ["J^"])
 954  ("jxx" ["jx"])
 955  ("j^^" ["j^"])
 956  ("Sxx" ["Sx"])
 957  ("S^^" ["S^"])
 958  ("sxx" ["sx"])
 959  ("s^^" ["s^"])
 960  ("Uxx" ["Ux"])
 961  ("U^^" ["U^"])
 962  ("uxx" ["ux"])
 963  ("u^^" ["u^"])
 964  )
 965
 966 (quail-define-package
 967  "finnish-postfix" "Latin-1" "FI<" t
 968  "Finnish (Suomi) input method
 969
 970 AE  -> \e,AD\e(B
 971 AEE -> AE
 972 OE  -> \e,AV\e(B
 973 OEE -> OE
 974 "
 975  nil t nil nil nil nil nil nil nil nil t)
 976
 977 (quail-define-rules
 978  ("AE" ?\e,AD\e(B)
 979  ("ae" ?\e,Ad\e(B)
 980  ("OE" ?\e,AV\e(B)
 981  ("oe" ?\e,Av\e(B)
 982
 983  ("AEE" ["AE"])
 984  ("aee" ["ae"])
 985  ("OEE" ["OE"])
 986  ("oee" ["oe"])
 987  )
 988
 989 (quail-define-package
 990  "french-postfix" "Latin-1" "FR<" t
 991  "French (Fran\e,Ag\e(Bais) input method with postfix modifiers
 992
 993 ` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr\e,Ai\e(Bma.
 994 Par exemple: a` -> \e,A`\e(B, e' -> \e,Ai\e(B.
 995
 996 \e,AG\e(B, \e,A+\e(B, et \e,A;\e(B sont produits par C,, <<, et >>.
 997
 998 En doublant la frappe des diacritiques, ils s'isoleront de la lettre.
 999 Par exemple: e'' -> e'
1000
1001 <e dans l'o> n'est pas disponible."
1002  nil t nil nil nil nil nil nil nil nil t)
1003
1004 (quail-define-rules
1005  ("A`" ?\e,A@\e(B)
1006  ("A^" ?\e,AB\e(B)
1007  ("a`" ?\e,A`\e(B)
1008  ("a^" ?\e,Ab\e(B)
1009  ("E`" ?\e,AH\e(B)
1010  ("E'" ?\e,AI\e(B)
1011  ("E^" ?\e,AJ\e(B)
1012  ("E\"" ?\e,AK\e(B)
1013  ("e`" ?\e,Ah\e(B)
1014  ("e'" ?\e,Ai\e(B)
1015  ("e^" ?\e,Aj\e(B)
1016  ("e\"" ?\e,Ak\e(B)
1017  ("I^" ?\e,AN\e(B)
1018  ("I\"" ?\e,AO\e(B)
1019  ("i^" ?\e,An\e(B)
1020  ("i\"" ?\e,Ao\e(B)
1021  ("O^" ?\e,AT\e(B)
1022  ("o^" ?\e,At\e(B)
1023  ("U`" ?\e,AY\e(B)
1024  ("U^" ?\e,A[\e(B)
1025  ("U\"" ?\e,A\\e(B)
1026  ("u`" ?\e,Ay\e(B)
1027  ("u^" ?\e,A{\e(B)
1028  ("u\"" ?\e,A|\e(B)
1029  ("C," ?\e,AG\e(B)
1030  ("c," ?\e,Ag\e(B)
1031  ("<<" ?\e,A+\e(B)
1032  (">>" ?\e,A;\e(B)
1033
1034  ("A``" ["A`"])
1035  ("A^^" ["A^"])
1036  ("a``" ["a`"])
1037  ("a^^" ["a^"])
1038  ("E``" ["E`"])
1039  ("E''" ["E'"])
1040  ("E^^" ["E^"])
1041  ("E\"\"" ["E\""])
1042  ("e``" ["e`"])
1043  ("e''" ["e'"])
1044  ("e^^" ["e^"])
1045  ("e\"\"" ["e\""])
1046  ("I^^" ["I^"])
1047  ("I\"\"" ["I\""])
1048  ("i^^" ["i^"])
1049  ("i\"\"" ["i\""])
1050  ("O^^" ["O^"])
1051  ("o^^" ["o^"])
1052  ("U``" ["U`"])
1053  ("U^^" ["U^"])
1054  ("U\"\"" ["U\""])
1055  ("u``" ["u`"])
1056  ("u^^" ["u^"])
1057  ("u\"\"" ["u\""])
1058  ("C,," ["C,"])
1059  ("c,," ["c,"])
1060  ("<<<" ["<<"])
1061  (">>>" [">>"])
1062  )
1063
1064 (quail-define-package
1065  "german-postfix" "Latin-1" "DE<" t
1066  "German (Deutsch) input method
1067
1068 ae  -> \e,Ad\e(B
1069 aee -> ae
1070 oe  -> \e,Av\e(B
1071 oee -> oe
1072 ue  -> \e,A|\e(B
1073 uee -> ue
1074 sz  -> \e,A_\e(B
1075 szz -> sz
1076 "
1077  nil t nil nil nil nil nil nil nil nil t)
1078
1079 (quail-define-rules
1080  ("AE" ?\e,AD\e(B)
1081  ("ae" ?\e,Ad\e(B)
1082  ("OE" ?\e,AV\e(B)
1083  ("oe" ?\e,Av\e(B)
1084  ("UE" ?\e,A\\e(B)
1085  ("ue" ?\e,A|\e(B)
1086  ("sz" ?\e,A_\e(B)
1087
1088  ("AEE" ["AE"])
1089  ("aee" ["ae"])
1090  ("OEE" ["OE"])
1091  ("oee" ["oe"])
1092  ("UEE" ["UE"])
1093  ("uee" ["ue"])
1094  ("szz" ["sz"])
1095  )
1096
1097 (quail-define-package
1098  "icelandic-postfix" "Latin-1" "IS<" t
1099  "Icelandic (\e,AM\e(Bslenska) input method with postfix modifiers
1100
1101 A' -> \e,AA\e(B
1102 E' -> \e,AI\e(B
1103 I' -> \e,AM\e(B
1104 O' -> \e,AS\e(B
1105 U' -> \e,AZ\e(B
1106 Y' -> \e,A]\e(B
1107 AE -> \e,AF\e(B
1108 OE -> \e,AV\e(B
1109 D/ -> \e,AP\e(B (eth)
1110 T/ -> \e,A^\e(B (thorn)
1111
1112 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
1113 " nil t nil nil nil nil nil nil nil nil t)
1114
1115 (quail-define-rules
1116  ("A'" ?\e,AA\e(B)
1117  ("a'" ?\e,Aa\e(B)
1118  ("E'" ?\e,AI\e(B)
1119  ("e'" ?\e,Ai\e(B)
1120  ("I'" ?\e,AM\e(B)
1121  ("i'" ?\e,Am\e(B)
1122  ("O'" ?\e,AS\e(B)
1123  ("o'" ?\e,As\e(B)
1124  ("U'" ?\e,AZ\e(B)
1125  ("u'" ?\e,Az\e(B)
1126  ("Y'" ?\e,A]\e(B)
1127  ("y'" ?\e,A}\e(B)
1128  ("AE" ?\e,AF\e(B)
1129  ("ae" ?\e,Af\e(B)
1130  ("OE" ?\e,AV\e(B)
1131  ("oe" ?\e,Av\e(B)
1132  ("D/" ?\e,AP\e(B)
1133  ("d/" ?\e,Ap\e(B)
1134  ("T/" ?\e,A^\e(B)
1135  ("t/" ?\e,A~\e(B)
1136
1137  ("A''" ["A'"])
1138  ("a''" ["a'"])
1139  ("E''" ["E'"])
1140  ("e''" ["e'"])
1141  ("I''" ["I'"])
1142  ("i''" ["i'"])
1143  ("O''" ["O'"])
1144  ("o''" ["o'"])
1145  ("U''" ["U'"])
1146  ("u''" ["u'"])
1147  ("Y''" ["Y'"])
1148  ("y''" ["y'"])
1149  ("AEE" ["AE"])
1150  ("aee" ["ae"])
1151  ("OEE" ["OE"])
1152  ("oee" ["oe"])
1153  ("D//" ["D/"])
1154  ("d//" ["d/"])
1155  ("T//" ["T/"])
1156  ("t//" ["t/"])
1157  )
1158
1159 (quail-define-package
1160  "italian-postfix" "Latin-1" "IT<" t
1161  "Italian (Italiano) input method with postfix modifiers
1162
1163 A` -> \e,A@\e(B
1164 E` -> \e,AH\e(B
1165 I` -> \e,AL\e(B
1166 O` -> \e,AR\e(B
1167 U` -> \e,AY\e(B
1168
1169 Doubling the postfix separates the letter and postfix: e.g. a`` -> a`
1170 " nil t nil nil nil nil nil nil nil nil t)
1171
1172 (quail-define-rules
1173  ("A`" ?\e,A@\e(B)
1174  ("a`" ?\e,A`\e(B)
1175  ("E`" ?\e,AH\e(B)
1176  ("e`" ?\e,Ah\e(B)
1177  ("I`" ?\e,AL\e(B)
1178  ("i`" ?\e,Al\e(B)
1179  ("O`" ?\e,AR\e(B)
1180  ("o`" ?\e,Ar\e(B)
1181  ("U`" ?\e,AY\e(B)
1182  ("u`" ?\e,Ay\e(B)
1183
1184  ("A``" ["A`"])
1185  ("a``" ["a`"])
1186  ("E``" ["E`"])
1187  ("e``" ["e`"])
1188  ("I``" ["I`"])
1189  ("i``" ["i`"])
1190  ("O``" ["O`"])
1191  ("o``" ["o`"])
1192  ("U``" ["U`"])
1193  ("u``" ["u`"])
1194  )
1195
1196 (quail-define-package
1197  "norwegian-postfix" "Latin-1" "NO<" t
1198  "Norwegian (Norsk) input method (rule: AE->\e,AF\e(B, OE->\e,AX\e(B, AA->\e,AE\e(B, E'->\e,AI\e(B)
1199
1200 Doubling the postfix separates the letter and postfix: e.g. aee -> ae
1201 "
1202  nil t nil nil nil nil nil nil nil nil t)
1203
1204 (quail-define-rules
1205  ("AE" ?\e,AF\e(B)
1206  ("ae" ?\e,Af\e(B)
1207  ("OE" ?\e,AX\e(B)
1208  ("oe" ?\e,Ax\e(B)
1209  ("AA" ?\e,AE\e(B)
1210  ("aa" ?\e,Ae\e(B)
1211  ("E'" ?\e,AI\e(B)
1212  ("e'" ?\e,Ai\e(B)
1213
1214  ("AEE" ["AE"])
1215  ("aee" ["ae"])
1216  ("OEE" ["OE"])
1217  ("oee" ["oe"])
1218  ("AAA" ["AA"])
1219  ("aaa" ["aa"])
1220  ("E''" ["E'"])
1221  ("e''" ["e'"])
1222  )
1223
1224 (quail-define-package
1225  "scandinavian-postfix" "Latin-1" "SC<" t
1226  "Scandinavian input method with postfix modifiers
1227 Supported languages are Swidish, Norwegian, Danish, and Finnish.
1228
1229 ae -> \e,Af\e(B
1230 oe -> \e,Ax\e(B
1231 aa -> \e,Ae\e(B
1232 a\" -> \e,Ad\e(B
1233 o\" -> \e,Av\e(B
1234 e' -> \e,Ai\e(B
1235
1236 Doubling the postfix separates the letter and postfix:
1237 aee -> ae, o\"\" -> o\", etc.
1238 " nil t nil nil nil nil nil nil nil nil t)
1239
1240 (quail-define-rules
1241  ("AE" ?\e,AF\e(B)
1242  ("ae" ?\e,Af\e(B)
1243  ("OE" ?\e,AX\e(B)
1244  ("oe" ?\e,Ax\e(B)
1245  ("AA" ?\e,AE\e(B)
1246  ("aa" ?\e,Ae\e(B)
1247  ("A\"" ?\e,AD\e(B)
1248  ("a\"" ?\e,Ad\e(B)
1249  ("O\"" ?\e,AV\e(B)
1250  ("o\"" ?\e,Av\e(B)
1251  ("E'" ?\e,AI\e(B)
1252  ("e'" ?\e,Ai\e(B)
1253
1254  ("AEE" ["AE"])
1255  ("aee" ["ae"])
1256  ("OEE" ["OE"])
1257  ("oee" ["oe"])
1258  ("AAA" ["AA"])
1259  ("aaa" ["aa"])
1260  ("A\"\"" ["A\""])
1261  ("a\"\"" ["a\""])
1262  ("O\"\"" ["O\""])
1263  ("o\"\"" ["o\""])
1264  ("E''" ["E'"])
1265  ("e''" ["e'"])
1266  )
1267
1268 (quail-define-package
1269  "spanish-postfix" "Latin-1" "ES<" t
1270  "Spanish (Espa\e,Aq\e(Bol) input method with postfix modifiers
1271
1272 A' -> \e,AA\e(B
1273 E' -> \e,AI\e(B
1274 I' -> \e,AM\e(B
1275 O' -> \e,AS\e(B
1276 U' -> \e,AZ\e(B
1277 N~ -> \e,AQ\e(B
1278 !/ -> \e,A!\e(B
1279 ?/ -> \e,A?\e(B
1280
1281 Doubling the postfix separates the letter and postfix:
1282 a'' -> a', n~~ -> n~, etc.
1283 " nil t nil nil nil nil nil nil nil nil t)
1284
1285 (quail-define-rules
1286  ("A'" ?\e,AA\e(B)
1287  ("a'" ?\e,Aa\e(B)
1288  ("E'" ?\e,AI\e(B)
1289  ("e'" ?\e,Ai\e(B)
1290  ("I'" ?\e,AM\e(B)
1291  ("i'" ?\e,Am\e(B)
1292  ("O'" ?\e,AS\e(B)
1293  ("o'" ?\e,As\e(B)
1294  ("U'" ?\e,AZ\e(B)
1295  ("u'" ?\e,Az\e(B)
1296  ("N~" ?\e,AQ\e(B)
1297  ("n~" ?\e,Aq\e(B)
1298  ("?/" ?\e,A?\e(B)
1299  ("!/" ?\e,A!\e(B)
1300
1301  ("A''" ["A'"])
1302  ("a''" ["a'"])
1303  ("E''" ["E'"])
1304  ("e''" ["e'"])
1305  ("I''" ["I'"])
1306  ("i''" ["i'"])
1307  ("O''" ["O'"])
1308  ("o''" ["o'"])
1309  ("U''" ["U'"])
1310  ("u''" ["u'"])
1311  ("N~~" ["N~"])
1312  ("n~~" ["n~"])
1313  ("?//" ["?/"])
1314  ("!//" ["!/"])
1315  )
1316
1317 (quail-define-package
1318  "swedish-postfix" "Latin-1" "SV<" t
1319  "Swedish (Svenska) input method (rule: AA -> \e,AE\e(B, AE -> \e,AD\e(B, OE -> \e,AV\e(B, E' -> \e,AI\e(B)
1320
1321 Doubling the postfix separates the letter and postfix: e.g. aee -> ae
1322 " nil t nil nil nil nil nil nil nil nil t)
1323
1324 (quail-define-rules
1325  ("AA" ?\e,AE\e(B)
1326  ("aa" ?\e,Ae\e(B)
1327  ("AE" ?\e,AD\e(B)
1328  ("ae" ?\e,Ad\e(B)
1329  ("OE" ?\e,AV\e(B)
1330  ("oe" ?\e,Av\e(B)
1331  ("E'" ?\e,AI\e(B)
1332  ("e'" ?\e,Ai\e(B)
1333
1334  ("AAA" ["AA"])
1335  ("aaa" ["aa"])
1336  ("AEE" ["AE"])
1337  ("aee" ["ae"])
1338  ("OEE" ["OE"])
1339  ("oee" ["oe"])
1340  ("E''" ["E'"])
1341  ("e''" ["e'"])
1342  )
1343
1344 (quail-define-package
1345  "turkish-postfix" "Latin-3" "TR<" t
1346  "Turkish (T\e,C|\e(Brk\e,Cg\e(Be) input method with postfix modifiers
1347
1348 Note for I, \e,C9\e(B, \e,C)\e(B, i.
1349
1350 A^ -> \e,CB\e(B
1351 C, -> \e,CG\e(B
1352 G^ -> \e,C+\e(B
1353 I  -> I
1354 i  -> \e,C9\e(B
1355 I. -> \e,C)\e(B
1356 i. -> i
1357 O\" -> \e,CV\e(B
1358 S, -> \e,C*\e(B
1359 U\" -> \e,C\\e(B
1360 U^ -> \e,C[\e(B
1361
1362 Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
1363 " nil t nil nil nil nil nil nil nil nil t)
1364
1365 (quail-define-rules
1366  ("A^" ?\e,CB\e(B)
1367  ("a^" ?\e,Cb\e(B)
1368  ("C," ?\e,CG\e(B)
1369  ("c," ?\e,Cg\e(B)
1370  ("G^" ?\e,C+\e(B)
1371  ("g^" ?\e,C;\e(B)
1372  ("I." ?\e,C)\e(B)
1373  ("i" ?\e,C9\e(B)
1374  ("i." ?i)
1375  ("O\"" ?\e,CV\e(B)
1376  ("o\"" ?\e,Cv\e(B)
1377  ("S," ?\e,C*\e(B)
1378  ("s," ?\e,C:\e(B)
1379  ("U\"" ?\e,C\\e(B)
1380  ("u\"" ?\e,C|\e(B)
1381  ("U^" ?\e,C[\e(B)
1382  ("u^" ?\e,C{\e(B)
1383
1384  ("A^^" ["A^"])
1385  ("a^^" ["a^"])
1386  ("C,," ["C,"])
1387  ("c,," ["c,"])
1388  ("G^^" ["G^"])
1389  ("g^^" ["g^"])
1390  ("I.." ["I."])
1391  ("i" ["i"])
1392  ("i.." ["i."])
1393  ("O\"\"" ["O\""])
1394  ("o\"\"" ["o\""])
1395  ("S,," ["S,"])
1396  ("s,," ["s,"])
1397  ("U\"\"" ["U\""])
1398  ("u\"\"" ["u\""])
1399  ("U^^" ["U^"])
1400  ("u^^" ["u^"])
1401  )
1402
1403 (quail-define-package
1404  "british" "Latin-1" "\e,A#\e(B@" t
1405  "British English input method with Latin-1 character \e,A#\e(B (# -> \e,A#\e(B)"
1406  nil t nil nil nil nil nil nil nil nil t)
1407
1408 (quail-define-rules
1409  ("#" [?\e,A#\e(B ?#])
1410  )
1411
1412 ;; The following are various quail packages for those who think
1413 ;; the aboves are too awkward.  Supported languages and their
1414 ;; package name are:
1415 ;;
1416 ;; French       (frnch, azerty)
1417 ;; Icelandic    (iclndc)
1418 ;; Denish       (dnsh)
1419 ;; Norwegian    (nrwgn)
1420 ;; Swedish      (swdsh)
1421 ;; Finnish      (fnnsh)
1422 ;; German       (grmn)
1423 ;; Italian      (itln)
1424 ;; Spanish      (spnsh)
1425 ;; Dvorak       (dvorak)
1426 ;;
1427 ;;; 92.12.15  created for Mule Ver.0.9.6 by Takahashi N. <ntakahas@etl.go.jp>
1428 ;;; 92.12.29  modified by Takahashi N. <ntakahas@etl.go.jp>
1429
1430 ;;
1431 (quail-define-package
1432  "french-keyboard" "Latin-1" "FR@" t
1433  "French (Fran\e,Ag\e(Bais) input method simulating some French keyboard
1434 <e dans l'o> n'est pas disponible." nil t t t t nil nil nil nil nil t)
1435
1436 ;; \e,Aj\e(B1  \e,Ai\e(B2  \e,Ah\e(B3  \e,At\e(B4  \e,An\e(B5  \e,Ao\e(B6  \e,Ab\e(B7  \e,A{\e(B8  \e,Ay\e(B9  \e,A`\e(B0  -_  \e,Ak\e(B+  `~
1437 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AgG\e(B  \e,A|\e(B&
1438 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  ;:  '"  \|
1439 ;;    zZ  xX  cC  vV  bB  nN  mM  ,(  .)  !?
1440
1441 (quail-define-rules
1442  ("1" ?\e,Aj\e(B)
1443  ("2" ?\e,Ai\e(B)
1444  ("3" ?\e,Ah\e(B)
1445  ("4" ?\e,At\e(B)
1446  ("5" ?\e,An\e(B)
1447  ("6" ?\e,Ao\e(B)
1448  ("7" ?\e,Ab\e(B)
1449  ("8" ?\e,A{\e(B)
1450  ("9" ?\e,Ay\e(B)
1451  ("0" ?\e,A`\e(B)
1452  ("=" ?\e,Ak\e(B)
1453  ("[" ?\e,Ag\e(B)
1454  ("]" ?\e,A|\e(B)
1455
1456  ("!" ?1)
1457  ("@" ?2)
1458  ("#" ?3)
1459  ("$" ?4)
1460  ("%" ?5)
1461  ("^" ?6)
1462  ("&" ?7)
1463  ("*" ?8)
1464  ("(" ?9)
1465  (")" ?0)
1466  ("{" ?\e,AG\e(B)
1467  ("}" ?&)
1468  ("<" ?\()
1469  (">" ?\))
1470  )
1471
1472 ;;
1473 (quail-define-package
1474  "french-azerty" "Latin-1" "AZ@" t
1475  "French (Fran\e,Ag\e(Bais) input method simulating Azerty keyboard
1476
1477 Similaire au clavier fran\e,Ag\e(Bais de SUN.
1478 pr\e,Ai\e(Bfixes:  ^ pour circonflexe,  \e,A(\e(B pour tr\e,Ai\e(Bma.
1479 <e dans l'o> n'est pas disponible." nil t t t t nil nil nil nil nil t)
1480
1481 ;; &1  \e,Ai\e(B2  "3  '4  (5  \e,A'\e(B6  \e,Ah\e(B7  !8  \e,Ag\e(B9  \e,A`\e(B0  )\e,A0\e(B -_  @~
1482 ;;  aA  zZ  eE  rR  tT  yY  uU  iI  oO  pP  ^\e,A(\e(B  `$
1483 ;;   qQ  sS  dD  fF  gG  hH  jJ  kK  lL  mM  \e,Ay\e(B%  *|
1484 ;;    wW  xX  cC  vV  bB  nN  ,?  ;.  :/  =+
1485
1486 (quail-define-rules
1487  ("1" ?&)
1488  ("2" ?\e,Ai\e(B)
1489  ("3" ?\")
1490  ("4" ?')
1491  ("5" ?\()
1492  ("6" ?\e,A'\e(B)
1493  ("7" ?\e,Ah\e(B)
1494  ("8" ?!)
1495  ("9" ?\e,Ag\e(B)
1496  ("0" ?\e,A`\e(B)
1497  ("-" ?\))
1498  ("=" ?-)
1499  ("`" ?@)
1500  ("q" ?a)
1501  ("w" ?z)
1502  ("e" ?e)
1503  ("r" ?r)
1504  ("t" ?t)
1505  ("y" ?y)
1506  ("u" ?u)
1507  ("i" ?i)
1508  ("o" ?o)
1509  ("p" ?p)
1510  ("[" ?^)
1511  ("]" ?`)
1512  ("a" ?q)
1513  ("s" ?s)
1514  ("d" ?d)
1515  ("f" ?f)
1516  ("g" ?g)
1517  ("h" ?h)
1518  ("j" ?j)
1519  ("k" ?k)
1520  ("l" ?l)
1521  (";" ?m)
1522  ("'" ?\e,Ay\e(B)
1523  ("\\" ?*)
1524  ("z" ?w)
1525  ("x" ?x)
1526  ("c" ?c)
1527  ("v" ?v)
1528  ("b" ?b)
1529  ("n" ?n)
1530  ("m" ?,)
1531  ("," ?\;)
1532  ("." ?:)
1533  ("/" ?=)
1534
1535  ("!" ?1)
1536  ("@" ?2)
1537  ("#" ?3)
1538  ("$" ?4)
1539  ("%" ?5)
1540  ("^" ?6)
1541  ("&" ?7)
1542  ("*" ?8)
1543  ("(" ?9)
1544  (")" ?0)
1545  ("_" ?\e,A0\e(B)
1546  ("+" ?_)
1547  ("~" ?~)
1548  ("Q" ?A)
1549  ("W" ?Z)
1550  ("E" ?E)
1551  ("R" ?R)
1552  ("T" ?T)
1553  ("Y" ?Y)
1554  ("U" ?U)
1555  ("I" ?I)
1556  ("O" ?O)
1557  ("P" ?P)
1558  ("{" ?\e,A(\e(B)
1559  ("}" ?$)
1560  ("A" ?Q)
1561  ("S" ?S)
1562  ("D" ?D)
1563  ("F" ?F)
1564  ("G" ?G)
1565  ("H" ?H)
1566  ("J" ?J)
1567  ("K" ?K)
1568  ("L" ?L)
1569  (":" ?M)
1570  ("\"" ?%)
1571  ("|" ?|)
1572  ("Z" ?W)
1573  ("X" ?X)
1574  ("C" ?C)
1575  ("V" ?V)
1576  ("B" ?B)
1577  ("N" ?N)
1578  ("M" ??)
1579  ("<" ?.)
1580  (">" ?/)
1581  ("?" ?+)
1582
1583  ("[q" ?\e,Ab\e(B)
1584  ("[e" ?\e,Aj\e(B)
1585  ("[i" ?\e,An\e(B)
1586  ("[o" ?\e,At\e(B)
1587  ("[u" ?\e,A{\e(B)
1588
1589  ("{e" ?\e,Ak\e(B)
1590  ("{i" ?\e,Ao\e(B)
1591  ("{u" ?\e,A|\e(B)
1592
1593  ("[[" ?^)
1594  ("{{" ?\e,A(\e(B)
1595  )
1596
1597 ;;
1598 (quail-define-package
1599  "icelandic-keyboard" "Latin-1" "IS@" t
1600  "Icelandic (\e,AM\e(Bslenska) input method simulating some Icelandic keyboard
1601
1602 Dead accent is right to \e,Af\e(B." nil t t t t nil nil nil nil nil t)
1603
1604 ;; 1!  2"  3#  4$  5%  6^  7&  8*  9(  0)  \e,AvV\e(B  -_  `~
1605 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,ApP\e(B  '?
1606 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,AfF\e(B  \e,A44\e(B  +*
1607 ;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  \e,A~^\e(B
1608
1609 (quail-define-rules
1610  ("-" ?\e,Av\e(B)
1611  ("=" ?-)
1612  ("[" ?\e,Ap\e(B)
1613  ("]" ?')
1614  (";" ?\e,Af\e(B)
1615  ("'" ?\e,A4\e(B)
1616  ("\\" ?+)
1617  ("/" ?\e,A~\e(B)
1618
1619  ("@" ?\")
1620  ("_" ?\e,AV\e(B)
1621  ("+" ?_)
1622  ("{" ?\e,AP\e(B)
1623  ("}" ??)
1624  (":" ?\e,AF\e(B)
1625  ("\"" ?\e,A4\e(B)
1626  ("|" ?*)
1627  ("<" ?\;)
1628  (">" ?:)
1629  ("?" ?\e,A^\e(B)
1630
1631  ("'a" ?\e,Aa\e(B)
1632  ("'e" ?\e,Ai\e(B)
1633  ("'i" ?\e,Am\e(B)
1634  ("'o" ?\e,As\e(B)
1635  ("'u" ?\e,Az\e(B)
1636  ("'y" ?\e,A}\e(B)
1637  ("'A" ?\e,AA\e(B)
1638  ("'E" ?\e,AI\e(B)
1639  ("'I" ?\e,AM\e(B)
1640  ("'O" ?\e,AS\e(B)
1641  ("'U" ?\e,AZ\e(B)
1642  ("'Y" ?\e,A]\e(B)
1643
1644  ("''" ?\e,A4\e(B)
1645  )
1646
1647 ;;
1648 (quail-define-package
1649  "danish-keyboard" "Latin-1" "DA@" t
1650  "Danish input method simulating SUN Danish keyboard"
1651  nil t t t t nil nil nil nil nil t)
1652
1653 ;; 1!  2"  3#  4\e,A$\e(B  5%  6&  7/  8(  9)  0=  +?  \e,A='\e(B  ~^
1654 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AeE\e(B  \e,AiI\e(B
1655 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,AfF\e(B  \e,AxX\e(B  '*
1656 ;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  -_
1657
1658 (quail-define-rules
1659  ("-" ?+)
1660  ("=" ?\e,A=\e(B)
1661  ("`" ?~)
1662  ("[" ?\e,Ae\e(B)
1663  ("]" ?\e,Ai\e(B)
1664  (";" ?\e,Af\e(B)
1665  ("'" ?\e,Ax\e(B)
1666  ("\\" ?')
1667  ("/" ?-)
1668
1669  ("@" ?\")
1670  ("$" ?\e,A$\e(B)
1671  ("^" ?&)
1672  ("&" ?/)
1673  ("*" ?\()
1674  ("(" ?\))
1675  (")" ?=)
1676  ("_" ??)
1677  ("+" ?\e,A'\e(B)
1678  ("~" ?^)
1679  ("{" ?\e,AE\e(B)
1680  ("}" ?\e,AI\e(B)
1681  (":" ?\e,AF\e(B)
1682  ("\"" ?\e,AX\e(B)
1683  ("|" ?*)
1684  ("<" ?\;)
1685  (">" ?:)
1686  ("?" ?_)
1687  )
1688
1689 ;;
1690 (quail-define-package
1691  "norwegian-keyboard" "Latin-1" "NO@" t
1692  "Norwegian (Norsk) input method simulating SUN Norwegian keyboard"
1693  nil t t t t nil nil nil nil nil t)
1694
1695 ;; 1!  2"  3#  4\e,A$\e(B  5%  6&  7/  8(  9)  0=  +?  |\e,A'\e(B  ~^
1696 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AeE\e(B  \e,AiI\e(B
1697 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,AxX\e(B  \e,AfF\e(B  '*
1698 ;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  '?
1699
1700 (quail-define-rules
1701  ("-" ?+)
1702  ("=" ?|)
1703  ("`" ?~)
1704  ("[" ?\e,Ae\e(B)
1705  ("]" ?\e,Ai\e(B)
1706  (";" ?\e,Ax\e(B)
1707  ("'" ?\e,Af\e(B)
1708  ("\\" ?')
1709  ("/" ?-)
1710
1711  ("!" ?!)
1712  ("@" ?\")
1713  ("$" ?\e,A$\e(B)
1714  ("^" ?&)
1715  ("&" ?/)
1716  ("*" ?\()
1717  ("(" ?\))
1718  (")" ?=)
1719  ("_" ??)
1720  ("+" ?\e,A'\e(B)
1721  ("~" ?^)
1722  ("{" ?\e,AE\e(B)
1723  ("}" ?\e,AI\e(B)
1724  (":" ?\e,AX\e(B)
1725  ("\"" ?\e,AF\e(B)
1726  ("|" ?*)
1727  ("<" ?\;)
1728  (">" ?:)
1729  ("?" ?_)
1730  )
1731
1732 ;;
1733 (quail-define-package
1734  "swedish-keyboard" "Latin-1" "SV@" t
1735  "Swedish (Svenska) input method simulating SUN Swedish/Finnish keyboard"
1736  nil t t t t nil nil nil nil nil t)
1737
1738 ;; 1!  2"  3#  4\e,A$\e(B  5%  6&  7/  8(  9)  0=  +?  \e,A'=\e(B  ~^
1739 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AeE\e(B  \e,AiI\e(B
1740 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,AvV\e(B  \e,AdD\e(B  '*
1741 ;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  -_
1742
1743 (quail-define-rules
1744  ("-" ?+)
1745  ("=" ?\e,A'\e(B)
1746  ("`" ?~)
1747  ("[" ?\e,Ae\e(B)
1748  ("]" ?\e,Ai\e(B)
1749  (";" ?\e,Av\e(B)
1750  ("'" ?\e,Ad\e(B)
1751  ("\\" ?')
1752  ("/" ?-)
1753
1754  ("@" ?\")
1755  ("$" ?\e,A$\e(B)
1756  ("^" ?&)
1757  ("&" ?/)
1758  ("*" ?\()
1759  ("(" ?\))
1760  (")" ?=)
1761  ("_" ??)
1762  ("+" ?\e,A=\e(B)
1763  ("~" ?^)
1764  ("{" ?\e,AE\e(B)
1765  ("}" ?\e,AI\e(B)
1766  (":" ?\e,AV\e(B)
1767  ("\"" ?\e,AD\e(B)
1768  ("|" ?*)
1769  ("<" ?\;)
1770  (">" ?:)
1771  ("?" ?_)
1772  )
1773
1774 ;;
1775 (quail-define-package
1776  "finish-keyboard" "Latin-1" "FI@" t
1777  "Finish input method simulating SUN Finnish/Swedish keyboard"
1778  nil t t t t nil nil nil nil nil t)
1779
1780 ;; 1!  2"  3#  4\e,A$\e(B  5%  6&  7/  8(  9)  0=  +?  \e,A'=\e(B  ~^
1781 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AeE\e(B  \e,AiI\e(B
1782 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,AvV\e(B  \e,AdD\e(B  '*
1783 ;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  -_
1784
1785 (quail-define-rules
1786  ("-" ?+)
1787  ("=" ?\e,A'\e(B)
1788  ("`" ?~)
1789  ("[" ?\e,Ae\e(B)
1790  ("]" ?\e,Ai\e(B)
1791  (";" ?\e,Av\e(B)
1792  ("'" ?\e,Ad\e(B)
1793  ("\\" ?')
1794  ("/" ?-)
1795
1796  ("@" ?\")
1797  ("$" ?\e,A$\e(B)
1798  ("^" ?&)
1799  ("&" ?/)
1800  ("*" ?\()
1801  ("(" ?\))
1802  (")" ?=)
1803  ("_" ??)
1804  ("+" ?\e,A=\e(B)
1805  ("~" ?^)
1806  ("{" ?\e,AE\e(B)
1807  ("}" ?\e,AI\e(B)
1808  (":" ?\e,AV\e(B)
1809  ("\"" ?\e,AD\e(B)
1810  ("|" ?*)
1811  ("<" ?\;)
1812  (">" ?:)
1813  ("?" ?_)
1814  )
1815
1816 ;;
1817 (quail-define-package
1818  "german" "Latin-1" "DE@" t
1819  "German (Deutsch) input method simulating SUN German keyboard"
1820  nil t t t t nil nil nil nil nil t)
1821
1822 ;; 1!  2"  3\e,A'\e(B  4$  5%  6&  7/  8(  9)  0=  \e,A_\e(B?  [{  ]}
1823 ;;  qQ  wW  eE  rR  tT  zZ  uU  iI  oO  pP  \e,A|\\e(B  +*
1824 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,AvV\e(B  \e,AdD\e(B  #^
1825 ;;    yY  xX  cC  vV  bB  nN  mM  ,;  .:  -_
1826
1827 (quail-define-rules
1828  ("-" ?\e,A_\e(B)
1829  ("=" ?\[)
1830  ("`" ?\])
1831  ("y" ?z)
1832  ("[" ?\e,A|\e(B)
1833  ("]" ?+)
1834  (";" ?\e,Av\e(B)
1835  ("'" ?\e,Ad\e(B)
1836  ("\\" ?#)
1837  ("z" ?y)
1838  ("/" ?-)
1839
1840  ("@" ?\")
1841  ("#" ?\e,A'\e(B)
1842  ("^" ?&)
1843  ("&" ?/)
1844  ("*" ?\()
1845  ("Y" ?Z)
1846  ("(" ?\))
1847  (")" ?=)
1848  ("_" ??)
1849  ("+" ?{)
1850  ("~" ?})
1851  ("{" ?\e,A\\e(B)
1852  ("}" ?*)
1853  (":" ?\e,AV\e(B)
1854  ("\"" ?\e,AD\e(B)
1855  ("|" ?^)
1856  ("Z" ?Y)
1857  ("<" ?\;)
1858  (">" ?:)
1859  ("?" ?_)
1860  )
1861
1862 ;;
1863 (quail-define-package
1864  "italian-keyboard" "Latin-1" "IT@" t
1865  "Italian (Italiano) input method simulating SUN Italian keyboard"
1866  nil t t t t nil nil nil nil nil t)
1867
1868 ;; 1!  2"  3\e,A#\e(B  4$  5%  6&  7/  8(  9)  0=  '?  \e,Al\e(B^  `~
1869 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,Ahi\e(B  +*
1870 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,Arg\e(B  \e,A`0\e(B  \e,Ay'\e(B
1871 ;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  -_
1872
1873 (quail-define-rules
1874  ("-" ?')
1875  ("=" ?\e,Al\e(B)
1876  ("[" ?\e,Ah\e(B)
1877  ("]" ?+)
1878  (";" ?\e,Ar\e(B)
1879  ("'" ?\e,A`\e(B)
1880  ("\\" ?\e,Ay\e(B)
1881  ("/" ?-)
1882
1883  ("@" ?\")
1884  ("#" ?\e,A#\e(B)
1885  ("^" ?&)
1886  ("&" ?/)
1887  ("*" ?\()
1888  ("(" ?\))
1889  (")" ?=)
1890  ("_" ??)
1891  ("+" ?^)
1892  ("~" ?~)
1893  ("{" ?\e,Ai\e(B)
1894  ("}" ?*)
1895  (":" ?\e,Ag\e(B)
1896  ("\"" ?\e,A0\e(B)
1897  ("|" ?\e,A'\e(B)
1898  ("<" ?\;)
1899  (">" ?:)
1900  ("?" ?_)
1901  )
1902
1903 ;;
1904 (quail-define-package
1905  "spanish-keyboard" "Latin-1" "ES@" t
1906  "Spanish (Espa\e,Aq\e(Bol) input method simulating SUN Spanish keyboard"
1907  nil t t t t nil nil nil nil nil t)
1908
1909 ;; 1!  2"  3\e,A7\e(B  4$  5%  6&  7/  8(  9)  0=  '?  \e,A!?\e(B  \e,AmM\e(B
1910 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AiI\e(B  \e,AsS\e(B
1911 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,AqQ\e(B  \e,AaA\e(B  \e,AzZ\e(B
1912 ;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  -_
1913
1914 (quail-define-rules
1915  ("-" ?')
1916  ("=" ?\e,A!\e(B)
1917  ("`" ?\e,Am\e(B)
1918  ("[" ?\e,Ai\e(B)
1919  ("]" ?\e,As\e(B)
1920  (";" ?\e,Aq\e(B)
1921  ("'" ?\e,Aa\e(B)
1922  ("\\" ?\e,Az\e(B)
1923  ("/" ?-)
1924
1925  ("@" ?\")
1926  ("#" ?\e,A7\e(B)
1927  ("^" ?&)
1928  ("&" ?/)
1929  ("*" ?\()
1930  ("(" ?\))
1931  (")" ?=)
1932  ("_" ??)
1933  ("+" ?\e,A?\e(B)
1934  ("~" ?\e,AM\e(B)
1935  ("{" ?\e,AI\e(B)
1936  ("}" ?\e,AS\e(B)
1937  (":" ?\e,AQ\e(B)
1938  ("\"" ?\e,AA\e(B)
1939  ("|" ?\e,AZ\e(B)
1940  ("<" ?\;)
1941  (">" ?:)
1942  ("?" ?_)
1943  )
1944
1945 ;;
1946 (quail-define-package
1947  "english-dvorak" "English" "DV@" t
1948  "English (ASCII) input method simulating Dvorak keyboard"
1949  nil t t t t nil nil nil nil nil t)
1950
1951 ;; 1!  2@  3#  4$  5%  6^  7&  8*  9(  0)  [{  ]}  `~
1952 ;;  '"  ,<  .>  pP  yY  fF  gG  cC  rR  lL  /?  =+
1953 ;;   aA  oO  eE  uU  iI  dD  hH  tT  nN  sS  -_  \|
1954 ;;    ;:  qQ  jJ  kK  xX  bB  mM  wW  vV  zZ
1955
1956 (quail-define-rules
1957  ("-" ?\[)
1958  ("=" ?\])
1959  ("`" ?`)
1960  ("q" ?')
1961  ("w" ?,)
1962  ("e" ?.)
1963  ("r" ?p)
1964  ("t" ?y)
1965  ("y" ?f)
1966  ("u" ?g)
1967  ("i" ?c)
1968  ("o" ?r)
1969  ("p" ?l)
1970  ("[" ?/)
1971  ("]" ?=)
1972  ("a" ?a)
1973  ("s" ?o)
1974  ("d" ?e)
1975  ("f" ?u)
1976  ("g" ?i)
1977  ("h" ?d)
1978  ("j" ?h)
1979  ("k" ?t)
1980  ("l" ?n)
1981  (";" ?s)
1982  ("'" ?-)
1983  ("\\" ?\\)
1984  ("z" ?\;)
1985  ("x" ?q)
1986  ("c" ?j)
1987  ("v" ?k)
1988  ("b" ?x)
1989  ("n" ?b)
1990  ("m" ?m)
1991  ("," ?w)
1992  ("." ?v)
1993  ("/" ?z)
1994
1995  ("_" ?{)
1996  ("+" ?})
1997  ("~" ?~)
1998  ("Q" ?\")
1999  ("W" ?<)
2000  ("E" ?>)
2001  ("R" ?P)
2002  ("T" ?Y)
2003  ("Y" ?F)
2004  ("U" ?G)
2005  ("I" ?C)
2006  ("O" ?R)
2007  ("P" ?L)
2008  ("{" ??)
2009  ("}" ?+)
2010  ("A" ?A)
2011  ("S" ?O)
2012  ("D" ?E)
2013  ("F" ?U)
2014  ("G" ?I)
2015  ("H" ?D)
2016  ("J" ?H)
2017  ("K" ?T)
2018  ("L" ?N)
2019  (":" ?S)
2020  ("\"" ?_)
2021  ("|" ?|)
2022  ("Z" ?:)
2023  ("X" ?Q)
2024  ("C" ?J)
2025  ("V" ?K)
2026  ("B" ?X)
2027  ("N" ?B)
2028  ("M" ?M)
2029  ("<" ?W)
2030  (">" ?V)
2031  ("?" ?Z)
2032  )