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

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