view leim/quail/latin-post.el @ 90187:587ea1490d70

*** empty log message ***
author Kenichi Handa <handa@m17n.org>
date Sun, 05 Jun 2005 01:58:02 +0000 (2005-06-05)
parents 68c22ea6027c
children f9a65d7ebd29
line wrap: on
line source
;;; latin-post.el --- Quail packages for inputting various European characters  -*-coding: utf-8;-*-

;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
;;   Licensed to the Free Software Foundation.
;; Copyright (C) 2001, 2002 Free Software Foundation.
;; Copyright (C) 2003
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H13PRO009

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

;; 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 2, 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., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp>

;;; Commentary:

;;; Code:

(require 'quail)

(quail-define-package
 "latin-1-postfix" "Latin-1" "1<" t
 "Latin-1 character input method with postfix modifiers

             | postfix | examples
 ------------+---------+----------
  acute      |    '    | a' -> 叩
  grave      |    `    | a` -> �
  circumflex |    ^    | a^ -> 但
  diaeresis  |    \"    | a\" -> 辰
  tilde      |    ~    | a~ -> 達
  cedilla    |    ,    | c, -> 巽
  nordic     |    /    | d/ -> 丹   t/ -> 綻   a/ -> 奪   e/ -> 脱   o/ -> 淡
  others     |    /    | s/ -> �   ?/ -> 多   !/ -> 臓   // -> 属
             | various | << -> 束   >> -> 損   o_ -> 尊   a_ -> 捉

Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("A`" ?�)
 ("A'" ?�)
 ("A^" ?�)
 ("A~" ?�)
 ("A\"" ?�)
 ("A/" ?�)
 ("a`" ?�)
 ("a'" ?叩)
 ("a^" ?但)
 ("a~" ?達)
 ("a\"" ?辰)
 ("a/" ?奪)
 ("E`" ?�)
 ("E'" ?�)
 ("E^" ?�)
 ("E\"" ?�)
 ("E/" ?�)
 ("e`" ?竪)
 ("e'" ?辿)
 ("e^" ?棚)
 ("e\"" ?谷)
 ("e/" ?脱)
 ("I`" ?�)
 ("i`" ?狸)
 ("I'" ?�)
 ("i'" ?鱈)
 ("I^" ?�)
 ("i^" ?樽)
 ("I\"" ?�)
 ("i\"" ?誰)
 ("O`" ?�)
 ("o`" ?嘆)
 ("O'" ?�)
 ("o'" ?坦)
 ("O^" ?�)
 ("o^" ?担)
 ("O~" ?�)
 ("o~" ?探)
 ("O\"" ?�)
 ("o\"" ?旦)
 ("O/" ?�)
 ("o/" ?淡)
 ("U`" ?�)
 ("u`" ?湛)
 ("U'" ?�)
 ("u'" ?炭)
 ("U^" ?�)
 ("u^" ?短)
 ("U\"" ?�)
 ("u\"" ?端)
 ("Y'" ?�)
 ("y'" ?箪)
 ("y\"" ?耽)
 ("D/" ?�)
 ("d/" ?丹)
 ("T/" ?�)
 ("t/" ?綻)
 ("s/" ?�)
 ("C," ?�)
 ("c," ?巽)
 ("N~" ?�)
 ("n~" ?単)
 ("?/" ?多)
 ("!/" ?臓)
 ("<<" ?束)
 (">>" ?損)
 ("o_" ?尊)
 ("a_" ?捉)
 ("//" ?属)

 ("A``" ["A`"])
 ("A''" ["A'"])
 ("A^^" ["A^"])
 ("A~~" ["A~"])
 ("A\"\"" ["A\""])
 ("A//" ["A/"])
 ("a``" ["a`"])
 ("a''" ["a'"])
 ("a^^" ["a^"])
 ("a~~" ["a~"])
 ("a\"\"" ["a\""])
 ("a//" ["a/"])
 ("E``" ["E`"])
 ("E''" ["E'"])
 ("E^^" ["E^"])
 ("E\"\"" ["E\""])
 ("E//" ["E/"])
 ("e``" ["e`"])
 ("e''" ["e'"])
 ("e^^" ["e^"])
 ("e\"\"" ["e\""])
 ("e//" ["e/"])
 ("I``" ["I`"])
 ("i``" ["i`"])
 ("I''" ["I'"])
 ("i''" ["i'"])
 ("I^^" ["I^"])
 ("i^^" ["i^"])
 ("I\"\"" ["I\""])
 ("i\"\"" ["i\""])
 ("O``" ["O`"])
 ("o``" ["o`"])
 ("O''" ["O'"])
 ("o''" ["o'"])
 ("O^^" ["O^"])
 ("o^^" ["o^"])
 ("O~~" ["O~"])
 ("o~~" ["o~"])
 ("O\"\"" ["O\""])
 ("o\"\"" ["o\""])
 ("O//" ["O/"])
 ("o//" ["o/"])
 ("U``" ["U`"])
 ("u``" ["u`"])
 ("U''" ["U'"])
 ("u''" ["u'"])
 ("U^^" ["U^"])
 ("u^^" ["u^"])
 ("U\"\"" ["U\""])
 ("u\"\"" ["u\""])
 ("Y''" ["Y'"])
 ("y''" ["y'"])
 ("y\"\"" ["y\""])
 ("D//" ["D/"])
 ("d//" ["d/"])
 ("T//" ["T/"])
 ("t//" ["t/"])
 ("s//" ["s/"])
 ("C,," ["C,"])
 ("c,," ["c,"])
 ("N~~" ["N~"])
 ("n~~" ["n~"])
 ("?//" ["?/"])
 ("!//" ["!/"])
 ("<<<" ["<<"])
 (">>>" [">>"])
 ("o__" ["o_"])
 ("a__" ["a_"])
 ("///" ["//"])
 )

(quail-define-package
 "latin-2-postfix" "Latin-2" "2<" t
 "Latin-2 character input method with postfix modifiers

             | postfix | examples
 ------------+---------+----------
  acute      |    '    | a' -> 叩
  ogonek     |    ,    | a, -> �
  diaeresis  |    \"    | a\" -> 辰
  circumflex |    ^    | a^ -> 但
  breve      |    ~    | a~ -> �
  cedilla    |    ,    | c, -> 巽
  caron      |    ~    | c~ -> �
  dbl. acute |    :    | o: -> �
  ring       |    .    | u. -> 哲
  dot        |    .    | z. -> 甜
  stroke     |    /    | d/ -> �
  others     |    /    | s/ -> �

Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
" nil t nil nil nil nil nil nil nil nil t)

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

 ("A''" ["A'"])
 ("A,," ["A,"])
 ("A\"\"" ["A\""])
 ("A^^" ["A^"])
 ("A~~" ["A~"])
 ("C''" ["C'"])
 ("C,," ["C,"])
 ("C~~" ["C~"])
 ("D//" ["D/"])
 ("D~~" ["D~"])
 ("E''" ["E'"])
 ("E,," ["E,"])
 ("E\"\"" ["E\""])
 ("E~~" ["E~"])
 ("I''" ["I'"])
 ("I^^" ["I^"])
 ("L''" ["L'"])
 ("L//" ["L/"])
 ("L~~" ["L~"])
 ("N''" ["N'"])
 ("N~~" ["N~"])
 ("O''" ["O'"])
 ("O::" ["O:"])
 ("O\"\"" ["O\""])
 ("O^^" ["O^"])
 ("R''" ["R'"])
 ("R~~" ["R~"])
 ("S''" ["S'"])
 ("S,," ["S,"])
 ("S~~" ["S~"])
 ("T,," ["T,"])
 ("T~~" ["T~"])
 ("U''" ["U'"])
 ("U::" ["U:"])
 ("U\"\"" ["U\""])
 ("U.." ["U."])
 ("Y''" ["Y'"])
 ("Z''" ["Z'"])
 ("Z.." ["Z."])
 ("Z~~" ["Z~"])
 ("a''" ["a'"])
 ("a,," ["a,"])
 ("a\"\"" ["a\""])
 ("a^^" ["a^"])
 ("a~~" ["a~"])
 ("c''" ["c'"])
 ("c,," ["c,"])
 ("c~~" ["c~"])
 ("d//" ["d/"])
 ("d~~" ["d~"])
 ("e''" ["e'"])
 ("e,," ["e,"])
 ("e\"\"" ["e\""])
 ("e~~" ["e~"])
 ("i''" ["i'"])
 ("i^^" ["i^"])
 ("l''" ["l'"])
 ("l//" ["l/"])
 ("l~~" ["l~"])
 ("n''" ["n'"])
 ("n~~" ["n~"])
 ("o''" ["o'"])
 ("o::" ["o:"])
 ("o\"\"" ["o\""])
 ("o^^" ["o^"])
 ("r''" ["r'"])
 ("r~~" ["r~"])
 ("s''" ["s'"])
 ("s,," ["s,"])
 ("s//" ["s/"])
 ("s~~" ["s~"])
 ("t,," ["t,"])
 ("t~~" ["t~"])
 ("u''" ["u'"])
 ("u::" ["u:"])
 ("u\"\"" ["u\""])
 ("u.." ["u."])
 ("y''" ["y'"])
 ("z''" ["z'"])
 ("z.." ["z."])
 ("z~~" ["z~"])
 )

(quail-define-package
 "latin-3-postfix" "Latin-3" "3<" t
 "Latin-3 character input method with postfix modifiers

             | postfix | examples
 ------------+---------+----------
  acute      |    '    | a' -> 叩
  grave      |    `    | a` -> �
  circumflex |    ^    | a^ -> 但
  diaeresis  |    \"    | a\" -> 辰
  dot        |    .    | c. -> �   i. -> 脹   I. -> 聴
  cedilla    |    ,    | c, -> 巽
  breve      |    ~    | g~ -> �
  tilde      |    ~    | n~ -> 単
  stroke     |    /    | h/ -> 徴
  others     |    /    | s/ -> �

Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
" nil t nil nil nil nil nil nil nil nil t)

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

 ("A``" ["A`"])
 ("A''" ["A'"])
 ("A^^" ["A^"])
 ("A\"\"" ["A\""])
 ("C.." ["C."])
 ("C^^" ["C^"])
 ("C,," ["C,"])
 ("E``" ["E`"])
 ("E''" ["E'"])
 ("E^^" ["E^"])
 ("E\"\"" ["E\""])
 ("G~~" ["G~"])
 ("G.." ["G."])
 ("G^^" ["G^"])
 ("H//" ["H/"])
 ("H^^" ["H^"])
 ("I.." ["I."])
 ("I``" ["I`"])
 ("I''" ["I'"])
 ("I^^" ["I^"])
 ("I\"\"" ["I\""])
 ("J^^" ["J^"])
 ("N~~" ["N~"])
 ("O``" ["O`"])
 ("O''" ["O'"])
 ("O^^" ["O^"])
 ("O\"\"" ["O\""])
 ("S,," ["S,"])
 ("S^^" ["S^"])
 ("U``" ["U`"])
 ("U''" ["U'"])
 ("U^^" ["U^"])
 ("U\"\"" ["U\""])
 ("U~~" ["U~"])
 ("Z.." ["Z."])
 ("a``" ["a`"])
 ("a''" ["a'"])
 ("a^^" ["a^"])
 ("a\"\"" ["a\""])
 ("c.." ["c."])
 ("c^^" ["c^"])
 ("c,," ["c,"])
 ("e``" ["e`"])
 ("e''" ["e'"])
 ("e^^" ["e^"])
 ("e\"\"" ["e\""])
 ("g~~" ["g~"])
 ("g.." ["g."])
 ("g^^" ["g^"])
 ("h//" ["h/"])
 ("h^^" ["h^"])
 ("i.." ["i."])
 ("i``" ["i`"])
 ("i''" ["i'"])
 ("i^^" ["i^"])
 ("i\"\"" ["i\""])
 ("j^^" ["j^"])
 ("n~~" ["n~"])
 ("o``" ["o`"])
 ("o''" ["o'"])
 ("o^^" ["o^"])
 ("o\"\"" ["o\""])
 ("s,," ["s,"])
 ("s//" ["s/"])
 ("s^^" ["s^"])
 ("u``" ["u`"])
 ("u''" ["u'"])
 ("u^^" ["u^"])
 ("u\"\"" ["u\""])
 ("u~~" ["u~"])
 ("z.." ["z."])
 )

(quail-define-package
 "latin-4-postfix" "Latin-4" "4<" t
 "Latin-4 characters input method with postfix modifiers

             | postfix | examples
 ------------+---------+----------
  acute      |    '    | a' -> 叩
  circumflex |    ^    | a^ -> 但
  diaeresis  |    \"    | a\" -> 辰
  ogonek     |    ,    | a, -> �
  macron     |    -    | a- -> �
  tilde      |    ~    | a~ -> 達
  caron      |    ~    | c~ -> �
  dot        |    .    | e. -> �
  cedilla    |    ,    | k, -> 跳   g, -> 庁
  stroke     |    /    | d/ -> �
  nordic     |    /    | a/ -> 奪   e/ -> 脱   o/ -> 淡
  others     |    /    | s/ -> �   n/ -> �   k/ -> 銚

Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("A," ?�)
 ("A-" ?�)
 ("A'" ?�)
 ("A^" ?�)
 ("A~" ?�)
 ("A\"" ?�)
 ("A/" ?�)
 ("C~" ?�)
 ("D/" ?�)
 ("E/" ?�)
 ("E-" ?�)
 ("E'" ?�)
 ("E," ?�)
 ("E\"" ?�)
 ("E." ?�)
 ("G," ?帳)
 ("I~" ?懲)
 ("I," ?町)
 ("I'" ?�)
 ("I^" ?�)
 ("I-" ?暢)
 ("K," ?超)
 ("L," ?鳥)
 ("N/" ?�)
 ("N," ?�)
 ("O-" ?�)
 ("O^" ?�)
 ("O~" ?�)
 ("O\"" ?�)
 ("O/" ?�)
 ("R," ?�)
 ("S~" ?�)
 ("T/" ?摘)
 ("U," ?轍)
 ("U'" ?�)
 ("U^" ?�)
 ("U\"" ?�)
 ("U~" ?敵)
 ("U-" ?的)
 ("Z~" ?貼)
 ("a," ?�)
 ("a-" ?�)
 ("a'" ?叩)
 ("a^" ?但)
 ("a~" ?達)
 ("a\"" ?辰)
 ("a/" ?奪)
 ("c~" ?�)
 ("d/" ?�)
 ("e/" ?脱)
 ("e-" ?�)
 ("e'" ?辿)
 ("e," ?�)
 ("e\"" ?谷)
 ("e." ?�)
 ("g," ?庁)
 ("i~" ?挑)
 ("i," ?眺)
 ("i'" ?鱈)
 ("i^" ?樽)
 ("i-" ?朝)
 ("k/" ?銚)
 ("k," ?跳)
 ("l," ?勅)
 ("n/" ?�)
 ("n," ?�)
 ("o-" ?�)
 ("o^" ?担)
 ("o~" ?探)
 ("o\"" ?旦)
 ("o/" ?淡)
 ("r," ?�)
 ("s/" ?�)
 ("s~" ?邸)
 ("t/" ?擢)
 ("u," ?迭)
 ("u'" ?炭)
 ("u^" ?短)
 ("u\"" ?端)
 ("u~" ?滴)
 ("u-" ?笛)
 ("z~" ?転)

 ("A,," ["A,"])
 ("A--" ["A-"])
 ("A''" ["A'"])
 ("A^^" ["A^"])
 ("A~~" ["A~"])
 ("A\"\"" ["A\""])
 ("A//" ["A/"])
 ("C~~" ["C~"])
 ("D//" ["D/"])
 ("E//" ["E/"])
 ("E--" ["E-"])
 ("E''" ["E'"])
 ("E,," ["E,"])
 ("E\"\"" ["E\""])
 ("E.." ["E."])
 ("G,," ["G,"])
 ("I~~" ["I~"])
 ("I,," ["I,"])
 ("I''" ["I'"])
 ("I^^" ["I^"])
 ("I--" ["I-"])
 ("K,," ["K,"])
 ("L,," ["L,"])
 ("N//" ["N/"])
 ("N,," ["N,"])
 ("O--" ["O-"])
 ("O^^" ["O^"])
 ("O~~" ["O~"])
 ("O\"\"" ["O\""])
 ("O//" ["O/"])
 ("R,," ["R,"])
 ("S~~" ["S~"])
 ("T//" ["T/"])
 ("U,," ["U,"])
 ("U''" ["U'"])
 ("U^^" ["U^"])
 ("U\"\"" ["U\""])
 ("U~~" ["U~"])
 ("U--" ["U-"])
 ("Z~~" ["Z~"])
 ("a,," ["a,"])
 ("a--" ["a-"])
 ("a''" ["a'"])
 ("a^^" ["a^"])
 ("a~~" ["a~"])
 ("a\"\"" ["a\""])
 ("a//" ["a/"])
 ("c~~" ["c~"])
 ("d//" ["d/"])
 ("e//" ["e/"])
 ("e--" ["e-"])
 ("e''" ["e'"])
 ("e,," ["e,"])
 ("e\"\"" ["e\""])
 ("e.." ["e."])
 ("g,," ["g,"])
 ("i~~" ["i~"])
 ("i,," ["i,"])
 ("i''" ["i'"])
 ("i^^" ["i^"])
 ("i--" ["i-"])
 ("k//" ["k/"])
 ("k,," ["k,"])
 ("l,," ["l,"])
 ("n//" ["n/"])
 ("n,," ["n,"])
 ("o--" ["o-"])
 ("o^^" ["o^"])
 ("o~~" ["o~"])
 ("o\"\"" ["o\""])
 ("o//" ["o/"])
 ("r,," ["r,"])
 ("s//" ["s/"])
 ("s~~" ["s~"])
 ("t//" ["t/"])
 ("u,," ["u,"])
 ("u''" ["u'"])
 ("u^^" ["u^"])
 ("u\"\"" ["u\""])
 ("u~~" ["u~"])
 ("u--" ["u-"])
 ("z~~" ["z~"])
 )

(quail-define-package
 "latin-5-postfix" "Latin-5" "5<" t
 "Latin-5 characters input method with postfix modifiers

             | postfix | examples
 ------------+---------+----------
  acute      |    '    | a' -> 叩
  grave      |    `    | a` -> �
  circumflex |    ^    | a^ -> 但
  diaeresis  |    \"    | a\" -> 辰
  tilde      |    ~    | a~ -> 達
  breve      |    ~    | g~ -> �
  cedilla    |    ,    | c, -> 巽
  dot        |    .    | i. -> 脹   I. -> 聴
  nordic     |    /    | a/ -> 奪   e/ -> 脱   o/ -> 淡
  others     |    /    | s/ -> �

Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("A'" ?�)
 ("A/" ?�)
 ("A\"" ?�)
 ("A^" ?�)
 ("A`" ?�)
 ("A~" ?�)
 ("C," ?�)
 ("E'" ?�)
 ("E/" ?�)
 ("E\"" ?�)
 ("E^" ?�)
 ("E`" ?�)
 ("G~" ?�)
 ("I'" ?�)
 ("I." ?聴)
 ("I\"" ?�)
 ("I^" ?�)
 ("I`" ?�)
 ("N~" ?�)
 ("O'" ?�)
 ("O/" ?�)
 ("O\"" ?�)
 ("O^" ?�)
 ("O`" ?�)
 ("O~" ?�)
 ("S," ?�)
 ("U'" ?�)
 ("U\"" ?�)
 ("U^" ?�)
 ("U`" ?�)
 ("a'" ?叩)
 ("a/" ?奪)
 ("a\"" ?辰)
 ("a^" ?但)
 ("a`" ?�)
 ("a~" ?達)
 ("c," ?巽)
 ("e'" ?辿)
 ("e/" ?脱)
 ("e\"" ?谷)
 ("e^" ?棚)
 ("e`" ?竪)
 ("g~" ?�)
 ("i'" ?鱈)
 ("i." ?脹)
 ("i\"" ?誰)
 ("i^" ?樽)
 ("i`" ?狸)
 ("n~" ?単)
 ("o'" ?坦)
 ("o/" ?淡)
 ("o\"" ?旦)
 ("o^" ?担)
 ("o`" ?嘆)
 ("o~" ?探)
 ("s," ?�)
 ("s/" ?�)
 ("u'" ?炭)
 ("u\"" ?端)
 ("u^" ?短)
 ("u`" ?湛)
 ("y\"" ?耽)

 ("A''" ["A'"])
 ("A//" ["A/"])
 ("A\"\"" ["A\""])
 ("A^^" ["A^"])
 ("A``" ["A`"])
 ("A~~" ["A~"])
 ("C,," ["C,"])
 ("E''" ["E'"])
 ("E//" ["E/"])
 ("E\"\"" ["E\""])
 ("E^^" ["E^"])
 ("E``" ["E`"])
 ("G~~" ["G~"])
 ("I''" ["I'"])
 ("I.." ["I."])
 ("I\"\"" ["I\""])
 ("I^^" ["I^"])
 ("I``" ["I`"])
 ("N~~" ["N~"])
 ("O''" ["O'"])
 ("O//" ["O/"])
 ("O\"\"" ["O\""])
 ("O^^" ["O^"])
 ("O``" ["O`"])
 ("O~~" ["O~"])
 ("S,," ["S,"])
 ("U''" ["U'"])
 ("U\"\"" ["U\""])
 ("U^^" ["U^"])
 ("U``" ["U`"])
 ("a''" ["a'"])
 ("a//" ["a/"])
 ("a\"\"" ["a\""])
 ("a^^" ["a^"])
 ("a``" ["a`"])
 ("a~~" ["a~"])
 ("c,," ["c,"])
 ("e''" ["e'"])
 ("e//" ["e/"])
 ("e\"\"" ["e\""])
 ("e^^" ["e^"])
 ("e``" ["e`"])
 ("g~~" ["g~"])
 ("i''" ["i'"])
 ("i.." ["i."])
 ("i\"\"" ["i\""])
 ("i^^" ["i^"])
 ("i``" ["i`"])
 ("n~~" ["n~"])
 ("o''" ["o'"])
 ("o//" ["o/"])
 ("o\"\"" ["o\""])
 ("o^^" ["o^"])
 ("o``" ["o`"])
 ("o~~" ["o~"])
 ("s,," ["s,"])
 ("s//" ["s/"])
 ("u''" ["u'"])
 ("u\"\"" ["u\""])
 ("u^^" ["u^"])
 ("u``" ["u`"])
 ("y\"\"" ["y\""])
 )

(quail-define-package
 "danish-postfix" "Latin-1" "DA<" t
 "Danish input method (rule: AE -> �, OE -> �, AA -> �, E' -> �)

Doubling the postfix separates the letter and postfix: e.g. aee -> ae
"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("AE" ?�)
 ("ae" ?脱)
 ("OE" ?�)
 ("oe" ?淡)
 ("AA" ?�)
 ("aa" ?奪)
 ("E'" ?�)
 ("e'" ?辿)

 ("AEE" ["AE"])
 ("aee" ["ae"])
 ("OEE" ["OE"])
 ("oee" ["oe"])
 ("AAA" ["AA"])
 ("aaa" ["aa"])
 ("E''" ["E'"])
 ("e''" ["e'"])
 )

(quail-define-package
 "esperanto-postfix" "Latin-3" "EO<" t
 "Esperanto input method with postfix modifiers

A following ^ or x will produce an accented character,
e.g. c^ -> �   gx -> �   u^ -> 鏑.

Doubling the postfix separates the letter and postfix,
e.g. a'' -> a'.
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("Cx" ?�)
 ("C^" ?�)
 ("cx" ?�)
 ("c^" ?�)
 ("Gx" ?�)
 ("G^" ?�)
 ("gx" ?�)
 ("g^" ?�)
 ("Hx" ?弔)
 ("H^" ?弔)
 ("hx" ?張)
 ("h^" ?張)
 ("Jx" ?調)
 ("J^" ?調)
 ("jx" ?諜)
 ("j^" ?諜)
 ("Sx" ?�)
 ("S^" ?�)
 ("sx" ?�)
 ("s^" ?�)
 ("Ux" ?適)
 ("U^" ?適)
 ("ux" ?鏑)
 ("u^" ?鏑)

 ("Cxx" ["Cx"])
 ("C^^" ["C^"])
 ("cxx" ["cx"])
 ("c^^" ["c^"])
 ("Gxx" ["Gx"])
 ("G^^" ["G^"])
 ("gxx" ["gx"])
 ("g^^" ["g^"])
 ("Hxx" ["Hx"])
 ("H^^" ["H^"])
 ("hxx" ["hx"])
 ("h^^" ["h^"])
 ("Jxx" ["Jx"])
 ("J^^" ["J^"])
 ("jxx" ["jx"])
 ("j^^" ["j^"])
 ("Sxx" ["Sx"])
 ("S^^" ["S^"])
 ("sxx" ["sx"])
 ("s^^" ["s^"])
 ("Uxx" ["Ux"])
 ("U^^" ["U^"])
 ("uxx" ["ux"])
 ("u^^" ["u^"])
 )

(quail-define-package
 "finnish-postfix" "Latin-1" "FI<" t
 "Finnish (Suomi) input method

AE  -> �
AEE -> AE
OE  -> �
OEE -> OE
"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("AE" ?�)
 ("ae" ?辰)
 ("OE" ?�)
 ("oe" ?旦)

 ("AEE" ["AE"])
 ("aee" ["ae"])
 ("OEE" ["OE"])
 ("oee" ["oe"])
 )

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

` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr辿ma.
Par exemple: a` -> �   e' -> 辿.

�, 束, et 損 sont produits par C,, <<, et >>.

En doublant la frappe des diacritiques, ils s'isoleront de la lettre.
Par exemple: e'' -> e'

<e dans l'o> n'est pas disponible."
 nil t nil nil nil nil nil nil nil nil t)

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

 ("A``" ["A`"])
 ("A^^" ["A^"])
 ("a``" ["a`"])
 ("a^^" ["a^"])
 ("E``" ["E`"])
 ("E''" ["E'"])
 ("E^^" ["E^"])
 ("E\"\"" ["E\""])
 ("e``" ["e`"])
 ("e''" ["e'"])
 ("e^^" ["e^"])
 ("e\"\"" ["e\""])
 ("I^^" ["I^"])
 ("I\"\"" ["I\""])
 ("i^^" ["i^"])
 ("i\"\"" ["i\""])
 ("O^^" ["O^"])
 ("o^^" ["o^"])
 ("U``" ["U`"])
 ("U^^" ["U^"])
 ("U\"\"" ["U\""])
 ("u``" ["u`"])
 ("u^^" ["u^"])
 ("u\"\"" ["u\""])
 ("C,," ["C,"])
 ("c,," ["c,"])
 ("<<<" ["<<"])
 (">>>" [">>"])
 )

(quail-define-package
 "german-postfix" "German" "DE<" t
 "German (Deutsch) input method

ae  -> 辰
aee -> ae
oe  -> 旦
oee -> oe
ue  -> 端
uee -> ue
sz  -> �
szz -> sz
"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("AE" ?�)
 ("ae" ?辰)
 ("OE" ?�)
 ("oe" ?旦)
 ("UE" ?�)
 ("ue" ?端)
 ("sz" ?�)

 ("AEE" ["AE"])
 ("aee" ["ae"])
 ("OEE" ["OE"])
 ("oee" ["oe"])
 ("UEE" ["UE"])
 ("uee" ["ue"])
 ("szz" ["sz"])
 )

(quail-define-package
 "icelandic-postfix" "Latin-1" "IS<" t
 "Icelandic (�slenska) input method with postfix modifiers

A' -> �
E' -> �
I' -> �
O' -> �
U' -> �
Y' -> �
AE -> �
OE -> �
D/ -> � (eth)
T/ -> � (thorn)

Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("A'" ?�)
 ("a'" ?叩)
 ("E'" ?�)
 ("e'" ?辿)
 ("I'" ?�)
 ("i'" ?鱈)
 ("O'" ?�)
 ("o'" ?坦)
 ("U'" ?�)
 ("u'" ?炭)
 ("Y'" ?�)
 ("y'" ?箪)
 ("AE" ?�)
 ("ae" ?脱)
 ("OE" ?�)
 ("oe" ?旦)
 ("D/" ?�)
 ("d/" ?丹)
 ("T/" ?�)
 ("t/" ?綻)

 ("A''" ["A'"])
 ("a''" ["a'"])
 ("E''" ["E'"])
 ("e''" ["e'"])
 ("I''" ["I'"])
 ("i''" ["i'"])
 ("O''" ["O'"])
 ("o''" ["o'"])
 ("U''" ["U'"])
 ("u''" ["u'"])
 ("Y''" ["Y'"])
 ("y''" ["y'"])
 ("AEE" ["AE"])
 ("aee" ["ae"])
 ("OEE" ["OE"])
 ("oee" ["oe"])
 ("D//" ["D/"])
 ("d//" ["d/"])
 ("T//" ["T/"])
 ("t//" ["t/"])
 )

(quail-define-package
 "italian-postfix" "Latin-1" "IT<" t
 "Italian (Italiano) input method with postfix modifiers

a` -> �    A` -> �    e' -> 辿    << -> 束
e` -> 竪    E` -> �    E' -> �    >> -> 損
i` -> 狸    I` -> �               o_ -> 尊
o` -> 嘆    O` -> �               a_ -> 捉
u` -> 湛    U` -> �

Typewriter-style italian characters.

Doubling the postfix separates the letter and postfix: e.g. a`` -> a`
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("A`" ?�)
 ("a`" ?�)
 ("E`" ?�)
 ("E'" ?�)
 ("e`" ?竪)
 ("e'" ?辿)
 ("I`" ?�)
 ("i`" ?狸)
 ("O`" ?�)
 ("o`" ?嘆)
 ("U`" ?�)
 ("u`" ?湛)
 ("<<" ?束)
 (">>" ?損)
 ("o_" ?尊)
 ("a_" ?捉)

 ("A``" ["A`"])
 ("a``" ["a`"])
 ("E``" ["E`"])
 ("E''" ["E'"])
 ("e``" ["e`"])
 ("e''" ["e'"])
 ("I``" ["I`"])
 ("i``" ["i`"])
 ("O``" ["O`"])
 ("o``" ["o`"])
 ("U``" ["U`"])
 ("u``" ["u`"])
 ("<<<" ["<<"])
 (">>>" [">>"])
 ("o__" ["o_"])
 ("a__" ["a_"])
 )

(quail-define-package
 "norwegian-postfix" "Latin-1" "NO<" t
 "Norwegian (Norsk) input method (rule: AE->�   OE->�   AA->�   E'->�)

Doubling the postfix separates the letter and postfix: e.g. aee -> ae
"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("AE" ?�)
 ("ae" ?脱)
 ("OE" ?�)
 ("oe" ?淡)
 ("AA" ?�)
 ("aa" ?奪)
 ("E'" ?�)
 ("e'" ?辿)

 ("AEE" ["AE"])
 ("aee" ["ae"])
 ("OEE" ["OE"])
 ("oee" ["oe"])
 ("AAA" ["AA"])
 ("aaa" ["aa"])
 ("E''" ["E'"])
 ("e''" ["e'"])
 )

(quail-define-package
 "scandinavian-postfix" "Latin-1" "SC<" t
 "Scandinavian input method with postfix modifiers
Supported languages are Swidish, Norwegian, Danish, and Finnish.

ae -> 脱
oe -> 淡
aa -> 奪
a\" -> 辰
o\" -> 旦
e' -> 辿

Doubling the postfix separates the letter and postfix:
aee -> ae   o\"\" -> o\"   etc.
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("AE" ?�)
 ("ae" ?脱)
 ("OE" ?�)
 ("oe" ?淡)
 ("AA" ?�)
 ("aa" ?奪)
 ("A\"" ?�)
 ("a\"" ?辰)
 ("O\"" ?�)
 ("o\"" ?旦)
 ("E'" ?�)
 ("e'" ?辿)

 ("AEE" ["AE"])
 ("aee" ["ae"])
 ("OEE" ["OE"])
 ("oee" ["oe"])
 ("AAA" ["AA"])
 ("aaa" ["aa"])
 ("A\"\"" ["A\""])
 ("a\"\"" ["a\""])
 ("O\"\"" ["O\""])
 ("o\"\"" ["o\""])
 ("E''" ["E'"])
 ("e''" ["e'"])
 )

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

A' -> �
E' -> �
I' -> �
O' -> �
U' -> �
N~ -> �
!/ -> 臓
?/ -> 多

Doubling the postfix separates the letter and postfix:
a'' -> a'   n~~ -> n~, etc.
" nil t nil nil nil nil nil nil nil nil t)

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

 ("A''" ["A'"])
 ("a''" ["a'"])
 ("E''" ["E'"])
 ("e''" ["e'"])
 ("I''" ["I'"])
 ("i''" ["i'"])
 ("O''" ["O'"])
 ("o''" ["o'"])
 ("U''" ["U'"])
 ("u''" ["u'"])
 ("U\"" ["U\""])
 ("u\"" ["U\""])
 ("N~~" ["N~"])
 ("n~~" ["n~"])
 ("?//" ["?/"])
 ("!//" ["!/"])
 )

(quail-define-package
 "swedish-postfix" "Latin-1" "SV<" t
 "Swedish (Svenska) input method (rule: AA -> �   AE -> �   OE -> �   E' -> �)

Doubling the postfix separates the letter and postfix: e.g. aee -> ae
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("AA" ?�)
 ("aa" ?奪)
 ("AE" ?�)
 ("ae" ?辰)
 ("OE" ?�)
 ("oe" ?旦)
 ("E'" ?�)
 ("e'" ?辿)

 ("AAA" ["AA"])
 ("aaa" ["aa"])
 ("AEE" ["AE"])
 ("aee" ["ae"])
 ("OEE" ["OE"])
 ("oee" ["oe"])
 ("E''" ["E'"])
 ("e''" ["e'"])
 )

(quail-define-package
 "turkish-postfix" "Turkish" "TR<" t
 "Turkish (T端rk巽e) input method with postfix modifiers.
turkish-latin-3-postfix is an obsolete alias for turkish-postfix.

Note for I, 脹, 聴, i.

A^ -> �
C, -> �
G^ -> �
I  -> I
i  -> 脹
I. -> 聴
i. -> i
O\" -> �
S, -> �
U\" -> �
U^ -> �

Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
" nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("A^" ?�)
 ("a^" ?但)
 ("C," ?�)
 ("c," ?巽)
 ("G^" ?�)
 ("g^" ?�)
 ("I." ?聴)
 ("i" ?脹)
 ("i." ?i)
 ("O\"" ?�)
 ("o\"" ?旦)
 ("S," ?�)
 ("s," ?�)
 ("U\"" ?�)
 ("u\"" ?端)
 ("U^" ?�)
 ("u^" ?短)

 ("A^^" ["A^"])
 ("a^^" ["a^"])
 ("C,," ["C,"])
 ("c,," ["c,"])
 ("G^^" ["G^"])
 ("g^^" ["g^"])
 ("I.." ["I."])
 ("i" ["i"])
 ("i.." ["i."])
 ("O\"\"" ["O\""])
 ("o\"\"" ["o\""])
 ("S,," ["S,"])
 ("s,," ["s,"])
 ("U\"\"" ["U\""])
 ("u\"\"" ["u\""])
 ("U^^" ["U^"])
 ("u^^" ["u^"])
 )

;; Backwards compatibility.
(push (cons "turkish-latin-3-postfix"
	    (cdr (assoc "turkish-postfix" quail-package-alist)))
      quail-package-alist)

(quail-define-package
 "british" "Latin-1" "贈@" t
 "British English input method with Latin-1 character 贈 (# -> 贈)"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("#" [?贈 ?#])
 )

;; The following are various quail packages for those who think
;; the above are too awkward.  Supported languages and their
;; package name are:
;;
;; French	(frnch, azerty)
;; Icelandic	(iclndc)
;; Denish	(dnsh)
;; Norwegian	(nrwgn)
;; Swedish	(swdsh)
;; Finnish	(fnnsh)
;; German	(grmn)
;; Italian	(itln)
;; Spanish	(spnsh)
;; Dvorak	(dvorak)
;;
;;; 92.12.15  created for Mule Ver.0.9.6 by Takahashi N. <ntakahas@etl.go.jp>
;;; 92.12.29  modified by Takahashi N. <ntakahas@etl.go.jp>

;;
(quail-define-package
 "french-keyboard" "French" "FR@" t
 "French (Fran巽ais) input method simulating some French keyboard
<e dans l'o> n'est pas disponible." nil t t t t nil nil nil nil nil t)

;; 棚1  辿2  竪3  担4  樽5  誰6  但7  短8  湛9  �0  -_  谷+  `~
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  巽�  端&
;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  ;:  '"  \|
;;    zZ  xX  cC  vV  bB  nN  mM  ,(  .)  !?

(quail-define-rules
 ("1" ?棚)
 ("2" ?辿)
 ("3" ?竪)
 ("4" ?担)
 ("5" ?樽)
 ("6" ?誰)
 ("7" ?但)
 ("8" ?短)
 ("9" ?湛)
 ("0" ?�)
 ("=" ?谷)
 ("[" ?巽)
 ("]" ?端)

 ("!" ?1)
 ("@" ?2)
 ("#" ?3)
 ("$" ?4)
 ("%" ?5)
 ("^" ?6)
 ("&" ?7)
 ("*" ?8)
 ("(" ?9)
 (")" ?0)
 ("{" ?�)
 ("}" ?&)
 ("<" ?\()
 (">" ?\))
 )

;;
(quail-define-package
 "french-azerty" "French" "AZ@" t
 "French (Fran巽ais) input method simulating Azerty keyboard

Similaire au clavier fran巽ais de SUN.
pr辿fixes:  ^ pour circonflexe,  即 pour tr辿ma.
<e dans l'o> n'est pas disponible." nil t t t t nil nil nil nil nil t)

;; &1  辿2  "3  '4  (5  則6  竪7  !8  巽9  �0  )属 -_  @~
;;  aA  zZ  eE  rR  tT  yY  uU  iI  oO  pP  ^即  `$
;;   qQ  sS  dD  fF  gG  hH  jJ  kK  lL  mM  湛%  *|
;;    wW  xX  cC  vV  bB  nN  ,?  ;.  :/  =+

(quail-define-rules
 ("1" ?&)
 ("2" ?辿)
 ("3" ?\")
 ("4" ?')
 ("5" ?\()
 ("6" ?則)
 ("7" ?竪)
 ("8" ?!)
 ("9" ?巽)
 ("0" ?�)
 ("-" ?\))
 ("=" ?-)
 ("`" ?@)
 ("q" ?a)
 ("w" ?z)
 ("e" ?e)
 ("r" ?r)
 ("t" ?t)
 ("y" ?y)
 ("u" ?u)
 ("i" ?i)
 ("o" ?o)
 ("p" ?p)
 ("[" ?^)
 ("]" ?`)
 ("a" ?q)
 ("s" ?s)
 ("d" ?d)
 ("f" ?f)
 ("g" ?g)
 ("h" ?h)
 ("j" ?j)
 ("k" ?k)
 ("l" ?l)
 (";" ?m)
 ("'" ?湛)
 ("\\" ?*)
 ("z" ?w)
 ("x" ?x)
 ("c" ?c)
 ("v" ?v)
 ("b" ?b)
 ("n" ?n)
 ("m" ?,)
 ("," ?\;)
 ("." ?:)
 ("/" ?=)

 ("!" ?1)
 ("@" ?2)
 ("#" ?3)
 ("$" ?4)
 ("%" ?5)
 ("^" ?6)
 ("&" ?7)
 ("*" ?8)
 ("(" ?9)
 (")" ?0)
 ("_" ?属)
 ("+" ?_)
 ("~" ?~)
 ("Q" ?A)
 ("W" ?Z)
 ("E" ?E)
 ("R" ?R)
 ("T" ?T)
 ("Y" ?Y)
 ("U" ?U)
 ("I" ?I)
 ("O" ?O)
 ("P" ?P)
 ("{" ?即)
 ("}" ?$)
 ("A" ?Q)
 ("S" ?S)
 ("D" ?D)
 ("F" ?F)
 ("G" ?G)
 ("H" ?H)
 ("J" ?J)
 ("K" ?K)
 ("L" ?L)
 (":" ?M)
 ("\"" ?%)
 ("|" ?|)
 ("Z" ?W)
 ("X" ?X)
 ("C" ?C)
 ("V" ?V)
 ("B" ?B)
 ("N" ?N)
 ("M" ??)
 ("<" ?.)
 (">" ?/)
 ("?" ?+)

 ("[q" ?但)
 ("[e" ?棚)
 ("[i" ?樽)
 ("[o" ?担)
 ("[u" ?短)

 ("{e" ?谷)
 ("{i" ?誰)
 ("{u" ?端)

 ("[[" ?^)
 ("{{" ?即)
 )

;;
(quail-define-package
 "icelandic-keyboard" "Latin-1" "IS@" t
 "Icelandic (�slenska) input method simulating some Icelandic keyboard

Dead accent is right to 脱." nil t t t t nil nil nil nil nil t)

;; 1!  2"  3#  4$  5%  6^  7&  8*  9(  0)  旦�  -_  `~
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  丹�  '?
;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  脱�  卒卒  +*
;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  綻�

(quail-define-rules
 ("-" ?旦)
 ("=" ?-)
 ("[" ?丹)
 ("]" ?')
 (";" ?脱)
 ("'" ?卒)
 ("\\" ?+)
 ("/" ?綻)

 ("@" ?\")
 ("_" ?�)
 ("+" ?_)
 ("{" ?�)
 ("}" ??)
 (":" ?�)
 ("\"" ?卒)
 ("|" ?*)
 ("<" ?\;)
 (">" ?:)
 ("?" ?�)

 ("'a" ?叩)
 ("'e" ?辿)
 ("'i" ?鱈)
 ("'o" ?坦)
 ("'u" ?炭)
 ("'y" ?箪)
 ("'A" ?�)
 ("'E" ?�)
 ("'I" ?�)
 ("'O" ?�)
 ("'U" ?�)
 ("'Y" ?�)

 ("''" ?卒)
 )

;;
(quail-define-package
 "danish-keyboard" "Latin-1" "DA@" t
 "Danish input method simulating SUN Danish keyboard"
 nil t t t t nil nil nil nil nil t)

;; 1!  2"  3#  4造  5%  6&  7/  8(  9)  0=  +?  遜則  ~^
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  奪�  辿�
;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  脱�  淡�  '*
;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  -_

(quail-define-rules
 ("-" ?+)
 ("=" ?遜)
 ("`" ?~)
 ("[" ?奪)
 ("]" ?辿)
 (";" ?脱)
 ("'" ?淡)
 ("\\" ?')
 ("/" ?-)

 ("@" ?\")
 ("$" ?造)
 ("^" ?&)
 ("&" ?/)
 ("*" ?\()
 ("(" ?\))
 (")" ?=)
 ("_" ??)
 ("+" ?則)
 ("~" ?^)
 ("{" ?�)
 ("}" ?�)
 (":" ?�)
 ("\"" ?�)
 ("|" ?*)
 ("<" ?\;)
 (">" ?:)
 ("?" ?_)
 )

;;
(quail-define-package
 "norwegian-keyboard" "Latin-1" "NO@" t
 "Norwegian (Norsk) input method simulating SUN Norwegian keyboard"
 nil t t t t nil nil nil nil nil t)

;; 1!  2"  3#  4造  5%  6&  7/  8(  9)  0=  +?  |則  ~^
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  奪�  辿�
;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  淡�  脱�  '*
;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  '?

(quail-define-rules
 ("-" ?+)
 ("=" ?|)
 ("`" ?~)
 ("[" ?奪)
 ("]" ?辿)
 (";" ?淡)
 ("'" ?脱)
 ("\\" ?')
 ("/" ?-)

 ("!" ?!)
 ("@" ?\")
 ("$" ?造)
 ("^" ?&)
 ("&" ?/)
 ("*" ?\()
 ("(" ?\))
 (")" ?=)
 ("_" ??)
 ("+" ?則)
 ("~" ?^)
 ("{" ?�)
 ("}" ?�)
 (":" ?�)
 ("\"" ?�)
 ("|" ?*)
 ("<" ?\;)
 (">" ?:)
 ("?" ?_)
 )

;;
(quail-define-package
 "swedish-keyboard" "Latin-1" "SV@" t
 "Swedish (Svenska) input method simulating SUN Swedish/Finnish keyboard"
 nil t t t t nil nil nil nil nil t)

;; 1!  2"  3#  4造  5%  6&  7/  8(  9)  0=  +?  則遜  ~^
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  奪�  辿�
;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  旦�  辰�  '*
;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  -_

(quail-define-rules
 ("-" ?+)
 ("=" ?則)
 ("`" ?~)
 ("[" ?奪)
 ("]" ?辿)
 (";" ?旦)
 ("'" ?辰)
 ("\\" ?')
 ("/" ?-)

 ("@" ?\")
 ("$" ?造)
 ("^" ?&)
 ("&" ?/)
 ("*" ?\()
 ("(" ?\))
 (")" ?=)
 ("_" ??)
 ("+" ?遜)
 ("~" ?^)
 ("{" ?�)
 ("}" ?�)
 (":" ?�)
 ("\"" ?�)
 ("|" ?*)
 ("<" ?\;)
 (">" ?:)
 ("?" ?_)
 )

;;
(quail-define-package
 "finnish-keyboard" "Latin-1" "FI@" t
 "Finnish input method simulating SUN Finnish/Swedish keyboard"
 nil t t t t nil nil nil nil nil t)

;; 1!  2"  3#  4造  5%  6&  7/  8(  9)  0=  +?  則遜  ~^
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  奪�  辿�
;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  旦�  辰�  '*
;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  -_

(quail-define-rules
 ("-" ?+)
 ("=" ?則)
 ("`" ?~)
 ("[" ?奪)
 ("]" ?辿)
 (";" ?旦)
 ("'" ?辰)
 ("\\" ?')
 ("/" ?-)

 ("@" ?\")
 ("$" ?造)
 ("^" ?&)
 ("&" ?/)
 ("*" ?\()
 ("(" ?\))
 (")" ?=)
 ("_" ??)
 ("+" ?遜)
 ("~" ?^)
 ("{" ?�)
 ("}" ?�)
 (":" ?�)
 ("\"" ?�)
 ("|" ?*)
 ("<" ?\;)
 (">" ?:)
 ("?" ?_)
 )

;;
(quail-define-package
 "german" "German" "DE@" t
 "German (Deutsch) input method simulating SUN German keyboard"
 nil t t t t nil nil nil nil nil t)

;; 1!  2"  3則  4$  5%  6&  7/  8(  9)  0=  �?  [{  ]}
;;  qQ  wW  eE  rR  tT  zZ  uU  iI  oO  pP  端�  +*
;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  旦�  辰�  #^
;;    yY  xX  cC  vV  bB  nN  mM  ,;  .:  -_

(quail-define-rules
 ("-" ?�)
 ("=" ?\[)
 ("`" ?\])
 ("y" ?z)
 ("[" ?端)
 ("]" ?+)
 (";" ?旦)
 ("'" ?辰)
 ("\\" ?#)
 ("z" ?y)
 ("/" ?-)

 ("@" ?\")
 ("#" ?則)
 ("^" ?&)
 ("&" ?/)
 ("*" ?\()
 ("Y" ?Z)
 ("(" ?\))
 (")" ?=)
 ("_" ??)
 ("+" ?{)
 ("~" ?})
 ("{" ?�)
 ("}" ?*)
 (":" ?�)
 ("\"" ?�)
 ("|" ?^)
 ("Z" ?Y)
 ("<" ?\;)
 (">" ?:)
 ("?" ?_)
 )

;;
(quail-define-package
 "italian-keyboard" "Latin-1" "IT@" t
 "Italian (Italiano) input method simulating SUN Italian keyboard"
 nil t t t t nil nil nil nil nil t)

;; 1!  2"  3贈  4$  5%  6&  7/  8(  9)  0=  '?  狸^  `~
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  竪辿  +*
;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  嘆巽  �属  湛則
;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  -_

(quail-define-rules
 ("-" ?')
 ("=" ?狸)
 ("[" ?竪)
 ("]" ?+)
 (";" ?嘆)
 ("'" ?�)
 ("\\" ?湛)
 ("/" ?-)

 ("@" ?\")
 ("#" ?贈)
 ("^" ?&)
 ("&" ?/)
 ("*" ?\()
 ("(" ?\))
 (")" ?=)
 ("_" ??)
 ("+" ?^)
 ("~" ?~)
 ("{" ?辿)
 ("}" ?*)
 (":" ?巽)
 ("\"" ?属)
 ("|" ?則)
 ("<" ?\;)
 (">" ?:)
 ("?" ?_)
 )

;;
(quail-define-package
 "spanish-keyboard" "Spanish" "ES@" t
 "Spanish (Espa単ol) input method simulating SUN Spanish keyboard"
 nil t t t t nil nil nil nil nil t)

;; 1!  2"  3揃  4$  5%  6&  7/  8(  9)  0=  '?  臓多  鱈�
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  辿�  坦�
;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  単�  叩�  炭�
;;    zZ  xX  cC  vV  bB  nN  mM  ,;  .:  -_

(quail-define-rules
 ("-" ?')
 ("=" ?臓)
 ("`" ?鱈)
 ("[" ?辿)
 ("]" ?坦)
 (";" ?単)
 ("'" ?叩)
 ("\\" ?炭)
 ("/" ?-)

 ("@" ?\")
 ("#" ?揃)
 ("^" ?&)
 ("&" ?/)
 ("*" ?\()
 ("(" ?\))
 (")" ?=)
 ("_" ??)
 ("+" ?多)
 ("~" ?�)
 ("{" ?�)
 ("}" ?�)
 (":" ?�)
 ("\"" ?�)
 ("|" ?�)
 ("<" ?\;)
 (">" ?:)
 ("?" ?_)
 )

;;
(quail-define-package
 "english-dvorak" "English" "DV@" t
 "English (ASCII) input method simulating Dvorak keyboard"
 nil t t t t nil nil nil nil nil t)

;; 1!  2@  3#  4$  5%  6^  7&  8*  9(  0)  [{  ]}  `~
;;  '"  ,<  .>  pP  yY  fF  gG  cC  rR  lL  /?  =+
;;   aA  oO  eE  uU  iI  dD  hH  tT  nN  sS  -_  \|
;;    ;:  qQ  jJ  kK  xX  bB  mM  wW  vV  zZ

(quail-define-rules
 ("-" ?\[)
 ("=" ?\])
 ("`" ?`)
 ("q" ?')
 ("w" ?,)
 ("e" ?.)
 ("r" ?p)
 ("t" ?y)
 ("y" ?f)
 ("u" ?g)
 ("i" ?c)
 ("o" ?r)
 ("p" ?l)
 ("[" ?/)
 ("]" ?=)
 ("a" ?a)
 ("s" ?o)
 ("d" ?e)
 ("f" ?u)
 ("g" ?i)
 ("h" ?d)
 ("j" ?h)
 ("k" ?t)
 ("l" ?n)
 (";" ?s)
 ("'" ?-)
 ("\\" ?\\)
 ("z" ?\;)
 ("x" ?q)
 ("c" ?j)
 ("v" ?k)
 ("b" ?x)
 ("n" ?b)
 ("m" ?m)
 ("," ?w)
 ("." ?v)
 ("/" ?z)

 ("_" ?{)
 ("+" ?})
 ("~" ?~)
 ("Q" ?\")
 ("W" ?<)
 ("E" ?>)
 ("R" ?P)
 ("T" ?Y)
 ("Y" ?F)
 ("U" ?G)
 ("I" ?C)
 ("O" ?R)
 ("P" ?L)
 ("{" ??)
 ("}" ?+)
 ("A" ?A)
 ("S" ?O)
 ("D" ?E)
 ("F" ?U)
 ("G" ?I)
 ("H" ?D)
 ("J" ?H)
 ("K" ?T)
 ("L" ?N)
 (":" ?S)
 ("\"" ?_)
 ("|" ?|)
 ("Z" ?:)
 ("X" ?Q)
 ("C" ?J)
 ("V" ?K)
 ("B" ?X)
 ("N" ?B)
 ("M" ?M)
 ("<" ?W)
 (">" ?V)
 ("?" ?Z)
 )

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

             | postfix | examples
 ------------+---------+----------
  acute      |    '    | a' -> 叩
  grave      |    `    | a` -> �
  circumflex |    ^    | a^ -> 但
  diaeresis  |    \"    | a\" -> 辰
  tilde      |    ~    | a~ -> 達
  cedilla    |    ,    | c, -> 巽
  ogonek     |    ,    | a, -> �
  breve      |    ~    | a~ -> �
  caron      |    ~    | c~ -> �
  dbl. acute |    :    | o: -> �
  ring       |    .    | u. -> 哲
  dot        |    .    | z. -> 甜
  stroke     |    /    | d/ -> �
  nordic     |    /    | d/ -> 丹   t/ -> 綻   a/ -> 奪   e/ -> 脱   o/ -> 淡
  others     |    /    | s/ -> �   ?/ -> 多   !/ -> 臓   // -> 属
             | various | << -> 束   >> -> 損   o_ -> 尊   a_ -> 捉

Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
" nil t nil nil nil nil nil nil nil nil t)

;; Fixme: 側 則 即 息 測 足 速 俗 賊 族 続 卒 袖 其 揃 存 孫 村 遜 他 � 歎
(quail-define-rules
 (" _" ?�)
 ("!/" ?臓)
 ("//" ?属)
 ("<<" ?\束)
 (">>" ?\損)
 ("?/" ?多)
 ("$/" ?贈)
 ("$/" ?造)
 ("A'" ?�)
 ("A," ?�)
 ("A-" ?�)
 ("A/" ?�)
 ("A\"" ?�)
 ("A^" ?�)
 ("A`" ?�)
 ("A~" ?�)
 ("A~" ?�)
 ("C'" ?�)
 ("C," ?�)
 ("C." ?�)
 ("C^" ?�)
 ("C~" ?�)
 ("D/" ?�)
 ("D/" ?�)
 ("D~" ?�)
 ("E'" ?�)
 ("E," ?�)
 ("E-" ?�)
 ("E." ?�)
 ("E/" ?�)
 ("E\"" ?�)
 ("E^" ?�)
 ("E`" ?�)
 ("E~" ?�)
 ("G," ?帳)
 ("G." ?�)
 ("G^" ?�)
 ("G~" ?�)
 ("H/" ?彫)
 ("H^" ?弔)
 ("I'" ?�)
 ("I," ?町)
 ("I-" ?暢)
 ("I." ?聴)
 ("I\"" ?�)
 ("I^" ?�)
 ("I`" ?�)
 ("I~" ?懲)
 ("J^" ?調)
 ("K," ?超)
 ("L'" ?長)
 ("L," ?鳥)
 ("L/" ?�)
 ("L~" ?捗)
 ("N'" ?�)
 ("N," ?�)
 ("N/" ?�)
 ("N~" ?�)
 ("N~" ?�)
 ("O'" ?�)
 ("O-" ?�)
 ("O/" ?�)
 ("O/" ?�)
 ("O:" ?�)
 ("O\"" ?�)
 ("O^" ?�)
 ("O`" ?�)
 ("O~" ?�)
 ("R'" ?�)
 ("R," ?�)
 ("R~" ?�)
 ("S'" ?�)
 ("S," ?�)
 ("S^" ?�)
 ("S~" ?�)
 ("T," ?鄭)
 ("T/" ?�)
 ("T/" ?摘)
 ("T~" ?鼎)
 ("U'" ?�)
 ("U," ?轍)
 ("U-" ?的)
 ("U." ?溺)
 ("U:" ?徹)
 ("U\"" ?�)
 ("U^" ?�)
 ("U`" ?�)
 ("U~" ?敵)
 ("U~" ?適)
 ("Y'" ?�)
 ("Y\"" ?展)
 ("Y=" ?促)
 ("Z'" ?店)
 ("Z." ?纏)
 ("Z~" ?貼)
 ("a'" ?叩)
 ("a," ?�)
 ("a-" ?�)
 ("a/" ?奪)
 ("a\"" ?辰)
 ("a^" ?但)
 ("a_" ?捉)
 ("a`" ?�)
 ("a~" ?達)
 ("a~" ?�)
 ("c'" ?�)
 ("c," ?巽)
 ("c." ?�)
 ("c^" ?�)
 ("c~" ?�)
 ("c/" ?蔵)
 ("d/" ?丹)
 ("d/" ?�)
 ("d~" ?�)
 ("e'" ?辿)
 ("e," ?�)
 ("e-" ?�)
 ("e." ?�)
 ("e/" ?脱)
 ("e\"" ?谷)
 ("e^" ?棚)
 ("e`" ?竪)
 ("e~" ?�)
 ("e=" ?��)
 ("g," ?庁)
 ("g." ?帖)
 ("g^" ?�)
 ("g~" ?�)
 ("h/" ?徴)
 ("h^" ?張)
 ("i'" ?鱈)
 ("i," ?眺)
 ("i-" ?朝)
 ("i." ?脹)
 ("i\"" ?誰)
 ("i^" ?樽)
 ("i`" ?狸)
 ("i~" ?挑)
 ("j^" ?諜)
 ("k," ?跳)
 ("k/" ?銚)
 ("l'" ?頂)
 ("l," ?勅)
 ("l/" ?�)
 ("l~" ?直)
 ("n'" ?�)
 ("n," ?�)
 ("n/" ?�)
 ("n~" ?単)
 ("n~" ?�)
 ("o'" ?坦)
 ("o-" ?�)
 ("o/" ?淡)
 ("o/" ?�)
 ("o:" ?�)
 ("o\"" ?旦)
 ("o^" ?担)
 ("o_" ?尊)
 ("o`" ?嘆)
 ("o~" ?探)
 ("r'" ?�)
 ("r," ?�)
 ("r~" ?�)
 ("s'" ?�)
 ("s," ?�)
 ("s/" ?�)
 ("s^" ?�)
 ("s~" ?邸)
 ("t," ?釘)
 ("t/" ?綻)
 ("t/" ?擢)
 ("t~" ?泥)
 ("u'" ?炭)
 ("u," ?迭)
 ("u-" ?笛)
 ("u." ?哲)
 ("u:" ?撤)
 ("u\"" ?端)
 ("u^" ?短)
 ("u`" ?湛)
 ("u~" ?滴)
 ("u~" ?鏑)
 ("y'" ?箪)
 ("y\"" ?耽)
 ("z'" ?添)
 ("z." ?甜)
 ("z~" ?転)

 ("!//" ["!/"])
 ("///" ["//"])
 ("<<<" ["<<"])
 (">>>" [">>"])
 ("?//" ["?/"])
 ("$//" ["$/"])
 ("A''" ["A'"])
 ("A,," ["A,"])
 ("A--" ["A-"])
 ("A//" ["A/"])
 ("A\"\"" ["A\""])
 ("A^^" ["A^"])
 ("A``" ["A`"])
 ("A~~" ["A~"])
 ("C''" ["C'"])
 ("C,," ["C,"])
 ("C.." ["C."])
 ("C^^" ["C^"])
 ("C~~" ["C~"])
 ("D//" ["D/"])
 ("D~~" ["D~"])
 ("E''" ["E'"])
 ("E,," ["E,"])
 ("E--" ["E-"])
 ("E.." ["E."])
 ("E//" ["E/"])
 ("E\"\"" ["E\""])
 ("E^^" ["E^"])
 ("E``" ["E`"])
 ("E~~" ["E~"])
 ("G,," ["G,"])
 ("G.." ["G."])
 ("G^^" ["G^"])
 ("G~~" ["G~"])
 ("H//" ["H/"])
 ("H^^" ["H^"])
 ("I''" ["I'"])
 ("I,," ["I,"])
 ("I--" ["I-"])
 ("I.." ["I."])
 ("I\"\"" ["I\""])
 ("I^^" ["I^"])
 ("I``" ["I`"])
 ("I~~" ["I~"])
 ("J^^" ["J^"])
 ("K,," ["K,"])
 ("L''" ["L'"])
 ("L,," ["L,"])
 ("L//" ["L/"])
 ("L~~" ["L~"])
 ("N''" ["N'"])
 ("N,," ["N,"])
 ("N//" ["N/"])
 ("N~~" ["N~"])
 ("O''" ["O'"])
 ("O--" ["O-"])
 ("O//" ["O/"])
 ("O::" ["O:"])
 ("O\"\"" ["O\""])
 ("O^^" ["O^"])
 ("O``" ["O`"])
 ("O~~" ["O~"])
 ("R''" ["R'"])
 ("R,," ["R,"])
 ("R~~" ["R~"])
 ("S''" ["S'"])
 ("S,," ["S,"])
 ("S^^" ["S^"])
 ("S~~" ["S~"])
 ("T,," ["T,"])
 ("T//" ["T/"])
 ("T~~" ["T~"])
 ("U''" ["U'"])
 ("U,," ["U,"])
 ("U--" ["U-"])
 ("U.." ["U."])
 ("U::" ["U:"])
 ("U\"\"" ["U\""])
 ("U^^" ["U^"])
 ("U``" ["U`"])
 ("U~~" ["U~"])
 ("Y''" ["Y'"])
 ("Y\"\"" ["Y\""])
 ("Y==" ["Y="])
 ("Z''" ["Z'"])
 ("Z.." ["Z."])
 ("Z~~" ["Z~"])
 ("a''" ["a'"])
 ("a,," ["a,"])
 ("a--" ["a-"])
 ("a//" ["a/"])
 ("a\"\"" ["a\""])
 ("a^^" ["a^"])
 ("a__" ["a_"])
 ("a``" ["a`"])
 ("a~~" ["a~"])
 ("c''" ["c'"])
 ("c,," ["c,"])
 ("c.." ["c."])
 ("c^^" ["c^"])
 ("c~~" ["c~"])
 ("c//" ["c/"])
 ("d//" ["d/"])
 ("d~~" ["d~"])
 ("e''" ["e'"])
 ("e,," ["e,"])
 ("e--" ["e-"])
 ("e.." ["e."])
 ("e//" ["e/"])
 ("e\"\"" ["e\""])
 ("e^^" ["e^"])
 ("e``" ["e`"])
 ("e==" ["e="])
 ("e~~" ["e~"])
 ("g,," ["g,"])
 ("g.." ["g."])
 ("g^^" ["g^"])
 ("g~~" ["g~"])
 ("h//" ["h/"])
 ("h^^" ["h^"])
 ("i''" ["i'"])
 ("i,," ["i,"])
 ("i--" ["i-"])
 ("i.." ["i."])
 ("i\"\"" ["i\""])
 ("i^^" ["i^"])
 ("i``" ["i`"])
 ("i~~" ["i~"])
 ("j^^" ["j^"])
 ("k,," ["k,"])
 ("k//" ["k/"])
 ("l''" ["l'"])
 ("l,," ["l,"])
 ("l//" ["l/"])
 ("l~~" ["l~"])
 ("n''" ["n'"])
 ("n,," ["n,"])
 ("n//" ["n/"])
 ("n~~" ["n~"])
 ("o''" ["o'"])
 ("o--" ["o-"])
 ("o//" ["o/"])
 ("o::" ["o:"])
 ("o\"\"" ["o\""])
 ("o^^" ["o^"])
 ("o__" ["o_"])
 ("o``" ["o`"])
 ("o~~" ["o~"])
 ("r''" ["r'"])
 ("r,," ["r,"])
 ("r~~" ["r~"])
 ("s''" ["s'"])
 ("s,," ["s,"])
 ("s//" ["s/"])
 ("s^^" ["s^"])
 ("s~~" ["s~"])
 ("t,," ["t,"])
 ("t//" ["t/"])
 ("t~~" ["t~"])
 ("u''" ["u'"])
 ("u,," ["u,"])
 ("u--" ["u-"])
 ("u.." ["u."])
 ("u::" ["u:"])
 ("u\"\"" ["u\""])
 ("u^^" ["u^"])
 ("u``" ["u`"])
 ("u~~" ["u~"])
 ("y''" ["y'"])
 ("y\"\"" ["y\""])
 ("z''" ["z'"])
 ("z.." ["z."])
 ("z~~" ["z~"])
 )

;; Derived from Slovenian.kmap from Yudit
;; attributed as: 2001-11-11 Roman Maurer <roman.maurer@amis.net>
(quail-define-package
 "slovenian" "Slovenian" "Sl" t
 "Slovenian postfix input."
 nil t t t nil nil nil nil nil nil t)

(quail-define-rules
 ("C<" ?�)
 ("C'" ?�)
 ("D;" ?�)
 ("S<" ?�)
 ("Z<" ?貼)
 ("c<" ?�)
 ("c'" ?�)
 ("d;" ?�)
 ("s<" ?邸)
 ("z<" ?転))

;;; arch-tag: 170180fb-9617-4d58-9d51-65ca23c05d94
;;; latin-post.el ends here