Mercurial > hg > xemacs-beta

annotate lisp/its/its-han-kata.el @ 172:a38aed19690b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag r20-3b12 for changeset 929b76928fce
author cvs
date Mon, 13 Aug 2007 09:47:55 +0200
parents 8619ce7e4c50
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
70
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
1 ;; Basic Roma-to-HankakuKana (jisx0201) Translation Table for Egg
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
2
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
3 ;; This file is part of Egg on Mule (Japanese Environment)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
4
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
5 ;; Egg is distributed in the forms of patches to GNU
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
6 ;; Emacs under the terms of the GNU EMACS GENERAL PUBLIC
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
7 ;; LICENSE which is distributed along with GNU Emacs by the
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
8 ;; Free Software Foundation.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
9
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
10 ;; Egg is distributed in the hope that it will be useful,
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
11 ;; but WITHOUT ANY WARRANTY; without even the implied
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
12 ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
13 ;; PURPOSE. See the GNU EMACS GENERAL PUBLIC LICENSE for
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
14 ;; more details.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
15
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
16 ;; You should have received a copy of the GNU EMACS GENERAL
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
17 ;; PUBLIC LICENSE along with Nemacs; see the file COPYING.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
18 ;; If not, write to the Free Software Foundation, 675 Mass
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
19 ;; Ave, Cambridge, MA 02139, USA.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
20
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
21 ;;; 92.9.24 created for Mule Ver.0.9.6 by K.Shibata <shibata@sgi.co.jp>
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
22
114
8619ce7e4c50 Import from CVS: tag r20-1b9
cvs
parents: 70
diff changeset
23 (require 'egg-jisx0201)
70
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
24
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
25 (its-define-mode "roma-han-kata" "(I1'(B" t)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
26
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
27 (dolist (aa '("k" "s" "t" "h" "y" "r" "w" "g" "z" "d" "b"
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
28 "p" "c" "f" "j" "v"))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
29 (its-defrule (concat aa aa) "(I/(B" aa))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
30
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
31 (its-defrule "tch" "(I/(B" "ch")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
32
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
33 (dolist (q1 '("b" "m" "p"))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
34 (its-defrule (concat "m" q1) "(I](B" q1))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
35
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
36 (its-defrule "N" "(I](B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
37
114
8619ce7e4c50 Import from CVS: tag r20-1b9
cvs
parents: 70
diff changeset
38 (defvar enable-double-n-syntax nil "*Enable \"nn\" input for \"(I](B\"")
70
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
39
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
40 (its-defrule-conditional "n"
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
41 ((not enable-double-n-syntax) "(I](B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
42 (t nil))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
43 (its-defrule-conditional "nn"
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
44 ( enable-double-n-syntax "(I](B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
45 (t nil))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
46
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
47 (its-defrule "n'" "(I](B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
48
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
49 (let ((small '"x" ))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
50 (its-defrule (concat small "a") "(I'(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
51 (its-defrule (concat small "i") "(I((B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
52 (its-defrule (concat small "u") "(I)(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
53 (its-defrule (concat small "e") "(I*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
54 (its-defrule (concat small "o") "(I+(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
55 (its-defrule (concat small "ya") "(I,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
56 (its-defrule (concat small "yu") "(I-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
57 (its-defrule (concat small "yo") "(I.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
58 (its-defrule (concat small "tu") "(I/(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
59 (its-defrule (concat small "tsu") "(I/(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
60 )
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
61
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
62
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
63 (its-defrule "a" "(I1(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
64 (its-defrule "i" "(I2(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
65 (its-defrule "u" "(I3(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
66 (its-defrule "e" "(I4(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
67 (its-defrule "o" "(I5(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
68 (its-defrule "ka" "(I6(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
69 (its-defrule "ki" "(I7(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
70 (its-defrule "ku" "(I8(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
71 (its-defrule "ke" "(I9(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
72 (its-defrule "ko" "(I:(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
73 (its-defrule "kya" "(I7,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
74 (its-defrule "kyu" "(I7-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
75 (its-defrule "kye" "(I7*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
76 (its-defrule "kyo" "(I7.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
77 (its-defrule "sa" "(I;(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
78 (its-defrule "si" "(I<(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
79 (its-defrule "su" "(I=(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
80 (its-defrule "se" "(I>(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
81 (its-defrule "so" "(I?(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
82 (its-defrule "sya" "(I<,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
83 (its-defrule "syu" "(I<-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
84 (its-defrule "sye" "(I<*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
85 (its-defrule "syo" "(I<.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
86 (its-defrule "sha" "(I<,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
87 (its-defrule "shi" "(I<(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
88 (its-defrule "shu" "(I<-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
89 (its-defrule "she" "(I<*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
90 (its-defrule "sho" "(I<.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
91 (its-defrule "ta" "(I@(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
92 (its-defrule "ti" "(IA(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
93 (its-defrule "tu" "(IB(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
94 (its-defrule "te" "(IC(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
95 (its-defrule "to" "(ID(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
96 (its-defrule "tya" "(IA,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
97 (its-defrule "tyi" "(IC((B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
98 (its-defrule "tyu" "(IA-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
99 (its-defrule "tye" "(IA*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
100 (its-defrule "tyo" "(IA.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
101 (its-defrule "tsu" "(IB(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
102 (its-defrule "cha" "(IA,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
103 (its-defrule "chi" "(IA(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
104 (its-defrule "chu" "(IA-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
105 (its-defrule "che" "(IA*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
106 (its-defrule "cho" "(IA.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
107 (its-defrule "na" "(IE(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
108 (its-defrule "ni" "(IF(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
109 (its-defrule "nu" "(IG(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
110 (its-defrule "ne" "(IH(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
111 (its-defrule "no" "(II(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
112 (its-defrule "nya" "(IF,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
113 (its-defrule "nyu" "(IF-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
114 (its-defrule "nye" "(IF*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
115 (its-defrule "nyo" "(IF.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
116 (its-defrule "ha" "(IJ(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
117 (its-defrule "hi" "(IK(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
118 (its-defrule "hu" "(IL(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
119 (its-defrule "he" "(IM(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
120 (its-defrule "ho" "(IN(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
121 (its-defrule "hya" "(IK,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
122 (its-defrule "hyu" "(IK-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
123 (its-defrule "hye" "(IK*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
124 (its-defrule "hyo" "(IK.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
125 (its-defrule "fa" "(IL'(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
126 (its-defrule "fi" "(IL((B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
127 (its-defrule "fu" "(IL(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
128 (its-defrule "fe" "(IL*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
129 (its-defrule "fo" "(IL+(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
130 (its-defrule "ma" "(IO(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
131 (its-defrule "mi" "(IP(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
132 (its-defrule "mu" "(IQ(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
133 (its-defrule "me" "(IR(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
134 (its-defrule "mo" "(IS(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
135 (its-defrule "mya" "(IP,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
136 (its-defrule "myu" "(IP-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
137 (its-defrule "mye" "(IP*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
138 (its-defrule "myo" "(IP.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
139 (its-defrule "ya" "(IT(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
140 (its-defrule "yi" "(I2(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
141 (its-defrule "yu" "(IU(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
142 (its-defrule "ye" "(I2*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
143 (its-defrule "yo" "(IV(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
144 (its-defrule "ra" "(IW(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
145 (its-defrule "ri" "(IX(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
146 (its-defrule "ru" "(IY(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
147 (its-defrule "re" "(IZ(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
148 (its-defrule "ro" "(I[(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
149 (its-defrule "la" "(IW(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
150 (its-defrule "li" "(IX(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
151 (its-defrule "lu" "(IY(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
152 (its-defrule "le" "(IZ(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
153 (its-defrule "lo" "(I[(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
154 (its-defrule "rya" "(IX,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
155 (its-defrule "ryu" "(IX-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
156 (its-defrule "rye" "(IX*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
157 (its-defrule "ryo" "(IX.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
158 (its-defrule "lya" "(IX,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
159 (its-defrule "lyu" "(IX-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
160 (its-defrule "lye" "(IX*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
161 (its-defrule "lyo" "(IX.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
162 (its-defrule "wa" "(I\(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
163 (its-defrule "wu" "(I3(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
164 (its-defrule "wo" "(I&(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
165 (its-defrule "ga" "(I6^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
166 (its-defrule "gi" "(I7^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
167 (its-defrule "gu" "(I8^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
168 (its-defrule "ge" "(I9^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
169 (its-defrule "go" "(I:^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
170 (its-defrule "gya" "(I7^,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
171 (its-defrule "gyu" "(I7^-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
172 (its-defrule "gye" "(I7^*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
173 (its-defrule "gyo" "(I7^.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
174 (its-defrule "za" "(I;^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
175 (its-defrule "zi" "(I<^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
176 (its-defrule "zu" "(I=^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
177 (its-defrule "ze" "(I>^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
178 (its-defrule "zo" "(I?^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
179 (its-defrule "zya" "(I<^,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
180 (its-defrule "zyu" "(I<^-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
181 (its-defrule "zye" "(I<^*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
182 (its-defrule "zyo" "(I<^.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
183 (its-defrule "ja" "(I<^,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
184 (its-defrule "ji" "(I<^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
185 (its-defrule "ju" "(I<^-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
186 (its-defrule "je" "(I<^*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
187 (its-defrule "jo" "(I<^.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
188 (its-defrule "da" "(I@^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
189 (its-defrule "di" "(IA^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
190 (its-defrule "du" "(IB^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
191 (its-defrule "de" "(IC^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
192 (its-defrule "do" "(ID^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
193 (its-defrule "dya" "(IA^,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
194 (its-defrule "dyi" "(IA^((B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
195 (its-defrule "dyu" "(IA^-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
196 (its-defrule "dye" "(IA^*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
197 (its-defrule "dyo" "(IA^.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
198 (its-defrule "ba" "(IJ^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
199 (its-defrule "bi" "(IK^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
200 (its-defrule "bu" "(IL^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
201 (its-defrule "be" "(IM^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
202 (its-defrule "bo" "(IN^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
203 (its-defrule "va" "(I3^'(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
204 (its-defrule "vi" "(I3^((B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
205 (its-defrule "vu" "(I3^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
206 (its-defrule "ve" "(I3^*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
207 (its-defrule "vo" "(I3^+(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
208 (its-defrule "bya" "(IK^,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
209 (its-defrule "byu" "(IK^-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
210 (its-defrule "bye" "(IK^*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
211 (its-defrule "byo" "(IK^.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
212 (its-defrule "pa" "(IJ_(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
213 (its-defrule "pi" "(IK_(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
214 (its-defrule "pu" "(IL_(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
215 (its-defrule "pe" "(IM_(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
216 (its-defrule "po" "(IN_(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
217 (its-defrule "pya" "(IK_,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
218 (its-defrule "pyu" "(IK_-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
219 (its-defrule "pye" "(IK_*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
220 (its-defrule "pyo" "(IK_.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
221 (its-defrule "kwi" "(I8((B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
222 (its-defrule "kwu" "(I8(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
223 (its-defrule "kwe" "(I8*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
224 (its-defrule "kwo" "(I8+(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
225 (its-defrule "gwi" "(I8^((B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
226 (its-defrule "gwu" "(I8^(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
227 (its-defrule "gwe" "(I8^*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
228 (its-defrule "gwo" "(I8^+(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
229 (its-defrule "tsa" "(IB'(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
230 (its-defrule "tsi" "(IB((B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
231 (its-defrule "tse" "(IB*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
232 (its-defrule "tso" "(IB+(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
233 (its-defrule "xka" "(I6(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
234 (its-defrule "xke" "(I9(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
235 (its-defrule "xti" "(IC((B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
236 (its-defrule "xdi" "(IA^((B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
237 (its-defrule "xdu" "(ID^)(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
238 (its-defrule "xde" "(IA^*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
239 (its-defrule "xdo" "(ID^+(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
240 (its-defrule "xwi" "(I3((B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
241 (its-defrule "xwe" "(I3*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
242 (its-defrule "xwo" "(I3+(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
243
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
244 (its-defrule "-" "(I0(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
245 (its-defrule "[" "(I"(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
246 (its-defrule "]" "(I#(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
247 (its-defrule "z/" "(I%(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
248
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
249 (defvar use-kuten-for-period t "*(IK_X5D^$B$r6gE@$KJQ49$9$k(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
250 (defvar use-touten-for-comma t "*(I:]O$B$rFIE@$KJQ49$9$k(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
251
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
252 (its-defrule-conditional "."
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
253 (use-kuten-for-period "(I!(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
254 (t "."))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
255
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
256 (its-defrule-conditional ","
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
257 (use-touten-for-comma "(I$(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
258 (t ","))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
259
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
260 (its-defrule (concat zenkaku-escape ",") "$B!$(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
261 (its-defrule (concat zenkaku-escape ".") "$B!%(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
262
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
263 (defun its:select-hankaku-katakana ()
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
264 (interactive)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
265 (its:select-mode "roma-han-kata"))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
266
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
267 (define-key mule-keymap "x" 'its:select-hankaku-katakana)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
268 (define-key fence-mode-map "\e\C-x" 'its:select-hankaku-katakana)