Mercurial > hg > xemacs-beta

comparison lisp/its/its-kata.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents
children 6b37e6ddd302
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;; Basic Roma-to-KataKana Translation Table for Egg
2 ;; Coded by S.Tomura, Electrotechnical Lab. (tomura@etl.go.jp)
3
4 ;; This file is part of Egg on Nemacs (Japanese Environment)
5
6 ;; Egg is distributed in the forms of patches to GNU
7 ;; Emacs under the terms of the GNU EMACS GENERAL PUBLIC
8 ;; LICENSE which is distributed along with GNU Emacs by the
9 ;; Free Software Foundation.
10
11 ;; Egg is distributed in the hope that it will be useful,
12 ;; but WITHOUT ANY WARRANTY; without even the implied
13 ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
14 ;; PURPOSE. See the GNU EMACS GENERAL PUBLIC LICENSE for
15 ;; more details.
16
17 ;; You should have received a copy of the GNU EMACS GENERAL
18 ;; PUBLIC LICENSE along with Nemacs; see the file COPYING.
19 ;; If not, write to the Free Software Foundation, 675 Mass
20 ;; Ave, Cambridge, MA 02139, USA.
21
22 ;; 90.3.2 modified for Nemacs Ver.3.3.1
23 ;; by jiro@math.keio.ac.jp (TANAKA Jiro)
24 ;; proposal of keybinding for JIS symbols
25 ;; 92.3.16 modified for Mule Ver.0.9.1 by K.Handa <handa@etl.go.jp>
26 ;; 92.3.23 modified for Mule Ver.0.9.1 by K.Handa <handa@etl.go.jp>
27 ;; defrule -> its-defrule, define-its-mode -> its-define-mode
28
29 ;; 92.3.16 by K.Handa
30 ;;(define-its-mode "roma-kata" " a$B%"(B" t)
31 (its-define-mode "roma-kata" "$B%"(B" t)
32
33 (dolist (aa '("k" "s" "t" "h" "y" "r" "w" "g" "z" "d" "b"
34 "p" "c" "f" "j" "v"))
35 (its-defrule (concat aa aa) "$B%C(B" aa))
36
37 (its-defrule "tch" "$B%C(B" "ch")
38
39 (dolist (q1 '("b" "m" "p"))
40 (its-defrule (concat "m" q1) "$B%s(B" q1))
41
42 (its-defrule "N" "$B%s(B")
43
44 (defvar enable-double-n-syntax nil "*Enable \"nn\" input for \"$B%s(B\" ")
45
46 (its-defrule-conditional "n"
47 ((not enable-double-n-syntax) "$B%s(B")
48 (t nil))
49 (its-defrule-conditional "nn"
50 ( enable-double-n-syntax "$B%s(B")
51 (t nil))
52
53 (its-defrule "n'" "$B%s(B")
54
55 (let ((small '"x" ))
56 (its-defrule (concat small "a") "$B%!(B")
57 (its-defrule (concat small "i") "$B%#(B")
58 (its-defrule (concat small "u") "$B%%(B")
59 (its-defrule (concat small "e") "$B%'(B")
60 (its-defrule (concat small "o") "$B%)(B")
61 (its-defrule (concat small "ya") "$B%c(B")
62 (its-defrule (concat small "yu") "$B%e(B")
63 (its-defrule (concat small "yo") "$B%g(B")
64 (its-defrule (concat small "tu") "$B%C(B")
65 (its-defrule (concat small "tsu") "$B%C(B")
66 (its-defrule (concat small "wa") "$B%n(B")
67 )
68
69 (its-defrule "a" "$B%"(B")
70 (its-defrule "i" "$B%$(B")
71 (its-defrule "u" "$B%&(B")
72 (its-defrule "e" "$B%((B")
73 (its-defrule "o" "$B%*(B")
74 (its-defrule "ka" "$B%+(B")
75 (its-defrule "ki" "$B%-(B")
76 (its-defrule "ku" "$B%/(B")
77 (its-defrule "ke" "$B%1(B")
78 (its-defrule "ko" "$B%3(B")
79 (its-defrule "kya" "$B%-%c(B")
80 (its-defrule "kyu" "$B%-%e(B")
81 (its-defrule "kye" "$B%-%'(B")
82 (its-defrule "kyo" "$B%-%g(B")
83 (its-defrule "sa" "$B%5(B")
84 (its-defrule "si" "$B%7(B")
85 (its-defrule "su" "$B%9(B")
86 (its-defrule "se" "$B%;(B")
87 (its-defrule "so" "$B%=(B")
88 (its-defrule "sya" "$B%7%c(B")
89 (its-defrule "syu" "$B%7%e(B")
90 (its-defrule "sye" "$B%7%'(B")
91 (its-defrule "syo" "$B%7%g(B")
92 (its-defrule "sha" "$B%7%c(B")
93 (its-defrule "shi" "$B%7(B")
94 (its-defrule "shu" "$B%7%e(B")
95 (its-defrule "she" "$B%7%'(B")
96 (its-defrule "sho" "$B%7%g(B")
97 (its-defrule "ta" "$B%?(B")
98 (its-defrule "ti" "$B%A(B")
99 (its-defrule "tu" "$B%D(B")
100 (its-defrule "te" "$B%F(B")
101 (its-defrule "to" "$B%H(B")
102 (its-defrule "tya" "$B%A%c(B")
103 (its-defrule "tyi" "$B%F%#(B")
104 (its-defrule "tyu" "$B%A%e(B")
105 (its-defrule "tye" "$B%A%'(B")
106 (its-defrule "tyo" "$B%A%g(B")
107 (its-defrule "tsu" "$B%D(B")
108 (its-defrule "cha" "$B%A%c(B")
109 (its-defrule "chi" "$B%A(B")
110 (its-defrule "chu" "$B%A%e(B")
111 (its-defrule "che" "$B%A%'(B")
112 (its-defrule "cho" "$B%A%g(B")
113 (its-defrule "na" "$B%J(B")
114 (its-defrule "ni" "$B%K(B")
115 (its-defrule "nu" "$B%L(B")
116 (its-defrule "ne" "$B%M(B")
117 (its-defrule "no" "$B%N(B")
118 (its-defrule "nya" "$B%K%c(B")
119 (its-defrule "nyu" "$B%K%e(B")
120 (its-defrule "nye" "$B%K%'(B")
121 (its-defrule "nyo" "$B%K%g(B")
122 (its-defrule "ha" "$B%O(B")
123 (its-defrule "hi" "$B%R(B")
124 (its-defrule "hu" "$B%U(B")
125 (its-defrule "he" "$B%X(B")
126 (its-defrule "ho" "$B%[(B")
127 (its-defrule "hya" "$B%R%c(B")
128 (its-defrule "hyu" "$B%R%e(B")
129 (its-defrule "hye" "$B%R%'(B")
130 (its-defrule "hyo" "$B%R%g(B")
131 (its-defrule "fa" "$B%U%!(B")
132 (its-defrule "fi" "$B%U%#(B")
133 (its-defrule "fu" "$B%U(B")
134 (its-defrule "fe" "$B%U%'(B")
135 (its-defrule "fo" "$B%U%)(B")
136 (its-defrule "ma" "$B%^(B")
137 (its-defrule "mi" "$B%_(B")
138 (its-defrule "mu" "$B%`(B")
139 (its-defrule "me" "$B%a(B")
140 (its-defrule "mo" "$B%b(B")
141 (its-defrule "mya" "$B%_%c(B")
142 (its-defrule "myu" "$B%_%e(B")
143 (its-defrule "mye" "$B%_%'(B")
144 (its-defrule "myo" "$B%_%g(B")
145 (its-defrule "ya" "$B%d(B")
146 (its-defrule "yi" "$B%$(B")
147 (its-defrule "yu" "$B%f(B")
148 (its-defrule "ye" "$B%$%'(B")
149 (its-defrule "yo" "$B%h(B")
150 (its-defrule "ra" "$B%i(B")
151 (its-defrule "ri" "$B%j(B")
152 (its-defrule "ru" "$B%k(B")
153 (its-defrule "re" "$B%l(B")
154 (its-defrule "ro" "$B%m(B")
155 (its-defrule "la" "$B%i(B")
156 (its-defrule "li" "$B%j(B")
157 (its-defrule "lu" "$B%k(B")
158 (its-defrule "le" "$B%l(B")
159 (its-defrule "lo" "$B%m(B")
160 (its-defrule "rya" "$B%j%c(B")
161 (its-defrule "ryu" "$B%j%e(B")
162 (its-defrule "rye" "$B%j%'(B")
163 (its-defrule "ryo" "$B%j%g(B")
164 (its-defrule "lya" "$B%j%c(B")
165 (its-defrule "lyu" "$B%j%e(B")
166 (its-defrule "lye" "$B%j%'(B")
167 (its-defrule "lyo" "$B%j%g(B")
168 (its-defrule "wa" "$B%o(B")
169 (its-defrule "wi" "$B%p(B")
170 (its-defrule "wu" "$B%&(B")
171 (its-defrule "we" "$B%q(B")
172 (its-defrule "wo" "$B%r(B")
173 (its-defrule "ga" "$B%,(B")
174 (its-defrule "gi" "$B%.(B")
175 (its-defrule "gu" "$B%0(B")
176 (its-defrule "ge" "$B%2(B")
177 (its-defrule "go" "$B%4(B")
178 (its-defrule "gya" "$B%.%c(B")
179 (its-defrule "gyu" "$B%.%e(B")
180 (its-defrule "gye" "$B%.%'(B")
181 (its-defrule "gyo" "$B%.%g(B")
182 (its-defrule "za" "$B%6(B")
183 (its-defrule "zi" "$B%8(B")
184 (its-defrule "zu" "$B%:(B")
185 (its-defrule "ze" "$B%<(B")
186 (its-defrule "zo" "$B%>(B")
187 (its-defrule "zya" "$B%8%c(B")
188 (its-defrule "zyu" "$B%8%e(B")
189 (its-defrule "zye" "$B%8%'(B")
190 (its-defrule "zyo" "$B%8%g(B")
191 (its-defrule "ja" "$B%8%c(B")
192 (its-defrule "ji" "$B%8(B")
193 (its-defrule "ju" "$B%8%e(B")
194 (its-defrule "je" "$B%8%'(B")
195 (its-defrule "jo" "$B%8%g(B")
196 (its-defrule "da" "$B%@(B")
197 (its-defrule "di" "$B%B(B")
198 (its-defrule "du" "$B%E(B")
199 (its-defrule "de" "$B%G(B")
200 (its-defrule "do" "$B%I(B")
201 (its-defrule "dya" "$B%B%c(B")
202 (its-defrule "dyi" "$B%G%#(B")
203 (its-defrule "dyu" "$B%B%e(B")
204 (its-defrule "dye" "$B%B%'(B")
205 (its-defrule "dyo" "$B%B%g(B")
206 (its-defrule "ba" "$B%P(B")
207 (its-defrule "bi" "$B%S(B")
208 (its-defrule "bu" "$B%V(B")
209 (its-defrule "be" "$B%Y(B")
210 (its-defrule "bo" "$B%\(B")
211 (its-defrule "va" "$B%t%!(B")
212 (its-defrule "vi" "$B%t%#(B")
213 (its-defrule "vu" "$B%t(B")
214 (its-defrule "ve" "$B%t%'(B")
215 (its-defrule "vo" "$B%t%)(B")
216 (its-defrule "bya" "$B%S%c(B")
217 (its-defrule "byu" "$B%S%e(B")
218 (its-defrule "bye" "$B%S%'(B")
219 (its-defrule "byo" "$B%S%g(B")
220 (its-defrule "pa" "$B%Q(B")
221 (its-defrule "pi" "$B%T(B")
222 (its-defrule "pu" "$B%W(B")
223 (its-defrule "pe" "$B%Z(B")
224 (its-defrule "po" "$B%](B")
225 (its-defrule "pya" "$B%T%c(B")
226 (its-defrule "pyu" "$B%T%e(B")
227 (its-defrule "pye" "$B%T%'(B")
228 (its-defrule "pyo" "$B%T%g(B")
229 (its-defrule "kwa" "$B%/%n(B")
230 (its-defrule "kwi" "$B%/%#(B")
231 (its-defrule "kwu" "$B%/(B")
232 (its-defrule "kwe" "$B%/%'(B")
233 (its-defrule "kwo" "$B%/%)(B")
234 (its-defrule "gwa" "$B%0%n(B")
235 (its-defrule "gwi" "$B%0%#(B")
236 (its-defrule "gwu" "$B%0(B")
237 (its-defrule "gwe" "$B%0%'(B")
238 (its-defrule "gwo" "$B%0%)(B")
239 (its-defrule "tsa" "$B%D%!(B")
240 (its-defrule "tsi" "$B%D%#(B")
241 (its-defrule "tse" "$B%D%'(B")
242 (its-defrule "tso" "$B%D%)(B")
243 (its-defrule "xka" "$B%u(B")
244 (its-defrule "xke" "$B%v(B")
245 (its-defrule "xti" "$B%F%#(B")
246 (its-defrule "xdi" "$B%G%#(B")
247 (its-defrule "xdu" "$B%I%%(B")
248 (its-defrule "xde" "$B%G%'(B")
249 (its-defrule "xdo" "$B%I%)(B")
250 ;(its-defrule "xwa" "$B%n(B")
251 (its-defrule "xwi" "$B%&%#(B")
252 (its-defrule "xwe" "$B%&%'(B")
253 (its-defrule "xwo" "$B%&%)(B")
254
255 ;;; Zenkaku Symbols
256
257 (its-defrule "1" "$B#1(B")
258 (its-defrule "2" "$B#2(B")
259 (its-defrule "3" "$B#3(B")
260 (its-defrule "4" "$B#4(B")
261 (its-defrule "5" "$B#5(B")
262 (its-defrule "6" "$B#6(B")
263 (its-defrule "7" "$B#7(B")
264 (its-defrule "8" "$B#8(B")
265 (its-defrule "9" "$B#9(B")
266 (its-defrule "0" "$B#0(B")
267
268 ;;;(its-defrule " " "$B!!(B")
269 (its-defrule "!" "$B!*(B")
270 (its-defrule "@" "$B!w(B")
271 (its-defrule "#" "$B!t(B")
272 (its-defrule "$" "$B!p(B")
273 (its-defrule "%" "$B!s(B")
274 (its-defrule "^" "$B!0(B")
275 (its-defrule "&" "$B!u(B")
276 (its-defrule "*" "$B!v(B")
277 (its-defrule "(" "$B!J(B")
278 (its-defrule ")" "$B!K(B")
279 (its-defrule "-" "$B!<(B") ;;; JIS 213c ;;;(its-defrule "-" "$B!](B")
280 (its-defrule "=" "$B!a(B")
281 (its-defrule "`" "$B!.(B")
282 (its-defrule "\\" "$B!o(B")
283 (its-defrule "|" "$B!C(B")
284 (its-defrule "_" "$B!2(B")
285 (its-defrule "+" "$B!\(B")
286 (its-defrule "~" "$B!1(B")
287 (its-defrule "[" "$B!V(B") ;;(its-defrule "[" "$B!N(B")
288 (its-defrule "]" "$B!W(B") ;;(its-defrule "]" "$B!O(B")
289 (its-defrule "{" "$B!P(B")
290 (its-defrule "}" "$B!Q(B")
291 (its-defrule ":" "$B!'(B")
292 (its-defrule ";" "$B!((B")
293 (its-defrule "\"" "$B!I(B")
294 (its-defrule "'" "$B!G(B")
295 (its-defrule "<" "$B!c(B")
296 (its-defrule ">" "$B!d(B")
297 (its-defrule "?" "$B!)(B")
298 (its-defrule "/" "$B!?(B")
299
300 (defvar use-kuten-for-period t "*$B%T%j%*%I$r6gE@$KJQ49$9$k(B")
301 (defvar use-touten-for-comma t "*$B%3%s%^$rFIE@$KJQ49$9$k(B")
302
303 (its-defrule-conditional "."
304 (use-kuten-for-period "$B!#(B")
305 (t "$B!%(B"))
306
307 (its-defrule-conditional ","
308 (use-touten-for-comma "$B!"(B")
309 (t "$B!$(B"))
310
311 ;;; Escape character to Zenkaku inputs
312
313 (defvar zenkaku-escape "Z")
314
315 ;;; Escape character to Hankaku inputs
316
317 (defvar hankaku-escape "~")
318 ;;;
319 ;;; Zenkaku inputs
320 ;;;
321
322 (its-defrule (concat zenkaku-escape "0") "$B#0(B")
323 (its-defrule (concat zenkaku-escape "1") "$B#1(B")
324 (its-defrule (concat zenkaku-escape "2") "$B#2(B")
325 (its-defrule (concat zenkaku-escape "3") "$B#3(B")
326 (its-defrule (concat zenkaku-escape "4") "$B#4(B")
327 (its-defrule (concat zenkaku-escape "5") "$B#5(B")
328 (its-defrule (concat zenkaku-escape "6") "$B#6(B")
329 (its-defrule (concat zenkaku-escape "7") "$B#7(B")
330 (its-defrule (concat zenkaku-escape "8") "$B#8(B")
331 (its-defrule (concat zenkaku-escape "9") "$B#9(B")
332
333 (its-defrule (concat zenkaku-escape "A") "$B#A(B")
334 (its-defrule (concat zenkaku-escape "B") "$B#B(B")
335 (its-defrule (concat zenkaku-escape "C") "$B#C(B")
336 (its-defrule (concat zenkaku-escape "D") "$B#D(B")
337 (its-defrule (concat zenkaku-escape "E") "$B#E(B")
338 (its-defrule (concat zenkaku-escape "F") "$B#F(B")
339 (its-defrule (concat zenkaku-escape "G") "$B#G(B")
340 (its-defrule (concat zenkaku-escape "H") "$B#H(B")
341 (its-defrule (concat zenkaku-escape "I") "$B#I(B")
342 (its-defrule (concat zenkaku-escape "J") "$B#J(B")
343 (its-defrule (concat zenkaku-escape "K") "$B#K(B")
344 (its-defrule (concat zenkaku-escape "L") "$B#L(B")
345 (its-defrule (concat zenkaku-escape "M") "$B#M(B")
346 (its-defrule (concat zenkaku-escape "N") "$B#N(B")
347 (its-defrule (concat zenkaku-escape "O") "$B#O(B")
348 (its-defrule (concat zenkaku-escape "P") "$B#P(B")
349 (its-defrule (concat zenkaku-escape "Q") "$B#Q(B")
350 (its-defrule (concat zenkaku-escape "R") "$B#R(B")
351 (its-defrule (concat zenkaku-escape "S") "$B#S(B")
352 (its-defrule (concat zenkaku-escape "T") "$B#T(B")
353 (its-defrule (concat zenkaku-escape "U") "$B#U(B")
354 (its-defrule (concat zenkaku-escape "V") "$B#V(B")
355 (its-defrule (concat zenkaku-escape "W") "$B#W(B")
356 (its-defrule (concat zenkaku-escape "X") "$B#X(B")
357 (its-defrule (concat zenkaku-escape "Y") "$B#Y(B")
358 (its-defrule (concat zenkaku-escape "Z") "$B#Z(B")
359
360 (its-defrule (concat zenkaku-escape "a") "$B#a(B")
361 (its-defrule (concat zenkaku-escape "b") "$B#b(B")
362 (its-defrule (concat zenkaku-escape "c") "$B#c(B")
363 (its-defrule (concat zenkaku-escape "d") "$B#d(B")
364 (its-defrule (concat zenkaku-escape "e") "$B#e(B")
365 (its-defrule (concat zenkaku-escape "f") "$B#f(B")
366 (its-defrule (concat zenkaku-escape "g") "$B#g(B")
367 (its-defrule (concat zenkaku-escape "h") "$B#h(B")
368 (its-defrule (concat zenkaku-escape "i") "$B#i(B")
369 (its-defrule (concat zenkaku-escape "j") "$B#j(B")
370 (its-defrule (concat zenkaku-escape "k") "$B#k(B")
371 (its-defrule (concat zenkaku-escape "l") "$B#l(B")
372 (its-defrule (concat zenkaku-escape "m") "$B#m(B")
373 (its-defrule (concat zenkaku-escape "n") "$B#n(B")
374 (its-defrule (concat zenkaku-escape "o") "$B#o(B")
375 (its-defrule (concat zenkaku-escape "p") "$B#p(B")
376 (its-defrule (concat zenkaku-escape "q") "$B#q(B")
377 (its-defrule (concat zenkaku-escape "r") "$B#r(B")
378 (its-defrule (concat zenkaku-escape "s") "$B#s(B")
379 (its-defrule (concat zenkaku-escape "t") "$B#t(B")
380 (its-defrule (concat zenkaku-escape "u") "$B#u(B")
381 (its-defrule (concat zenkaku-escape "v") "$B#v(B")
382 (its-defrule (concat zenkaku-escape "w") "$B#w(B")
383 (its-defrule (concat zenkaku-escape "x") "$B#x(B")
384 (its-defrule (concat zenkaku-escape "y") "$B#y(B")
385 (its-defrule (concat zenkaku-escape "z") "$B#z(B")
386
387 (its-defrule (concat zenkaku-escape " ") "$B!!(B")
388 (its-defrule (concat zenkaku-escape "!") "$B!*(B")
389 (its-defrule (concat zenkaku-escape "@") "$B!w(B")
390 (its-defrule (concat zenkaku-escape "#") "$B!t(B")
391 (its-defrule (concat zenkaku-escape "$") "$B!p(B")
392 (its-defrule (concat zenkaku-escape "%") "$B!s(B")
393 (its-defrule (concat zenkaku-escape "^") "$B!0(B")
394 (its-defrule (concat zenkaku-escape "&") "$B!u(B")
395 (its-defrule (concat zenkaku-escape "*") "$B!v(B")
396 (its-defrule (concat zenkaku-escape "(") "$B!J(B")
397 (its-defrule (concat zenkaku-escape ")") "$B!K(B")
398 (its-defrule (concat zenkaku-escape "-") "$B!](B")
399 (its-defrule (concat zenkaku-escape "=") "$B!a(B")
400 (its-defrule (concat zenkaku-escape "`") "$B!.(B")
401 (its-defrule (concat zenkaku-escape "\\") "$B!o(B")
402 (its-defrule (concat zenkaku-escape "|") "$B!C(B")
403 (its-defrule (concat zenkaku-escape "_") "$B!2(B")
404 (its-defrule (concat zenkaku-escape "+") "$B!\(B")
405 (its-defrule (concat zenkaku-escape "~") "$B!1(B")
406 (its-defrule (concat zenkaku-escape "[") "$B!N(B")
407 (its-defrule (concat zenkaku-escape "]") "$B!O(B")
408 (its-defrule (concat zenkaku-escape "{") "$B!P(B")
409 (its-defrule (concat zenkaku-escape "}") "$B!Q(B")
410 (its-defrule (concat zenkaku-escape ":") "$B!'(B")
411 (its-defrule (concat zenkaku-escape ";") "$B!((B")
412 (its-defrule (concat zenkaku-escape "\"") "$B!I(B")
413 (its-defrule (concat zenkaku-escape "'") "$B!G(B")
414 (its-defrule (concat zenkaku-escape "<") "$B!c(B")
415 (its-defrule (concat zenkaku-escape ">") "$B!d(B")
416 (its-defrule (concat zenkaku-escape "?") "$B!)(B")
417 (its-defrule (concat zenkaku-escape "/") "$B!?(B")
418 (its-defrule (concat zenkaku-escape ",") "$B!$(B")
419 (its-defrule (concat zenkaku-escape ".") "$B!%(B")
420
421 ;;;
422 ;;; Hankaku inputs
423 ;;;
424
425 ;;(defvar escd '("-" "," "." "/" ";" ":" "[" "\\" "]" "^" "~"))
426 ;;(its-defrule '("x" escd) '(escd))
427
428
429 (defvar digit-characters
430 '( "1" "2" "3" "4" "5" "6" "7" "8" "9" "0" ))
431
432 (defvar symbol-characters
433 '( " " "!" "@" "#" "$" "%" "^" "&" "*" "(" ")"
434 "-" "=" "`" "\\" "|" "_" "+" "~" "[" "]" "{" "}"
435 ":" ";" "\"" "'" "<" ">" "?" "/" "," "." ))
436
437 (defvar downcase-alphabets
438 '("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n"
439 "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))
440
441 (defvar upcase-alphabets
442 '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N"
443 "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"))
444
445 (dolist (digit digit-characters)
446 (its-defrule (concat hankaku-escape digit) digit))
447
448 (dolist (symbol symbol-characters)
449 (its-defrule (concat hankaku-escape symbol) symbol))
450
451 (dolist (downcase downcase-alphabets)
452 (its-defrule (concat hankaku-escape downcase) downcase))
453
454 (dolist (upcase upcase-alphabets)
455 (its-defrule (concat hankaku-escape upcase) upcase))
456
457 ;;; proposal key bindings for JIS symbols
458 ;;; 90.3.2 by jiro@math.keio.ac.jp (TANAKA Jiro)
459
460 (its-defrule "z1" "$B!{(B") (its-defrule "z!" "$B!|(B")
461 (its-defrule "z2" "$B"&(B") (its-defrule "z@" "$B"'(B")
462 (its-defrule "z3" "$B"$(B") (its-defrule "z#" "$B"%(B")
463 (its-defrule "z4" "$B""(B") (its-defrule "z$" "$B"#(B")
464 (its-defrule "z5" "$B!~(B") (its-defrule "z%" "$B"!(B")
465 (its-defrule "z6" "$B!y(B") (its-defrule "z^" "$B!z(B")
466 (its-defrule "z7" "$B!}(B") (its-defrule "z&" "$B!r(B")
467 (its-defrule "z8" "$B!q(B") (its-defrule "z*" "$B!_(B")
468 (its-defrule "z9" "$B!i(B") (its-defrule "z(" "$B!Z(B")
469 (its-defrule "z0" "$B!j(B") (its-defrule "z)" "$B![(B")
470 (its-defrule "z-" "$B!A(B") (its-defrule "z_" "$B!h(B") ; z-
471 (its-defrule "z=" "$B!b(B") (its-defrule "z+" "$B!^(B")
472 (its-defrule "z\\" "$B!@(B") (its-defrule "z|" "$B!B(B")
473 (its-defrule "z`" "$B!-(B") (its-defrule "z~" "$B!/(B")
474
475 (its-defrule "zq" "$B!T(B") (its-defrule "zQ" "$B!R(B")
476 (its-defrule "zw" "$B!U(B") (its-defrule "zW" "$B!S(B")
477 ; e
478 (its-defrule "zr" "$B!9(B") (its-defrule "zR" "$B!8(B") ; zr
479 (its-defrule "zt" "$B!:(B") (its-defrule "zT" "$B!x(B")
480 ; y u i o
481 (its-defrule "zp" "$B")(B") (its-defrule "zP" "$B",(B") ; zp
482 (its-defrule "z[" "$B!X(B") (its-defrule "z{" "$B!L(B") ; z[
483 (its-defrule "z]" "$B!Y(B") (its-defrule "z}" "$B!M(B") ; z]
484
485 ; a
486 (its-defrule "zs" "$B!3(B") (its-defrule "zS" "$B!4(B")
487 (its-defrule "zd" "$B!5(B") (its-defrule "zD" "$B!6(B")
488 (its-defrule "zf" "$B!7(B") (its-defrule "zF" "$B"*(B")
489 (its-defrule "zg" "$B!>(B") (its-defrule "zG" "$B!=(B")
490 (its-defrule "zh" "$B"+(B")
491 (its-defrule "zj" "$B"-(B")
492 (its-defrule "zk" "$B",(B")
493 (its-defrule "zl" "$B"*(B")
494 (its-defrule "z;" "$B!+(B") (its-defrule "z:" "$B!,(B")
495 (its-defrule "z\'" "$B!F(B") (its-defrule "z\"" "$B!H(B")
496
497 ; z
498 (its-defrule "zx" ":-") (its-defrule "zX" ":-)")
499 (its-defrule "zc" "$B!;(B") (its-defrule "zC" "$B!n(B") ; zc
500 (its-defrule "zv" "$B"((B") (its-defrule "zV" "$B!`(B")
501 (its-defrule "zb" "$B!k(B") (its-defrule "zB" "$B"+(B")
502 (its-defrule "zn" "$B!l(B") (its-defrule "zN" "$B"-(B")
503 (its-defrule "zm" "$B!m(B") (its-defrule "zM" "$B".(B")
504 (its-defrule "z," "$B!E(B") (its-defrule "z<" "$B!e(B")
505 (its-defrule "z." "$B!D(B") (its-defrule "z>" "$B!f(B") ; z.
506 (its-defrule "z/" "$B!&(B") (its-defrule "z?" "$B!g(B") ; z/
507
508 ;;; Commented out by K.Handa. Already defined in a different way.
509 ;(its-defrule "va" "$B%t%!(B")
510 ;(its-defrule "vi" "$B%t%#(B")
511 ;(its-defrule "vu" "$B%t(B")
512 ;(its-defrule "ve" "$B%t%'(B")
513 ;(its-defrule "vo" "$B%t%)(B")