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