view leim/quail/latin-pre.el @ 91865:773399d06e32

*** empty log message ***
author Glenn Morris <rgm@gnu.org>
date Sat, 16 Feb 2008 03:31:19 +0000 (2008-02-16)
parents 606f2d163a64
children 4f1fd208c354
line wrap: on
line source
;;; latin-pre.el --- Quail packages for inputting various European characters  -*-coding: utf-8;-*-

;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
;;   2006, 2007, 2008
;;   Free Software Foundation, Inc.
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
;;   2006, 2007, 2008
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H14PRO021

;; Keywords: mule, multilingual, latin, input method

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;; Key translation maps were originally copied from iso-acc.el.
;; latin-1-prefix: extra special characters added, adapted from the vim
;;                 digraphs (from J.H.M.Dassen <jdassen@wi.leidenuniv.nl>)
;;                 by R.F. Smith <rsmith@xs4all.nl>
;;
;; polish-slash:
;; Author: W�odek Bzyl <matwb@univ.gda.pl>
;; Maintainer: W�odek Bzyl <matwb@univ.gda.pl>
;;
;; latin-[89]-prefix: Dave Love <fx@gnu.org>

;; You might make extra input sequences on the basis of the X
;; locale/*/Compose files (which have both prefix and postfix
;; sequences), but bear in mind that sequences which are logical in
;; that context may not be sensible when they're not signalled with
;; the Compose key.  An example is a double space for NBSP.

;;; Code:

(require 'quail)

(quail-define-package
 "latin-1-prefix" "Latin-1" "1>" t
 "Latin-1 characters input method with prefix modifiers

    effect   | prefix | examples
 ------------+--------+----------
    acute    |   '    | 'a -> 叩, '' -> 卒
    grave    |   `    | `a -> �
  circumflex |   ^    | ^a -> 但
  diaeresis  |   \"    | \"a -> 辰  \"\" -> 即
    tilde    |   ~    | ~a -> 達
   cedilla   |   ~    | ~c -> 巽
    misc     | \" ~ /  | \"s -> �  ~d -> 丹  ~t -> 綻  /a -> 奪  /e -> 脱  /o -> 淡
   symbol    |   ~    | ~> -> 損  ~< -> 束  ~! -> 臓  ~? -> 多  ~~ -> 存
             |   ~    | ~s -> 則  ~x -> 造  ~. -> 揃  ~$ -> 贈  ~u -> 袖
             |   ~    | ~p -> 其  ~- -> 足  ~= -> 俗  ~| -> 側
   symbol    |  _ /   | _o -> 尊  _a -> 捉  // -> 属  /\\ -> �  _y -> 促
             |  _ /   | _: -> 歎  /c -> 蔵  /2 -> 遜  /4 -> 村  /3 -> 他
             |  _ /   | /= -> 測
   symbol    |   ^    | ^r -> 速  ^c -> 息  ^1 -> 孫  ^2 -> 族  ^3 -> 続
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("'A" ?�)
 ("'E" ?�)
 ("'I" ?�)
 ("'O" ?�)
 ("'U" ?�)
 ("'Y" ?�)
 ("'a" ?叩)
 ("'e" ?辿)
 ("'i" ?鱈)
 ("'o" ?坦)
 ("'u" ?炭)
 ("'y" ?箪)
 ("''" ?卒)
 ("' " ?')
 ("`A" ?�)
 ("`E" ?�)
 ("`I" ?�)
 ("`O" ?�)
 ("`U" ?�)
 ("`a" ?�)
 ("`e" ?竪)
 ("`i" ?狸)
 ("`o" ?嘆)
 ("`u" ?湛)
 ("``" ?`)
 ("` " ?`)
 ("^A" ?�)
 ("^E" ?�)
 ("^I" ?�)
 ("^O" ?�)
 ("^U" ?�)
 ("^a" ?但)
 ("^e" ?棚)
 ("^i" ?樽)
 ("^o" ?担)
 ("^u" ?短)
 ("^^" ?^)
 ("^ " ?^)
 ("\"A" ?�)
 ("\"E" ?�)
 ("\"I" ?�)
 ("\"O" ?�)
 ("\"U" ?�)
 ("\"a" ?辰)
 ("\"e" ?谷)
 ("\"i" ?誰)
 ("\"o" ?旦)
 ("\"s" ?�)
 ("\"u" ?端)
 ("\"y" ?耽)
 ("\"\"" ?即)
 ("\" " ?\")
 ("~A" ?�)
 ("~C" ?�)
 ("~D" ?�)
 ("~N" ?�)
 ("~O" ?�)
 ("~T" ?�)
 ("~a" ?達)
 ("~c" ?巽)
 ("~d" ?丹)
 ("~n" ?単)
 ("~o" ?探)
 ("~t" ?綻)
 ("~>" ?\損)
 ("~<" ?\束)
 ("~!" ?臓)
 ("~?" ?多)
 ("~~" ?存)
 ("~ " ?~)
 ("/A" ?�)
 ("/E" ?�)
 ("/O" ?�)
 ("/a" ?奪)
 ("/e" ?脱)
 ("/o" ?淡)
 ("//" ?属)
 ("/ " ?/)
 ("_o" ?尊)
 ("_a" ?捉)
 ("_ " ?�)
;; Symbols added by Roland Smith <rsmith@xs4all.nl>
 ("_+" ?賊)
 ("_y" ?促)
 ("_:" ?歎)
 ("__" ?_)
 ("/c" ?蔵)
 ("/\\" ?�)
 ("/2" ?遜)
 ("/4" ?村)
 ("/3" ?他)
 ("~s" ?則)
 ("~p" ?其)
 ("~x" ?造)
 ("~." ?揃)
 ("~$" ?贈)
 ("~u" ?袖)
 ("^r" ?速)
 ("^c" ?息)
 ("^1" ?孫)
 ("^2" ?族)
 ("^3" ?続)
 ("~-" ?足)
 ("~|" ?側)
 ("/=" ?測)
 ("~=" ?俗)
)

(quail-define-package
 "catalan-prefix" "Latin-1" "CA>" t
 "Catalan and Spanish input method with prefix modifiers

    effect   | prefix | examples
 ------------+--------+----------
    acute    |   '    | 'a -> 叩   '' -> 卒
    grave    |   `    | `a -> �
  diaeresis  |   \"    | \"i -> 誰   \"\" -> 即
    tilde    |   ~    | ~n -> 単
   cedilla   |   ~    | ~c -> 巽
   symbol    |   ~    | ~> -> 損   ~< -> 束   ~! -> 臓   ~? -> 多
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("'A" ?�)
 ("'E" ?�)
 ("'I" ?�)
 ("'O" ?�)
 ("'U" ?�)
 ("'a" ?叩)
 ("'e" ?辿)
 ("'i" ?鱈)
 ("'o" ?坦)
 ("'u" ?炭)
 ("' " ?')
 ("`A" ?�)
 ("`E" ?�)
 ("`O" ?�)
 ("`a" ?�)
 ("`e" ?竪)
 ("`o" ?嘆)
 ("` " ?`)
 ("\"I" ?�)
 ("\"U" ?�)
 ("\"i" ?誰)
 ("\"u" ?端)
 ("\" " ?\")
 ("~C" ?�)
 ("~N" ?�)
 ("~c" ?巽)
 ("~n" ?単)
 ("~>" ?\損)
 ("~<" ?\束)
 ("~!" ?臓)
 ("~?" ?多)
 ("~ " ?~)
)

(quail-define-package
 "esperanto-prefix" "Latin-3" "EO>" t
 "Esperanto input method with prefix modifiers
Key translation rules are:
 ^H -> ?弔   ^J -> ?調   ^h -> ?張   ^j -> ?諜   ^C -> ?�   ^G -> ?�,
 ^S -> ?�   ^c -> ?�   ^g -> ?�   ^s -> ?�   ~U -> ?適   ~u -> ?鏑
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("^H" ?弔)
 ("^J" ?調)
 ("^h" ?張)
 ("^j" ?諜)
 ("^C" ?�)
 ("^G" ?�)
 ("^S" ?�)
 ("^c" ?�)
 ("^g" ?�)
 ("^s" ?�)
 ("^^" ?^)
 ("^ " ?^)
 ("~U" ?適)
 ("~u" ?鏑)
 ("~ " ?~)
)

(quail-define-package
 "french-prefix" "French" "FR>" t
 "French (Fran巽ais) input method with prefix modifiers

    effect   | prefix | examples
 ------------+--------+----------
    acute    |   '    | 'e -> 辿
    grave    |   `    | `a -> �
  circumflex |   ^    | ^a -> 但
  diaeresis  |   \"    | \"i -> 誰
   cedilla   | ~ or , | ~c -> 巽   ,c -> 巽
   symbol    |   ~    | ~> -> 損   ~< -> 束
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("'E" ?�)
 ("'C" ?�)
 ("'e" ?辿)
 ("'c" ?巽)
 ("' " ?')
 ("`A" ?�)
 ("`E" ?�)
 ("`U" ?�)
 ("`a" ?�)
 ("`e" ?竪)
 ("`u" ?湛)
 ("` " ?`)
 ("^A" ?�)
 ("^E" ?�)
 ("^I" ?�)
 ("^O" ?�)
 ("^U" ?�)
 ("^a" ?但)
 ("^e" ?棚)
 ("^i" ?樽)
 ("^o" ?担)
 ("^u" ?短)
 ("^ " ?^)
 ("\"E" ?�)
 ("\"I" ?�)
 ("\"e" ?谷)
 ("\"i" ?誰)
 ("\" " ?\")
 ("~<" ?\束)
 ("~>" ?\損)
 ("~C" ?�)
 ("~c" ?巽)
 ("~ " ?~)
 (",C" ?�)
 (",c" ?巽)
 (", " ?,)
)

(quail-define-package
 "romanian-prefix" "Romanian" "RO>" t
 "Romanian (rom但ne�te) input method with prefix modifiers

    effect   | prefix | examples
 ------------+--------+------------------
    tilde    |   ~    | ~a -> �
  circumflex |   ^    | ^a -> 但, ^i -> 樽
   cedilla   |   ,    | ,s -> �, ,t -> 釘
   ~         |   ~    | ~~ -> ~
   ^         |   ^    | ^^ -> ^
   ,         |   ,    | ,, -> ,
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("~A" ?�) ("~a" ?�)
 ("^A" ?�) ("^a" ?但)
 ("^I" ?�) ("^i" ?樽)
 (",S" ?�) (",s" ?�)
 (",T" ?鄭) (",t" ?釘)
 ("^^" ?^) ("~~" ?~) (",," ?,))

(quail-define-package
 "romanian-alt-prefix" "Romanian" "RO>" t
 "Alternative Romanian (rom但ne�te) input method with prefix modifiers

    effect   | prefix | examples
 ------------+--------+------------------
    tilde    |   \"    | \"a -> 但
  circumflex |   '    | 'a -> 但, 'i -> 樽
   cedilla   |   '    | 's -> �, 't -> 釘
   '         |   '    | '' -> '
   \"         |   \"    | \"\" -> \"
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("'A" ?�) ("'a" ?�)
 ("\"A" ?�) ("\"a" ?但)
 ("'I" ?�) ("'i" ?樽)
 ("'S" ?�) ("'s" ?�)
 ("'T" ?鄭) ("'t" ?釘)
 ("''" ?') ("\"\"" ?\"))

(quail-define-package
 "german-prefix" "German" "DE>" t
 "German (Deutsch) input method with prefix modifiers
Key translation rules are:
 \"A -> � ->   \"O -> �   \"U -> �   \"s -> �
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("\"A" ?�)
 ("\"O" ?�)
 ("\"U" ?�)
 ("\"a" ?辰)
 ("\"o" ?旦)
 ("\"u" ?端)
 ("\"s" ?�)
 ("\" " ?\")
)

(quail-define-package
 "irish-prefix" "Latin-1" "GA>" t
 "Irish input method with prefix modifiers
Key translation rules are:
 'A -> �   'E -> �   'I -> �   'O -> �   'U -> �
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("'A" ?�)
 ("'E" ?�)
 ("'I" ?�)
 ("'O" ?�)
 ("'U" ?�)
 ("'a" ?叩)
 ("'e" ?辿)
 ("'i" ?鱈)
 ("'o" ?坦)
 ("'u" ?炭)
 ("' " ?')
)

(quail-define-package
 "portuguese-prefix" "Latin-1" "PT>" t
 "Portuguese input method with prefix modifiers

    effect   | prefix | examples
 ------------+--------+----------
    acute    |   '    | 'a -> 叩   '' -> 卒
    grave    |   `    | `a -> �
  circumflex |   ^    | ^a -> 但
  diaeresis  |   \"    | \"u -> 端
    tilde    |   ~    | ~a -> 達
   cedilla   | ' or , | 'c -> 巽   ,c -> 巽
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("'A" ?�)
 ("'E" ?�)
 ("'I" ?�)
 ("'O" ?�)
 ("'U" ?�)
 ("'C" ?�)
 ("'a" ?叩)
 ("'e" ?辿)
 ("'i" ?鱈)
 ("'o" ?坦)
 ("'u" ?炭)
 ("'c" ?巽)
 ("' " ?')
 ("`A" ?�)
 ("`a" ?�)
 ("` " ?`)
 ("^A" ?�)
 ("^E" ?�)
 ("^O" ?�)
 ("^a" ?但)
 ("^e" ?棚)
 ("^o" ?担)
 ("^ " ?^)
 ("\"U" ?�)
 ("\"u" ?端)
 ("\" " ?\")
 ("~A" ?�)
 ("~O" ?�)
 ("~a" ?達)
 ("~o" ?探)
 ("~ " ?~)
 (",c" ?巽)
 (",C" ?�)
 (",," ?,)
)

(quail-define-package
 "spanish-prefix" "Spanish" "ES>" t
 "Spanish (Espa単ol) input method with prefix modifiers

    effect   | prefix | examples
 ------------+--------+----------
    acute    |   '    | 'a -> 叩
  diaeresis  |   \"    | \"u -> 端
    tilde    |   ~    | ~n -> 単
   symbol    |   ~    | ~> -> 損   ~< -> 束   ~! -> 臓   ~? -> 多
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("'A" ?�)
 ("'E" ?�)
 ("'I" ?�)
 ("'O" ?�)
 ("'U" ?�)
 ("'a" ?叩)
 ("'e" ?辿)
 ("'i" ?鱈)
 ("'o" ?坦)
 ("'u" ?炭)
 ("' " ?')
 ("\"U" ?�)
 ("\"u" ?端)
 ("\" " ?\")
 ("~N" ?�)
 ("~n" ?単)
 ("~>" ?\損)
 ("~<" ?\束)
 ("~!" ?臓)
 ("~?" ?多)
 ("~ " ?~)
)

(quail-define-package
 "latin-2-prefix" "Latin-2" "2>" t
 "Latin-2 characters input method with prefix modifiers

    effect   | prefix | examples
 ------------+--------+----------
    acute    |   '    | 'a -> 叩   '' -> ?卒
  circumflex |   ^    | ^a -> 但
  diaeresis  |   \"    | \"a -> 辰   \"\" -> 即
    breve    |   ~    | ~a -> �
    caron    |   ~    | ~c -> �
   cedilla   |   `    | `c -> 巽   `e -> ?�
    misc     | ' ` ~  | 'd -> �   `l -> �   `z -> 甜   ~o -> �   ~u -> 撤
   symbol    |   ~    | `. -> �   ~~ -> �   ~. -> ?存
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("'A" ?�)
 ("'C" ?�)
 ("'D" ?�)
 ("'E" ?�)
 ("'I" ?�)
 ("'L" ?長)
 ("'N" ?�)
 ("'O" ?�)
 ("'R" ?�)
 ("'S" ?�)
 ("'U" ?�)
 ("'Y" ?�)
 ("'Z" ?店)
 ("'a" ?叩)
 ("'c" ?�)
 ("'d" ?�)
 ("'e" ?辿)
 ("'i" ?鱈)
 ("'l" ?頂)
 ("'n" ?�)
 ("'o" ?坦)
 ("'r" ?�)
 ("'s" ?�)
 ("'u" ?炭)
 ("'y" ?箪)
 ("'z" ?添)
 ("''" ?卒)
 ("' " ?')
 ("`A" ?�)
 ("`C" ?�)
 ("`E" ?�)
 ("`L" ?�)
 ("`S" ?�)
 ("`T" ?鄭)
 ("`Z" ?纏)
 ("`a" ?�)
 ("`l" ?�)
 ("`c" ?巽)
 ("`e" ?�)
 ("`s" ?�)
 ("`t" ?釘)
 ("`z" ?甜)
 ("``" ?�)
 ("`." ?�)
 ("` " ?`)
 ("^A" ?�)
 ("^I" ?�)
 ("^O" ?�)
 ("^a" ?但)
 ("^i" ?樽)
 ("^o" ?担)
 ("^^" ?^)
 ("^ " ?^)
 ("\"A" ?�)
 ("\"E" ?�)
 ("\"O" ?�)
 ("\"U" ?�)
 ("\"a" ?辰)
 ("\"e" ?谷)
 ("\"o" ?旦)
 ("\"s" ?�)
 ("\"u" ?端)
 ("\"\"" ?即)
 ("\" " ?\")
 ("~A" ?�)
 ("~C" ?�)
 ("~D" ?�)
 ("~E" ?�)
 ("~L" ?捗)
 ("~N" ?�)
 ("~O" ?�)
 ("~R" ?�)
 ("~S" ?�)
 ("~T" ?鼎)
 ("~U" ?徹)
 ("~Z" ?貼)
 ("~a" ?�)
 ("~c" ?�)
 ("~d" ?�)
 ("~e" ?�)
 ("~l" ?直)
 ("~n" ?�)
 ("~o" ?�)
 ("~r" ?�)
 ("~s" ?邸)
 ("~t" ?泥)
 ("~u" ?撤)
 ("~z" ?転)
 ("~v" ?�)
 ("~~" ?�)
 ("~." ?存)
 ("~ " ?~)
)

(quail-define-package
 "latin-3-prefix" "Latin-3" "3>" t
 "Latin-3 characters input method with prefix modifiers

    effect   | prefix | examples
 ------------+--------+----------
    acute    |   '    | 'a -> 叩   '' -> ?卒
    grave    |   `    | `a -> �
  circumflex |   ^    | ^a -> 但
  diaeresis  |   \"    | \"a -> 辰   \"\" -> 即
   cedilla   |   ~    | ~c -> 巽   ~s -> �   ~~ -> 存
  dot above  |   / .  | /g -> 帖   .o -> 帖
    misc     | \" ~ /  | \"s -> �   ~g -> �   ~u -> 鏑   /h -> 徴   /i -> 脹
   symbol    |   ~    | ~` -> �   /# -> 贈   /$ -> 造   // -> 属
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("'A" ?�)
 ("'E" ?�)
 ("'I" ?�)
 ("'O" ?�)
 ("'U" ?�)
 ("'a" ?叩)
 ("'e" ?辿)
 ("'i" ?鱈)
 ("'o" ?坦)
 ("'u" ?炭)
 ("''" ?卒)
 ("' " ?')
 ("`A" ?�)
 ("`E" ?�)
 ("`I" ?�)
 ("`O" ?�)
 ("`U" ?�)
 ("`a" ?�)
 ("`e" ?竪)
 ("`i" ?狸)
 ("`o" ?嘆)
 ("`u" ?湛)
 ("``" ?`)
 ("` " ?`)
 ("^A" ?�)
 ("^C" ?�)
 ("^E" ?�)
 ("^G" ?�)
 ("^H" ?弔)
 ("^I" ?�)
 ("^J" ?調)
 ("^O" ?�)
 ("^S" ?�)
 ("^U" ?�)
 ("^a" ?但)
 ("^c" ?�)
 ("^e" ?棚)
 ("^g" ?�)
 ("^h" ?張)
 ("^i" ?樽)
 ("^j" ?諜)
 ("^o" ?担)
 ("^s" ?�)
 ("^u" ?短)
 ("^^" ?^)
 ("^ " ?^)
 ("\"A" ?�)
 ("\"E" ?�)
 ("\"I" ?�)
 ("\"O" ?�)
 ("\"U" ?�)
 ("\"a" ?辰)
 ("\"e" ?谷)
 ("\"i" ?誰)
 ("\"o" ?旦)
 ("\"u" ?端)
 ("\"s" ?�)
 ("\"\"" ?即)
 ("\" " ?\")
 ("~C" ?�)
 ("~N" ?�)
 ("~c" ?巽)
 ("~n" ?単)
 ("~S" ?�)
 ("~s" ?�)
 ("~G" ?�)
 ("~g" ?�)
 ("~U" ?適)
 ("~u" ?鏑)
 ("~`" ?�)
 ("~~" ?存)
 ("~ " ?~)
 ("/C" ?�)
 ("/G" ?�)
 ("/H" ?彫)
 ("/I" ?聴)
 ("/Z" ?纏)
 ("/c" ?�)
 ("/g" ?帖)
 ("/h" ?徴)
 ("/i" ?脹)
 ("/z" ?甜)
 ("/." ?�)
 ("/#" ?贈)
 ("/$" ?造)
 ("//" ?属)
 ("/ " ?/)
 (".C" ?�)
 (".G" ?�)
 (".I" ?聴)
 (".Z" ?纏)
 (".c" ?�)
 (".g" ?帖)
 (".z" ?甜)
)


(quail-define-package
 "polish-slash" "Polish" "PL>" nil
 "Polish diacritics and slash character are input as `/[acelnosxzACELNOSXZ/]'.
For example, the character named `aogonek' is obtained by `/a'."
 nil t t t nil nil nil nil nil nil t)

(quail-define-rules
 ("//" ?/)
 ("/a" ?�)
 ("/c" ?�)
 ("/e" ?�)
 ("/l" ?�)
 ("/n" ?�)
 ("/o" ?坦)
 ("/s" ?�)
 ("/x" ?添)
 ("/z" ?甜)
 ("/A" ?�)
 ("/C" ?�)
 ("/E" ?�)
 ("/L" ?�)
 ("/N" ?�)
 ("/O" ?�)
 ("/S" ?�)
 ("/X" ?店)
 ("/Z" ?纏))

(quail-define-package
 "latin-9-prefix" "Latin-9" "0>" t
 "Latin-9 characters input method with prefix modifiers

    effect   | prefix | examples
 ------------+--------+----------
    acute    |   '    | 'a -> 叩
    grave    |   `    | `a -> �
  circumflex |   ^    | ^a -> 但
  diaeresis  |   \"    | \"a -> 辰, \"Y -> 展
    tilde    |   ~    | ~a -> 達
    caron    |   ~    | ~z -> 転
   cedilla   |   ~    | ~c -> 巽
    misc     | \" ~ /  | \"s -> �  ~d -> 丹  ~t -> 綻  /a -> 奪  /e -> 脱  /o -> 淡
             | \" ~ /  | /o -> �
   symbol    |   ~    | ~> -> 損  ~< -> 束  ~! -> 臓  ~? -> 多  ~~ -> 転
             |   ~    | ~s -> 則  ~e -> ��  ~. -> 揃  ~$ -> 贈  ~u -> 袖
             |   ~    | ~- -> 足  ~= -> 俗
   symbol    |  _ /   | _o -> 尊  _a -> 捉  // -> 属  /\\ -> �  _y -> 促
             |  _ /   | _: -> 歎  /c -> 蔵  ~p -> 其
             |  _ /   | /= -> 測
   symbol    |   ^    | ^r -> 速  ^c -> 息  ^1 -> 孫  ^2 -> 族  ^3 -> 続  _a -> 捉
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("'A" ?�)
 ("'E" ?�)
 ("'I" ?�)
 ("'O" ?�)
 ("'U" ?�)
 ("'Y" ?�)
 ("'a" ?叩)
 ("'e" ?辿)
 ("'i" ?鱈)
 ("'o" ?坦)
 ("'u" ?炭)
 ("'y" ?箪)
 ("' " ?')
 ("`A" ?�)
 ("`E" ?�)
 ("`I" ?�)
 ("`O" ?�)
 ("`U" ?�)
 ("`a" ?�)
 ("`e" ?竪)
 ("`i" ?狸)
 ("`o" ?嘆)
 ("`u" ?湛)
 ("``" ?`)
 ("` " ?`)
 ("^A" ?�)
 ("^E" ?�)
 ("^I" ?�)
 ("^O" ?�)
 ("^U" ?�)
 ("^a" ?但)
 ("^e" ?棚)
 ("^i" ?樽)
 ("^o" ?担)
 ("^u" ?短)
 ("^^" ?^)
 ("^ " ?^)
 ("\"A" ?�)
 ("\"E" ?�)
 ("\"I" ?�)
 ("\"O" ?�)
 ("\"U" ?�)
 ("\"a" ?辰)
 ("\"e" ?谷)
 ("\"i" ?誰)
 ("\"o" ?旦)
 ("\"s" ?�)
 ("\"u" ?端)
 ("\"y" ?耽)
 ("\" " ?\")
 ("~A" ?�)
 ("~C" ?�)
 ("~D" ?�)
 ("~N" ?�)
 ("~O" ?�)
 ("~S" ?�)
 ("~T" ?�)
 ("~Z" ?貼)
 ("~a" ?達)
 ("~c" ?巽)
 ("~d" ?丹)
 ("~n" ?単)
 ("~o" ?探)
 ("~s" ?邸)
 ("~t" ?綻)
 ("~z" ?転)
 ("~>" ?\損)
 ("~<" ?\束)
 ("~!" ?臓)
 ("~?" ?多)
 ("~ " ?~)
 ("/A" ?�)
 ("/E" ?�)
 ("/O" ?�)
 ("/a" ?奪)
 ("/e" ?脱)
 ("/o" ?淡)
 ("//" ?属)
 ("/ " ?/)
 ("_o" ?尊)
 ("_a" ?捉)
 ("_+" ?賊)
 ("_y" ?促)
 ("_:" ?歎)
 ("_ " ?�)
 ("__" ?_)
 ("/c" ?蔵)
 ("/\\" ?�)
 ("/o" ?�)				; clash with 淡, but 脱 uses /
 ("/O" ?�)
 ("\"Y" ?展)
 ("~s" ?則)
 ("~p" ?其)
 ;; Is this the best option for Euro entry?
 ("~e" ?��)
 ("~." ?揃)
 ("~$" ?贈)
 ("~u" ?袖)
 ("^r" ?速)
 ("^c" ?息)
 ("^1" ?孫)
 ("^2" ?族)
 ("^3" ?続)
 ("~-" ?足)
 ("~=" ?俗)
 ("/=" ?測))

;; Latin-8 was done by an Englishman -- Johnny Celt should take a
;; squint at it.

(quail-define-package
 "latin-8-prefix" "Latin-8" "8>" t
 "Latin-8 characters input method with prefix modifiers

    effect   | prefix | examples
 ------------+--------+----------
    acute    |   '    | 'a -> 叩
    grave    |   `    | `a -> �
  circumflex |   ^    | ^w -> 典
  diaeresis  |   \"    | \"a -> 辰
  dot above  |   .    | .b -> 畍�
    tilde    |   ~    | ~a -> 達
   cedilla   |   ~    | ~c -> 巽
    misc     | \" ~ /  | \"s -> �   /a -> 奪  /e -> 脱  /o -> 淡
             |   ~    | ~s -> 則  ~$ -> 贈  ~p -> 其
   symbol    |   ^    | ^r -> 速  ^c -> 息
" nil t nil nil nil nil nil nil nil nil t)

;; Basically following Latin-1, plus dottiness from Latin-3.
(quail-define-rules
 (".B" ?畍�)
 (".b" ?畍�)
 (".c" ?�)
 (".C" ?�)
 (".D" ?畍�)
 (".d" ?畍�)
 (".f" ?畍�)
 (".F" ?畍�)
 (".g" ?帖)
 (".G" ?�)
 (".m" ?畊�)
 (".M" ?畊�)
 (".p" ?畊�)
 (".P" ?畊�)
 (".s" ?畊�)
 (".S" ?畊�)
 (".t" ?畊�)
 (".T" ?畊�)
 ("'A" ?�)
 ("'E" ?�)
 ("'I" ?�)
 ("'O" ?�)
 ("'U" ?�)
 ("'Y" ?�)
 ("'W" ?畉�)
 ("'a" ?叩)
 ("'e" ?辿)
 ("'i" ?鱈)
 ("'o" ?坦)
 ("'u" ?炭)
 ("'w" ?畉�)
 ("'y" ?箪)
 ("' " ?')
 ("`A" ?�)
 ("`E" ?�)
 ("`I" ?�)
 ("`O" ?�)
 ("`U" ?�)
 ("`W" ?畉�)
 ("`Y" ?畛�)
 ("`a" ?�)
 ("`e" ?竪)
 ("`i" ?狸)
 ("`o" ?嘆)
 ("`u" ?湛)
 ("`w" ?畉�)
 ("`y" ?畛�)
 ("``" ?`)
 ("` " ?`)
 ("^A" ?�)
 ("^E" ?�)
 ("^I" ?�)
 ("^O" ?�)
 ("^U" ?�)
 ("^a" ?但)
 ("^e" ?棚)
 ("^i" ?樽)
 ("^o" ?担)
 ("^u" ?短)
 ("^w" ?典)
 ("^W" ?鉄)
 ("^y" ?天)
 ("^Y" ?填)
 ("^^" ?^)
 ("^ " ?^)
 ("\"A" ?�)
 ("\"E" ?�)
 ("\"I" ?�)
 ("\"O" ?�)
 ("\"U" ?�)
 ("\"a" ?辰)
 ("\"e" ?谷)
 ("\"i" ?誰)
 ("\"o" ?旦)
 ("\"s" ?�)
 ("\"u" ?端)
 ("\"w" ?畉�)
 ("\"W" ?畉�)
 ("\"y" ?耽)
 ("\"Y" ?展)
 ("\" " ?\")
 ("~A" ?�)
 ("~C" ?�)
 ("~N" ?�)
 ("~O" ?�)
 ("~a" ?達)
 ("~c" ?巽)
 ("~n" ?単)
 ("~o" ?探)
 ("~ " ?~)
 ("/A" ?�)
 ("/E" ?�)
 ("/O" ?�)
 ("/a" ?奪)
 ("/e" ?脱)
 ("/o" ?淡)
 ("/ " ?/)
 ("~p" ?其)
 ("~s" ?則)
 ("~$" ?贈)
 ("^r" ?速)
 ("^c" ?息))

(quail-define-package
 "latin-prefix" "Latin" "L>" t
 "Latin characters input method with prefix modifiers.
This is the union of various input methods originally made for input
of characters from a single Latin-N charset.

    effect   | prefix | examples
 ------------+--------+----------
    acute    |   '    | 'a -> 叩, '' -> 卒
    grave    |   `    | `a -> �
  circumflex |   ^    | ^a -> 但
  diaeresis  |   \"    | \"a -> 辰  \"\" -> 即
    tilde    |   ~    | ~a -> 達
   cedilla   |   ~    | ~c -> 巽
    breve    |   ~    | ~a -> �
    caron    |   ~    | ~c -> �
  dot above  | ~ / .  | ~o -> 帖   /o -> 帖   .o -> 帖
    misc     | \" ~ /  | \"s -> �  ~d -> 丹  ~t -> 綻  /a -> 奪  /e -> 脱  /o -> 淡
   symbol    |   ~    | ~> -> 損  ~< -> 束  ~! -> 臓  ~? -> 多  ~~ -> 存
   symbol    |  _ /   | _o -> 尊  _a -> 捉  // -> 属  /\\ -> �  _y -> 促
   symbol    |   ^    | ^r -> 速  ^c -> 息  ^1 -> 孫  ^2 -> 族  ^3 -> 続
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("' " ?')
 ("''" ?卒)
 ("'A" ?�)
 ("'E" ?�)
 ("'I" ?�)
 ("'O" ?�)
 ("'U" ?�)
 ("'W" ?畉�)
 ("'Y" ?�)
 ("'a" ?叩)
 ("'e" ?辿)
 ("'i" ?鱈)
 ("'o" ?坦)
 ("'u" ?炭)
 ("'w" ?畉�)
 ("'y" ?箪)
 (".B" ?畍�)
 (".C" ?�)
 (".D" ?畍�)
 (".F" ?畍�)
 (".G" ?�)
 (".I" ?聴)
 (".M" ?畊�)
 (".P" ?畊�)
 (".S" ?畊�)
 (".T" ?畊�)
 (".Z" ?纏)
 (".b" ?畍�)
 (".c" ?�)
 (".d" ?畍�)
 (".f" ?畍�)
 (".g" ?帖)
 (".m" ?畊�)
 (".p" ?畊�)
 (".s" ?畊�)
 (".t" ?畊�)
 (".z" ?甜)
 ("/ " ?/)
 ("/#" ?贈)
 ("/$" ?造)
 ("/." ?�)
 ("//" ?属)
 ("/2" ?遜)
 ("/3" ?他)
 ("/4" ?村)
 ("/=" ?測)
 ("/A" ?�)
 ("/C" ?�)
 ("/E" ?�)
 ("/G" ?�)
 ("/H" ?彫)
 ("/I" ?聴)
 ("/O" ?�)
 ("/O" ?�)
 ("/Z" ?纏)
 ("/\\" ?�)
 ("/a" ?奪)
 ("/c" ?蔵)
 ("/c" ?�)
 ("/e" ?脱)
 ("/g" ?帖)
 ("/h" ?徴)
 ("/i" ?脹)
 ("/o" ?淡)
 ("/o" ?�)
 ("/z" ?甜)
 ("\" " ?\")
 ("\"A" ?�)
 ("\"E" ?�)
 ("\"I" ?�)
 ("\"O" ?�)
 ("\"U" ?�)
 ("\"W" ?畉�)
 ("\"Y" ?展)
 ("\"\"" ?即)
 ("\"a" ?辰)
 ("\"e" ?谷)
 ("\"i" ?誰)
 ("\"o" ?旦)
 ("\"s" ?�)
 ("\"u" ?端)
 ("\"w" ?畉�)
 ("\"y" ?耽)
 ("^ " ?^)
 ("^1" ?孫)
 ("^2" ?族)
 ("^3" ?続)
 ("^A" ?�)
 ("^C" ?�)
 ("^E" ?�)
 ("^G" ?�)
 ("^H" ?弔)
 ("^I" ?�)
 ("^J" ?調)
 ("^O" ?�)
 ("^S" ?�)
 ("^U" ?�)
 ("^W" ?鉄)
 ("^Y" ?填)
 ("^^" ?^)
 ("^a" ?但)
 ("^c" ?息)
 ("^c" ?�)
 ("^e" ?棚)
 ("^g" ?�)
 ("^h" ?張)
 ("^i" ?樽)
 ("^j" ?諜)
 ("^o" ?担)
 ("^r" ?速)
 ("^s" ?�)
 ("^u" ?短)
 ("^w" ?典)
 ("^y" ?天)
 ("_+" ?賊)
 ("_:" ?歎)
 ("_a" ?捉)
 ("_o" ?尊)
 ("_y" ?促)
 ("_ " ?�)
 ("` " ?`)
 ("`A" ?�)
 ("`E" ?�)
 ("`I" ?�)
 ("`O" ?�)
 ("`U" ?�)
 ("`W" ?畉�)
 ("`Y" ?畛�)
 ("``" ?`)
 ("`a" ?�)
 ("`e" ?竪)
 ("`i" ?狸)
 ("`o" ?嘆)
 ("`u" ?湛)
 ("`w" ?畉�)
 ("`y" ?畛�)
 ("~ " ?~)
 ("~!" ?臓)
 ("~$" ?贈)
 ("~-" ?足)
 ("~." ?揃)
 ("~<" ?\束)
 ("~=" ?俗)
 ("~>" ?\損)
 ("~?" ?多)
 ("~A" ?�)
 ("~C" ?�)
 ("~D" ?�)
 ("~G" ?�)
 ("~N" ?�)
 ("~O" ?�)
 ("~O" ?�)
 ("~S" ?�)
 ("~S" ?�)
 ("~T" ?�)
 ("~U" ?適)
 ("~Z" ?貼)
 ("~`" ?�)
 ("~a" ?達)
 ("~c" ?巽)
 ("~d" ?丹)
 ("~e" ?��)
 ("~g" ?�)
 ("~n" ?単)
 ("~o" ?探)
 ("~o" ?帖)
 ("~p" ?其)
 ("~s" ?則)
 ("~s" ?�)
 ("~s" ?邸)
 ("~t" ?綻)
 ("~u" ?袖)
 ("~u" ?鏑)
 ("~x" ?造)
 ("~z" ?転)
 ("~|" ?側)
 ("~~" ?存)
)

;;; arch-tag: 83017837-6b84-4366-b183-e0577e3ed838
;;; latin-pre.el ends here