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
   6 ;; Keywords: mule, multilingual, latin, input method
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  24
  25 ;;; Commentary:
  26
  27 ;; All key translation maps are copied from iso-acc.el.
  28
  29 ;;; Code:
  30
  31 (require 'quail)
  32
  33 (quail-define-package
  34  "latin-1-prefix" "Latin-1" "1>" t
  35  "Latin-1 characters input method with prefix modifiers
  36
  37     effect   | prefix | examples
  38  ------------+--------+----------
  39     acute    |   '    | 'a -> \e,Aa\e(B, '' -> \e,A4\e(B
  40     grave    |   `    | `a -> \e,A`\e(B
  41   circumflex |   ^    | ^a -> \e,Ab\e(B
  42   diaeresis  |   \"    | \"a -> \e,Ad\e(B   \"\" -> \e,A(\e(B
  43     tilde    |   ~    | ~a -> \e,Ac\e(B
  44    cedilla   |   ~    | ~c -> \e,Ag\e(B
  45     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
  46    symbol    |   ~    | ~> -> \e,A;\e(B   ~< -> \e,A+\e(B   ~! -> \e,A!\e(B   ~? -> \e,A?\e(B   ~~ -> \e,A8\e(B
  47    symbol    |  _ /   | _o -> \e,A:\e(B   _a -> \e,A*\e(B   // -> \e,A0\e(B
  48 " nil t nil nil nil nil nil nil nil nil t)
  49
  50 (quail-define-rules
  51  ("'A" ?\e,AA\e(B)
  52  ("'E" ?\e,AI\e(B)
  53  ("'I" ?\e,AM\e(B)
  54  ("'O" ?\e,AS\e(B)
  55  ("'U" ?\e,AZ\e(B)
  56  ("'Y" ?\e,A]\e(B)
  57  ("'a" ?\e,Aa\e(B)
  58  ("'e" ?\e,Ai\e(B)
  59  ("'i" ?\e,Am\e(B)
  60  ("'o" ?\e,As\e(B)
  61  ("'u" ?\e,Az\e(B)
  62  ("'y" ?\e,A}\e(B)
  63  ("''" ?\e,A4\e(B)
  64  ("' " ?')
  65  ("`A" ?\e,A@\e(B)
  66  ("`E" ?\e,AH\e(B)
  67  ("`I" ?\e,AL\e(B)
  68  ("`O" ?\e,AR\e(B)
  69  ("`U" ?\e,AY\e(B)
  70  ("`a" ?\e,A`\e(B)
  71  ("`e" ?\e,Ah\e(B)
  72  ("`i" ?\e,Al\e(B)
  73  ("`o" ?\e,Ar\e(B)
  74  ("`u" ?\e,Ay\e(B)
  75  ("``" ?`)
  76  ("` " ?`)
  77  ("^A" ?\e,AB\e(B)
  78  ("^E" ?\e,AJ\e(B)
  79  ("^I" ?\e,AN\e(B)
  80  ("^O" ?\e,AT\e(B)
  81  ("^U" ?\e,A[\e(B)
  82  ("^a" ?\e,Ab\e(B)
  83  ("^e" ?\e,Aj\e(B)
  84  ("^i" ?\e,An\e(B)
  85  ("^o" ?\e,At\e(B)
  86  ("^u" ?\e,A{\e(B)
  87  ("^^" ?^)
  88  ("^ " ?^)
  89  ("\"A" ?\e,AD\e(B)
  90  ("\"E" ?\e,AK\e(B)
  91  ("\"I" ?\e,AO\e(B)
  92  ("\"O" ?\e,AV\e(B)
  93  ("\"U" ?\e,A\\e(B)
  94  ("\"a" ?\e,Ad\e(B)
  95  ("\"e" ?\e,Ak\e(B)
  96  ("\"i" ?\e,Ao\e(B)
  97  ("\"o" ?\e,Av\e(B)
  98  ("\"s" ?\e,A_\e(B)
  99  ("\"u" ?\e,A|\e(B)
 100  ("\"y" ?\e,A\7f\e(B)
 101  ("\"\"" ?\e,A(\e(B)
 102  ("\" " ?\")
 103  ("~A" ?\e,AC\e(B)
 104  ("~C" ?\e,AG\e(B)
 105  ("~D" ?\e,AP\e(B)
 106  ("~N" ?\e,AQ\e(B)
 107  ("~O" ?\e,AU\e(B)
 108  ("~T" ?\e,A^\e(B)
 109  ("~a" ?\e,Ac\e(B)
 110  ("~c" ?\e,Ag\e(B)
 111  ("~d" ?\e,Ap\e(B)
 112  ("~n" ?\e,Aq\e(B)
 113  ("~o" ?\e,Au\e(B)
 114  ("~t" ?\e,A~\e(B)
 115  ("~>" ?\\e,A;\e(B)
 116  ("~<" ?\\e,A+\e(B)
 117  ("~!" ?\e,A!\e(B)
 118  ("~?" ?\e,A?\e(B)
 119  ("~~" ?\e,A8\e(B)
 120  ("~ " ?~)
 121  ("/A" ?\e,AE\e(B)
 122  ("/E" ?\e,AF\e(B)
 123  ("/O" ?\e,AX\e(B)
 124  ("/a" ?\e,Ae\e(B)
 125  ("/e" ?\e,Af\e(B)
 126  ("/o" ?\e,Ax\e(B)
 127  ("//" ?\e,A0\e(B)
 128  ("/ " ?/)
 129  ("_o" ?\e,A:\e(B)
 130  ("_a" ?\e,A*\e(B)
 131 )
 132
 133 (quail-define-package
 134  "catalan-prefix" "Latin-1" "CA>" t
 135  "Catalan and Spanish input method with prefix modifiers
 136
 137     effect   | prefix | examples
 138  ------------+--------+----------
 139     acute    |   '    | 'a -> \e,Aa\e(B   '' -> \e,A4\e(B
 140     grave    |   `    | `a -> \e,A`\e(B
 141   diaeresis  |   \"    | \"i -> \e,Ao\e(B   \"\" -> \e,A(\e(B
 142     tilde    |   ~    | ~n -> \e,Aq\e(B
 143    cedilla   |   ~    | ~c -> \e,Ag\e(B
 144    symbol    |   ~    | ~> -> \e,A;\e(B   ~< -> \e,A+\e(B   ~! -> \e,A!\e(B   ~? -> \e,A?\e(B
 145 " nil t nil nil nil nil nil nil nil nil t)
 146
 147 (quail-define-rules
 148  ("'A" ?\e,AA\e(B)
 149  ("'E" ?\e,AI\e(B)
 150  ("'I" ?\e,AM\e(B)
 151  ("'O" ?\e,AS\e(B)
 152  ("'U" ?\e,AZ\e(B)
 153  ("'a" ?\e,Aa\e(B)
 154  ("'e" ?\e,Ai\e(B)
 155  ("'i" ?\e,Am\e(B)
 156  ("'o" ?\e,As\e(B)
 157  ("'u" ?\e,Az\e(B)
 158  ("' " ?')
 159  ("`A" ?\e,A@\e(B)
 160  ("`E" ?\e,AH\e(B)
 161  ("`O" ?\e,AR\e(B)
 162  ("`a" ?\e,A`\e(B)
 163  ("`e" ?\e,Ah\e(B)
 164  ("`o" ?\e,Ar\e(B)
 165  ("` " ?`)
 166  ("\"I" ?\e,AO\e(B)
 167  ("\"U" ?\e,A\\e(B)
 168  ("\"i" ?\e,Ao\e(B)
 169  ("\"u" ?\e,A|\e(B)
 170  ("\" " ?\")
 171  ("~C" ?\e,AG\e(B)
 172  ("~N" ?\e,AQ\e(B)
 173  ("~c" ?\e,Ag\e(B)
 174  ("~n" ?\e,Aq\e(B)
 175  ("~>" ?\\e,A;\e(B)
 176  ("~<" ?\\e,A+\e(B)
 177  ("~!" ?\e,A!\e(B)
 178  ("~?" ?\e,A?\e(B)
 179  ("~ " ?~)
 180 )
 181
 182 (quail-define-package
 183  "esperanto-prefix" "Latin-1" "EO>" t
 184  "Esperanto input method with prefix modifiers
 185 Key translation rules are:
 186  ^H -> ?\e,A&\e(B   ^J -> ?\e,A,\e(B   ^h -> ?\e,A6\e(B   ^j -> ?\e,A<\e(B   ^C -> ?\e,AF\e(B   ^G -> ?\e,AX\e(B,
 187  ^S -> ?\e,A^\e(B   ^c -> ?\e,Af\e(B   ^g -> ?\e,Ax\e(B   ^s -> ?\e,A~\e(B   ~U -> ?\e,A]\e(B   ~u -> ?\e,A}\e(B
 188 " nil t nil nil nil nil nil nil nil nil t)
 189
 190 (quail-define-rules
 191  ("^H" ?\e,A&\e(B)
 192  ("^J" ?\e,A,\e(B)
 193  ("^h" ?\e,A6\e(B)
 194  ("^j" ?\e,A<\e(B)
 195  ("^C" ?\e,AF\e(B)
 196  ("^G" ?\e,AX\e(B)
 197  ("^S" ?\e,A^\e(B)
 198  ("^c" ?\e,Af\e(B)
 199  ("^g" ?\e,Ax\e(B)
 200  ("^s" ?\e,A~\e(B)
 201  ("^^" ?^)
 202  ("^ " ?^)
 203  ("~U" ?\e,A]\e(B)
 204  ("~u" ?\e,A}\e(B)
 205  ("~ " ?~)
 206 )
 207
 208 (quail-define-package
 209  "french-prefix" "Latin-1" "FR>" t
 210  "French (Fran\e,Ag\e(Bais) input method with prefix modifiers
 211
 212     effect   | prefix | examples
 213  ------------+--------+----------
 214     acute    |   '    | 'e -> \e,Ai\e(B
 215     grave    |   `    | `a -> \e,A`\e(B
 216   circumflex |   ^    | ^a -> \e,Ab\e(B
 217   diaeresis  |   \"   | \"i -> \e,Ao\e(B
 218    cedilla   | ~ or , | ~c -> \e,Ag\e(B   ,c -> \e,Ag\e(B
 219    symbol    |   ~    | ~> -> \e,A;\e(B   ~< -> \e,A+\e(B
 220 " nil t nil nil nil nil nil nil nil nil t)
 221
 222 (quail-define-rules
 223  ("'E" ?\e,AI\e(B)
 224  ("'C" ?\e,AG\e(B)
 225  ("'e" ?\e,Ai\e(B)
 226  ("'c" ?\e,Ag\e(B)
 227  ("' " ?')
 228  ("`A" ?\e,A@\e(B)
 229  ("`E" ?\e,AH\e(B)
 230  ("`U" ?\e,AY\e(B)
 231  ("`a" ?\e,A`\e(B)
 232  ("`e" ?\e,Ah\e(B)
 233  ("`u" ?\e,Ay\e(B)
 234  ("` " ?`)
 235  ("^A" ?\e,AB\e(B)
 236  ("^E" ?\e,AJ\e(B)
 237  ("^I" ?\e,AN\e(B)
 238  ("^O" ?\e,AT\e(B)
 239  ("^U" ?\e,A[\e(B)
 240  ("^a" ?\e,Ab\e(B)
 241  ("^e" ?\e,Aj\e(B)
 242  ("^i" ?\e,An\e(B)
 243  ("^o" ?\e,At\e(B)
 244  ("^u" ?\e,A{\e(B)
 245  ("^ " ?^)
 246  ("\"E" ?\e,AK\e(B)
 247  ("\"I" ?\e,AO\e(B)
 248  ("\"e" ?\e,Ak\e(B)
 249  ("\"i" ?\e,Ao\e(B)
 250  ("\" " ?\")
 251  ("~<" ?\\e,A+\e(B)
 252  ("~>" ?\\e,A;\e(B)
 253  ("~C" ?\e,AG\e(B)
 254  ("~c" ?\e,Ag\e(B)
 255  ("~," ?,)
 256  (",C" ?\e,AG\e(B)
 257  (",c" ?\e,Ag\e(B)
 258  (", " ?~)
 259 )
 260
 261 (quail-define-package
 262  "german-prefix" "Latin-1" "DE>" t
 263  "German (Deutsch) input method with prefix modifiers
 264 Key translation rules are:
 265  \"A -> \e,AD\e(B ->   \"O -> \e,AV\e(B   \"U -> \e,A\\e(B   \"s -> ?\e,A_\e(B
 266 " nil t nil nil nil nil nil nil nil nil t)
 267
 268 (quail-define-rules
 269  ("\"A" ?\e,AD\e(B)
 270  ("\"O" ?\e,AV\e(B)
 271  ("\"U" ?\e,A\\e(B)
 272  ("\"a" ?\e,Ad\e(B)
 273  ("\"o" ?\e,Av\e(B)
 274  ("\"u" ?\e,A|\e(B)
 275  ("\"s" ?\e,A_\e(B)
 276  ("\" " ?\")
 277 )
 278
 279 (quail-define-package
 280  "irish-prefix" "Latin-1" "GA>" t
 281  "Irish input method with prefix modifiers
 282 Key translation rules are:
 283  '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
 284 " nil t nil nil nil nil nil nil nil nil t)
 285
 286 (quail-define-rules
 287  ("'A" ?\e,AA\e(B)
 288  ("'E" ?\e,AI\e(B)
 289  ("'I" ?\e,AM\e(B)
 290  ("'O" ?\e,AS\e(B)
 291  ("'U" ?\e,AZ\e(B)
 292  ("'a" ?\e,Aa\e(B)
 293  ("'e" ?\e,Ai\e(B)
 294  ("'i" ?\e,Am\e(B)
 295  ("'o" ?\e,As\e(B)
 296  ("'u" ?\e,Az\e(B)
 297  ("' " ?')
 298 )
 299
 300 (quail-define-package
 301  "portuguese-prefix" "Latin-1" "PT>" t
 302  "Portuguese input method with prefix modifiers
 303
 304     effect   | prefix | examples
 305  ------------+--------+----------
 306     acute    |   '    | 'a -> \e,Aa\e(B   '' -> \e,A4\e(B
 307     grave    |   `    | `a -> \e,A`\e(B
 308   circumflex |   ^    | ^a -> \e,Ab\e(B
 309   diaeresis  |   \"    | \"u -> \e,A|\e(B
 310     tilde    |   ~    | ~a -> \e,Ac\e(B
 311    cedilla   | ' or , | 'c -> \e,Ag\e(B   ,c -> \e,Ag\e(B
 312 " nil t nil nil nil nil nil nil nil nil t)
 313
 314 (quail-define-rules
 315  ("'A" ?\e,AA\e(B)
 316  ("'E" ?\e,AI\e(B)
 317  ("'I" ?\e,AM\e(B)
 318  ("'O" ?\e,AS\e(B)
 319  ("'U" ?\e,AZ\e(B)
 320  ("'C" ?\e,AG\e(B)
 321  ("'a" ?\e,Aa\e(B)
 322  ("'e" ?\e,Ai\e(B)
 323  ("'i" ?\e,Am\e(B)
 324  ("'o" ?\e,As\e(B)
 325  ("'u" ?\e,Az\e(B)
 326  ("'c" ?\e,Ag\e(B)
 327  ("' " ?')
 328  ("`A" ?\e,A@\e(B)
 329  ("`a" ?\e,A`\e(B)
 330  ("` " ?`)
 331  ("^A" ?\e,AB\e(B)
 332  ("^E" ?\e,AJ\e(B)
 333  ("^O" ?\e,AT\e(B)
 334  ("^a" ?\e,Ab\e(B)
 335  ("^e" ?\e,Aj\e(B)
 336  ("^o" ?\e,At\e(B)
 337  ("^ " ?^)
 338  ("\"U" ?\e,A\\e(B)
 339  ("\"u" ?\e,A|\e(B)
 340  ("\" " ?\")
 341  ("~A" ?\e,AC\e(B)
 342  ("~O" ?\e,AU\e(B)
 343  ("~a" ?\e,Ac\e(B)
 344  ("~o" ?\e,Au\e(B)
 345  ("~ " ?~)
 346  (",c" ?\e,Ag\e(B)
 347  (",C" ?\e,AG\e(B)
 348  (",," ?,)
 349 )
 350
 351 (quail-define-package
 352  "spanish-prefix" "Latin-1" "ES>" t
 353  "Spanish (Espa\e,Aq\e(Bol) input method with prefix modifiers
 354
 355     effect   | prefix | examples
 356  ------------+--------+----------
 357     acute    |   '    | 'a -> \e,Aa\e(B
 358   diaeresis  |   \"    | \"u -> \e,A|\e(B
 359     tilde    |   ~    | ~n -> \e,Aq\e(B
 360    symbol    |   ~    | ~> -> \e,A;\e(B   ~< -> \e,A+\e(B   ~! -> \e,A!\e(B   ~? -> \e,A?\e(B
 361 " nil t nil nil nil nil nil nil nil nil t)
 362
 363 (quail-define-rules
 364  ("'A" ?\e,AA\e(B)
 365  ("'E" ?\e,AI\e(B)
 366  ("'I" ?\e,AM\e(B)
 367  ("'O" ?\e,AS\e(B)
 368  ("'U" ?\e,AZ\e(B)
 369  ("'a" ?\e,Aa\e(B)
 370  ("'e" ?\e,Ai\e(B)
 371  ("'i" ?\e,Am\e(B)
 372  ("'o" ?\e,As\e(B)
 373  ("'u" ?\e,Az\e(B)
 374  ("' " ?')
 375  ("\"U" ?\e,A\\e(B)
 376  ("\"u" ?\e,A|\e(B)
 377  ("\" " ?\")
 378  ("~N" ?\e,AQ\e(B)
 379  ("~n" ?\e,Aq\e(B)
 380  ("~>" ?\\e,A;\e(B)
 381  ("~<" ?\\e,A+\e(B)
 382  ("~!" ?\e,A!\e(B)
 383  ("~?" ?\e,A?\e(B)
 384  ("~ " ?~)
 385 )
 386
 387 (quail-define-package
 388  "latin-2-prefix" "Latin-2" "2>" t
 389  "Latin-2 characters input method with prefix modifiers
 390
 391     effect   | prefix | examples
 392  ------------+--------+----------
 393     acute    |   '    | 'a -> \e,Ba\e(B   '' -> ?\e,B4\e(B
 394   circumflex |   ^    | ^a -> \e,Bb\e(B
 395   diaeresis  |   \"    | \"a -> \e,Bd\e(B   \"\" -> \e,B(\e(B
 396     breve    |   ~    | ~a -> \e,Bc\e(B
 397     caron    |   ~    | ~c -> \e,Bh\e(B
 398    cedilla   |   `    | `c -> \e,Bg\e(B   `e -> ?\e,Bj\e(B
 399     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
 400    symbol    |   ~    | `. -> \e,B\7f\e(B   ~~ -> \e,B"\e(B   ~. -> ?\e,B8\e(B
 401 " nil t nil nil nil nil nil nil nil nil t)
 402
 403 (quail-define-rules
 404  ("'A" ?\e,BA\e(B)
 405  ("'C" ?\e,BF\e(B)
 406  ("'D" ?\e,BP\e(B)
 407  ("'E" ?\e,BI\e(B)
 408  ("'I" ?\e,BM\e(B)
 409  ("'L" ?\e,BE\e(B)
 410  ("'N" ?\e,BQ\e(B)
 411  ("'O" ?\e,BS\e(B)
 412  ("'R" ?\e,B@\e(B)
 413  ("'S" ?\e,B&\e(B)
 414  ("'U" ?\e,BZ\e(B)
 415  ("'Y" ?\e,B]\e(B)
 416  ("'Z" ?\e,B,\e(B)
 417  ("'a" ?\e,Ba\e(B)
 418  ("'c" ?\e,Bf\e(B)
 419  ("'d" ?\e,Bp\e(B)
 420  ("'e" ?\e,Bi\e(B)
 421  ("'i" ?\e,Bm\e(B)
 422  ("'l" ?\e,Be\e(B)
 423  ("'n" ?\e,Bq\e(B)
 424  ("'o" ?\e,Bs\e(B)
 425  ("'r" ?\e,B`\e(B)
 426  ("'s" ?\e,B6\e(B)
 427  ("'u" ?\e,Bz\e(B)
 428  ("'y" ?\e,B}\e(B)
 429  ("'z" ?\e,B<\e(B)
 430  ("''" ?\e,B4\e(B)
 431  ("' " ?')
 432  ("`A" ?\e,B!\e(B)
 433  ("`C" ?\e,BG\e(B)
 434  ("`E" ?\e,BJ\e(B)
 435  ("`L" ?\e,B#\e(B)
 436  ("`S" ?\e,B*\e(B)
 437  ("`T" ?\e,B^\e(B)
 438  ("`Z" ?\e,B/\e(B)
 439  ("`a" ?\e,B1\e(B)
 440  ("`l" ?\e,B3\e(B)
 441  ("`c" ?\e,Bg\e(B)
 442  ("`e" ?\e,Bj\e(B)
 443  ("`s" ?\e,B:\e(B)
 444  ("`t" ?\e,B~\e(B)
 445  ("`z" ?\e,B?\e(B)
 446  ("``" ?\e,B*\e(B)
 447  ("`." ?\e,B\7f\e(B)
 448  ("` " ?`)
 449  ("^A" ?\e,BB\e(B)
 450  ("^I" ?\e,BN\e(B)
 451  ("^O" ?\e,BT\e(B)
 452  ("^a" ?\e,Bb\e(B)
 453  ("^i" ?\e,Bn\e(B)
 454  ("^o" ?\e,Bt\e(B)
 455  ("^^" ?^)
 456  ("^ " ?^)
 457  ("\"A" ?\e,BD\e(B)
 458  ("\"E" ?\e,BK\e(B)
 459  ("\"O" ?\e,BV\e(B)
 460  ("\"U" ?\e,B\\e(B)
 461  ("\"a" ?\e,Bd\e(B)
 462  ("\"e" ?\e,Bk\e(B)
 463  ("\"o" ?\e,Bv\e(B)
 464  ("\"s" ?\e,B_\e(B)
 465  ("\"u" ?\e,B|\e(B)
 466  ("\"\"" ?\e,B(\e(B)
 467  ("\" " ?\")
 468  ("~A" ?\e,BC\e(B)
 469  ("~C" ?\e,BH\e(B)
 470  ("~D" ?\e,BO\e(B)
 471  ("~L" ?\e,B%\e(B)
 472  ("~N" ?\e,BR\e(B)
 473  ("~O" ?\e,BU\e(B)
 474  ("~R" ?\e,BX\e(B)
 475  ("~S" ?\e,B)\e(B)
 476  ("~T" ?\e,B+\e(B)
 477  ("~U" ?\e,B[\e(B)
 478  ("~Z" ?\e,B.\e(B)
 479  ("~a" ?\e,Bc\e(B)
 480  ("~c" ?\e,Bh\e(B)
 481  ("~d" ?\e,Bo\e(B)
 482  ("~l" ?\e,B5\e(B)
 483  ("~n" ?\e,Br\e(B)
 484  ("~o" ?\e,Bu\e(B)
 485  ("~r" ?\e,Bx\e(B)
 486  ("~s" ?\e,B9\e(B)
 487  ("~t" ?\e,B;\e(B)
 488  ("~u" ?\e,B{\e(B)
 489  ("~z" ?\e,B>\e(B)
 490  ("~v" ?\e,B"\e(B)
 491  ("~~" ?\e,B"\e(B)
 492  ("~." ?\e,B8\e(B)
 493  ("~ " ?~)
 494 )
 495
 496 (quail-define-package
 497  "latin-3-prefix" "Latin-3" "3>" t
 498  "Latin-3 characters input method with prefix modifiers
 499
 500     effect   | prefix | examples
 501  ------------+--------+----------
 502     acute    |   '    | 'a -> \e,Ca\e(B   '' -> ?\e,C4\e(B
 503     grave    |   `    | `a -> \e,C`\e(B
 504   circumflex |   ^    | ^a -> \e,Cb\e(B
 505   diaeresis  |   \"    | \"a -> \e,Cd\e(B   \"\" -> \e,C(\e(B
 506    cedilla   |   ~    | ~c -> \e,Cg\e(B   ~s -> \e,C:\e(B   ~~ -> \e,C8\e(B
 507   dot above  | ~ / .  | ~o -> \e,Cu\e(B   /o -> \e,Cu\e(B   .o -> \e,Cu\e(B
 508     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
 509    symbol    |   ~    | ~` -> \e,C"\e(B   /# -> \e,C#\e(B   /$ -> \e,C$\e(B   // -> \e,C0\e(B
 510 " nil t nil nil nil nil nil nil nil nil t)
 511
 512 (quail-define-rules
 513  ("'A" ?\e,CA\e(B)
 514  ("'E" ?\e,CI\e(B)
 515  ("'I" ?\e,CM\e(B)
 516  ("'O" ?\e,CS\e(B)
 517  ("'U" ?\e,CZ\e(B)
 518  ("'a" ?\e,Ca\e(B)
 519  ("'e" ?\e,Ci\e(B)
 520  ("'i" ?\e,Cm\e(B)
 521  ("'o" ?\e,Cs\e(B)
 522  ("'u" ?\e,Cz\e(B)
 523  ("''" ?\e,C4\e(B)
 524  ("' " ?')
 525  ("`A" ?\e,C@\e(B)
 526  ("`E" ?\e,CH\e(B)
 527  ("`I" ?\e,CL\e(B)
 528  ("`O" ?\e,CR\e(B)
 529  ("`U" ?\e,CY\e(B)
 530  ("`a" ?\e,C`\e(B)
 531  ("`e" ?\e,Ch\e(B)
 532  ("`i" ?\e,Cl\e(B)
 533  ("`o" ?\e,Cr\e(B)
 534  ("`u" ?\e,Cy\e(B)
 535  ("``" ?`)
 536  ("` " ?`)
 537  ("^A" ?\e,CB\e(B)
 538  ("^C" ?\e,CF\e(B)
 539  ("^E" ?\e,CJ\e(B)
 540  ("^G" ?\e,CX\e(B)
 541  ("^H" ?\e,C&\e(B)
 542  ("^I" ?\e,CN\e(B)
 543  ("^J" ?\e,C,\e(B)
 544  ("^O" ?\e,CT\e(B)
 545  ("^S" ?\e,C^\e(B)
 546  ("^U" ?\e,C[\e(B)
 547  ("^a" ?\e,Cb\e(B)
 548  ("^c" ?\e,Cf\e(B)
 549  ("^e" ?\e,Cj\e(B)
 550  ("^g" ?\e,Cx\e(B)
 551  ("^h" ?\e,C6\e(B)
 552  ("^i" ?\e,Cn\e(B)
 553  ("^j" ?\e,C<\e(B)
 554  ("^o" ?\e,Ct\e(B)
 555  ("^s" ?\e,C~\e(B)
 556  ("^u" ?\e,C{\e(B)
 557  ("^^" ?^)
 558  ("^ " ?^)
 559  ("\"A" ?\e,CD\e(B)
 560  ("\"E" ?\e,CK\e(B)
 561  ("\"I" ?\e,CO\e(B)
 562  ("\"O" ?\e,CV\e(B)
 563  ("\"U" ?\e,C\\e(B)
 564  ("\"a" ?\e,Cd\e(B)
 565  ("\"e" ?\e,Ck\e(B)
 566  ("\"i" ?\e,Co\e(B)
 567  ("\"o" ?\e,Cv\e(B)
 568  ("\"u" ?\e,C|\e(B)
 569  ("\"s" ?\e,C_\e(B)
 570  ("\"\"" ?\e,C(\e(B)
 571  ("\" " ?\")
 572  ("~A" ?\e,CC\e(B)
 573  ("~C" ?\e,CG\e(B)
 574  ("~D" ?\e,CP\e(B)
 575  ("~N" ?\e,CQ\e(B)
 576  ("~O" ?\e,CU\e(B)
 577  ("~a" ?\e,Cc\e(B)
 578  ("~c" ?\e,Cg\e(B)
 579  ("~d" ?\e,Cp\e(B)
 580  ("~n" ?\e,Cq\e(B)
 581  ("~o" ?\e,Cu\e(B)
 582  ("~$" ?\e,C%\e(B)
 583  ("~S" ?\e,C*\e(B)
 584  ("~s" ?\e,C:\e(B)
 585  ("~G" ?\e,C+\e(B)
 586  ("~g" ?\e,C;\e(B)
 587  ("~U" ?\e,C]\e(B)
 588  ("~u" ?\e,C}\e(B)
 589  ("~`" ?\e,C"\e(B)
 590  ("~~" ?\e,C8\e(B)
 591  ("~ " ?~)
 592  ("/C" ?\e,CE\e(B)
 593  ("/G" ?\e,CU\e(B)
 594  ("/H" ?\e,C!\e(B)
 595  ("/I" ?\e,C)\e(B)
 596  ("/Z" ?\e,C/\e(B)
 597  ("/c" ?\e,Ce\e(B)
 598  ("/g" ?\e,Cu\e(B)
 599  ("/h" ?\e,C1\e(B)
 600  ("/i" ?\e,C9\e(B)
 601  ("/z" ?\e,C?\e(B)
 602  ("/r" ?\e,C.\e(B)
 603  ("/." ?\e,C\7f\e(B)
 604  ("/#" ?\e,C#\e(B)
 605  ("/$" ?\e,C$\e(B)
 606  ("//" ?\e,C0\e(B)
 607  ("/ " ?/)
 608  (".C" ?\e,CE\e(B)
 609  (".G" ?\e,CU\e(B)
 610  (".I" ?\e,C)\e(B)
 611  (".Z" ?\e,C/\e(B)
 612  (".c" ?\e,Ce\e(B)
 613  (".g" ?\e,Cu\e(B)
 614  (".z" ?\e,C?\e(B)
 615 )