leim/quail/latin-pre.el

   1 ;;; latin-pre.el -- Quail packages for inputting various European characters.
   2
   3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5 ;; Copyright (C) 2000 Free Software Foundation, Inc.
   6
   7 ;; Keywords: mule, multilingual, latin, input method
   8
   9 ;; This file is part of GNU Emacs.
  10
  11 ;; GNU Emacs is free software; you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15
  16 ;; GNU Emacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  24 ;; Boston, MA 02111-1307, USA.
  25
  26 ;;; Commentary:
  27
  28 ;; Key translation maps were originally copied from iso-acc.el.
  29 ;; latin-1-prefix: extra special characters added, adapted from the vim
  30 ;;                 digraphs (from J.H.M.Dassen <jdassen@wi.leidenuniv.nl>)
  31 ;;                 by R.F. Smith <rsmith@xs4all.nl>
  32 ;;
  33 ;; polish-slash:
  34 ;;  Author:     W\e,B3\e(Bodek Bzyl <matwb@univ.gda.pl>
  35 ;;  Maintainer: W\e,B3\e(Bodek Bzyl <matwb@univ.gda.pl>
  36 ;;
  37 ;; latin-[89]-prefix: Dave Love <fx@gnu.org>
  38
  39 ;;; Code:
  40
  41 (require 'quail)
  42
  43 (quail-define-package
  44  "latin-1-prefix" "Latin-1" "1>" t
  45  "Latin-1 characters input method with prefix modifiers
  46
  47     effect   | prefix | examples
  48  ------------+--------+----------
  49     acute    |   '    | 'a -> \e,Aa\e(B, '' -> \e,A4\e(B
  50     grave    |   `    | `a -> \e,A`\e(B
  51   circumflex |   ^    | ^a -> \e,Ab\e(B
  52   diaeresis  |   \"    | \"a -> \e,Ad\e(B  \"\" -> \e,A(\e(B
  53     tilde    |   ~    | ~a -> \e,Ac\e(B
  54    cedilla   |   ~    | ~c -> \e,Ag\e(B
  55     misc     | \" ~ /  | \"s -> \e,A_\e(B  ~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    symbol    |   ~    | ~> -> \e,A;\e(B  ~< -> \e,A+\e(B  ~! -> \e,A!\e(B  ~? -> \e,A?\e(B  ~~ -> \e,A8\e(B
  57              |   ~    | ~s -> \e,A'\e(B  ~x -> \e,A$\e(B  ~. -> \e,A7\e(B  ~$ -> \e,A#\e(B  ~u -> \e,A5\e(B
  58              |   ~    | ~p -> \e,A6\e(B  ~- -> \e,A-\e(B  ~= -> \e,A/\e(B  ~| -> \e,A&\e(B
  59    symbol    |  _ /   | _o -> \e,A:\e(B  _a -> \e,A*\e(B  // -> \e,A0\e(B  /\\ -> \e,AW\e(B  _y -> \e,A%\e(B
  60              |  _ /   | _: -> \e,Aw\e(B  /c -> \e,A"\e(B  /2 -> \e,A=\e(B  /4 -> \e,A<\e(B  /3 -> \e,A>\e(B
  61              |  _ /   | /= => \e,A,\e(B
  62    symbol    |   ^    | ^r -> \e,A.\e(B  ^c -> \e,A)\e(B  ^1 -> \e,A9\e(B  ^2 -> \e,A2\e(B  ^3 -> \e,A3\e(B
  63 " nil t nil nil nil nil nil nil nil nil t)
  64
  65 ;; Fixme: should we have non-break space somehow?  Is so, how?
  66 (quail-define-rules
  67  ("'A" ?\e,AA\e(B)
  68  ("'E" ?\e,AI\e(B)
  69  ("'I" ?\e,AM\e(B)
  70  ("'O" ?\e,AS\e(B)
  71  ("'U" ?\e,AZ\e(B)
  72  ("'Y" ?\e,A]\e(B)
  73  ("'a" ?\e,Aa\e(B)
  74  ("'e" ?\e,Ai\e(B)
  75  ("'i" ?\e,Am\e(B)
  76  ("'o" ?\e,As\e(B)
  77  ("'u" ?\e,Az\e(B)
  78  ("'y" ?\e,A}\e(B)
  79  ("''" ?\e,A4\e(B)
  80  ("' " ?')
  81  ("`A" ?\e,A@\e(B)
  82  ("`E" ?\e,AH\e(B)
  83  ("`I" ?\e,AL\e(B)
  84  ("`O" ?\e,AR\e(B)
  85  ("`U" ?\e,AY\e(B)
  86  ("`a" ?\e,A`\e(B)
  87  ("`e" ?\e,Ah\e(B)
  88  ("`i" ?\e,Al\e(B)
  89  ("`o" ?\e,Ar\e(B)
  90  ("`u" ?\e,Ay\e(B)
  91  ("``" ?`)
  92  ("` " ?`)
  93  ("^A" ?\e,AB\e(B)
  94  ("^E" ?\e,AJ\e(B)
  95  ("^I" ?\e,AN\e(B)
  96  ("^O" ?\e,AT\e(B)
  97  ("^U" ?\e,A[\e(B)
  98  ("^a" ?\e,Ab\e(B)
  99  ("^e" ?\e,Aj\e(B)
 100  ("^i" ?\e,An\e(B)
 101  ("^o" ?\e,At\e(B)
 102  ("^u" ?\e,A{\e(B)
 103  ("^^" ?^)
 104  ("^ " ?^)
 105  ("\"A" ?\e,AD\e(B)
 106  ("\"E" ?\e,AK\e(B)
 107  ("\"I" ?\e,AO\e(B)
 108  ("\"O" ?\e,AV\e(B)
 109  ("\"U" ?\e,A\\e(B)
 110  ("\"a" ?\e,Ad\e(B)
 111  ("\"e" ?\e,Ak\e(B)
 112  ("\"i" ?\e,Ao\e(B)
 113  ("\"o" ?\e,Av\e(B)
 114  ("\"s" ?\e,A_\e(B)
 115  ("\"u" ?\e,A|\e(B)
 116  ("\"y" ?\e,A\x7f\e(B)
 117  ("\"\"" ?\e,A(\e(B)
 118  ("\" " ?\")
 119  ("~A" ?\e,AC\e(B)
 120  ("~C" ?\e,AG\e(B)
 121  ("~D" ?\e,AP\e(B)
 122  ("~N" ?\e,AQ\e(B)
 123  ("~O" ?\e,AU\e(B)
 124  ("~T" ?\e,A^\e(B)
 125  ("~a" ?\e,Ac\e(B)
 126  ("~c" ?\e,Ag\e(B)
 127  ("~d" ?\e,Ap\e(B)
 128  ("~n" ?\e,Aq\e(B)
 129  ("~o" ?\e,Au\e(B)
 130  ("~t" ?\e,A~\e(B)
 131  ("~>" ?\\e,A;\e(B)
 132  ("~<" ?\\e,A+\e(B)
 133  ("~!" ?\e,A!\e(B)
 134  ("~?" ?\e,A?\e(B)
 135  ("~~" ?\e,A8\e(B)
 136  ("~ " ?~)
 137  ("/A" ?\e,AE\e(B)
 138  ("/E" ?\e,AF\e(B)
 139  ("/O" ?\e,AX\e(B)
 140  ("/a" ?\e,Ae\e(B)
 141  ("/e" ?\e,Af\e(B)
 142  ("/o" ?\e,Ax\e(B)
 143  ("//" ?\e,A0\e(B)
 144  ("/ " ?/)
 145  ("_o" ?\e,A:\e(B)
 146  ("_a" ?\e,A*\e(B)
 147 ;; Symbols added by Roland Smith <rsmith@xs4all.nl>
 148  ("_+" ?\e,A1\e(B)
 149  ("_y" ?\e,A%\e(B)
 150  ("_:" ?\e,Aw\e(B)
 151  ("/c" ?\e,A"\e(B)
 152  ("/\\" ?\e,AW\e(B)
 153  ("/2" ?\e,A=\e(B)
 154  ("/4" ?\e,A<\e(B)
 155  ("/3" ?\e,A>\e(B)
 156  ("~s" ?\e,A'\e(B)
 157  ("~p" ?\e,A6\e(B)
 158  ("~x" ?\e,A$\e(B)
 159  ("~." ?\e,A7\e(B)
 160  ("~$" ?\e,A#\e(B)
 161  ("~u" ?\e,A5\e(B)
 162  ("^r" ?\e,A.\e(B)
 163  ("^c" ?\e,A)\e(B)
 164  ("^1" ?\e,A9\e(B)
 165  ("^2" ?\e,A2\e(B)
 166  ("^3" ?\e,A3\e(B)
 167  ("~-" ?\e,A-\e(B)
 168  ("~|" ?\e,A&\e(B)
 169  ("/=" ?\e,A,\e(B)
 170  ("~=" ?\e,A/\e(B)
 171 )
 172
 173 (quail-define-package
 174  "catalan-prefix" "Latin-1" "CA>" t
 175  "Catalan and Spanish input method with prefix modifiers
 176
 177     effect   | prefix | examples
 178  ------------+--------+----------
 179     acute    |   '    | 'a -> \e,Aa\e(B   '' -> \e,A4\e(B
 180     grave    |   `    | `a -> \e,A`\e(B
 181   diaeresis  |   \"    | \"i -> \e,Ao\e(B   \"\" -> \e,A(\e(B
 182     tilde    |   ~    | ~n -> \e,Aq\e(B
 183    cedilla   |   ~    | ~c -> \e,Ag\e(B
 184    symbol    |   ~    | ~> -> \e,A;\e(B   ~< -> \e,A+\e(B   ~! -> \e,A!\e(B   ~? -> \e,A?\e(B
 185 " nil t nil nil nil nil nil nil nil nil t)
 186
 187 (quail-define-rules
 188  ("'A" ?\e,AA\e(B)
 189  ("'E" ?\e,AI\e(B)
 190  ("'I" ?\e,AM\e(B)
 191  ("'O" ?\e,AS\e(B)
 192  ("'U" ?\e,AZ\e(B)
 193  ("'a" ?\e,Aa\e(B)
 194  ("'e" ?\e,Ai\e(B)
 195  ("'i" ?\e,Am\e(B)
 196  ("'o" ?\e,As\e(B)
 197  ("'u" ?\e,Az\e(B)
 198  ("' " ?')
 199  ("`A" ?\e,A@\e(B)
 200  ("`E" ?\e,AH\e(B)
 201  ("`O" ?\e,AR\e(B)
 202  ("`a" ?\e,A`\e(B)
 203  ("`e" ?\e,Ah\e(B)
 204  ("`o" ?\e,Ar\e(B)
 205  ("` " ?`)
 206  ("\"I" ?\e,AO\e(B)
 207  ("\"U" ?\e,A\\e(B)
 208  ("\"i" ?\e,Ao\e(B)
 209  ("\"u" ?\e,A|\e(B)
 210  ("\" " ?\")
 211  ("~C" ?\e,AG\e(B)
 212  ("~N" ?\e,AQ\e(B)
 213  ("~c" ?\e,Ag\e(B)
 214  ("~n" ?\e,Aq\e(B)
 215  ("~>" ?\\e,A;\e(B)
 216  ("~<" ?\\e,A+\e(B)
 217  ("~!" ?\e,A!\e(B)
 218  ("~?" ?\e,A?\e(B)
 219  ("~ " ?~)
 220 )
 221
 222 (quail-define-package
 223  "esperanto-prefix" "Latin-3" "EO>" t
 224  "Esperanto input method with prefix modifiers
 225 Key translation rules are:
 226  ^H -> ?\e,C&\e(B   ^J -> ?\e,C,\e(B   ^h -> ?\e,C6\e(B   ^j -> ?\e,C<\e(B   ^C -> ?\e,CF\e(B   ^G -> ?\e,CX\e(B,
 227  ^S -> ?\e,C^\e(B   ^c -> ?\e,Cf\e(B   ^g -> ?\e,Cx\e(B   ^s -> ?\e,C~\e(B   ~U -> ?\e,C]\e(B   ~u -> ?\e,C}\e(B
 228 " nil t nil nil nil nil nil nil nil nil t)
 229
 230 (quail-define-rules
 231  ("^H" ?\e,C&\e(B)
 232  ("^J" ?\e,C,\e(B)
 233  ("^h" ?\e,C6\e(B)
 234  ("^j" ?\e,C<\e(B)
 235  ("^C" ?\e,CF\e(B)
 236  ("^G" ?\e,CX\e(B)
 237  ("^S" ?\e,C^\e(B)
 238  ("^c" ?\e,Cf\e(B)
 239  ("^g" ?\e,Cx\e(B)
 240  ("^s" ?\e,C~\e(B)
 241  ("^^" ?^)
 242  ("^ " ?^)
 243  ("~U" ?\e,C]\e(B)
 244  ("~u" ?\e,C}\e(B)
 245  ("~ " ?~)
 246 )
 247
 248 (quail-define-package
 249  "french-prefix" "Latin-1" "FR>" t
 250  "French (Fran\e,Ag\e(Bais) input method with prefix modifiers
 251
 252     effect   | prefix | examples
 253  ------------+--------+----------
 254     acute    |   '    | 'e -> \e,Ai\e(B
 255     grave    |   `    | `a -> \e,A`\e(B
 256   circumflex |   ^    | ^a -> \e,Ab\e(B
 257   diaeresis  |   \"   | \"i -> \e,Ao\e(B
 258    cedilla   | ~ or , | ~c -> \e,Ag\e(B   ,c -> \e,Ag\e(B
 259    symbol    |   ~    | ~> -> \e,A;\e(B   ~< -> \e,A+\e(B
 260 " nil t nil nil nil nil nil nil nil nil t)
 261
 262 (quail-define-rules
 263  ("'E" ?\e,AI\e(B)
 264  ("'C" ?\e,AG\e(B)
 265  ("'e" ?\e,Ai\e(B)
 266  ("'c" ?\e,Ag\e(B)
 267  ("' " ?')
 268  ("`A" ?\e,A@\e(B)
 269  ("`E" ?\e,AH\e(B)
 270  ("`U" ?\e,AY\e(B)
 271  ("`a" ?\e,A`\e(B)
 272  ("`e" ?\e,Ah\e(B)
 273  ("`u" ?\e,Ay\e(B)
 274  ("` " ?`)
 275  ("^A" ?\e,AB\e(B)
 276  ("^E" ?\e,AJ\e(B)
 277  ("^I" ?\e,AN\e(B)
 278  ("^O" ?\e,AT\e(B)
 279  ("^U" ?\e,A[\e(B)
 280  ("^a" ?\e,Ab\e(B)
 281  ("^e" ?\e,Aj\e(B)
 282  ("^i" ?\e,An\e(B)
 283  ("^o" ?\e,At\e(B)
 284  ("^u" ?\e,A{\e(B)
 285  ("^ " ?^)
 286  ("\"E" ?\e,AK\e(B)
 287  ("\"I" ?\e,AO\e(B)
 288  ("\"e" ?\e,Ak\e(B)
 289  ("\"i" ?\e,Ao\e(B)
 290  ("\" " ?\")
 291  ("~<" ?\\e,A+\e(B)
 292  ("~>" ?\\e,A;\e(B)
 293  ("~C" ?\e,AG\e(B)
 294  ("~c" ?\e,Ag\e(B)
 295  ("~," ?,)
 296  (",C" ?\e,AG\e(B)
 297  (",c" ?\e,Ag\e(B)
 298  (", " ?~)
 299 )
 300
 301 (quail-define-package
 302  "romanian-prefix" "Romanian" "RO>" t
 303  "Romanian (rom\e,Bb\e(Bne\e,B:\e(Bte) input method with prefix modifiers
 304
 305     effect   | prefix | examples
 306  ------------+--------+------------------
 307     tilde    |   ~    | ~a -> \e,Bc\e(B
 308   circumflex |   ^    | ^a -> \e,Bb\e(B, ^i -> \e,Bn\e(B
 309    cedilla   |   ,    | ,s -> \e,B:\e(B, ,t -> \e,B~\e(B
 310    ~         |   ~    | ~~ -> ~
 311    ^         |   ^    | ^^ -> ^
 312    ,         |   ,    | ,, -> ,
 313 " nil t nil nil nil nil nil nil nil nil t)
 314
 315 (quail-define-rules
 316  ("~A" ?\e,BC\e(B) ("~a" ?\e,Bc\e(B)
 317  ("^A" ?\e,BB\e(B) ("^a" ?\e,Bb\e(B)
 318  ("^I" ?\e,BN\e(B) ("^i" ?\e,Bn\e(B)
 319  (",S" ?\e,B*\e(B) (",s" ?\e,B:\e(B)
 320  (",T" ?\e,B^\e(B) (",t" ?\e,B~\e(B)
 321  ("^^" ?^) ("~~" ?~) (",," ?,))
 322
 323 (quail-define-package
 324  "romanian-alt-prefix" "Romanian" "RO>" t
 325  "Alternative Romanian (rom\e,Bb\e(Bne\e,B:\e(Bte) input method with prefix modifiers
 326
 327     effect   | prefix | examples
 328  ------------+--------+------------------
 329     tilde    |   \"    | \"a -> \e,Bb\e(B
 330   circumflex |   '    | 'a -> \e,Bb\e(B, 'i -> \e,Bn\e(B
 331    cedilla   |   '    | 's -> \e,B:\e(B, 't -> \e,B~\e(B
 332    '         |   '    | '' -> '
 333    \"         |   \"    | \"\" -> \"
 334 " nil t nil nil nil nil nil nil nil nil t)
 335
 336 (quail-define-rules
 337  ("'A" ?\e,BC\e(B) ("'a" ?\e,Bc\e(B)
 338  ("\"A" ?\e,BB\e(B) ("\"a" ?\e,Bb\e(B)
 339  ("'I" ?\e,BN\e(B) ("'i" ?\e,Bn\e(B)
 340  ("'S" ?\e,B*\e(B) ("'s" ?\e,B:\e(B)
 341  ("'T" ?\e,B^\e(B) ("'t" ?\e,B~\e(B)
 342  ("''" ?') ("\"\"" ?\"))
 343
 344 (quail-define-package
 345  "german-prefix" "Latin-1" "DE>" t
 346  "German (Deutsch) input method with prefix modifiers
 347 Key translation rules are:
 348  \"A -> \e,AD\e(B ->   \"O -> \e,AV\e(B   \"U -> \e,A\\e(B   \"s -> ?\e,A_\e(B
 349 " nil t nil nil nil nil nil nil nil nil t)
 350
 351 (quail-define-rules
 352  ("\"A" ?\e,AD\e(B)
 353  ("\"O" ?\e,AV\e(B)
 354  ("\"U" ?\e,A\\e(B)
 355  ("\"a" ?\e,Ad\e(B)
 356  ("\"o" ?\e,Av\e(B)
 357  ("\"u" ?\e,A|\e(B)
 358  ("\"s" ?\e,A_\e(B)
 359  ("\" " ?\")
 360 )
 361
 362 (quail-define-package
 363  "irish-prefix" "Latin-1" "GA>" t
 364  "Irish input method with prefix modifiers
 365 Key translation rules are:
 366  'A -> \e,AA\e(B   'E -> \e,AI\e(B   'I -> \e,AM\e(B   'O -> \e,AS\e(B   'U -> \e,AZ\e(B
 367 " nil t nil nil nil nil nil nil nil nil t)
 368
 369 (quail-define-rules
 370  ("'A" ?\e,AA\e(B)
 371  ("'E" ?\e,AI\e(B)
 372  ("'I" ?\e,AM\e(B)
 373  ("'O" ?\e,AS\e(B)
 374  ("'U" ?\e,AZ\e(B)
 375  ("'a" ?\e,Aa\e(B)
 376  ("'e" ?\e,Ai\e(B)
 377  ("'i" ?\e,Am\e(B)
 378  ("'o" ?\e,As\e(B)
 379  ("'u" ?\e,Az\e(B)
 380  ("' " ?')
 381 )
 382
 383 (quail-define-package
 384  "portuguese-prefix" "Latin-1" "PT>" t
 385  "Portuguese input method with prefix modifiers
 386
 387     effect   | prefix | examples
 388  ------------+--------+----------
 389     acute    |   '    | 'a -> \e,Aa\e(B   '' -> \e,A4\e(B
 390     grave    |   `    | `a -> \e,A`\e(B
 391   circumflex |   ^    | ^a -> \e,Ab\e(B
 392   diaeresis  |   \"    | \"u -> \e,A|\e(B
 393     tilde    |   ~    | ~a -> \e,Ac\e(B
 394    cedilla   | ' or , | 'c -> \e,Ag\e(B   ,c -> \e,Ag\e(B
 395 " nil t nil nil nil nil nil nil nil nil t)
 396
 397 (quail-define-rules
 398  ("'A" ?\e,AA\e(B)
 399  ("'E" ?\e,AI\e(B)
 400  ("'I" ?\e,AM\e(B)
 401  ("'O" ?\e,AS\e(B)
 402  ("'U" ?\e,AZ\e(B)
 403  ("'C" ?\e,AG\e(B)
 404  ("'a" ?\e,Aa\e(B)
 405  ("'e" ?\e,Ai\e(B)
 406  ("'i" ?\e,Am\e(B)
 407  ("'o" ?\e,As\e(B)
 408  ("'u" ?\e,Az\e(B)
 409  ("'c" ?\e,Ag\e(B)
 410  ("' " ?')
 411  ("`A" ?\e,A@\e(B)
 412  ("`a" ?\e,A`\e(B)
 413  ("` " ?`)
 414  ("^A" ?\e,AB\e(B)
 415  ("^E" ?\e,AJ\e(B)
 416  ("^O" ?\e,AT\e(B)
 417  ("^a" ?\e,Ab\e(B)
 418  ("^e" ?\e,Aj\e(B)
 419  ("^o" ?\e,At\e(B)
 420  ("^ " ?^)
 421  ("\"U" ?\e,A\\e(B)
 422  ("\"u" ?\e,A|\e(B)
 423  ("\" " ?\")
 424  ("~A" ?\e,AC\e(B)
 425  ("~O" ?\e,AU\e(B)
 426  ("~a" ?\e,Ac\e(B)
 427  ("~o" ?\e,Au\e(B)
 428  ("~ " ?~)
 429  (",c" ?\e,Ag\e(B)
 430  (",C" ?\e,AG\e(B)
 431  (",," ?,)
 432 )
 433
 434 (quail-define-package
 435  "spanish-prefix" "Latin-1" "ES>" t
 436  "Spanish (Espa\e,Aq\e(Bol) input method with prefix modifiers
 437
 438     effect   | prefix | examples
 439  ------------+--------+----------
 440     acute    |   '    | 'a -> \e,Aa\e(B
 441   diaeresis  |   \"    | \"u -> \e,A|\e(B
 442     tilde    |   ~    | ~n -> \e,Aq\e(B
 443    symbol    |   ~    | ~> -> \e,A;\e(B   ~< -> \e,A+\e(B   ~! -> \e,A!\e(B   ~? -> \e,A?\e(B
 444 " nil t nil nil nil nil nil nil nil nil t)
 445
 446 (quail-define-rules
 447  ("'A" ?\e,AA\e(B)
 448  ("'E" ?\e,AI\e(B)
 449  ("'I" ?\e,AM\e(B)
 450  ("'O" ?\e,AS\e(B)
 451  ("'U" ?\e,AZ\e(B)
 452  ("'a" ?\e,Aa\e(B)
 453  ("'e" ?\e,Ai\e(B)
 454  ("'i" ?\e,Am\e(B)
 455  ("'o" ?\e,As\e(B)
 456  ("'u" ?\e,Az\e(B)
 457  ("' " ?')
 458  ("\"U" ?\e,A\\e(B)
 459  ("\"u" ?\e,A|\e(B)
 460  ("\" " ?\")
 461  ("~N" ?\e,AQ\e(B)
 462  ("~n" ?\e,Aq\e(B)
 463  ("~>" ?\\e,A;\e(B)
 464  ("~<" ?\\e,A+\e(B)
 465  ("~!" ?\e,A!\e(B)
 466  ("~?" ?\e,A?\e(B)
 467  ("~ " ?~)
 468 )
 469
 470 (quail-define-package
 471  "latin-2-prefix" "Latin-2" "2>" t
 472  "Latin-2 characters input method with prefix modifiers
 473
 474     effect   | prefix | examples
 475  ------------+--------+----------
 476     acute    |   '    | 'a -> \e,Ba\e(B   '' -> ?\e,B4\e(B
 477   circumflex |   ^    | ^a -> \e,Bb\e(B
 478   diaeresis  |   \"    | \"a -> \e,Bd\e(B   \"\" -> \e,B(\e(B
 479     breve    |   ~    | ~a -> \e,Bc\e(B
 480     caron    |   ~    | ~c -> \e,Bh\e(B
 481    cedilla   |   `    | `c -> \e,Bg\e(B   `e -> ?\e,Bj\e(B
 482     misc     | ' ` ~  | 'd -> \e,Bp\e(B   `l -> \e,B3\e(B   `z -> \e,B?\e(B   ~o -> \e,Bu\e(B   ~u -> \e,B{\e(B
 483    symbol    |   ~    | `. -> \e,B\x7f\e(B   ~~ -> \e,B"\e(B   ~. -> ?\e,B8\e(B
 484 " nil t nil nil nil nil nil nil nil nil t)
 485
 486 (quail-define-rules
 487  ("'A" ?\e,BA\e(B)
 488  ("'C" ?\e,BF\e(B)
 489  ("'D" ?\e,BP\e(B)
 490  ("'E" ?\e,BI\e(B)
 491  ("'I" ?\e,BM\e(B)
 492  ("'L" ?\e,BE\e(B)
 493  ("'N" ?\e,BQ\e(B)
 494  ("'O" ?\e,BS\e(B)
 495  ("'R" ?\e,B@\e(B)
 496  ("'S" ?\e,B&\e(B)
 497  ("'U" ?\e,BZ\e(B)
 498  ("'Y" ?\e,B]\e(B)
 499  ("'Z" ?\e,B,\e(B)
 500  ("'a" ?\e,Ba\e(B)
 501  ("'c" ?\e,Bf\e(B)
 502  ("'d" ?\e,Bp\e(B)
 503  ("'e" ?\e,Bi\e(B)
 504  ("'i" ?\e,Bm\e(B)
 505  ("'l" ?\e,Be\e(B)
 506  ("'n" ?\e,Bq\e(B)
 507  ("'o" ?\e,Bs\e(B)
 508  ("'r" ?\e,B`\e(B)
 509  ("'s" ?\e,B6\e(B)
 510  ("'u" ?\e,Bz\e(B)
 511  ("'y" ?\e,B}\e(B)
 512  ("'z" ?\e,B<\e(B)
 513  ("''" ?\e,B4\e(B)
 514  ("' " ?')
 515  ("`A" ?\e,B!\e(B)
 516  ("`C" ?\e,BG\e(B)
 517  ("`E" ?\e,BJ\e(B)
 518  ("`L" ?\e,B#\e(B)
 519  ("`S" ?\e,B*\e(B)
 520  ("`T" ?\e,B^\e(B)
 521  ("`Z" ?\e,B/\e(B)
 522  ("`a" ?\e,B1\e(B)
 523  ("`l" ?\e,B3\e(B)
 524  ("`c" ?\e,Bg\e(B)
 525  ("`e" ?\e,Bj\e(B)
 526  ("`s" ?\e,B:\e(B)
 527  ("`t" ?\e,B~\e(B)
 528  ("`z" ?\e,B?\e(B)
 529  ("``" ?\e,B*\e(B)
 530  ("`." ?\e,B\x7f\e(B)
 531  ("` " ?`)
 532  ("^A" ?\e,BB\e(B)
 533  ("^I" ?\e,BN\e(B)
 534  ("^O" ?\e,BT\e(B)
 535  ("^a" ?\e,Bb\e(B)
 536  ("^i" ?\e,Bn\e(B)
 537  ("^o" ?\e,Bt\e(B)
 538  ("^^" ?^)
 539  ("^ " ?^)
 540  ("\"A" ?\e,BD\e(B)
 541  ("\"E" ?\e,BK\e(B)
 542  ("\"O" ?\e,BV\e(B)
 543  ("\"U" ?\e,B\\e(B)
 544  ("\"a" ?\e,Bd\e(B)
 545  ("\"e" ?\e,Bk\e(B)
 546  ("\"o" ?\e,Bv\e(B)
 547  ("\"s" ?\e,B_\e(B)
 548  ("\"u" ?\e,B|\e(B)
 549  ("\"\"" ?\e,B(\e(B)
 550  ("\" " ?\")
 551  ("~A" ?\e,BC\e(B)
 552  ("~C" ?\e,BH\e(B)
 553  ("~D" ?\e,BO\e(B)
 554  ("~L" ?\e,B%\e(B)
 555  ("~N" ?\e,BR\e(B)
 556  ("~O" ?\e,BU\e(B)
 557  ("~R" ?\e,BX\e(B)
 558  ("~S" ?\e,B)\e(B)
 559  ("~T" ?\e,B+\e(B)
 560  ("~U" ?\e,B[\e(B)
 561  ("~Z" ?\e,B.\e(B)
 562  ("~a" ?\e,Bc\e(B)
 563  ("~c" ?\e,Bh\e(B)
 564  ("~d" ?\e,Bo\e(B)
 565  ("~l" ?\e,B5\e(B)
 566  ("~n" ?\e,Br\e(B)
 567  ("~o" ?\e,Bu\e(B)
 568  ("~r" ?\e,Bx\e(B)
 569  ("~s" ?\e,B9\e(B)
 570  ("~t" ?\e,B;\e(B)
 571  ("~u" ?\e,B{\e(B)
 572  ("~z" ?\e,B>\e(B)
 573  ("~v" ?\e,B"\e(B)
 574  ("~~" ?\e,B"\e(B)
 575  ("~." ?\e,B8\e(B)
 576  ("~ " ?~)
 577 )
 578
 579 (quail-define-package
 580  "latin-3-prefix" "Latin-3" "3>" t
 581  "Latin-3 characters input method with prefix modifiers
 582
 583     effect   | prefix | examples
 584  ------------+--------+----------
 585     acute    |   '    | 'a -> \e,Ca\e(B   '' -> ?\e,C4\e(B
 586     grave    |   `    | `a -> \e,C`\e(B
 587   circumflex |   ^    | ^a -> \e,Cb\e(B
 588   diaeresis  |   \"    | \"a -> \e,Cd\e(B   \"\" -> \e,C(\e(B
 589    cedilla   |   ~    | ~c -> \e,Cg\e(B   ~s -> \e,C:\e(B   ~~ -> \e,C8\e(B
 590   dot above  | ~ / .  | ~o -> \e,Cu\e(B   /o -> \e,Cu\e(B   .o -> \e,Cu\e(B
 591     misc     | \" ~ /  | \"s -> \e,C_\e(B   ~g -> \e,C;\e(B   ~u -> \e,C}\e(B   /h -> \e,C1\e(B   /i -> \e,C9\e(B
 592    symbol    |   ~    | ~` -> \e,C"\e(B   /# -> \e,C#\e(B   /$ -> \e,C$\e(B   // -> \e,C0\e(B
 593 " nil t nil nil nil nil nil nil nil nil t)
 594
 595 (quail-define-rules
 596  ("'A" ?\e,CA\e(B)
 597  ("'E" ?\e,CI\e(B)
 598  ("'I" ?\e,CM\e(B)
 599  ("'O" ?\e,CS\e(B)
 600  ("'U" ?\e,CZ\e(B)
 601  ("'a" ?\e,Ca\e(B)
 602  ("'e" ?\e,Ci\e(B)
 603  ("'i" ?\e,Cm\e(B)
 604  ("'o" ?\e,Cs\e(B)
 605  ("'u" ?\e,Cz\e(B)
 606  ("''" ?\e,C4\e(B)
 607  ("' " ?')
 608  ("`A" ?\e,C@\e(B)
 609  ("`E" ?\e,CH\e(B)
 610  ("`I" ?\e,CL\e(B)
 611  ("`O" ?\e,CR\e(B)
 612  ("`U" ?\e,CY\e(B)
 613  ("`a" ?\e,C`\e(B)
 614  ("`e" ?\e,Ch\e(B)
 615  ("`i" ?\e,Cl\e(B)
 616  ("`o" ?\e,Cr\e(B)
 617  ("`u" ?\e,Cy\e(B)
 618  ("``" ?`)
 619  ("` " ?`)
 620  ("^A" ?\e,CB\e(B)
 621  ("^C" ?\e,CF\e(B)
 622  ("^E" ?\e,CJ\e(B)
 623  ("^G" ?\e,CX\e(B)
 624  ("^H" ?\e,C&\e(B)
 625  ("^I" ?\e,CN\e(B)
 626  ("^J" ?\e,C,\e(B)
 627  ("^O" ?\e,CT\e(B)
 628  ("^S" ?\e,C^\e(B)
 629  ("^U" ?\e,C[\e(B)
 630  ("^a" ?\e,Cb\e(B)
 631  ("^c" ?\e,Cf\e(B)
 632  ("^e" ?\e,Cj\e(B)
 633  ("^g" ?\e,Cx\e(B)
 634  ("^h" ?\e,C6\e(B)
 635  ("^i" ?\e,Cn\e(B)
 636  ("^j" ?\e,C<\e(B)
 637  ("^o" ?\e,Ct\e(B)
 638  ("^s" ?\e,C~\e(B)
 639  ("^u" ?\e,C{\e(B)
 640  ("^^" ?^)
 641  ("^ " ?^)
 642  ("\"A" ?\e,CD\e(B)
 643  ("\"E" ?\e,CK\e(B)
 644  ("\"I" ?\e,CO\e(B)
 645  ("\"O" ?\e,CV\e(B)
 646  ("\"U" ?\e,C\\e(B)
 647  ("\"a" ?\e,Cd\e(B)
 648  ("\"e" ?\e,Ck\e(B)
 649  ("\"i" ?\e,Co\e(B)
 650  ("\"o" ?\e,Cv\e(B)
 651  ("\"u" ?\e,C|\e(B)
 652  ("\"s" ?\e,C_\e(B)
 653  ("\"\"" ?\e,C(\e(B)
 654  ("\" " ?\")
 655  ("~A" ?\e,CC\e(B)
 656  ("~C" ?\e,CG\e(B)
 657  ("~D" ?\e,CP\e(B)
 658  ("~N" ?\e,CQ\e(B)
 659  ("~O" ?\e,CU\e(B)
 660  ("~a" ?\e,Cc\e(B)
 661  ("~c" ?\e,Cg\e(B)
 662  ("~d" ?\e,Cp\e(B)
 663  ("~n" ?\e,Cq\e(B)
 664  ("~o" ?\e,Cu\e(B)
 665  ("~$" ?\e,C%\e(B)
 666  ("~S" ?\e,C*\e(B)
 667  ("~s" ?\e,C:\e(B)
 668  ("~G" ?\e,C+\e(B)
 669  ("~g" ?\e,C;\e(B)
 670  ("~U" ?\e,C]\e(B)
 671  ("~u" ?\e,C}\e(B)
 672  ("~`" ?\e,C"\e(B)
 673  ("~~" ?\e,C8\e(B)
 674  ("~ " ?~)
 675  ("/C" ?\e,CE\e(B)
 676  ("/G" ?\e,CU\e(B)
 677  ("/H" ?\e,C!\e(B)
 678  ("/I" ?\e,C)\e(B)
 679  ("/Z" ?\e,C/\e(B)
 680  ("/c" ?\e,Ce\e(B)
 681  ("/g" ?\e,Cu\e(B)
 682  ("/h" ?\e,C1\e(B)
 683  ("/i" ?\e,C9\e(B)
 684  ("/z" ?\e,C?\e(B)
 685  ("/r" ?\e,C.\e(B)
 686  ("/." ?\e,C\x7f\e(B)
 687  ("/#" ?\e,C#\e(B)
 688  ("/$" ?\e,C$\e(B)
 689  ("//" ?\e,C0\e(B)
 690  ("/ " ?/)
 691  (".C" ?\e,CE\e(B)
 692  (".G" ?\e,CU\e(B)
 693  (".I" ?\e,C)\e(B)
 694  (".Z" ?\e,C/\e(B)
 695  (".c" ?\e,Ce\e(B)
 696  (".g" ?\e,Cu\e(B)
 697  (".z" ?\e,C?\e(B)
 698 )
 699
 700
 701 (quail-define-package
 702  "polish-slash" "Polish" "PL>" nil
 703  "Polish diacritics in Latin-2 encoding are input as `/[acelnosxzACELNOSXZ]'.
 704 For example, the character named `aogonek' is obtained by `/a'."
 705  nil t t t nil nil nil nil nil nil t)
 706
 707 (quail-define-rules
 708  ("/a" ?\e,B1\e(B)
 709  ("/c" ?\e,Bf\e(B)
 710  ("/e" ?\e,Bj\e(B)
 711  ("/l" ?\e,B3\e(B)
 712  ("/n" ?\e,Bq\e(B)
 713  ("/o" ?\e,Bs\e(B)
 714  ("/s" ?\e,B6\e(B)
 715  ("/x" ?\e,B<\e(B)
 716  ("/z" ?\e,B?\e(B)
 717  ("/A" ?\e,B!\e(B)
 718  ("/C" ?\e,BF\e(B)
 719  ("/E" ?\e,BJ\e(B)
 720  ("/L" ?\e,B#\e(B)
 721  ("/N" ?\e,BQ\e(B)
 722  ("/O" ?\e,BS\e(B)
 723  ("/S" ?\e,B&\e(B)
 724  ("/X" ?\e,B,\e(B)
 725  ("/Z" ?\e,B/\e(B))
 726
 727 (quail-define-package
 728  "latin-9-prefix" "Latin-9" "0>" t
 729  "Latin-9 characters input method with prefix modifiers
 730
 731     effect   | prefix | examples
 732  ------------+--------+----------
 733     acute    |   '    | 'a -> \e,ba\e(B
 734     grave    |   `    | `a -> \e,b`\e(B
 735   circumflex |   ^    | ^a -> \e,bb\e(B
 736   diaeresis  |   \"    | \"a -> \e,bd\e(B, \"Y -> \e,b>\e(B
 737     tilde    |   ~    | ~a -> \e,bc\e(B
 738     caron    |   ~    | ~z -> \e,b8\e(B
 739    cedilla   |   ~    | ~c -> \e,bg\e(B
 740     misc     | \" ~ /  | \"s -> \e,b_\e(B  ~d -> \e,bp\e(B  ~t -> \e,b~\e(B  /a -> \e,be\e(B  /e -> \e,bf\e(B  /o -> \e,bx\e(B
 741    symbol    |   ~    | ~> -> \e,b;\e(B  ~< -> \e,b+\e(B  ~! -> \e,b!\e(B  ~? -> \e,b?\e(B  ~~ -> \e,b8\e(B
 742              |   ~    | ~s -> \e,b'\e(B  ~e -> \e,b$\e(B  ~. -> \e,b7\e(B  ~$ -> \e,b#\e(B  ~u -> \e,b5\e(B
 743              |   ~    | ~- -> \e,b-\e(B  ~= -> \e,b/\e(B
 744    symbol    |  _ /   | _o -> \e,b:\e(B  _a -> \e,b*\e(B  // -> \e,b0\e(B  /\\ -> \e,bW\e(B  _y -> \e,b%\e(B
 745              |  _ /   | _: -> \e,bw\e(B  /c -> \e,b"\e(B  _o -> \e,b=\e(B  _O -> \e,b<\e(B  /p -> \e,b6\e(B
 746              |  _ /   | /= -> \e,b,\e(B
 747    symbol    |   ^    | ^r -> \e,b.\e(B  ^c -> \e,b)\e(B  ^1 -> \e,b9\e(B  ^2 -> \e,b2\e(B  ^3 -> \e,b3\e(B
 748 " nil t nil nil nil nil nil nil nil nil t)
 749
 750 (quail-define-rules
 751  ("'A" ?\e,bA\e(B)
 752  ("'E" ?\e,bI\e(B)
 753  ("'I" ?\e,bM\e(B)
 754  ("'O" ?\e,bS\e(B)
 755  ("'U" ?\e,bZ\e(B)
 756  ("'Y" ?\e,b]\e(B)
 757  ("'a" ?\e,ba\e(B)
 758  ("'e" ?\e,bi\e(B)
 759  ("'i" ?\e,bm\e(B)
 760  ("'o" ?\e,bs\e(B)
 761  ("'u" ?\e,bz\e(B)
 762  ("'y" ?\e,b}\e(B)
 763  ("' " ?')
 764  ("`A" ?\e,b@\e(B)
 765  ("`E" ?\e,bH\e(B)
 766  ("`I" ?\e,bL\e(B)
 767  ("`O" ?\e,bR\e(B)
 768  ("`U" ?\e,bY\e(B)
 769  ("`a" ?\e,b`\e(B)
 770  ("`e" ?\e,bh\e(B)
 771  ("`i" ?\e,bl\e(B)
 772  ("`o" ?\e,br\e(B)
 773  ("`u" ?\e,by\e(B)
 774  ("``" ?`)
 775  ("` " ?`)
 776  ("^A" ?\e,bB\e(B)
 777  ("^E" ?\e,bJ\e(B)
 778  ("^I" ?\e,bN\e(B)
 779  ("^O" ?\e,bT\e(B)
 780  ("^U" ?\e,b[\e(B)
 781  ("^a" ?\e,bb\e(B)
 782  ("^e" ?\e,bj\e(B)
 783  ("^i" ?\e,bn\e(B)
 784  ("^o" ?\e,bt\e(B)
 785  ("^u" ?\e,b{\e(B)
 786  ("^^" ?^)
 787  ("^ " ?^)
 788  ("\"A" ?\e,bD\e(B)
 789  ("\"E" ?\e,bK\e(B)
 790  ("\"I" ?\e,bO\e(B)
 791  ("\"O" ?\e,bV\e(B)
 792  ("\"U" ?\e,b\\e(B)
 793  ("\"a" ?\e,bd\e(B)
 794  ("\"e" ?\e,bk\e(B)
 795  ("\"i" ?\e,bo\e(B)
 796  ("\"o" ?\e,bv\e(B)
 797  ("\"s" ?\e,b_\e(B)
 798  ("\"u" ?\e,b|\e(B)
 799  ("\"y" ?\e,b\x7f\e(B)
 800  ("~s" ?\e,b(\e(B)
 801  ("\" " ?\")
 802  ("~A" ?\e,bC\e(B)
 803  ("~C" ?\e,bG\e(B)
 804  ("~D" ?\e,bP\e(B)
 805  ("~N" ?\e,bQ\e(B)
 806  ("~O" ?\e,bU\e(B)
 807  ("~S" ?\e,b&\e(B)
 808  ("~T" ?\e,b^\e(B)
 809  ("~Z" ?\e,b4\e(B)
 810  ("~a" ?\e,bc\e(B)
 811  ("~c" ?\e,bg\e(B)
 812  ("~d" ?\e,bp\e(B)
 813  ("~n" ?\e,bq\e(B)
 814  ("~o" ?\e,bu\e(B)
 815  ("~s" ?\e,b(\e(B)
 816  ("~t" ?\e,b~\e(B)
 817  ("~z" ?\e,b8\e(B)
 818  ("~>" ?\\e,b;\e(B)
 819  ("~<" ?\\e,b+\e(B)
 820  ("~!" ?\e,b!\e(B)
 821  ("~?" ?\e,b?\e(B)
 822  ("~ " ?~)
 823  ("/A" ?\e,bE\e(B)
 824  ("/E" ?\e,bF\e(B)
 825  ("/O" ?\e,bX\e(B)
 826  ("/a" ?\e,be\e(B)
 827  ("/e" ?\e,bf\e(B)
 828  ("/o" ?\e,bx\e(B)
 829  ("//" ?\e,b0\e(B)
 830  ("/ " ?/)
 831  ("_o" ?\e,b:\e(B)
 832  ("_a" ?\e,b*\e(B)
 833  ("_+" ?\e,b1\e(B)
 834  ("_y" ?\e,b%\e(B)
 835  ("_:" ?\e,bw\e(B)
 836  ("/c" ?\e,b"\e(B)
 837  ("/\\" ?\e,bW\e(B)
 838  ("_o" ?\e,b=\e(B)
 839  ("_O" ?\e,b<\e(B)
 840  ("\"Y" ?\e,b>\e(B)
 841  ("~s" ?\e,b'\e(B)
 842  ("/p" ?\e,b6\e(B)
 843  ;; Is this the best option for Euro entry?
 844  ("~e" ?\e,b$\e(B)
 845  ("~." ?\e,b7\e(B)
 846  ("~$" ?\e,b#\e(B)
 847  ("~u" ?\e,b5\e(B)
 848  ("^r" ?\e,b.\e(B)
 849  ("^c" ?\e,b)\e(B)
 850  ("^1" ?\e,b9\e(B)
 851  ("^2" ?\e,b2\e(B)
 852  ("^3" ?\e,b3\e(B)
 853  ("~-" ?\e,b-\e(B)
 854  ("~=" ?\e,b/\e(B)
 855  ("/=" ?\e,b,\e(B))
 856
 857 ;; Latin-8 was done by an Englishman -- Johnny Celt should take a
 858 ;; squint at it.
 859
 860 (quail-define-package
 861  "latin-8-prefix" "Latin-8" "8>" t
 862  "Latin-8 characters input method with prefix modifiers
 863
 864     effect   | prefix | examples
 865  ------------+--------+----------
 866     acute    |   '    | 'a -> \e,_a\e(B
 867     grave    |   `    | `a -> \e,_`\e(B
 868   circumflex |   ^    | ^w -> \e,_p\e(B
 869   diaeresis  |   \"    | \"a -> \e,_d\e(B
 870   dot above  |   .    | .b -> \e,_"\e(B
 871     tilde    |   ~    | ~a -> \e,_c\e(B
 872    cedilla   |   ~    | ~c -> \e,_g\e(B
 873     misc     | \" ~ /  | \"s -> \e,__\e(B   /a -> \e,_e\e(B  /e -> \e,_f\e(B  /o -> \e,_x\e(B
 874              |   ~    | ~s -> \e,_'\e(B  ~$ -> \e,_#\e(B  ~p -> \e,_6\e(B
 875    symbol    |   ^    | ^r -> \e,_.\e(B  ^c -> \e,_)\e(B
 876 " nil t nil nil nil nil nil nil nil nil t)
 877
 878 ;; Basically following Latin-1 plus dottiness from Latin-3.
 879 (quail-define-rules
 880  (".B" ?\e,_!\e(B)
 881  (".b" ?\e,_"\e(B)
 882  (".c" ?\e,_%\e(B)
 883  (".C" ?\e,_$\e(B)
 884  (".D" ?\e,_&\e(B)
 885  (".d" ?\e,_+\e(B)
 886  (".f" ?\e,_1\e(B)
 887  (".F" ?\e,_0\e(B)
 888  (".g" ?\e,_3\e(B)
 889  (".G" ?\e,_2\e(B)
 890  (".m" ?\e,_5\e(B)
 891  (".M" ?\e,_4\e(B)
 892  (".p" ?\e,_9\e(B)
 893  (".P" ?\e,_7\e(B)
 894  (".s" ?\e,_?\e(B)
 895  (".S" ?\e,_;\e(B)
 896  (".t" ?\e,_w\e(B)
 897  (".T" ?\e,_W\e(B)
 898  ("'A" ?\e,_A\e(B)
 899  ("'E" ?\e,_I\e(B)
 900  ("'I" ?\e,_M\e(B)
 901  ("'O" ?\e,_S\e(B)
 902  ("'U" ?\e,_Z\e(B)
 903  ("'Y" ?\e,_]\e(B)
 904  ("'W" ?\e,_*\e(B)
 905  ("'a" ?\e,_a\e(B)
 906  ("'e" ?\e,_i\e(B)
 907  ("'i" ?\e,_m\e(B)
 908  ("'o" ?\e,_s\e(B)
 909  ("'u" ?\e,_z\e(B)
 910  ("'w" ?\e,_:\e(B)
 911  ("'y" ?\e,_}\e(B)
 912  ("' " ?')
 913  ("`A" ?\e,_@\e(B)
 914  ("`E" ?\e,_H\e(B)
 915  ("`I" ?\e,_L\e(B)
 916  ("`O" ?\e,_R\e(B)
 917  ("`U" ?\e,_Y\e(B)
 918  ("`W" ?\e,_(\e(B)
 919  ("`Y" ?\e,_,\e(B)
 920  ("`a" ?\e,_`\e(B)
 921  ("`e" ?\e,_h\e(B)
 922  ("`i" ?\e,_l\e(B)
 923  ("`o" ?\e,_r\e(B)
 924  ("`u" ?\e,_y\e(B)
 925  ("`w" ?\e,_8\e(B)
 926  ("`y" ?\e,_<\e(B)
 927  ("``" ?`)
 928  ("` " ?`)
 929  ("^A" ?\e,_B\e(B)
 930  ("^E" ?\e,_J\e(B)
 931  ("^I" ?\e,_N\e(B)
 932  ("^O" ?\e,_T\e(B)
 933  ("^U" ?\e,_[\e(B)
 934  ("^a" ?\e,_b\e(B)
 935  ("^e" ?\e,_j\e(B)
 936  ("^i" ?\e,_n\e(B)
 937  ("^o" ?\e,_t\e(B)
 938  ("^u" ?\e,_{\e(B)
 939  ("^w" ?\e,_p\e(B)
 940  ("^W" ?\e,_P\e(B)
 941  ("^y" ?\e,_~\e(B)
 942  ("^Y" ?\e,_^\e(B)
 943  ("^^" ?^)
 944  ("^ " ?^)
 945  ("\"A" ?\e,_D\e(B)
 946  ("\"E" ?\e,_K\e(B)
 947  ("\"I" ?\e,_O\e(B)
 948  ("\"O" ?\e,_V\e(B)
 949  ("\"U" ?\e,_\\e(B)
 950  ("\"a" ?\e,_d\e(B)
 951  ("\"e" ?\e,_k\e(B)
 952  ("\"i" ?\e,_o\e(B)
 953  ("\"o" ?\e,_v\e(B)
 954  ("\"s" ?\e,__\e(B)
 955  ("\"u" ?\e,_|\e(B)
 956  ("\"w" ?\e,_>\e(B)
 957  ("\"W" ?\e,_=\e(B)
 958  ("\"y" ?\e,_\x7f\e(B)
 959  ("\"Y" ?\e,_/\e(B)
 960  ("\" " ?\")
 961  ("~A" ?\e,_C\e(B)
 962  ("~C" ?\e,_G\e(B)
 963  ("~N" ?\e,_Q\e(B)
 964  ("~O" ?\e,_U\e(B)
 965  ("~a" ?\e,_c\e(B)
 966  ("~c" ?\e,_g\e(B)
 967  ("~n" ?\e,_q\e(B)
 968  ("~o" ?\e,_u\e(B)
 969  ("~ " ?~)
 970  ("/A" ?\e,_E\e(B)
 971  ("/E" ?\e,_F\e(B)
 972  ("/O" ?\e,_X\e(B)
 973  ("/a" ?\e,_e\e(B)
 974  ("/e" ?\e,_f\e(B)
 975  ("/o" ?\e,_x\e(B)
 976  ("/ " ?/)
 977  ("~p" ?\e,_6\e(B)
 978  ("~s" ?\e,_'\e(B)
 979  ("~$" ?\e,_#\e(B)
 980  ("^r" ?\e,_.\e(B)
 981  ("^c" ?\e,_)\e(B))