Mercurial > hg > xemacs-beta

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