cgit.sxemacs.org Git - packages/blob - mule-packages/leim/quail/latin-post.el

   1 ;;; latin-post.el --- Quail packages for inputting various European characters  -*-coding: iso-2022-7bit;-*-
   2
   3 ;; Copyright (C) 1997, 1998, 2001, 2002, 2006 Free Software Foundation, Inc.
   4 ;; Copyright (C) 1997, 1999
   5 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   6 ;;   Registration Number H14PRO021
   7
   8 ;; Keywords: multilingual, input method, latin
   9
  10 ;; This file is part of GNU Emacs.
  11
  12 ;; GNU Emacs is free software; you can redistribute it and/or modify
  13 ;; it under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation; either version 2, or (at your option)
  15 ;; any later version.
  16
  17 ;; GNU Emacs is distributed in the hope that it will be useful,
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;; GNU General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  25 ;; Boston, MA 02110-1301, USA.
  26
  27 ;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp>
  28
  29 ;;; Synched up with: FSF 22.0.50.6
  30
  31 ;;; Commentary:
  32
  33 ;;; Code:
  34
  35 (require 'quail)
  36
  37 ;; XEmacs change.
  38 (defvar latin-post-decent-xemacs-unicode-support
  39   (and (fboundp 'decode-char) (decode-char 'ucs #x31C)
  40        (eq #x31C (encode-char (decode-char 'ucs #x31C) 'ucs)))
  41   "Whether Unicode support in XEmacs is good enough certain features.")
  42
  43 (quail-define-package
  44  "latin-1-postfix" "Latin-1" "1<" t
  45  "Latin-1 character input method with postfix modifiers
  46
  47              | postfix | examples
  48  ------------+---------+----------
  49   acute      |    '    | a' -> \e,Aa\e(B
  50   grave      |    `    | a` -> \e,A`\e(B
  51   circumflex |    ^    | a^ -> \e,Ab\e(B
  52   diaeresis  |    \"    | a\" -> \e,Ad\e(B
  53   tilde      |    ~    | a~ -> \e,Ac\e(B
  54   cedilla    |    ,    | c, -> \e,Ag\e(B
  55   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
  56   others     |    /    | s/ -> \e,A_\e(B   ?/ -> \e,A?\e(B   !/ -> \e,A!\e(B   // -> \e,A0\e(B
  57              | various | << -> \e,A+\e(B   >> -> \e,A;\e(B   o_ -> \e,A:\e(B   a_ -> \e,A*\e(B
  58
  59 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
  60 " nil t nil nil nil nil nil nil nil nil t)
  61
  62 (quail-define-rules
  63  ("A`" ?\e,A@\e(B)
  64  ("A'" ?\e,AA\e(B)
  65  ("A^" ?\e,AB\e(B)
  66  ("A~" ?\e,AC\e(B)
  67  ("A\"" ?\e,AD\e(B)
  68  ("A/" ?\e,AE\e(B)
  69  ("a`" ?\e,A`\e(B)
  70  ("a'" ?\e,Aa\e(B)
  71  ("a^" ?\e,Ab\e(B)
  72  ("a~" ?\e,Ac\e(B)
  73  ("a\"" ?\e,Ad\e(B)
  74  ("a/" ?\e,Ae\e(B)
  75  ("E`" ?\e,AH\e(B)
  76  ("E'" ?\e,AI\e(B)
  77  ("E^" ?\e,AJ\e(B)
  78  ("E\"" ?\e,AK\e(B)
  79  ("E/" ?\e,AF\e(B)
  80  ("e`" ?\e,Ah\e(B)
  81  ("e'" ?\e,Ai\e(B)
  82  ("e^" ?\e,Aj\e(B)
  83  ("e\"" ?\e,Ak\e(B)
  84  ("e/" ?\e,Af\e(B)
  85  ("I`" ?\e,AL\e(B)
  86  ("i`" ?\e,Al\e(B)
  87  ("I'" ?\e,AM\e(B)
  88  ("i'" ?\e,Am\e(B)
  89  ("I^" ?\e,AN\e(B)
  90  ("i^" ?\e,An\e(B)
  91  ("I\"" ?\e,AO\e(B)
  92  ("i\"" ?\e,Ao\e(B)
  93  ("O`" ?\e,AR\e(B)
  94  ("o`" ?\e,Ar\e(B)
  95  ("O'" ?\e,AS\e(B)
  96  ("o'" ?\e,As\e(B)
  97  ("O^" ?\e,AT\e(B)
  98  ("o^" ?\e,At\e(B)
  99  ("O~" ?\e,AU\e(B)
 100  ("o~" ?\e,Au\e(B)
 101  ("O\"" ?\e,AV\e(B)
 102  ("o\"" ?\e,Av\e(B)
 103  ("O/" ?\e,AX\e(B)
 104  ("o/" ?\e,Ax\e(B)
 105  ("U`" ?\e,AY\e(B)
 106  ("u`" ?\e,Ay\e(B)
 107  ("U'" ?\e,AZ\e(B)
 108  ("u'" ?\e,Az\e(B)
 109  ("U^" ?\e,A[\e(B)
 110  ("u^" ?\e,A{\e(B)
 111  ("U\"" ?\e,A\\e(B)
 112  ("u\"" ?\e,A|\e(B)
 113  ("Y'" ?\e,A]\e(B)
 114  ("y'" ?\e,A}\e(B)
 115  ("y\"" ?\e,A\7f\e(B)
 116  ("D/" ?\e,AP\e(B)
 117  ("d/" ?\e,Ap\e(B)
 118  ("T/" ["\e,A^\e(B"
 119         "\e,D,\e(B"])
 120  ("t/" ?\e,A~\e(B)
 121  ("s/" ?\e,A_\e(B)
 122  ("C," ?\e,AG\e(B)
 123  ("c," ?\e,Ag\e(B)
 124  ("N~" ?\e,AQ\e(B)
 125  ("n~" ?\e,Aq\e(B)
 126  ("?/" ?\e,A?\e(B)
 127  ("!/" ?\e,A!\e(B)
 128  ("<<" ?\e,A+\e(B)
 129  (">>" ?\e,A;\e(B)
 130  ("o_" ?\e,A:\e(B)
 131  ("a_" ?\e,A*\e(B)
 132  ("//" ?\e,A0\e(B)
 133
 134  ("A``" ["A`"])
 135  ("A''" ["A'"])
 136  ("A^^" ["A^"])
 137  ("A~~" ["A~"])
 138  ("A\"\"" ["A\""])
 139  ("A//" ["A/"])
 140  ("a``" ["a`"])
 141  ("a''" ["a'"])
 142  ("a^^" ["a^"])
 143  ("a~~" ["a~"])
 144  ("a\"\"" ["a\""])
 145  ("a//" ["a/"])
 146  ("E``" ["E`"])
 147  ("E''" ["E'"])
 148  ("E^^" ["E^"])
 149  ("E\"\"" ["E\""])
 150  ("E//" ["E/"])
 151  ("e``" ["e`"])
 152  ("e''" ["e'"])
 153  ("e^^" ["e^"])
 154  ("e\"\"" ["e\""])
 155  ("e//" ["e/"])
 156  ("I``" ["I`"])
 157  ("i``" ["i`"])
 158  ("I''" ["I'"])
 159  ("i''" ["i'"])
 160  ("I^^" ["I^"])
 161  ("i^^" ["i^"])
 162  ("I\"\"" ["I\""])
 163  ("i\"\"" ["i\""])
 164  ("O``" ["O`"])
 165  ("o``" ["o`"])
 166  ("O''" ["O'"])
 167  ("o''" ["o'"])
 168  ("O^^" ["O^"])
 169  ("o^^" ["o^"])
 170  ("O~~" ["O~"])
 171  ("o~~" ["o~"])
 172  ("O\"\"" ["O\""])
 173  ("o\"\"" ["o\""])
 174  ("O//" ["O/"])
 175  ("o//" ["o/"])
 176  ("U``" ["U`"])
 177  ("u``" ["u`"])
 178  ("U''" ["U'"])
 179  ("u''" ["u'"])
 180  ("U^^" ["U^"])
 181  ("u^^" ["u^"])
 182  ("U\"\"" ["U\""])
 183  ("u\"\"" ["u\""])
 184  ("Y''" ["Y'"])
 185  ("y''" ["y'"])
 186  ("y\"\"" ["y\""])
 187  ("D//" ["D/"])
 188  ("d//" ["d/"])
 189  ("T//" ["T/"])
 190  ("t//" ["t/"])
 191  ("s//" ["s/"])
 192  ("C,," ["C,"])
 193  ("c,," ["c,"])
 194  ("N~~" ["N~"])
 195  ("n~~" ["n~"])
 196  ("?//" ["?/"])
 197  ("!//" ["!/"])
 198  ("<<<" ["<<"])
 199  (">>>" [">>"])
 200  ("o__" ["o_"])
 201  ("a__" ["a_"])
 202  ("///" ["//"])
 203  )
 204
 205 (quail-define-package
 206  "latin-2-postfix" "Latin-2" "2<" t
 207  "Latin-2 character input method with postfix modifiers
 208
 209              | postfix | examples
 210  ------------+---------+----------
 211   acute      |    '    | a' -> \e,Ba\e(B
 212   ogonek     |    ,    | a, -> \e,B1\e(B
 213   diaeresis  |    \"    | a\" -> \e,Bd\e(B
 214   circumflex |    ^    | a^ -> \e,Bb\e(B
 215   breve      |    ~    | a~ -> \e,Bc\e(B
 216   cedilla    |    ,    | c, -> \e,Bg\e(B
 217   caron      |    ~    | c~ -> \e,Bh\e(B
 218   dbl. acute |    :    | o: -> \e,Bu\e(B
 219   ring       |    .    | u. -> \e,By\e(B
 220   dot        |    .    | z. -> \e,B?\e(B
 221   stroke     |    /    | d/ -> \e,Bp\e(B
 222   others     |    /    | s/ -> \e,B_\e(B
 223
 224 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 225 " nil t nil nil nil nil nil nil nil nil t)
 226
 227 (quail-define-rules
 228  ("A'" ?\e,BA\e(B)
 229  ("A," ?\e,B!\e(B)
 230  ("A\"" ?\e,BD\e(B)
 231  ("A^" ?\e,BB\e(B)
 232  ("A~" ?\e,BC\e(B)
 233  ("C'" ?\e,BF\e(B)
 234  ("C," ?\e,BG\e(B)
 235  ("C~" ?\e,BH\e(B)
 236  ("D/" ?\e,BP\e(B)
 237  ("D~" ?\e,BO\e(B)
 238  ("E'" ?\e,BI\e(B)
 239  ("E," ?\e,BJ\e(B)
 240  ("E\"" ?\e,BK\e(B)
 241  ("E~" ?\e,BL\e(B)
 242  ("I'" ?\e,BM\e(B)
 243  ("I^" ?\e,BN\e(B)
 244  ("L'" ?\e,BE\e(B)
 245  ("L/" ?\e,B#\e(B)
 246  ("L~" ?\e,B%\e(B)
 247  ("N'" ?\e,BQ\e(B)
 248  ("N~" ?\e,BR\e(B)
 249  ("O'" ?\e,BS\e(B)
 250  ("O:" ?\e,BU\e(B)
 251  ("O\"" ?\e,BV\e(B)
 252  ("O^" ?\e,BT\e(B)
 253  ("R'" ?\e,B@\e(B)
 254  ("R~" ?\e,BX\e(B)
 255  ("S'" ?\e,B&\e(B)
 256  ("S," ?\e,B*\e(B)
 257  ("S~" ?\e,B)\e(B)
 258  ("T," ?\e,B^\e(B)
 259  ("T~" ?\e,B+\e(B)
 260  ("U'" ?\e,BZ\e(B)
 261  ("U:" ?\e,B[\e(B)
 262  ("U\"" ?\e,B\\e(B)
 263  ("U." ?\e,BY\e(B)
 264  ("Y'" ?\e,B]\e(B)
 265  ("Z'" ?\e,B,\e(B)
 266  ("Z." ?\e,B/\e(B)
 267  ("Z~" ?\e,B.\e(B)
 268  ("a'" ?\e,Ba\e(B)
 269  ("a," ?\e,B1\e(B)
 270  ("a\"" ?\e,Bd\e(B)
 271  ("a^" ?\e,Bb\e(B)
 272  ("a~" ?\e,Bc\e(B)
 273  ("c'" ?\e,Bf\e(B)
 274  ("c," ?\e,Bg\e(B)
 275  ("c~" ?\e,Bh\e(B)
 276  ("d/" ?\e,Bp\e(B)
 277  ("d~" ?\e,Bo\e(B)
 278  ("e'" ?\e,Bi\e(B)
 279  ("e," ?\e,Bj\e(B)
 280  ("e\"" ?\e,Bk\e(B)
 281  ("e~" ?\e,Bl\e(B)
 282  ("i'" ?\e,Bm\e(B)
 283  ("i^" ?\e,Bn\e(B)
 284  ("l'" ?\e,Be\e(B)
 285  ("l/" ?\e,B3\e(B)
 286  ("l~" ?\e,B5\e(B)
 287  ("n'" ?\e,Bq\e(B)
 288  ("n~" ?\e,Br\e(B)
 289  ("o'" ?\e,Bs\e(B)
 290  ("o:" ?\e,Bu\e(B)
 291  ("o\"" ?\e,Bv\e(B)
 292  ("o^" ?\e,Bt\e(B)
 293  ("r'" ?\e,B`\e(B)
 294  ("r~" ?\e,Bx\e(B)
 295  ("s'" ?\e,B6\e(B)
 296  ("s," ?\e,B:\e(B)
 297  ("s/" ?\e,B_\e(B)
 298  ("s~" ?\e,B9\e(B)
 299  ("t," ?\e,B~\e(B)
 300  ("t~" ?\e,B;\e(B)
 301  ("u'" ?\e,Bz\e(B)
 302  ("u:" ?\e,B{\e(B)
 303  ("u\"" ?\e,B|\e(B)
 304  ("u." ?\e,By\e(B)
 305  ("y'" ?\e,B}\e(B)
 306  ("z'" ?\e,B<\e(B)
 307  ("z." ?\e,B?\e(B)
 308  ("z~" ?\e,B>\e(B)
 309
 310  ("A''" ["A'"])
 311  ("A,," ["A,"])
 312  ("A\"\"" ["A\""])
 313  ("A^^" ["A^"])
 314  ("A~~" ["A~"])
 315  ("C''" ["C'"])
 316  ("C,," ["C,"])
 317  ("C~~" ["C~"])
 318  ("D//" ["D/"])
 319  ("D~~" ["D~"])
 320  ("E''" ["E'"])
 321  ("E,," ["E,"])
 322  ("E\"\"" ["E\""])
 323  ("E~~" ["E~"])
 324  ("I''" ["I'"])
 325  ("I^^" ["I^"])
 326  ("L''" ["L'"])
 327  ("L//" ["L/"])
 328  ("L~~" ["L~"])
 329  ("N''" ["N'"])
 330  ("N~~" ["N~"])
 331  ("O''" ["O'"])
 332  ("O::" ["O:"])
 333  ("O\"\"" ["O\""])
 334  ("O^^" ["O^"])
 335  ("R''" ["R'"])
 336  ("R~~" ["R~"])
 337  ("S''" ["S'"])
 338  ("S,," ["S,"])
 339  ("S~~" ["S~"])
 340  ("T,," ["T,"])
 341  ("T~~" ["T~"])
 342  ("U''" ["U'"])
 343  ("U::" ["U:"])
 344  ("U\"\"" ["U\""])
 345  ("U.." ["U."])
 346  ("Y''" ["Y'"])
 347  ("Z''" ["Z'"])
 348  ("Z.." ["Z."])
 349  ("Z~~" ["Z~"])
 350  ("a''" ["a'"])
 351  ("a,," ["a,"])
 352  ("a\"\"" ["a\""])
 353  ("a^^" ["a^"])
 354  ("a~~" ["a~"])
 355  ("c''" ["c'"])
 356  ("c,," ["c,"])
 357  ("c~~" ["c~"])
 358  ("d//" ["d/"])
 359  ("d~~" ["d~"])
 360  ("e''" ["e'"])
 361  ("e,," ["e,"])
 362  ("e\"\"" ["e\""])
 363  ("e~~" ["e~"])
 364  ("i''" ["i'"])
 365  ("i^^" ["i^"])
 366  ("l''" ["l'"])
 367  ("l//" ["l/"])
 368  ("l~~" ["l~"])
 369  ("n''" ["n'"])
 370  ("n~~" ["n~"])
 371  ("o''" ["o'"])
 372  ("o::" ["o:"])
 373  ("o\"\"" ["o\""])
 374  ("o^^" ["o^"])
 375  ("r''" ["r'"])
 376  ("r~~" ["r~"])
 377  ("s''" ["s'"])
 378  ("s,," ["s,"])
 379  ("s//" ["s/"])
 380  ("s~~" ["s~"])
 381  ("t,," ["t,"])
 382  ("t~~" ["t~"])
 383  ("u''" ["u'"])
 384  ("u::" ["u:"])
 385  ("u\"\"" ["u\""])
 386  ("u.." ["u."])
 387  ("y''" ["y'"])
 388  ("z''" ["z'"])
 389  ("z.." ["z."])
 390  ("z~~" ["z~"])
 391  )
 392
 393 (quail-define-package
 394  "latin-3-postfix" "Latin-3" "3<" t
 395  "Latin-3 character input method with postfix modifiers
 396
 397              | postfix | examples
 398  ------------+---------+----------
 399   acute      |    '    | a' -> \e,Ca\e(B
 400   grave      |    `    | a` -> \e,C`\e(B
 401   circumflex |    ^    | a^ -> \e,Cb\e(B
 402   diaeresis  |    \"    | a\" -> \e,Cd\e(B
 403   dot        |    .    | c. -> \e,Ce\e(B   i. -> \e,C9\e(B   I. -> \e,C)\e(B
 404   cedilla    |    ,    | c, -> \e,Cg\e(B
 405   breve      |    ~    | g~ -> \e,C;\e(B
 406   tilde      |    ~    | n~ -> \e,Cq\e(B
 407   stroke     |    /    | h/ -> \e,C1\e(B
 408   others     |    /    | s/ -> \e,C_\e(B
 409
 410 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 411 " nil t nil nil nil nil nil nil nil nil t)
 412
 413 (quail-define-rules
 414  ("A`" ?\e,C@\e(B)
 415  ("A'" ?\e,CA\e(B)
 416  ("A^" ?\e,CB\e(B)
 417  ("A\"" ?\e,CD\e(B)
 418  ("C." ?\e,CE\e(B)
 419  ("C^" ?\e,CF\e(B)
 420  ("C," ?\e,CG\e(B)
 421  ("E`" ?\e,CH\e(B)
 422  ("E'" ?\e,CI\e(B)
 423  ("E^" ?\e,CJ\e(B)
 424  ("E\"" ?\e,CK\e(B)
 425  ("G~" ?\e,C+\e(B)
 426  ("G." ?\e,CU\e(B)
 427  ("G^" ?\e,CX\e(B)
 428  ("H/" ?\e,C!\e(B)
 429  ("H^" ?\e,C&\e(B)
 430  ("I." ?\e,C)\e(B)
 431  ("I`" ?\e,CL\e(B)
 432  ("I'" ?\e,CM\e(B)
 433  ("I^" ?\e,CN\e(B)
 434  ("I\"" ?\e,CO\e(B)
 435  ("J^" ?\e,C,\e(B)
 436  ("N~" ?\e,CQ\e(B)
 437  ("O`" ?\e,CR\e(B)
 438  ("O'" ?\e,CS\e(B)
 439  ("O^" ?\e,CT\e(B)
 440  ("O\"" ?\e,CV\e(B)
 441  ("S," ?\e,C*\e(B)
 442  ("S^" ?\e,C^\e(B)
 443  ("U`" ?\e,CY\e(B)
 444  ("U'" ?\e,CZ\e(B)
 445  ("U^" ?\e,C[\e(B)
 446  ("U\"" ?\e,C\\e(B)
 447  ("U~" ?\e,C]\e(B)
 448  ("Z." ?\e,C/\e(B)
 449  ("a`" ?\e,C`\e(B)
 450  ("a'" ?\e,Ca\e(B)
 451  ("a^" ?\e,Cb\e(B)
 452  ("a\"" ?\e,Cd\e(B)
 453  ("c." ?\e,Ce\e(B)
 454  ("c^" ?\e,Cf\e(B)
 455  ("c," ?\e,Cg\e(B)
 456  ("e`" ?\e,Ch\e(B)
 457  ("e'" ?\e,Ci\e(B)
 458  ("e^" ?\e,Cj\e(B)
 459  ("e\"" ?\e,Ck\e(B)
 460  ("g~" ?\e,C;\e(B)
 461  ("g." ?\e,Cu\e(B)
 462  ("g^" ?\e,Cx\e(B)
 463  ("h/" ?\e,C1\e(B)
 464  ("h^" ?\e,C6\e(B)
 465  ("i." ?\e,C9\e(B)
 466  ("i`" ?\e,Cl\e(B)
 467  ("i'" ?\e,Cm\e(B)
 468  ("i^" ?\e,Cn\e(B)
 469  ("i\"" ?\e,Co\e(B)
 470  ("j^" ?\e,C<\e(B)
 471  ("n~" ?\e,Cq\e(B)
 472  ("o`" ?\e,Cr\e(B)
 473  ("o'" ?\e,Cs\e(B)
 474  ("o^" ?\e,Ct\e(B)
 475  ("o\"" ?\e,Cv\e(B)
 476  ("s," ?\e,C:\e(B)
 477  ("s/" ?\e,C_\e(B)
 478  ("s^" ?\e,C~\e(B)
 479  ("u`" ?\e,Cy\e(B)
 480  ("u'" ?\e,Cz\e(B)
 481  ("u^" ?\e,C{\e(B)
 482  ("u\"" ?\e,C|\e(B)
 483  ("u~" ?\e,C}\e(B)
 484  ("z." ?\e,C?\e(B)
 485
 486  ("A``" ["A`"])
 487  ("A''" ["A'"])
 488  ("A^^" ["A^"])
 489  ("A\"\"" ["A\""])
 490  ("C.." ["C."])
 491  ("C^^" ["C^"])
 492  ("C,," ["C,"])
 493  ("E``" ["E`"])
 494  ("E''" ["E'"])
 495  ("E^^" ["E^"])
 496  ("E\"\"" ["E\""])
 497  ("G~~" ["G~"])
 498  ("G.." ["G."])
 499  ("G^^" ["G^"])
 500  ("H//" ["H/"])
 501  ("H^^" ["H^"])
 502  ("I.." ["I."])
 503  ("I``" ["I`"])
 504  ("I''" ["I'"])
 505  ("I^^" ["I^"])
 506  ("I\"\"" ["I\""])
 507  ("J^^" ["J^"])
 508  ("N~~" ["N~"])
 509  ("O``" ["O`"])
 510  ("O''" ["O'"])
 511  ("O^^" ["O^"])
 512  ("O\"\"" ["O\""])
 513  ("S,," ["S,"])
 514  ("S^^" ["S^"])
 515  ("U``" ["U`"])
 516  ("U''" ["U'"])
 517  ("U^^" ["U^"])
 518  ("U\"\"" ["U\""])
 519  ("U~~" ["U~"])
 520  ("Z.." ["Z."])
 521  ("a``" ["a`"])
 522  ("a''" ["a'"])
 523  ("a^^" ["a^"])
 524  ("a\"\"" ["a\""])
 525  ("c.." ["c."])
 526  ("c^^" ["c^"])
 527  ("c,," ["c,"])
 528  ("e``" ["e`"])
 529  ("e''" ["e'"])
 530  ("e^^" ["e^"])
 531  ("e\"\"" ["e\""])
 532  ("g~~" ["g~"])
 533  ("g.." ["g."])
 534  ("g^^" ["g^"])
 535  ("h//" ["h/"])
 536  ("h^^" ["h^"])
 537  ("i.." ["i."])
 538  ("i``" ["i`"])
 539  ("i''" ["i'"])
 540  ("i^^" ["i^"])
 541  ("i\"\"" ["i\""])
 542  ("j^^" ["j^"])
 543  ("n~~" ["n~"])
 544  ("o``" ["o`"])
 545  ("o''" ["o'"])
 546  ("o^^" ["o^"])
 547  ("o\"\"" ["o\""])
 548  ("s,," ["s,"])
 549  ("s//" ["s/"])
 550  ("s^^" ["s^"])
 551  ("u``" ["u`"])
 552  ("u''" ["u'"])
 553  ("u^^" ["u^"])
 554  ("u\"\"" ["u\""])
 555  ("u~~" ["u~"])
 556  ("z.." ["z."])
 557  )
 558
 559 (quail-define-package
 560  "latin-4-postfix" "Latin-4" "4<" t
 561  "Latin-4 characters input method with postfix modifiers
 562
 563              | postfix | examples
 564  ------------+---------+----------
 565   acute      |    '    | a' -> \e,Da\e(B
 566   circumflex |    ^    | a^ -> \e,Db\e(B
 567   diaeresis  |    \"    | a\" -> \e,Dd\e(B
 568   ogonek     |    ,    | a, -> \e,D1\e(B
 569   macron     |    -    | a- -> \e,D`\e(B
 570   tilde      |    ~    | a~ -> \e,Dc\e(B
 571   caron      |    ~    | c~ -> \e,Dh\e(B
 572   dot        |    .    | e. -> \e,Dl\e(B
 573   cedilla    |    ,    | k, -> \e,Ds\e(B   g, -> \e,D;\e(B
 574   stroke     |    /    | d/ -> \e,Dp\e(B
 575   nordic     |    /    | a/ -> \e,De\e(B   e/ -> \e,Df\e(B   o/ -> \e,Dx\e(B
 576   others     |    /    | s/ -> \e,D_\e(B   n/ -> \e,D?\e(B   k/ -> \e,D"\e(B
 577
 578 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 579 " nil t nil nil nil nil nil nil nil nil t)
 580
 581 (quail-define-rules
 582  ("A," ?\e,D!\e(B)
 583  ("A-" ?\e,D@\e(B)
 584  ("A'" ?\e,DA\e(B)
 585  ("A^" ?\e,DB\e(B)
 586  ("A~" ?\e,DC\e(B)
 587  ("A\"" ?\e,DD\e(B)
 588  ("A/" ?\e,DE\e(B)
 589  ("C~" ?\e,DH\e(B)
 590  ("D/" ?\e,DP\e(B)
 591  ("E/" ?\e,DF\e(B)
 592  ("E-" ?\e,D*\e(B)
 593  ("E'" ?\e,DI\e(B)
 594  ("E," ?\e,DJ\e(B)
 595  ("E\"" ?\e,DK\e(B)
 596  ("E." ?\e,DL\e(B)
 597  ("G," ?\e,D+\e(B)
 598  ("I~" ?\e,D%\e(B)
 599  ("I," ?\e,DG\e(B)
 600  ("I'" ?\e,DM\e(B)
 601  ("I^" ?\e,DN\e(B)
 602  ("I-" ?\e,DO\e(B)
 603  ("K," ?\e,DS\e(B)
 604  ("L," ?\e,D&\e(B)
 605  ("N/" ?\e,D=\e(B)
 606  ("N," ?\e,DQ\e(B)
 607  ("O-" ?\e,DR\e(B)
 608  ("O^" ?\e,DT\e(B)
 609  ("O~" ?\e,DU\e(B)
 610  ("O\"" ?\e,DV\e(B)
 611  ("O/" ?\e,DX\e(B)
 612  ("R," ?\e,D#\e(B)
 613  ("S~" ?\e,D)\e(B)
 614  ("U," ?\e,DY\e(B)
 615  ("U'" ?\e,DZ\e(B)
 616  ("U^" ?\e,D[\e(B)
 617  ("U\"" ?\e,D\\e(B)
 618  ("U~" ?\e,D]\e(B)
 619  ("U-" ?\e,D^\e(B)
 620  ("Z~" ?\e,D.\e(B)
 621  ("a," ?\e,D1\e(B)
 622  ("a-" ?\e,D`\e(B)
 623  ("a'" ?\e,Da\e(B)
 624  ("a^" ?\e,Db\e(B)
 625  ("a~" ?\e,Dc\e(B)
 626  ("a\"" ?\e,Dd\e(B)
 627  ("a/" ?\e,De\e(B)
 628  ("c~" ?\e,Dh\e(B)
 629  ("d/" ?\e,Dp\e(B)
 630  ("e/" ?\e,Df\e(B)
 631  ("e-" ?\e,D:\e(B)
 632  ("e'" ?\e,Di\e(B)
 633  ("e," ?\e,Dj\e(B)
 634  ("e\"" ?\e,Dk\e(B)
 635  ("e." ?\e,Dl\e(B)
 636  ("g," ?\e,D;\e(B)
 637  ("i~" ?\e,D5\e(B)
 638  ("i," ?\e,Dg\e(B)
 639  ("i'" ?\e,Dm\e(B)
 640  ("i^" ?\e,Dn\e(B)
 641  ("i-" ?\e,Do\e(B)
 642  ("k/" ?\e,D"\e(B)
 643  ("k," ?\e,Ds\e(B)
 644  ("l," ?\e,D6\e(B)
 645  ("n/" ?\e,D?\e(B)
 646  ("n," ?\e,Dq\e(B)
 647  ("o-" ?\e,Dr\e(B)
 648  ("o^" ?\e,Dt\e(B)
 649  ("o~" ?\e,Du\e(B)
 650  ("o\"" ?\e,Dv\e(B)
 651  ("o/" ?\e,Dx\e(B)
 652  ("r," ?\e,D3\e(B)
 653  ("s/" ?\e,D_\e(B)
 654  ("s~" ?\e,D9\e(B)
 655  ("t/" ?\e,D<\e(B)
 656  ("u," ?\e,Dy\e(B)
 657  ("u'" ?\e,Dz\e(B)
 658  ("u^" ?\e,D{\e(B)
 659  ("u\"" ?\e,D|\e(B)
 660  ("u~" ?\e,D}\e(B)
 661  ("u-" ?\e,D~\e(B)
 662  ("z~" ?\e,D>\e(B)
 663
 664  ("A,," ["A,"])
 665  ("A--" ["A-"])
 666  ("A''" ["A'"])
 667  ("A^^" ["A^"])
 668  ("A~~" ["A~"])
 669  ("A\"\"" ["A\""])
 670  ("A//" ["A/"])
 671  ("C~~" ["C~"])
 672  ("D//" ["D/"])
 673  ("E//" ["E/"])
 674  ("E--" ["E-"])
 675  ("E''" ["E'"])
 676  ("E,," ["E,"])
 677  ("E\"\"" ["E\""])
 678  ("E.." ["E."])
 679  ("G,," ["G,"])
 680  ("I~~" ["I~"])
 681  ("I,," ["I,"])
 682  ("I''" ["I'"])
 683  ("I^^" ["I^"])
 684  ("I--" ["I-"])
 685  ("K,," ["K,"])
 686  ("L,," ["L,"])
 687  ("N//" ["N/"])
 688  ("N,," ["N,"])
 689  ("O--" ["O-"])
 690  ("O^^" ["O^"])
 691  ("O~~" ["O~"])
 692  ("O\"\"" ["O\""])
 693  ("O//" ["O/"])
 694  ("R,," ["R,"])
 695  ("S~~" ["S~"])
 696  ("T//" ["T/"])
 697  ("U,," ["U,"])
 698  ("U''" ["U'"])
 699  ("U^^" ["U^"])
 700  ("U\"\"" ["U\""])
 701  ("U~~" ["U~"])
 702  ("U--" ["U-"])
 703  ("Z~~" ["Z~"])
 704  ("a,," ["a,"])
 705  ("a--" ["a-"])
 706  ("a''" ["a'"])
 707  ("a^^" ["a^"])
 708  ("a~~" ["a~"])
 709  ("a\"\"" ["a\""])
 710  ("a//" ["a/"])
 711  ("c~~" ["c~"])
 712  ("d//" ["d/"])
 713  ("e//" ["e/"])
 714  ("e--" ["e-"])
 715  ("e''" ["e'"])
 716  ("e,," ["e,"])
 717  ("e\"\"" ["e\""])
 718  ("e.." ["e."])
 719  ("g,," ["g,"])
 720  ("i~~" ["i~"])
 721  ("i,," ["i,"])
 722  ("i''" ["i'"])
 723  ("i^^" ["i^"])
 724  ("i--" ["i-"])
 725  ("k//" ["k/"])
 726  ("k,," ["k,"])
 727  ("l,," ["l,"])
 728  ("n//" ["n/"])
 729  ("n,," ["n,"])
 730  ("o--" ["o-"])
 731  ("o^^" ["o^"])
 732  ("o~~" ["o~"])
 733  ("o\"\"" ["o\""])
 734  ("o//" ["o/"])
 735  ("r,," ["r,"])
 736  ("s//" ["s/"])
 737  ("s~~" ["s~"])
 738  ("t//" ["t/"])
 739  ("u,," ["u,"])
 740  ("u''" ["u'"])
 741  ("u^^" ["u^"])
 742  ("u\"\"" ["u\""])
 743  ("u~~" ["u~"])
 744  ("u--" ["u-"])
 745  ("z~~" ["z~"])
 746  )
 747
 748 (quail-define-package
 749  "latin-5-postfix" "Latin-5" "5<" t
 750  "Latin-5 characters input method with postfix modifiers
 751
 752              | postfix | examples
 753  ------------+---------+----------
 754   acute      |    '    | a' -> \e,Ma\e(B
 755   grave      |    `    | a` -> \e,M`\e(B
 756   circumflex |    ^    | a^ -> \e,Mb\e(B
 757   diaeresis  |    \"    | a\" -> \e,Md\e(B
 758   tilde      |    ~    | a~ -> \e,Mc\e(B
 759   breve      |    ~    | g~ -> \e,Mp\e(B
 760   cedilla    |    ,    | c, -> \e,Mg\e(B
 761   dot        |    .    | i. -> \e,M}\e(B   I. -> \e,M]\e(B
 762   nordic     |    /    | a/ -> \e,Me\e(B   e/ -> \e,Mf\e(B   o/ -> \e,Mx\e(B
 763   others     |    /    | s/ -> \e,M_\e(B
 764
 765 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 766 " nil t nil nil nil nil nil nil nil nil t)
 767
 768 (quail-define-rules
 769  ("A'" ?\e,MA\e(B)
 770  ("A/" ?\e,ME\e(B)
 771  ("A\"" ?\e,MD\e(B)
 772  ("A^" ?\e,MB\e(B)
 773  ("A`" ?\e,M@\e(B)
 774  ("A~" ?\e,MC\e(B)
 775  ("C," ?\e,MG\e(B)
 776  ("E'" ?\e,MI\e(B)
 777  ("E/" ?\e,MF\e(B)
 778  ("E\"" ?\e,MK\e(B)
 779  ("E^" ?\e,MJ\e(B)
 780  ("E`" ?\e,MH\e(B)
 781  ("G~" ?\e,MP\e(B)
 782  ("I'" ?\e,MM\e(B)
 783  ("I." ?\e,M]\e(B)
 784  ("I\"" ?\e,MO\e(B)
 785  ("I^" ?\e,MN\e(B)
 786  ("I`" ?\e,ML\e(B)
 787  ("N~" ?\e,MQ\e(B)
 788  ("O'" ?\e,MS\e(B)
 789  ("O/" ?\e,MX\e(B)
 790  ("O\"" ?\e,MV\e(B)
 791  ("O^" ?\e,MT\e(B)
 792  ("O`" ?\e,MR\e(B)
 793  ("O~" ?\e,MU\e(B)
 794  ("S," ?\e,M^\e(B)
 795  ("U'" ?\e,MZ\e(B)
 796  ("U\"" ?\e,M\\e(B)
 797  ("U^" ?\e,M[\e(B)
 798  ("U`" ?\e,MY\e(B)
 799  ("a'" ?\e,Ma\e(B)
 800  ("a/" ?\e,Me\e(B)
 801  ("a\"" ?\e,Md\e(B)
 802  ("a^" ?\e,Mb\e(B)
 803  ("a`" ?\e,M`\e(B)
 804  ("a~" ?\e,Mc\e(B)
 805  ("c," ?\e,Mg\e(B)
 806  ("e'" ?\e,Mi\e(B)
 807  ("e/" ?\e,Mf\e(B)
 808  ("e\"" ?\e,Mk\e(B)
 809  ("e^" ?\e,Mj\e(B)
 810  ("e`" ?\e,Mh\e(B)
 811  ("g~" ?\e,Mp\e(B)
 812  ("i'" ?\e,Mm\e(B)
 813  ("i." ?\e,M}\e(B)
 814  ("i\"" ?\e,Mo\e(B)
 815  ("i^" ?\e,Mn\e(B)
 816  ("i`" ?\e,Ml\e(B)
 817  ("n~" ?\e,Mq\e(B)
 818  ("o'" ?\e,Ms\e(B)
 819  ("o/" ?\e,Mx\e(B)
 820  ("o\"" ?\e,Mv\e(B)
 821  ("o^" ?\e,Mt\e(B)
 822  ("o`" ?\e,Mr\e(B)
 823  ("o~" ?\e,Mu\e(B)
 824  ("s," ?\e,M~\e(B)
 825  ("s/" ?\e,M_\e(B)
 826  ("u'" ?\e,Mz\e(B)
 827  ("u\"" ?\e,M|\e(B)
 828  ("u^" ?\e,M{\e(B)
 829  ("u`" ?\e,My\e(B)
 830  ("y\"" ?\e,M\7f\e(B)
 831
 832  ("A''" ["A'"])
 833  ("A//" ["A/"])
 834  ("A\"\"" ["A\""])
 835  ("A^^" ["A^"])
 836  ("A``" ["A`"])
 837  ("A~~" ["A~"])
 838  ("C,," ["C,"])
 839  ("E''" ["E'"])
 840  ("E//" ["E/"])
 841  ("E\"\"" ["E\""])
 842  ("E^^" ["E^"])
 843  ("E``" ["E`"])
 844  ("G~~" ["G~"])
 845  ("I''" ["I'"])
 846  ("I.." ["I."])
 847  ("I\"\"" ["I\""])
 848  ("I^^" ["I^"])
 849  ("I``" ["I`"])
 850  ("N~~" ["N~"])
 851  ("O''" ["O'"])
 852  ("O//" ["O/"])
 853  ("O\"\"" ["O\""])
 854  ("O^^" ["O^"])
 855  ("O``" ["O`"])
 856  ("O~~" ["O~"])
 857  ("S,," ["S,"])
 858  ("U''" ["U'"])
 859  ("U\"\"" ["U\""])
 860  ("U^^" ["U^"])
 861  ("U``" ["U`"])
 862  ("a''" ["a'"])
 863  ("a//" ["a/"])
 864  ("a\"\"" ["a\""])
 865  ("a^^" ["a^"])
 866  ("a``" ["a`"])
 867  ("a~~" ["a~"])
 868  ("c,," ["c,"])
 869  ("e''" ["e'"])
 870  ("e//" ["e/"])
 871  ("e\"\"" ["e\""])
 872  ("e^^" ["e^"])
 873  ("e``" ["e`"])
 874  ("g~~" ["g~"])
 875  ("i''" ["i'"])
 876  ("i.." ["i."])
 877  ("i\"\"" ["i\""])
 878  ("i^^" ["i^"])
 879  ("i``" ["i`"])
 880  ("n~~" ["n~"])
 881  ("o''" ["o'"])
 882  ("o//" ["o/"])
 883  ("o\"\"" ["o\""])
 884  ("o^^" ["o^"])
 885  ("o``" ["o`"])
 886  ("o~~" ["o~"])
 887  ("s,," ["s,"])
 888  ("s//" ["s/"])
 889  ("u''" ["u'"])
 890  ("u\"\"" ["u\""])
 891  ("u^^" ["u^"])
 892  ("u``" ["u`"])
 893  ("y\"\"" ["y\""])
 894  )
 895
 896 (quail-define-package
 897  "danish-postfix" "Latin-1" "DA<" t
 898  "Danish input method (rule: AE -> \e,AF\e(B, OE -> \e,AX\e(B, AA -> \e,AE\e(B, E' -> \e,AI\e(B)
 899
 900 Doubling the postfix separates the letter and postfix: e.g. aee -> ae
 901 "
 902  nil t nil nil nil nil nil nil nil nil t)
 903
 904 (quail-define-rules
 905  ("AE" ?\e,AF\e(B)
 906  ("ae" ?\e,Af\e(B)
 907  ("OE" ?\e,AX\e(B)
 908  ("oe" ?\e,Ax\e(B)
 909  ("AA" ?\e,AE\e(B)
 910  ("aa" ?\e,Ae\e(B)
 911  ("E'" ?\e,AI\e(B)
 912  ("e'" ?\e,Ai\e(B)
 913
 914  ("AEE" ["AE"])
 915  ("aee" ["ae"])
 916  ("OEE" ["OE"])
 917  ("oee" ["oe"])
 918  ("AAA" ["AA"])
 919  ("aaa" ["aa"])
 920  ("E''" ["E'"])
 921  ("e''" ["e'"])
 922  )
 923
 924 (quail-define-package
 925  "esperanto-postfix" "Latin-3" "EO<" t
 926  "Esperanto input method with postfix modifiers
 927
 928 A following ^ or x will produce an accented character,
 929 e.g. c^ -> \e,Cf\e(B   gx -> \e,Cx\e(B   u^ -> \e,C}\e(B.
 930
 931 Doubling the postfix separates the letter and postfix,
 932 e.g. a'' -> a'.
 933 " nil t nil nil nil nil nil nil nil nil t)
 934
 935 (quail-define-rules
 936  ("Cx" ?\e,CF\e(B)
 937  ("C^" ?\e,CF\e(B)
 938  ("cx" ?\e,Cf\e(B)
 939  ("c^" ?\e,Cf\e(B)
 940  ("Gx" ?\e,CX\e(B)
 941  ("G^" ?\e,CX\e(B)
 942  ("gx" ?\e,Cx\e(B)
 943  ("g^" ?\e,Cx\e(B)
 944  ("Hx" ?\e,C&\e(B)
 945  ("H^" ?\e,C&\e(B)
 946  ("hx" ?\e,C6\e(B)
 947  ("h^" ?\e,C6\e(B)
 948  ("Jx" ?\e,C,\e(B)
 949  ("J^" ?\e,C,\e(B)
 950  ("jx" ?\e,C<\e(B)
 951  ("j^" ?\e,C<\e(B)
 952  ("Sx" ?\e,C^\e(B)
 953  ("S^" ?\e,C^\e(B)
 954  ("sx" ?\e,C~\e(B)
 955  ("s^" ?\e,C~\e(B)
 956  ("Ux" ?\e,C]\e(B)
 957  ("U^" ?\e,C]\e(B)
 958  ("ux" ?\e,C}\e(B)
 959  ("u^" ?\e,C}\e(B)
 960
 961  ("Cxx" ["Cx"])
 962  ("C^^" ["C^"])
 963  ("cxx" ["cx"])
 964  ("c^^" ["c^"])
 965  ("Gxx" ["Gx"])
 966  ("G^^" ["G^"])
 967  ("gxx" ["gx"])
 968  ("g^^" ["g^"])
 969  ("Hxx" ["Hx"])
 970  ("H^^" ["H^"])
 971  ("hxx" ["hx"])
 972  ("h^^" ["h^"])
 973  ("Jxx" ["Jx"])
 974  ("J^^" ["J^"])
 975  ("jxx" ["jx"])
 976  ("j^^" ["j^"])
 977  ("Sxx" ["Sx"])
 978  ("S^^" ["S^"])
 979  ("sxx" ["sx"])
 980  ("s^^" ["s^"])
 981  ("Uxx" ["Ux"])
 982  ("U^^" ["U^"])
 983  ("uxx" ["ux"])
 984  ("u^^" ["u^"])
 985  )
 986
 987 (quail-define-package
 988  "finnish-postfix" "Latin-1" "FI<" t
 989  "Finnish (Suomi) input method
 990
 991 AE  -> \e,AD\e(B
 992 AEE -> AE
 993 OE  -> \e,AV\e(B
 994 OEE -> OE
 995 "
 996  nil t nil nil nil nil nil nil nil nil t)
 997
 998 (quail-define-rules
 999  ("AE" ?\e,AD\e(B)
1000  ("ae" ?\e,Ad\e(B)
1001  ("OE" ?\e,AV\e(B)
1002  ("oe" ?\e,Av\e(B)
1003
1004  ("AEE" ["AE"])
1005  ("aee" ["ae"])
1006  ("OEE" ["OE"])
1007  ("oee" ["oe"])
1008  )
1009
1010 (quail-define-package
1011  "french-postfix" "French" "FR<" t
1012  "French (Fran\e,Ag\e(Bais) input method with postfix modifiers
1013
1014 ` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr\e,Ai\e(Bma.
1015 Par exemple: a` -> \e,A`\e(B   e' -> \e,Ai\e(B.
1016
1017 \e,AG\e(B, \e,A+\e(B, et \e,A;\e(B sont produits par C,, <<, et >>.
1018
1019 En doublant la frappe des diacritiques, ils s'isoleront de la lettre.
1020 Par exemple: e'' -> e'
1021
1022 <e dans l'o> n'est pas disponible."
1023  nil t nil nil nil nil nil nil nil nil t)
1024
1025 (quail-define-rules
1026  ("A`" ?\e,A@\e(B)
1027  ("A^" ?\e,AB\e(B)
1028  ("a`" ?\e,A`\e(B)
1029  ("a^" ?\e,Ab\e(B)
1030  ("E`" ?\e,AH\e(B)
1031  ("E'" ?\e,AI\e(B)
1032  ("E^" ?\e,AJ\e(B)
1033  ("E\"" ?\e,AK\e(B)
1034  ("e`" ?\e,Ah\e(B)
1035  ("e'" ?\e,Ai\e(B)
1036  ("e^" ?\e,Aj\e(B)
1037  ("e\"" ?\e,Ak\e(B)
1038  ("I^" ?\e,AN\e(B)
1039  ("I\"" ?\e,AO\e(B)
1040  ("i^" ?\e,An\e(B)
1041  ("i\"" ?\e,Ao\e(B)
1042  ("O^" ?\e,AT\e(B)
1043  ("o^" ?\e,At\e(B)
1044  ("U`" ?\e,AY\e(B)
1045  ("U^" ?\e,A[\e(B)
1046  ("U\"" ?\e,A\\e(B)
1047  ("u`" ?\e,Ay\e(B)
1048  ("u^" ?\e,A{\e(B)
1049  ("u\"" ?\e,A|\e(B)
1050  ("C," ?\e,AG\e(B)
1051  ("c," ?\e,Ag\e(B)
1052  ("<<" ?\e,A+\e(B)
1053  (">>" ?\e,A;\e(B)
1054
1055  ("A``" ["A`"])
1056  ("A^^" ["A^"])
1057  ("a``" ["a`"])
1058  ("a^^" ["a^"])
1059  ("E``" ["E`"])
1060  ("E''" ["E'"])
1061  ("E^^" ["E^"])
1062  ("E\"\"" ["E\""])
1063  ("e``" ["e`"])
1064  ("e''" ["e'"])
1065  ("e^^" ["e^"])
1066  ("e\"\"" ["e\""])
1067  ("I^^" ["I^"])
1068  ("I\"\"" ["I\""])
1069  ("i^^" ["i^"])
1070  ("i\"\"" ["i\""])
1071  ("O^^" ["O^"])
1072  ("o^^" ["o^"])
1073  ("U``" ["U`"])
1074  ("U^^" ["U^"])
1075  ("U\"\"" ["U\""])
1076  ("u``" ["u`"])
1077  ("u^^" ["u^"])
1078  ("u\"\"" ["u\""])
1079  ("C,," ["C,"])
1080  ("c,," ["c,"])
1081  ("<<<" ["<<"])
1082  (">>>" [">>"])
1083  )
1084
1085 (quail-define-package
1086  "german-postfix" "German" "DE<" t
1087  "German (Deutsch) input method
1088
1089 ae  -> \e,Ad\e(B
1090 aee -> ae
1091 oe  -> \e,Av\e(B
1092 oee -> oe
1093 ue  -> \e,A|\e(B
1094 uee -> ue
1095 sz  -> \e,A_\e(B
1096 szz -> sz
1097 "
1098  nil t nil nil nil nil nil nil nil nil t)
1099
1100 (quail-define-rules
1101  ("AE" ?\e,AD\e(B)
1102  ("ae" ?\e,Ad\e(B)
1103  ("OE" ?\e,AV\e(B)
1104  ("oe" ?\e,Av\e(B)
1105  ("UE" ?\e,A\\e(B)
1106  ("ue" ?\e,A|\e(B)
1107  ("sz" ?\e,A_\e(B)
1108
1109  ("AEE" ["AE"])
1110  ("aee" ["ae"])
1111  ("OEE" ["OE"])
1112  ("oee" ["oe"])
1113  ("UEE" ["UE"])
1114  ("uee" ["ue"])
1115  ("szz" ["sz"])
1116  )
1117
1118 (quail-define-package
1119  "icelandic-postfix" "Latin-1" "IS<" t
1120  "Icelandic (\e,AM\e(Bslenska) input method with postfix modifiers
1121
1122 A' -> \e,AA\e(B
1123 E' -> \e,AI\e(B
1124 I' -> \e,AM\e(B
1125 O' -> \e,AS\e(B
1126 U' -> \e,AZ\e(B
1127 Y' -> \e,A]\e(B
1128 AE -> \e,AF\e(B
1129 OE -> \e,AV\e(B
1130 D/ -> \e,AP\e(B (eth)
1131 T/ -> \e,A^\e(B (thorn)
1132
1133 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
1134 " nil t nil nil nil nil nil nil nil nil t)
1135
1136 (quail-define-rules
1137  ("A'" ?\e,AA\e(B)
1138  ("a'" ?\e,Aa\e(B)
1139  ("E'" ?\e,AI\e(B)
1140  ("e'" ?\e,Ai\e(B)
1141  ("I'" ?\e,AM\e(B)
1142  ("i'" ?\e,Am\e(B)
1143  ("O'" ?\e,AS\e(B)
1144  ("o'" ?\e,As\e(B)
1145  ("U'" ?\e,AZ\e(B)
1146  ("u'" ?\e,Az\e(B)
1147  ("Y'" ?\e,A]\e(B)
1148  ("y'" ?\e,A}\e(B)
1149  ("AE" ?\e,AF\e(B)
1150  ("ae" ?\e,Af\e(B)
1151  ("OE" ?\e,AV\e(B)
1152  ("oe" ?\e,Av\e(B)
1153  ("D/" ?\e,AP\e(B)
1154  ("d/" ?\e,Ap\e(B)
1155  ("T/" ?\e,A^\e(B)
1156  ("t/" ?\e,A~\e(B)
1157
1158  ("A''" ["A'"])
1159  ("a''" ["a'"])
1160  ("E''" ["E'"])
1161  ("e''" ["e'"])
1162  ("I''" ["I'"])
1163  ("i''" ["i'"])
1164  ("O''" ["O'"])
1165  ("o''" ["o'"])
1166  ("U''" ["U'"])
1167  ("u''" ["u'"])
1168  ("Y''" ["Y'"])
1169  ("y''" ["y'"])
1170  ("AEE" ["AE"])
1171  ("aee" ["ae"])
1172  ("OEE" ["OE"])
1173  ("oee" ["oe"])
1174  ("D//" ["D/"])
1175  ("d//" ["d/"])
1176  ("T//" ["T/"])
1177  ("t//" ["t/"])
1178  )
1179
1180 (quail-define-package
1181  "italian-postfix" "Latin-1" "IT<" t
1182  "Italian (Italiano) input method with postfix modifiers
1183
1184 a` -> \e,A`\e(B    A` -> \e,A@\e(B    e' -> \e,Ai\e(B    << -> \e,A+\e(B
1185 e` -> \e,Ah\e(B    E` -> \e,AH\e(B    E' -> \e,AI\e(B    >> -> \e,A;\e(B
1186 i` -> \e,Al\e(B    I` -> \e,AL\e(B               o_ -> \e,A:\e(B
1187 o` -> \e,Ar\e(B    O` -> \e,AR\e(B               a_ -> \e,A*\e(B
1188 u` -> \e,Ay\e(B    U` -> \e,AY\e(B
1189
1190 Typewriter-style italian characters.
1191
1192 Doubling the postfix separates the letter and postfix: e.g. a`` -> a`
1193 " nil t nil nil nil nil nil nil nil nil t)
1194
1195 (quail-define-rules
1196  ("A`" ?\e,A@\e(B)
1197  ("a`" ?\e,A`\e(B)
1198  ("E`" ?\e,AH\e(B)
1199  ("E'" ?\e,AI\e(B)
1200  ("e`" ?\e,Ah\e(B)
1201  ("e'" ?\e,Ai\e(B)
1202  ("I`" ?\e,AL\e(B)
1203  ("i`" ?\e,Al\e(B)
1204  ("O`" ?\e,AR\e(B)
1205  ("o`" ?\e,Ar\e(B)
1206  ("U`" ?\e,AY\e(B)
1207  ("u`" ?\e,Ay\e(B)
1208  ("<<" ?\e,A+\e(B)
1209  (">>" ?\e,A;\e(B)
1210  ("o_" ?\e,A:\e(B)
1211  ("a_" ?\e,A*\e(B)
1212
1213  ("A``" ["A`"])
1214  ("a``" ["a`"])
1215  ("E``" ["E`"])
1216  ("E''" ["E'"])
1217  ("e``" ["e`"])
1218  ("e''" ["e'"])
1219  ("I``" ["I`"])
1220  ("i``" ["i`"])
1221  ("O``" ["O`"])
1222  ("o``" ["o`"])
1223  ("U``" ["U`"])
1224  ("u``" ["u`"])
1225  ("<<<" ["<<"])
1226  (">>>" [">>"])
1227  ("o__" ["o_"])
1228  ("a__" ["a_"])
1229  )
1230
1231 (quail-define-package
1232  "norwegian-postfix" "Latin-1" "NO<" t
1233  "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)
1234
1235 Doubling the postfix separates the letter and postfix: e.g. aee -> ae
1236 "
1237  nil t nil nil nil nil nil nil nil nil t)
1238
1239 (quail-define-rules
1240  ("AE" ?\e,AF\e(B)
1241  ("ae" ?\e,Af\e(B)
1242  ("OE" ?\e,AX\e(B)
1243  ("oe" ?\e,Ax\e(B)
1244  ("AA" ?\e,AE\e(B)
1245  ("aa" ?\e,Ae\e(B)
1246  ("E'" ?\e,AI\e(B)
1247  ("e'" ?\e,Ai\e(B)
1248
1249  ("AEE" ["AE"])
1250  ("aee" ["ae"])
1251  ("OEE" ["OE"])
1252  ("oee" ["oe"])
1253  ("AAA" ["AA"])
1254  ("aaa" ["aa"])
1255  ("E''" ["E'"])
1256  ("e''" ["e'"])
1257  )
1258
1259 (quail-define-package
1260  "scandinavian-postfix" "Latin-1" "SC<" t
1261  "Scandinavian input method with postfix modifiers
1262 Supported languages are Swidish, Norwegian, Danish, and Finnish.
1263
1264 ae -> \e,Af\e(B
1265 oe -> \e,Ax\e(B
1266 aa -> \e,Ae\e(B
1267 a\" -> \e,Ad\e(B
1268 o\" -> \e,Av\e(B
1269 e' -> \e,Ai\e(B
1270
1271 Doubling the postfix separates the letter and postfix:
1272 aee -> ae   o\"\" -> o\"   etc.
1273 " nil t nil nil nil nil nil nil nil nil t)
1274
1275 (quail-define-rules
1276  ("AE" ?\e,AF\e(B)
1277  ("ae" ?\e,Af\e(B)
1278  ("OE" ?\e,AX\e(B)
1279  ("oe" ?\e,Ax\e(B)
1280  ("AA" ?\e,AE\e(B)
1281  ("aa" ?\e,Ae\e(B)
1282  ("A\"" ?\e,AD\e(B)
1283  ("a\"" ?\e,Ad\e(B)
1284  ("O\"" ?\e,AV\e(B)
1285  ("o\"" ?\e,Av\e(B)
1286  ("E'" ?\e,AI\e(B)
1287  ("e'" ?\e,Ai\e(B)
1288
1289  ("AEE" ["AE"])
1290  ("aee" ["ae"])
1291  ("OEE" ["OE"])
1292  ("oee" ["oe"])
1293  ("AAA" ["AA"])
1294  ("aaa" ["aa"])
1295  ("A\"\"" ["A\""])
1296  ("a\"\"" ["a\""])
1297  ("O\"\"" ["O\""])
1298  ("o\"\"" ["o\""])
1299  ("E''" ["E'"])
1300  ("e''" ["e'"])
1301  )
1302
1303 (quail-define-package
1304  "spanish-postfix" "Spanish" "ES<" t
1305  "Spanish (Espa\e,Aq\e(Bol) input method with postfix modifiers
1306
1307 A' -> \e,AA\e(B
1308 E' -> \e,AI\e(B
1309 I' -> \e,AM\e(B
1310 O' -> \e,AS\e(B
1311 U' -> \e,AZ\e(B
1312 N~ -> \e,AQ\e(B
1313 !/ -> \e,A!\e(B
1314 ?/ -> \e,A?\e(B
1315
1316 Doubling the postfix separates the letter and postfix:
1317 a'' -> a'   n~~ -> n~, etc.
1318 " nil t nil nil nil nil nil nil nil nil t)
1319
1320 (quail-define-rules
1321  ("A'" ?\e,AA\e(B)
1322  ("a'" ?\e,Aa\e(B)
1323  ("E'" ?\e,AI\e(B)
1324  ("e'" ?\e,Ai\e(B)
1325  ("I'" ?\e,AM\e(B)
1326  ("i'" ?\e,Am\e(B)
1327  ("O'" ?\e,AS\e(B)
1328  ("o'" ?\e,As\e(B)
1329  ("U'" ?\e,AZ\e(B)
1330  ("u'" ?\e,Az\e(B)
1331  ("U\"" ["\e,C\\e(B" "U\""])
1332  ("u\"" ["\e,C|\e(B" "u\""])
1333  ("N~" ?\e,AQ\e(B)
1334  ("n~" ?\e,Aq\e(B)
1335  ("?/" ?\e,A?\e(B)
1336  ("!/" ?\e,A!\e(B)
1337
1338  ("A''" ["A'"])
1339  ("a''" ["a'"])
1340  ("E''" ["E'"])
1341  ("e''" ["e'"])
1342  ("I''" ["I'"])
1343  ("i''" ["i'"])
1344  ("O''" ["O'"])
1345  ("o''" ["o'"])
1346  ("U''" ["U'"])
1347  ("u''" ["u'"])
1348  ("N~~" ["N~"])
1349  ("n~~" ["n~"])
1350  ("?//" ["?/"])
1351  ("!//" ["!/"])
1352  )
1353
1354 (quail-define-package
1355  "swedish-postfix" "Latin-1" "SV<" t
1356  "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)
1357
1358 Doubling the postfix separates the letter and postfix: e.g. aee -> ae
1359 " nil t nil nil nil nil nil nil nil nil t)
1360
1361 (quail-define-rules
1362  ("AA" ?\e,AE\e(B)
1363  ("aa" ?\e,Ae\e(B)
1364  ("AE" ?\e,AD\e(B)
1365  ("ae" ?\e,Ad\e(B)
1366  ("OE" ?\e,AV\e(B)
1367  ("oe" ?\e,Av\e(B)
1368  ("E'" ?\e,AI\e(B)
1369  ("e'" ?\e,Ai\e(B)
1370
1371  ("AAA" ["AA"])
1372  ("aaa" ["aa"])
1373  ("AEE" ["AE"])
1374  ("aee" ["ae"])
1375  ("OEE" ["OE"])
1376  ("oee" ["oe"])
1377  ("E''" ["E'"])
1378  ("e''" ["e'"])
1379  )
1380
1381 (quail-define-package
1382  "turkish-latin-3-postfix" "Turkish" "TR3<" t
1383  "Turkish (T\e,C|\e(Brk\e,Cg\e(Be) input method with postfix modifiers.
1384
1385 This is for those who use Latin-3 (ISO-8859-3) for Turkish.  If you
1386 use Latin-5 (ISO-8859-9), you should use \"turkish-postfix\" instead.
1387
1388 Note for I, \e,C9\e(B, \e,C)\e(B, i.
1389
1390 A^ -> \e,CB\e(B
1391 C, -> \e,CG\e(B
1392 G^ -> \e,C+\e(B
1393 I  -> I
1394 i  -> \e,C9\e(B
1395 I. -> \e,C)\e(B
1396 i. -> i
1397 O\" -> \e,CV\e(B
1398 S, -> \e,C*\e(B
1399 U\" -> \e,C\\e(B
1400 U^ -> \e,C[\e(B
1401
1402 Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
1403 " nil t nil nil nil nil nil nil nil nil t)
1404
1405 (quail-define-rules
1406  ("A^" ?\e,CB\e(B)
1407  ("a^" ?\e,Cb\e(B)
1408  ("C," ?\e,CG\e(B)
1409  ("c," ?\e,Cg\e(B)
1410  ("G^" ?\e,C+\e(B)
1411  ("g^" ?\e,C;\e(B)
1412  ("I." ?\e,C)\e(B)
1413  ("i" ["\e,C9\e(B"
1414        "i"])
1415  ("i." ?i)
1416  ("O\"" ?\e,CV\e(B)
1417  ("o\"" ?\e,Cv\e(B)
1418  ("S," ?\e,C*\e(B)
1419  ("s," ?\e,C:\e(B)
1420  ("U\"" ?\e,C\\e(B)
1421  ("u\"" ?\e,C|\e(B)
1422  ("U^" ?\e,C[\e(B)
1423  ("u^" ?\e,C{\e(B)
1424
1425  ("A^^" ["A^"])
1426  ("a^^" ["a^"])
1427  ("C,," ["C,"])
1428  ("c,," ["c,"])
1429  ("G^^" ["G^"])
1430  ("g^^" ["g^"])
1431  ("I.." ["I."])
1432  ("i.." ["i."])
1433  ("O\"\"" ["O\""])
1434  ("o\"\"" ["o\""])
1435  ("S,," ["S,"])
1436  ("s,," ["s,"])
1437  ("U\"\"" ["U\""])
1438  ("u\"\"" ["u\""])
1439  ("U^^" ["U^"])
1440  ("u^^" ["u^"])
1441  )
1442
1443 (quail-define-package
1444  "turkish-postfix" "Turkish" "TR<" t
1445  "Turkish (T\e,M|\e(Brk\e,Mg\e(Be) input method with postfix modifiers.
1446
1447 This is for those who use Latin-5 (ISO-8859-9) for Turkish.  If you
1448 use Latin-3 (ISO-8859-3), you should use \"turkish-latin-3-postfix\"
1449 instead.
1450
1451 Note for I, \e,M}\e(B, \e,M]\e(B, i.
1452
1453 A^ -> \e,MB\e(B
1454 C, -> \e,MG\e(B
1455 G^ -> \e,MP\e(B
1456 I  -> I
1457 i  -> \e,M}\e(B
1458 I. -> \e,M]\e(B
1459 i. -> i
1460 O\" -> \e,MV\e(B
1461 S, -> \e,M^\e(B
1462 U\" -> \e,M\\e(B
1463 U^ -> \e,M[\e(B
1464
1465 Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
1466 " nil t nil nil nil nil nil nil nil nil t)
1467
1468 (quail-define-rules
1469  ("A^" ?\e,MB\e(B)
1470  ("a^" ?\e,Mb\e(B)
1471  ("C," ?\e,MG\e(B)
1472  ("c," ?\e,Mg\e(B)
1473  ("G^" ?\e,MP\e(B)
1474  ("g^" ?\e,Mp\e(B)
1475  ("I." ?\e,M]\e(B)
1476  ("i" ["\e,M}\e(B" "i"])
1477  ("i." ?i)
1478  ("O\"" ?\e,MV\e(B)
1479  ("o\"" ?\e,Mv\e(B)
1480  ("S," ?\e,M^\e(B)
1481  ("s," ?\e,M~\e(B)
1482  ("U\"" ?\e,M\\e(B)
1483  ("u\"" ?\e,M|\e(B)
1484  ("U^" ?\e,M[\e(B)
1485  ("u^" ?\e,M{\e(B)
1486
1487  ("A^^" ["A^"])
1488  ("a^^" ["a^"])
1489  ("C,," ["C,"])
1490  ("c,," ["c,"])
1491  ("G^^" ["G^"])
1492  ("g^^" ["g^"])
1493  ("I.." ["I."])
1494  ("i.." ["i."])
1495  ("O\"\"" ["O\""])
1496  ("o\"\"" ["o\""])
1497  ("S,," ["S,"])
1498  ("s,," ["s,"])
1499  ("U\"\"" ["U\""])
1500  ("u\"\"" ["u\""])
1501  ("U^^" ["U^"])
1502  ("u^^" ["u^"])
1503  )
1504
1505 (quail-define-package
1506  "british" "Latin-1" "\e,A#\e(B@" t
1507  "British English input method with Latin-1 character \e,A#\e(B (# -> \e,A#\e(B)"
1508  nil t nil nil nil nil nil nil nil nil t)
1509
1510 (quail-define-rules
1511  ("#" [?\e,A#\e(B ?#])
1512  )
1513
1514 ;; The following are various quail packages for those who think
1515 ;; the aboves are too awkward.  Supported languages and their
1516 ;; package name are:
1517 ;;
1518 ;; French       (frnch, azerty)
1519 ;; Icelandic    (iclndc)
1520 ;; Denish       (dnsh)
1521 ;; Norwegian    (nrwgn)
1522 ;; Swedish      (swdsh)
1523 ;; Finnish      (fnnsh)
1524 ;; German       (grmn)
1525 ;; Italian      (itln)
1526 ;; Spanish      (spnsh)
1527 ;; Dvorak       (dvorak)
1528 ;;
1529 ;;; 92.12.15  created for Mule Ver.0.9.6 by Takahashi N. <ntakahas@etl.go.jp>
1530 ;;; 92.12.29  modified by Takahashi N. <ntakahas@etl.go.jp>
1531
1532 ;;
1533 (quail-define-package
1534  "french-keyboard" "French" "FR@" t
1535  "French (Fran\e,Ag\e(Bais) input method simulating some French keyboard
1536 <e dans l'o> n'est pas disponible." nil t t t t nil nil nil nil nil t)
1537
1538 ;; \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+  `~
1539 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AgG\e(B  \e,A|\e(B&
1540 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  ;:  '"  \|
1541 ;;    zZ  xX  cC  vV  bB  nN  mM  ,(  .)  !?
1542
1543 (quail-define-rules
1544  ("1" ?\e,Aj\e(B)
1545  ("2" ?\e,Ai\e(B)
1546  ("3" ?\e,Ah\e(B)
1547  ("4" ?\e,At\e(B)
1548  ("5" ?\e,An\e(B)
1549  ("6" ?\e,Ao\e(B)
1550  ("7" ?\e,Ab\e(B)
1551  ("8" ?\e,A{\e(B)
1552  ("9" ?\e,Ay\e(B)
1553  ("0" ?\e,A`\e(B)
1554  ("=" ?\e,Ak\e(B)
1555  ("[" ?\e,Ag\e(B)
1556  ("]" ?\e,A|\e(B)
1557
1558  ("!" ?1)
1559  ("@" ?2)
1560  ("#" ?3)
1561  ("$" ?4)
1562  ("%" ?5)
1563  ("^" ?6)
1564  ("&" ?7)
1565  ("*" ?8)
1566  ("(" ?9)
1567  (")" ?0)
1568  ("{" ?\e,AG\e(B)
1569  ("}" ?&)
1570  ("<" ?\()
1571  (">" ?\))
1572  )
1573
1574 ;;
1575 (quail-define-package
1576  "french-azerty" "French" "AZ@" t
1577  "French (Fran\e,Ag\e(Bais) input method simulating Azerty keyboard
1578
1579 Similaire au clavier fran\e,Ag\e(Bais de SUN.
1580 pr\e,Ai\e(Bfixes:  ^ pour circonflexe,  \e,A(\e(B pour tr\e,Ai\e(Bma.
1581 <e dans l'o> n'est pas disponible." nil t t t t nil nil nil nil nil t)
1582
1583 ;; &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 -_  @~
1584 ;;  aA  zZ  eE  rR  tT  yY  uU  iI  oO  pP  ^\e,A(\e(B  `$
1585 ;;   qQ  sS  dD  fF  gG  hH  jJ  kK  lL  mM  \e,Ay\e(B%  *|
1586 ;;    wW  xX  cC  vV  bB  nN  ,?  ;.  :/  =+
1587
1588 (quail-define-rules
1589  ("1" ?&)
1590  ("2" ?\e,Ai\e(B)
1591  ("3" ?\")
1592  ("4" ?')
1593  ("5" ?\()
1594  ("6" ?\e,A'\e(B)
1595  ("7" ?\e,Ah\e(B)
1596  ("8" ?!)
1597  ("9" ?\e,Ag\e(B)
1598  ("0" ?\e,A`\e(B)
1599  ("-" ?\))
1600  ("=" ?-)
1601  ("`" ?@)
1602  ("q" ?a)
1603  ("w" ?z)
1604  ("e" ?e)
1605  ("r" ?r)
1606  ("t" ?t)
1607  ("y" ?y)
1608  ("u" ?u)
1609  ("i" ?i)
1610  ("o" ?o)
1611  ("p" ?p)
1612  ("[" ?^)
1613  ("]" ?`)
1614  ("a" ?q)
1615  ("s" ?s)
1616  ("d" ?d)
1617  ("f" ?f)
1618  ("g" ?g)
1619  ("h" ?h)
1620  ("j" ?j)
1621  ("k" ?k)
1622  ("l" ?l)
1623  (";" ?m)
1624  ("'" ?\e,Ay\e(B)
1625  ("\\" ?*)
1626  ("z" ?w)
1627  ("x" ?x)
1628  ("c" ?c)
1629  ("v" ?v)
1630  ("b" ?b)
1631  ("n" ?n)
1632  ("m" ?,)
1633  ("," ?\;)
1634  ("." ?:)
1635  ("/" ?=)
1636
1637  ("!" ?1)
1638  ("@" ?2)
1639  ("#" ?3)
1640  ("$" ?4)
1641  ("%" ?5)
1642  ("^" ?6)
1643  ("&" ?7)
1644  ("*" ?8)
1645  ("(" ?9)
1646  (")" ?0)
1647  ("_" ?\e,A0\e(B)
1648  ("+" ?_)
1649  ("~" ?~)
1650  ("Q" ?A)
1651  ("W" ?Z)
1652  ("E" ?E)
1653  ("R" ?R)
1654  ("T" ?T)
1655  ("Y" ?Y)
1656  ("U" ?U)
1657  ("I" ?I)
1658  ("O" ?O)
1659  ("P" ?P)
1660  ("{" ?\e,A(\e(B)
1661  ("}" ?$)
1662  ("A" ?Q)
1663  ("S" ?S)
1664  ("D" ?D)
1665  ("F" ?F)
1666  ("G" ?G)
1667  ("H" ?H)
1668  ("J" ?J)
1669  ("K" ?K)
1670  ("L" ?L)
1671  (":" ?M)
1672  ("\"" ?%)
1673  ("|" ?|)
1674  ("Z" ?W)
1675  ("X" ?X)
1676  ("C" ?C)
1677  ("V" ?V)
1678  ("B" ?B)
1679  ("N" ?N)
1680  ("M" ??)
1681  ("<" ?.)
1682  (">" ?/)
1683  ("?" ?+)
1684
1685  ("[q" ?\e,Ab\e(B)
1686  ("[e" ?\e,Aj\e(B)
1687  ("[i" ?\e,An\e(B)
1688  ("[o" ?\e,At\e(B)
1689  ("[u" ?\e,A{\e(B)
1690
1691  ("{e" ?\e,Ak\e(B)
1692  ("{i" ?\e,Ao\e(B)
1693  ("{u" ?\e,A|\e(B)
1694
1695  ("[[" ?^)
1696  ("{{" ?\e,A(\e(B)
1697  )
1698
1699 ;;
1700 (quail-define-package
1701  "icelandic-keyboard" "Latin-1" "IS@" t
1702  "Icelandic (\e,AM\e(Bslenska) input method simulating some Icelandic keyboard
1703
1704 Dead accent is right to \e,Af\e(B." nil t t t t nil nil nil nil nil t)
1705
1706 ;; 1!  2"  3#  4$  5%  6^  7&  8*  9(  0)  \e,AvV\e(B  -_  `~
1707 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,ApP\e(B  '?
1708 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,AfF\e(B  \e,A44\e(B  +*
1709 ;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  \e,A~^\e(B
1710
1711 (quail-define-rules
1712  ("-" ?\e,Av\e(B)
1713  ("=" ?-)
1714  ("[" ?\e,Ap\e(B)
1715  ("]" ?')
1716  (";" ?\e,Af\e(B)
1717  ("'" ?\e,A4\e(B)
1718  ("\\" ?+)
1719  ("/" ?\e,A~\e(B)
1720
1721  ("@" ?\")
1722  ("_" ?\e,AV\e(B)
1723  ("+" ?_)
1724  ("{" ?\e,AP\e(B)
1725  ("}" ??)
1726  (":" ?\e,AF\e(B)
1727  ("\"" ?\e,A4\e(B)
1728  ("|" ?*)
1729  ("<" ?\;)
1730  (">" ?:)
1731  ("?" ?\e,A^\e(B)
1732
1733  ("'a" ?\e,Aa\e(B)
1734  ("'e" ?\e,Ai\e(B)
1735  ("'i" ?\e,Am\e(B)
1736  ("'o" ?\e,As\e(B)
1737  ("'u" ?\e,Az\e(B)
1738  ("'y" ?\e,A}\e(B)
1739  ("'A" ?\e,AA\e(B)
1740  ("'E" ?\e,AI\e(B)
1741  ("'I" ?\e,AM\e(B)
1742  ("'O" ?\e,AS\e(B)
1743  ("'U" ?\e,AZ\e(B)
1744  ("'Y" ?\e,A]\e(B)
1745
1746  ("''" ?\e,A4\e(B)
1747  )
1748
1749 ;;
1750 (quail-define-package
1751  "danish-keyboard" "Latin-1" "DA@" t
1752  "Danish input method simulating SUN Danish keyboard"
1753  nil t t t t nil nil nil nil nil t)
1754
1755 ;; 1!  2"  3#  4\e,A$\e(B  5%  6&  7/  8(  9)  0=  +?  \e,A='\e(B  ~^
1756 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AeE\e(B  \e,AiI\e(B
1757 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,AfF\e(B  \e,AxX\e(B  '*
1758 ;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  -_
1759
1760 (quail-define-rules
1761  ("-" ?+)
1762  ("=" ?\e,A=\e(B)
1763  ("`" ?~)
1764  ("[" ?\e,Ae\e(B)
1765  ("]" ?\e,Ai\e(B)
1766  (";" ?\e,Af\e(B)
1767  ("'" ?\e,Ax\e(B)
1768  ("\\" ?')
1769  ("/" ?-)
1770
1771  ("@" ?\")
1772  ("$" ?\e,A$\e(B)
1773  ("^" ?&)
1774  ("&" ?/)
1775  ("*" ?\()
1776  ("(" ?\))
1777  (")" ?=)
1778  ("_" ??)
1779  ("+" ?\e,A'\e(B)
1780  ("~" ?^)
1781  ("{" ?\e,AE\e(B)
1782  ("}" ?\e,AI\e(B)
1783  (":" ?\e,AF\e(B)
1784  ("\"" ?\e,AX\e(B)
1785  ("|" ?*)
1786  ("<" ?\;)
1787  (">" ?:)
1788  ("?" ?_)
1789  )
1790
1791 ;;
1792 (quail-define-package
1793  "norwegian-keyboard" "Latin-1" "NO@" t
1794  "Norwegian (Norsk) input method simulating SUN Norwegian keyboard"
1795  nil t t t t nil nil nil nil nil t)
1796
1797 ;; 1!  2"  3#  4\e,A$\e(B  5%  6&  7/  8(  9)  0=  +?  |\e,A'\e(B  ~^
1798 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AeE\e(B  \e,AiI\e(B
1799 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,AxX\e(B  \e,AfF\e(B  '*
1800 ;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  '?
1801
1802 (quail-define-rules
1803  ("-" ?+)
1804  ("=" ?|)
1805  ("`" ?~)
1806  ("[" ?\e,Ae\e(B)
1807  ("]" ?\e,Ai\e(B)
1808  (";" ?\e,Ax\e(B)
1809  ("'" ?\e,Af\e(B)
1810  ("\\" ?')
1811  ("/" ?-)
1812
1813  ("!" ?!)
1814  ("@" ?\")
1815  ("$" ?\e,A$\e(B)
1816  ("^" ?&)
1817  ("&" ?/)
1818  ("*" ?\()
1819  ("(" ?\))
1820  (")" ?=)
1821  ("_" ??)
1822  ("+" ?\e,A'\e(B)
1823  ("~" ?^)
1824  ("{" ?\e,AE\e(B)
1825  ("}" ?\e,AI\e(B)
1826  (":" ?\e,AX\e(B)
1827  ("\"" ?\e,AF\e(B)
1828  ("|" ?*)
1829  ("<" ?\;)
1830  (">" ?:)
1831  ("?" ?_)
1832  )
1833
1834 ;;
1835 (quail-define-package
1836  "swedish-keyboard" "Latin-1" "SV@" t
1837  "Swedish (Svenska) input method simulating SUN Swedish/Finnish keyboard"
1838  nil t t t t nil nil nil nil nil t)
1839
1840 ;; 1!  2"  3#  4\e,A$\e(B  5%  6&  7/  8(  9)  0=  +?  \e,A'=\e(B  ~^
1841 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AeE\e(B  \e,AiI\e(B
1842 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,AvV\e(B  \e,AdD\e(B  '*
1843 ;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  -_
1844
1845 (quail-define-rules
1846  ("-" ?+)
1847  ("=" ?\e,A'\e(B)
1848  ("`" ?~)
1849  ("[" ?\e,Ae\e(B)
1850  ("]" ?\e,Ai\e(B)
1851  (";" ?\e,Av\e(B)
1852  ("'" ?\e,Ad\e(B)
1853  ("\\" ?')
1854  ("/" ?-)
1855
1856  ("@" ?\")
1857  ("$" ?\e,A$\e(B)
1858  ("^" ?&)
1859  ("&" ?/)
1860  ("*" ?\()
1861  ("(" ?\))
1862  (")" ?=)
1863  ("_" ??)
1864  ("+" ?\e,A=\e(B)
1865  ("~" ?^)
1866  ("{" ?\e,AE\e(B)
1867  ("}" ?\e,AI\e(B)
1868  (":" ?\e,AV\e(B)
1869  ("\"" ?\e,AD\e(B)
1870  ("|" ?*)
1871  ("<" ?\;)
1872  (">" ?:)
1873  ("?" ?_)
1874  )
1875
1876 ;;
1877 (quail-define-package
1878  "finnish-keyboard" "Latin-1" "FI@" t
1879  "Finnish input method simulating SUN Finnish/Swedish keyboard"
1880  nil t t t t nil nil nil nil nil t)
1881
1882 ;; 1!  2"  3#  4\e,A$\e(B  5%  6&  7/  8(  9)  0=  +?  \e,A'=\e(B  ~^
1883 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AeE\e(B  \e,AiI\e(B
1884 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,AvV\e(B  \e,AdD\e(B  '*
1885 ;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  -_
1886
1887 (quail-define-rules
1888  ("-" ?+)
1889  ("=" ?\e,A'\e(B)
1890  ("`" ?~)
1891  ("[" ?\e,Ae\e(B)
1892  ("]" ?\e,Ai\e(B)
1893  (";" ?\e,Av\e(B)
1894  ("'" ?\e,Ad\e(B)
1895  ("\\" ?')
1896  ("/" ?-)
1897
1898  ("@" ?\")
1899  ("$" ?\e,A$\e(B)
1900  ("^" ?&)
1901  ("&" ?/)
1902  ("*" ?\()
1903  ("(" ?\))
1904  (")" ?=)
1905  ("_" ??)
1906  ("+" ?\e,A=\e(B)
1907  ("~" ?^)
1908  ("{" ?\e,AE\e(B)
1909  ("}" ?\e,AI\e(B)
1910  (":" ?\e,AV\e(B)
1911  ("\"" ?\e,AD\e(B)
1912  ("|" ?*)
1913  ("<" ?\;)
1914  (">" ?:)
1915  ("?" ?_)
1916  )
1917
1918 ;;
1919 (quail-define-package
1920  "german" "German" "DE@" t
1921  "German (Deutsch) input method simulating SUN German keyboard"
1922  nil t t t t nil nil nil nil nil t)
1923
1924 ;; 1!  2"  3\e,A'\e(B  4$  5%  6&  7/  8(  9)  0=  \e,A_\e(B?  [{  ]}
1925 ;;  qQ  wW  eE  rR  tT  zZ  uU  iI  oO  pP  \e,A|\\e(B  +*
1926 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,AvV\e(B  \e,AdD\e(B  #^
1927 ;;    yY  xX  cC  vV  bB  nN  mM  ,;  .:  -_
1928
1929 (quail-define-rules
1930  ("-" ?\e,A_\e(B)
1931  ("=" ?\[)
1932  ("`" ?\])
1933  ("y" ?z)
1934  ("[" ?\e,A|\e(B)
1935  ("]" ?+)
1936  (";" ?\e,Av\e(B)
1937  ("'" ?\e,Ad\e(B)
1938  ("\\" ?#)
1939  ("z" ?y)
1940  ("/" ?-)
1941
1942  ("@" ?\")
1943  ("#" ?\e,A'\e(B)
1944  ("^" ?&)
1945  ("&" ?/)
1946  ("*" ?\()
1947  ("Y" ?Z)
1948  ("(" ?\))
1949  (")" ?=)
1950  ("_" ??)
1951  ("+" ?{)
1952  ("~" ?})
1953  ("{" ?\e,A\\e(B)
1954  ("}" ?*)
1955  (":" ?\e,AV\e(B)
1956  ("\"" ?\e,AD\e(B)
1957  ("|" ?^)
1958  ("Z" ?Y)
1959  ("<" ?\;)
1960  (">" ?:)
1961  ("?" ?_)
1962  )
1963
1964 ;;
1965 (quail-define-package
1966  "italian-keyboard" "Latin-1" "IT@" t
1967  "Italian (Italiano) input method simulating SUN Italian keyboard"
1968  nil t t t t nil nil nil nil nil t)
1969
1970 ;; 1!  2"  3\e,A#\e(B  4$  5%  6&  7/  8(  9)  0=  '?  \e,Al\e(B^  `~
1971 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,Ahi\e(B  +*
1972 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,Arg\e(B  \e,A`0\e(B  \e,Ay'\e(B
1973 ;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  -_
1974
1975 (quail-define-rules
1976  ("-" ?')
1977  ("=" ?\e,Al\e(B)
1978  ("[" ?\e,Ah\e(B)
1979  ("]" ?+)
1980  (";" ?\e,Ar\e(B)
1981  ("'" ?\e,A`\e(B)
1982  ("\\" ?\e,Ay\e(B)
1983  ("/" ?-)
1984
1985  ("@" ?\")
1986  ("#" ?\e,A#\e(B)
1987  ("^" ?&)
1988  ("&" ?/)
1989  ("*" ?\()
1990  ("(" ?\))
1991  (")" ?=)
1992  ("_" ??)
1993  ("+" ?^)
1994  ("~" ?~)
1995  ("{" ?\e,Ai\e(B)
1996  ("}" ?*)
1997  (":" ?\e,Ag\e(B)
1998  ("\"" ?\e,A0\e(B)
1999  ("|" ?\e,A'\e(B)
2000  ("<" ?\;)
2001  (">" ?:)
2002  ("?" ?_)
2003  )
2004
2005 ;;
2006 (quail-define-package
2007  "spanish-keyboard" "Spanish" "ES@" t
2008  "Spanish (Espa\e,Aq\e(Bol) input method simulating SUN Spanish keyboard"
2009  nil t t t t nil nil nil nil nil t)
2010
2011 ;; 1!  2"  3\e,A7\e(B  4$  5%  6&  7/  8(  9)  0=  '?  \e,A!?\e(B  \e,AmM\e(B
2012 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AiI\e(B  \e,AsS\e(B
2013 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  \e,AqQ\e(B  \e,AaA\e(B  \e,AzZ\e(B
2014 ;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  -_
2015
2016 (quail-define-rules
2017  ("-" ?')
2018  ("=" ?\e,A!\e(B)
2019  ("`" ?\e,Am\e(B)
2020  ("[" ?\e,Ai\e(B)
2021  ("]" ?\e,As\e(B)
2022  (";" ?\e,Aq\e(B)
2023  ("'" ?\e,Aa\e(B)
2024  ("\\" ?\e,Az\e(B)
2025  ("/" ?-)
2026
2027  ("@" ?\")
2028  ("#" ?\e,A7\e(B)
2029  ("^" ?&)
2030  ("&" ?/)
2031  ("*" ?\()
2032  ("(" ?\))
2033  (")" ?=)
2034  ("_" ??)
2035  ("+" ?\e,A?\e(B)
2036  ("~" ?\e,AM\e(B)
2037  ("{" ?\e,AI\e(B)
2038  ("}" ?\e,AS\e(B)
2039  (":" ?\e,AQ\e(B)
2040  ("\"" ?\e,AA\e(B)
2041  ("|" ?\e,AZ\e(B)
2042  ("<" ?\;)
2043  (">" ?:)
2044  ("?" ?_)
2045  )
2046
2047 ;;
2048 (quail-define-package
2049  "english-dvorak" "English" "DV@" t
2050  "English (ASCII) input method simulating Dvorak keyboard"
2051  nil t t t t nil nil nil nil nil t)
2052
2053 ;; 1!  2@  3#  4$  5%  6^  7&  8*  9(  0)  [{  ]}  `~
2054 ;;  '"  ,<  .>  pP  yY  fF  gG  cC  rR  lL  /?  =+
2055 ;;   aA  oO  eE  uU  iI  dD  hH  tT  nN  sS  -_  \|
2056 ;;    ;:  qQ  jJ  kK  xX  bB  mM  wW  vV  zZ
2057
2058 (quail-define-rules
2059  ("-" ?\[)
2060  ("=" ?\])
2061  ("`" ?`)
2062  ("q" ?')
2063  ("w" ?,)
2064  ("e" ?.)
2065  ("r" ?p)
2066  ("t" ?y)
2067  ("y" ?f)
2068  ("u" ?g)
2069  ("i" ?c)
2070  ("o" ?r)
2071  ("p" ?l)
2072  ("[" ?/)
2073  ("]" ?=)
2074  ("a" ?a)
2075  ("s" ?o)
2076  ("d" ?e)
2077  ("f" ?u)
2078  ("g" ?i)
2079  ("h" ?d)
2080  ("j" ?h)
2081  ("k" ?t)
2082  ("l" ?n)
2083  (";" ?s)
2084  ("'" ?-)
2085  ("\\" ?\\)
2086  ("z" ?\;)
2087  ("x" ?q)
2088  ("c" ?j)
2089  ("v" ?k)
2090  ("b" ?x)
2091  ("n" ?b)
2092  ("m" ?m)
2093  ("," ?w)
2094  ("." ?v)
2095  ("/" ?z)
2096
2097  ("_" ?{)
2098  ("+" ?})
2099  ("~" ?~)
2100  ("Q" ?\")
2101  ("W" ?<)
2102  ("E" ?>)
2103  ("R" ?P)
2104  ("T" ?Y)
2105  ("Y" ?F)
2106  ("U" ?G)
2107  ("I" ?C)
2108  ("O" ?R)
2109  ("P" ?L)
2110  ("{" ??)
2111  ("}" ?+)
2112  ("A" ?A)
2113  ("S" ?O)
2114  ("D" ?E)
2115  ("F" ?U)
2116  ("G" ?I)
2117  ("H" ?D)
2118  ("J" ?H)
2119  ("K" ?T)
2120  ("L" ?N)
2121  (":" ?S)
2122  ("\"" ?_)
2123  ("|" ?|)
2124  ("Z" ?:)
2125  ("X" ?Q)
2126  ("C" ?J)
2127  ("V" ?K)
2128  ("B" ?X)
2129  ("N" ?B)
2130  ("M" ?M)
2131  ("<" ?W)
2132  (">" ?V)
2133  ("?" ?Z)
2134  )
2135
2136 ;; XEmacs change; use standard ISO 2022 character sets, not
2137 ;; mule-unicode-0100-24ff
2138 (quail-define-package
2139  "latin-postfix" "Latin" "L<" t
2140  "Latin character input method with postfix modifiers.
2141 This is the union of various input methods originally made for input
2142 of characters from a single Latin-N charset.
2143
2144              | postfix | examples
2145  ------------+---------+----------
2146   acute      |    '    | a' -> \e,Aa\e(B
2147   grave      |    `    | a` -> \e,A`\e(B
2148   circumflex |    ^    | a^ -> \e,Ab\e(B
2149   diaeresis  |    \"    | a\" -> \e,Ad\e(B
2150   tilde      |    ~    | a~ -> \e,Ac\e(B
2151   cedilla    |    ,    | c, -> \e,Ag\e(B
2152   ogonek     |    ,    | a, -> \e,B1\e(B
2153   breve      |    ~    | a~ -> \e,Bc\e(B
2154   caron      |    ~    | c~ -> \e,Bh\e(B
2155   dbl. acute |    :    | o: -> \e,Bu\e(B
2156   ring       |    .    | u. -> \e,By\e(B
2157   dot        |    .    | z. -> \e,B?\e(B
2158   stroke     |    /    | d/ -> \e,Bp\e(B
2159   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
2160   others     |    /    | s/ -> \e,A_\e(B   ?/ -> \e,A?\e(B   !/ -> \e,A!\e(B   // -> \e,A0\e(B
2161              | various | << -> \e,A+\e(B   >> -> \e,A;\e(B   o_ -> \e,A:\e(B   a_ -> \e,A*\e(B
2162
2163 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
2164 " nil t nil nil nil nil nil nil nil nil t)
2165
2166 ;; Fixme: \e,A&\e(B \e,A'\e(B \e,A(\e(B \e,A)\e(B \e,A,\e(B \e,A-\e(B \e,A.\e(B \e,A/\e(B \e,A1\e(B \e,A2\e(B \e,A3\e(B \e,A4\e(B \e,A5\e(B \e,A6\e(B \e,A7\e(B \e,A8\e(B \e,A9\e(B \e,A<\e(B \e,A=\e(B \e,A>\e(B \e,AW\e(B \e,Aw\e(B
2167 ;; XEmacs change; only map some characters if our XEmacs supports them, this
2168 ;; is the idea behind the macrolet.
2169 (macrolet
2170     ((quail-define-latin-postfix (&rest rules)
2171        (let ((unicode (prog1
2172                           (getf rules :unicode rules)
2173                         (remf rules :unicode))))
2174          (mapl
2175           (function*
2176            (lambda ((rule . rules))
2177             (let ((assoc (assoc (car rule) rules)))
2178               (and assoc
2179                    (warn "latin-postfix: rule %S overridden by %S"
2180                          rule assoc)))))
2181           (append rules unicode))
2182          `(quail-install-map
2183            (let ((map ',(let ((map (list nil)))
2184                              (mapc (function*
2185                                     (lambda ((key trans . rest))
2186                                      (quail-defrule-internal key trans map)))
2187                                    rules)
2188                              map)))
2189              (when latin-post-decent-xemacs-unicode-support
2190                (mapc (function*
2191                       (lambda ((key trans . rest))
2192                        (setf (aref trans 0)
2193                              (string (decode-char 'ucs (aref trans 0))))
2194                        (quail-defrule-internal key trans map)))
2195                      ',unicode))
2196              map)))))
2197   (quail-define-latin-postfix
2198    :unicode (("$/"  [#x20ac "\e,A#\e(B"]) ;; These override earlier rules, which is
2199              ("O/"  [#x0152 "\e,AX\e(B"]) ;; OK in this limited context.
2200              ("Y\"" [#x0178])
2201              ("e="  [#x20ac])
2202              ("o/"  [#x0153 "\e,Ax\e(B"]))
2203    (" _" ?\e,A \e(B)
2204    ("!/" ?\e,A!\e(B)
2205    ("//" ?\e,A0\e(B)
2206    ("<<" ?\\e,A+\e(B)
2207    (">>" ?\\e,A;\e(B)
2208    ("?/" ?\e,A?\e(B)
2209    ("$/" ?\e,A#\e(B)
2210    ("A'" ?\e,AA\e(B)
2211    ("A," ?\e,B!\e(B)
2212    ("A-" ?\e,D@\e(B)
2213    ("A/" ?\e,AE\e(B)
2214    ("A\"" ?\e,AD\e(B)
2215    ("A^" ?\e,AB\e(B)
2216    ("A`" ?\e,A@\e(B)
2217    ("A~" ["\e,AC\e(B" "\e,BC\e(B"])
2218    ("C'" ?\e,BF\e(B)
2219    ("C," ?\e,AG\e(B)
2220    ("C." ?\e,CE\e(B)
2221    ("C^" ?\e,CF\e(B)
2222    ("C~" ?\e,BH\e(B)
2223    ("D/" ["\e,AP\e(B" "\e,BP\e(B"])
2224    ("D~" ?\e,BO\e(B)
2225    ("E'" ?\e,AI\e(B)
2226    ("E," ?\e,BJ\e(B)
2227    ("E-" ?\e,D*\e(B)
2228    ("E." ?\e,DL\e(B)
2229    ("E/" ?\e,AF\e(B)
2230    ("E\"" ?\e,AK\e(B)
2231    ("E^" ?\e,AJ\e(B)
2232    ("E`" ?\e,AH\e(B)
2233    ("E~" ?\e,BL\e(B)
2234    ("G," ?\e,D+\e(B)
2235    ("G." ?\e,CU\e(B)
2236    ("G^" ?\e,CX\e(B)
2237    ("G~" ?\e,C+\e(B)
2238    ("H/" ?\e,C!\e(B)
2239    ("H^" ?\e,C&\e(B)
2240    ("I'" ?\e,AM\e(B)
2241    ("I," ?\e,DG\e(B)
2242    ("I-" ?\e,DO\e(B)
2243    ("I." ?\e,C)\e(B)
2244    ("I\"" ?\e,AO\e(B)
2245    ("I^" ?\e,AN\e(B)
2246    ("I`" ?\e,AL\e(B)
2247    ("I~" ?\e,D%\e(B)
2248    ("J^" ?\e,C,\e(B)
2249    ("K," ?\e,DS\e(B)
2250    ("L'" ?\e,BE\e(B)
2251    ("L," ?\e,D&\e(B)
2252    ("L/" ?\e,B#\e(B)
2253    ("L~" ?\e,B%\e(B)
2254    ("N'" ?\e,BQ\e(B)
2255    ("N," ?\e,DQ\e(B)
2256    ("N/" ?\e,D=\e(B)
2257    ("N~" ["\e,AQ\e(B" "\e,BR\e(B"])
2258    ("O'" ?\e,AS\e(B)
2259    ("O-" ?\e,DR\e(B)
2260    ("O/" ?\e,AX\e(B)
2261    ("O:" ?\e,BU\e(B)
2262    ("O\"" ?\e,AV\e(B)
2263    ("O^" ?\e,AT\e(B)
2264    ("O`" ?\e,AR\e(B)
2265    ("O~" ?\e,AU\e(B)
2266    ("R'" ?\e,B@\e(B)
2267    ("R," ?\e,D#\e(B)
2268    ("R~" ?\e,BX\e(B)
2269    ("S'" ?\e,B&\e(B)
2270    ("S," ?\e,B*\e(B)
2271    ("S^" ?\e,C^\e(B)
2272    ("S~" ?\e,B)\e(B)
2273    ("T," ?\e,B^\e(B)
2274    ("T/" ["\e,A^\e(B" "\e,D,\e(B"])
2275    ("T~" ?\e,B+\e(B)
2276    ("U'" ?\e,AZ\e(B)
2277    ("U," ?\e,DY\e(B)
2278    ("U-" ?\e,D^\e(B)
2279    ("U." ?\e,BY\e(B)
2280    ("U:" ?\e,B[\e(B)
2281    ("U\"" ?\e,A\\e(B)
2282    ("U^" ?\e,A[\e(B)
2283    ("U`" ?\e,AY\e(B)
2284    ("U~" ["\e,D]\e(B" "\e$(D*f\e(B"])
2285    ("Y'" ?\e,A]\e(B)
2286    ("Y=" ?\e,A%\e(B)
2287    ("Z'" ?\e,B,\e(B)
2288    ("Z." ?\e,B/\e(B)
2289    ("Z~" ?\e,B.\e(B)
2290    ("a'" ?\e,Aa\e(B)
2291    ("a," ?\e,B1\e(B)
2292    ("a-" ?\e,D`\e(B)
2293    ("a/" ?\e,Ae\e(B)
2294    ("a\"" ?\e,Ad\e(B)
2295    ("a^" ?\e,Ab\e(B)
2296    ("a_" ?\e,A*\e(B)
2297    ("a`" ?\e,A`\e(B)
2298    ("a~" ["\e,Ac\e(B" "\e,Bc\e(B"])
2299    ("c'" ?\e,Bf\e(B)
2300    ("c," ?\e,Ag\e(B)
2301    ("c." ?\e,Ce\e(B)
2302    ("c^" ?\e,Cf\e(B)
2303    ("c~" ?\e,Bh\e(B)
2304    ("c/" ?\e,A"\e(B)
2305    ("d/" ["\e,Ap\e(B" "\e,Bp\e(B"])
2306    ("d~" ?\e,Bo\e(B)
2307    ("e'" ?\e,Ai\e(B)
2308    ("e," ?\e,Bj\e(B)
2309    ("e-" ?\e,D:\e(B)
2310    ("e." ?\e,Dl\e(B)
2311    ("e/" ?\e,Af\e(B)
2312    ("e\"" ?\e,Ak\e(B)
2313    ("e^" ?\e,Aj\e(B)
2314    ("e`" ?\e,Ah\e(B)
2315    ("e~" ?\e,Bl\e(B)
2316    ("g," ?\e,D;\e(B)
2317    ("g." ?\e,Cu\e(B)
2318    ("g^" ?\e,Cx\e(B)
2319    ("g~" ?\e,C;\e(B)
2320    ("h/" ?\e,C1\e(B)
2321    ("h^" ?\e,C6\e(B)
2322    ("i'" ?\e,Am\e(B)
2323    ("i," ?\e,Dg\e(B)
2324    ("i-" ?\e,Do\e(B)
2325    ("i." ?\e,C9\e(B)
2326    ("i\"" ?\e,Ao\e(B)
2327    ("i^" ?\e,An\e(B)
2328    ("i`" ?\e,Al\e(B)
2329    ("i~" ?\e,D5\e(B)
2330    ("j^" ?\e,C<\e(B)
2331    ("k," ?\e,Ds\e(B)
2332    ("k/" ?\e,D"\e(B)
2333    ("l'" ?\e,Be\e(B)
2334    ("l," ?\e,D6\e(B)
2335    ("l/" ?\e,B3\e(B)
2336    ("l~" ?\e,B5\e(B)
2337    ("n'" ?\e,Bq\e(B)
2338    ("n," ?\e,Dq\e(B)
2339    ("n/" ?\e,D?\e(B)
2340    ("n~" ["\e,Aq\e(B" "\e,Br\e(B"])
2341    ("o'" ?\e,As\e(B)
2342    ("o-" ?\e,Dr\e(B)
2343    ("o/" ?\e,Ax\e(B)
2344    ("o:" ?\e,Bu\e(B)
2345    ("o\"" ?\e,Av\e(B)
2346    ("o^" ?\e,At\e(B)
2347    ("o_" ?\e,A:\e(B)
2348    ("o`" ?\e,Ar\e(B)
2349    ("o~" ?\e,Au\e(B)
2350    ("r'" ?\e,B`\e(B)
2351    ("r," ?\e,D3\e(B)
2352    ("r~" ?\e,Bx\e(B)
2353    ("s'" ?\e,B6\e(B)
2354    ("s," ?\e,B:\e(B)
2355    ("s/" ?\e,A_\e(B)
2356    ("s^" ?\e,C~\e(B)
2357    ("s~" ?\e,B9\e(B)
2358    ("t," ?\e,B~\e(B)
2359    ("t/" ["\e,A~\e(B" "\e,D<\e(B"])
2360    ("t~" ?\e,B;\e(B)
2361    ("u'" ?\e,Az\e(B)
2362    ("u," ?\e,Dy\e(B)
2363    ("u-" ?\e,D~\e(B)
2364    ("u." ?\e,By\e(B)
2365    ("u:" ?\e,B{\e(B)
2366    ("u\"" ?\e,A|\e(B)
2367    ("u^" ?\e,A{\e(B)
2368    ("u`" ?\e,Ay\e(B)
2369    ("u~" ["\e,D}\e(B" "\e,C}\e(B"])
2370    ("y'" ?\e,A}\e(B)
2371    ("y\"" ?\e,A\7f\e(B)
2372    ("z'" ?\e,B<\e(B)
2373    ("z." ?\e,B?\e(B)
2374    ("z~" ?\e,B>\e(B)
2375
2376    ("!//" ["!/"])
2377    ("///" ["//"])
2378    ("<<<" ["<<"])
2379    (">>>" [">>"])
2380    ("?//" ["?/"])
2381    ("$//" ["$/"])
2382    ("A''" ["A'"])
2383    ("A,," ["A,"])
2384    ("A--" ["A-"])
2385    ("A//" ["A/"])
2386    ("A\"\"" ["A\""])
2387    ("A^^" ["A^"])
2388    ("A``" ["A`"])
2389    ("A~~" ["A~"])
2390    ("C''" ["C'"])
2391    ("C,," ["C,"])
2392    ("C.." ["C."])
2393    ("C^^" ["C^"])
2394    ("C~~" ["C~"])
2395    ("D//" ["D/"])
2396    ("D~~" ["D~"])
2397    ("E''" ["E'"])
2398    ("E,," ["E,"])
2399    ("E--" ["E-"])
2400    ("E.." ["E."])
2401    ("E//" ["E/"])
2402    ("E\"\"" ["E\""])
2403    ("E^^" ["E^"])
2404    ("E``" ["E`"])
2405    ("E~~" ["E~"])
2406    ("G,," ["G,"])
2407    ("G.." ["G."])
2408    ("G^^" ["G^"])
2409    ("G~~" ["G~"])
2410    ("H//" ["H/"])
2411    ("H^^" ["H^"])
2412    ("I''" ["I'"])
2413    ("I,," ["I,"])
2414    ("I--" ["I-"])
2415    ("I.." ["I."])
2416    ("I\"\"" ["I\""])
2417    ("I^^" ["I^"])
2418    ("I``" ["I`"])
2419    ("I~~" ["I~"])
2420    ("J^^" ["J^"])
2421    ("K,," ["K,"])
2422    ("L''" ["L'"])
2423    ("L,," ["L,"])
2424    ("L//" ["L/"])
2425    ("L~~" ["L~"])
2426    ("N''" ["N'"])
2427    ("N,," ["N,"])
2428    ("N//" ["N/"])
2429    ("N~~" ["N~"])
2430    ("O''" ["O'"])
2431    ("O--" ["O-"])
2432    ("O//" ["O/"])
2433    ("O::" ["O:"])
2434    ("O\"\"" ["O\""])
2435    ("O^^" ["O^"])
2436    ("O``" ["O`"])
2437    ("O~~" ["O~"])
2438    ("R''" ["R'"])
2439    ("R,," ["R,"])
2440    ("R~~" ["R~"])
2441    ("S''" ["S'"])
2442    ("S,," ["S,"])
2443    ("S^^" ["S^"])
2444    ("S~~" ["S~"])
2445    ("T,," ["T,"])
2446    ("T//" ["T/"])
2447    ("T~~" ["T~"])
2448    ("U''" ["U'"])
2449    ("U,," ["U,"])
2450    ("U--" ["U-"])
2451    ("U.." ["U."])
2452    ("U::" ["U:"])
2453    ("U\"\"" ["U\""])
2454    ("U^^" ["U^"])
2455    ("U``" ["U`"])
2456    ("U~~" ["U~"])
2457    ("Y''" ["Y'"])
2458    ("Y\"\"" ["Y\""])
2459    ("Y==" ["Y="])
2460    ("Z''" ["Z'"])
2461    ("Z.." ["Z."])
2462    ("Z~~" ["Z~"])
2463    ("a''" ["a'"])
2464    ("a,," ["a,"])
2465    ("a--" ["a-"])
2466    ("a//" ["a/"])
2467    ("a\"\"" ["a\""])
2468    ("a^^" ["a^"])
2469    ("a__" ["a_"])
2470    ("a``" ["a`"])
2471    ("a~~" ["a~"])
2472    ("c''" ["c'"])
2473    ("c,," ["c,"])
2474    ("c.." ["c."])
2475    ("c^^" ["c^"])
2476    ("c~~" ["c~"])
2477    ("c//" ["c/"])
2478    ("d//" ["d/"])
2479    ("d~~" ["d~"])
2480    ("e''" ["e'"])
2481    ("e,," ["e,"])
2482    ("e--" ["e-"])
2483    ("e.." ["e."])
2484    ("e//" ["e/"])
2485    ("e\"\"" ["e\""])
2486    ("e^^" ["e^"])
2487    ("e``" ["e`"])
2488    ("e==" ["e="])
2489    ("e~~" ["e~"])
2490    ("g,," ["g,"])
2491    ("g.." ["g."])
2492    ("g^^" ["g^"])
2493    ("g~~" ["g~"])
2494    ("h//" ["h/"])
2495    ("h^^" ["h^"])
2496    ("i''" ["i'"])
2497    ("i,," ["i,"])
2498    ("i--" ["i-"])
2499    ("i.." ["i."])
2500    ("i\"\"" ["i\""])
2501    ("i^^" ["i^"])
2502    ("i``" ["i`"])
2503    ("i~~" ["i~"])
2504    ("j^^" ["j^"])
2505    ("k,," ["k,"])
2506    ("k//" ["k/"])
2507    ("l''" ["l'"])
2508    ("l,," ["l,"])
2509    ("l//" ["l/"])
2510    ("l~~" ["l~"])
2511    ("n''" ["n'"])
2512    ("n,," ["n,"])
2513    ("n//" ["n/"])
2514    ("n~~" ["n~"])
2515    ("o''" ["o'"])
2516    ("o--" ["o-"])
2517    ("o//" ["o/"])
2518    ("o::" ["o:"])
2519    ("o\"\"" ["o\""])
2520    ("o^^" ["o^"])
2521    ("o__" ["o_"])
2522    ("o``" ["o`"])
2523    ("o~~" ["o~"])
2524    ("r''" ["r'"])
2525    ("r,," ["r,"])
2526    ("r~~" ["r~"])
2527    ("s''" ["s'"])
2528    ("s,," ["s,"])
2529    ("s//" ["s/"])
2530    ("s^^" ["s^"])
2531    ("s~~" ["s~"])
2532    ("t,," ["t,"])
2533    ("t//" ["t/"])
2534    ("t~~" ["t~"])
2535    ("u''" ["u'"])
2536    ("u,," ["u,"])
2537    ("u--" ["u-"])
2538    ("u.." ["u."])
2539    ("u::" ["u:"])
2540    ("u\"\"" ["u\""])
2541    ("u^^" ["u^"])
2542    ("u``" ["u`"])
2543    ("u~~" ["u~"])
2544    ("y''" ["y'"])
2545    ("y\"\"" ["y\""])
2546    ("z''" ["z'"])
2547    ("z.." ["z."])
2548    ("z~~" ["z~"])))
2549
2550 ;; Derived from Slovenian.kmap from Yudit
2551 ;; attributed as: 2001-11-11 Roman Maurer <roman.maurer@amis.net>
2552 (quail-define-package
2553  "slovenian" "Slovenian" "Sl" t
2554  "Slovenian postfix input."
2555  nil t t t nil nil nil nil nil nil t)
2556
2557 (quail-define-rules
2558  ("C<" ?\e,BH\e(B)
2559  ("C'" ?\e,BF\e(B)
2560  ("D;" ?\e,BP\e(B)
2561  ("S<" ?\e,B)\e(B)
2562  ("Z<" ?\e,B.\e(B)
2563  ("c<" ?\e,Bh\e(B)
2564  ("c'" ?\e,Bf\e(B)
2565  ("d;" ?\e,Bp\e(B)
2566  ("s<" ?\e,B9\e(B)
2567  ("z<" ?\e,B>\e(B))
2568
2569 ;;; arch-tag: 170180fb-9617-4d58-9d51-65ca23c05d94
2570 ;;; latin-post.el ends here