Mercurial > hg > xemacs-beta

comparison lisp/its/its-zenkaku.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
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 ;; 92.3.16 modified for Mule Ver.0.9.1 by K.Handa <handa@etl.go.jp>
23 ;; 92.3.23 modified for Mule Ver.0.9.1 by K.Handa <handa@etl.go.jp>
24 ;; defrule -> its-defrule, define-its-mode -> its-define-mode
25 ;;; 92.12.31 modified for Mule Ver.0.9.7.1
26 ;;; by A.Tanaka <aries@ecs.isl.melco.co.jp>
27 ;;; Mode indicator of "zenkaku-upcase" fixed.
28
29 ;; 92.3.16 by K.Handa
30 ;;(define-its-mode "zenkaku-downcase" " aａ" t)
31 (its-define-mode "zenkaku-downcase" "ａ" t)
32
33 (its-defrule "0" "０")
34 (its-defrule "1" "１")
35 (its-defrule "2" "２")
36 (its-defrule "3" "３")
37 (its-defrule "4" "４")
38 (its-defrule "5" "５")
39 (its-defrule "6" "６")
40 (its-defrule "7" "７")
41 (its-defrule "8" "８")
42 (its-defrule "9" "９")
43
44 (its-defrule "A" "Ａ")
45 (its-defrule "B" "Ｂ")
46 (its-defrule "C" "Ｃ")
47 (its-defrule "D" "Ｄ")
48 (its-defrule "E" "Ｅ")
49 (its-defrule "F" "Ｆ")
50 (its-defrule "G" "Ｇ")
51 (its-defrule "H" "Ｈ")
52 (its-defrule "I" "Ｉ")
53 (its-defrule "J" "Ｊ")
54 (its-defrule "K" "Ｋ")
55 (its-defrule "L" "Ｌ")
56 (its-defrule "M" "Ｍ")
57 (its-defrule "N" "Ｎ")
58 (its-defrule "O" "Ｏ")
59 (its-defrule "P" "Ｐ")
60 (its-defrule "Q" "Ｑ")
61 (its-defrule "R" "Ｒ")
62 (its-defrule "S" "Ｓ")
63 (its-defrule "T" "Ｔ")
64 (its-defrule "U" "Ｕ")
65 (its-defrule "V" "Ｖ")
66 (its-defrule "W" "Ｗ")
67 (its-defrule "X" "Ｘ")
68 (its-defrule "Y" "Ｙ")
69 (its-defrule "Z" "Ｚ")
70
71 (its-defrule "a" "ａ")
72 (its-defrule "b" "ｂ")
73 (its-defrule "c" "ｃ")
74 (its-defrule "d" "ｄ")
75 (its-defrule "e" "ｅ")
76 (its-defrule "f" "ｆ")
77 (its-defrule "g" "ｇ")
78 (its-defrule "h" "ｈ")
79 (its-defrule "i" "ｉ")
80 (its-defrule "j" "ｊ")
81 (its-defrule "k" "ｋ")
82 (its-defrule "l" "ｌ")
83 (its-defrule "m" "ｍ")
84 (its-defrule "n" "ｎ")
85 (its-defrule "o" "ｏ")
86 (its-defrule "p" "ｐ")
87 (its-defrule "q" "ｑ")
88 (its-defrule "r" "ｒ")
89 (its-defrule "s" "ｓ")
90 (its-defrule "t" "ｔ")
91 (its-defrule "u" "ｕ")
92 (its-defrule "v" "ｖ")
93 (its-defrule "w" "ｗ")
94 (its-defrule "x" "ｘ")
95 (its-defrule "y" "ｙ")
96 (its-defrule "z" "ｚ")
97
98 (its-defrule " " "　")
99 (its-defrule "!" "！")
100 (its-defrule "@" "＠")
101 (its-defrule "#" "＃")
102 (its-defrule "$" "＄")
103 (its-defrule "%" "％")
104 (its-defrule "^" "＾")
105 (its-defrule "&" "＆")
106 (its-defrule "*" "＊")
107 (its-defrule "(" "（")
108 (its-defrule ")" "）")
109 (its-defrule "-" "−")
110 (its-defrule "=" "＝")
111 (its-defrule "`" "｀")
112 (its-defrule "\\" "￥")
113 (its-defrule "|" "｜")
114 (its-defrule "_" "＿")
115 (its-defrule "+" "＋")
116 (its-defrule "~" "￣")
117 (its-defrule "[" "［")
118 (its-defrule "]" "］")
119 (its-defrule "{" "｛")
120 (its-defrule "}" "｝")
121 (its-defrule ":" "：")
122 (its-defrule ";" "；")
123 (its-defrule "\"" "”")
124 (its-defrule "'" "’")
125 (its-defrule "<" "＜")
126 (its-defrule ">" "＞")
127 (its-defrule "?" "？")
128 (its-defrule "/" "／")
129 (its-defrule "," "，")
130 (its-defrule "." "．")
131
132 ;;;
133 ;;;
134 ;;;
135
136 (its-define-mode "zenkaku-upcase" "Ａ" t) ;92.12.31 by A.Tanaka
137
138 (its-defrule "0" "０")
139 (its-defrule "1" "１")
140 (its-defrule "2" "２")
141 (its-defrule "3" "３")
142 (its-defrule "4" "４")
143 (its-defrule "5" "５")
144 (its-defrule "6" "６")
145 (its-defrule "7" "７")
146 (its-defrule "8" "８")
147 (its-defrule "9" "９")
148
149 (its-defrule "A" "Ａ")
150 (its-defrule "B" "Ｂ")
151 (its-defrule "C" "Ｃ")
152 (its-defrule "D" "Ｄ")
153 (its-defrule "E" "Ｅ")
154 (its-defrule "F" "Ｆ")
155 (its-defrule "G" "Ｇ")
156 (its-defrule "H" "Ｈ")
157 (its-defrule "I" "Ｉ")
158 (its-defrule "J" "Ｊ")
159 (its-defrule "K" "Ｋ")
160 (its-defrule "L" "Ｌ")
161 (its-defrule "M" "Ｍ")
162 (its-defrule "N" "Ｎ")
163 (its-defrule "O" "Ｏ")
164 (its-defrule "P" "Ｐ")
165 (its-defrule "Q" "Ｑ")
166 (its-defrule "R" "Ｒ")
167 (its-defrule "S" "Ｓ")
168 (its-defrule "T" "Ｔ")
169 (its-defrule "U" "Ｕ")
170 (its-defrule "V" "Ｖ")
171 (its-defrule "W" "Ｗ")
172 (its-defrule "X" "Ｘ")
173 (its-defrule "Y" "Ｙ")
174 (its-defrule "Z" "Ｚ")
175
176 (its-defrule "a" "Ａ")
177 (its-defrule "b" "Ｂ")
178 (its-defrule "c" "Ｃ")
179 (its-defrule "d" "Ｄ")
180 (its-defrule "e" "Ｅ")
181 (its-defrule "f" "Ｆ")
182 (its-defrule "g" "Ｇ")
183 (its-defrule "h" "Ｈ")
184 (its-defrule "i" "Ｉ")
185 (its-defrule "j" "Ｊ")
186 (its-defrule "k" "Ｋ")
187 (its-defrule "l" "Ｌ")
188 (its-defrule "m" "Ｍ")
189 (its-defrule "n" "Ｎ")
190 (its-defrule "o" "Ｏ")
191 (its-defrule "p" "Ｐ")
192 (its-defrule "q" "Ｑ")
193 (its-defrule "r" "Ｒ")
194 (its-defrule "s" "Ｓ")
195 (its-defrule "t" "Ｔ")
196 (its-defrule "u" "Ｕ")
197 (its-defrule "v" "Ｖ")
198 (its-defrule "w" "Ｗ")
199 (its-defrule "x" "Ｘ")
200 (its-defrule "y" "Ｙ")
201 (its-defrule "z" "Ｚ")
202
203 (its-defrule " " "　")
204 (its-defrule "!" "！")
205 (its-defrule "@" "＠")
206 (its-defrule "#" "＃")
207 (its-defrule "$" "＄")
208 (its-defrule "%" "％")
209 (its-defrule "^" "＾")
210 (its-defrule "&" "＆")
211 (its-defrule "*" "＊")
212 (its-defrule "(" "（")
213 (its-defrule ")" "）")
214 (its-defrule "-" "−")
215 (its-defrule "=" "＝")
216 (its-defrule "`" "｀")
217 (its-defrule "\\" "￥")
218 (its-defrule "|" "｜")
219 (its-defrule "_" "＿")
220 (its-defrule "+" "＋")
221 (its-defrule "~" "￣")
222 (its-defrule "[" "［")
223 (its-defrule "]" "］")
224 (its-defrule "{" "｛")
225 (its-defrule "}" "｝")
226 (its-defrule ":" "：")
227 (its-defrule ";" "；")
228 (its-defrule "\"" "”")
229 (its-defrule "'" "’")
230 (its-defrule "<" "＜")
231 (its-defrule ">" "＞")
232 (its-defrule "?" "？")
233 (its-defrule "/" "／")
234 (its-defrule "," "，")
235 (its-defrule "." "．")
236