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