Mercurial > emacs

comparison lisp/language/cyril-util.el @ 89483:2f877ed80fa6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Kenichi Handa <handa@m17n.org>
date Mon, 08 Sep 2003 12:53:41 +0000
parents 375f2633d815 d32a7aa4afcb
children 68c22ea6027c
comparison
equal deleted inserted replaced
88123:375f2633d815 89483:2f877ed80fa6
28 ;; Fixme: are the next two useful? 28 ;; Fixme: are the next two useful?
29 29
30 ;;;###autoload 30 ;;;###autoload
31 (defun cyrillic-encode-koi8-r-char (char) 31 (defun cyrillic-encode-koi8-r-char (char)
32 "Return KOI8-R external character code of CHAR if appropriate." 32 "Return KOI8-R external character code of CHAR if appropriate."
33 (aref (char-table-extra-slot 33 (encode-char char 'koi8-r))
34 (get 'cyrillic-koi8-r-nonascii-translation-table 'translation-table)
35 0)
36 char))
37 34
38 ;;;###autoload 35 ;;;###autoload
39 (defun cyrillic-encode-alternativnyj-char (char) 36 (defun cyrillic-encode-alternativnyj-char (char)
40 "Return ALTERNATIVNYJ external character code of CHAR if appropriate." 37 "Return ALTERNATIVNYJ external character code of CHAR if appropriate."
41 (aref (char-table-extra-slot 38 (encode-char char 'alternativnyj))
42 (get 'cyrillic-alternativnyj-nonascii-translation-table
43 'translation-table)
44 0)
45 char))
46 39
47 40
48 ;; Display 41 ;; Display
49 42
50 ;; Written by Valery Alexeev <valery@math.uga.edu>. 43 ;; Written by Valery Alexeev <valery@math.uga.edu>.
174 (aset standard-display-table ?,L((B [?J]) 167 (aset standard-display-table ?,L((B [?J])
175 (aset standard-display-table ?,L)(B [?L ?j]) 168 (aset standard-display-table ?,L)(B [?L ?j])
176 (aset standard-display-table ?,L*(B [?N ?j]) 169 (aset standard-display-table ?,L*(B [?N ?j])
177 (aset standard-display-table ?,L/(B [?D ?j]) 170 (aset standard-display-table ?,L/(B [?D ?j])
178 171
179 ;; Unicode version:
180 (aset standard-display-table ?$,1(P(B [?a])
181 (aset standard-display-table ?$,1(Q(B [?b])
182 (aset standard-display-table ?$,1(R(B [?v])
183 (aset standard-display-table ?$,1(S(B [?g])
184 (aset standard-display-table ?$,1(T(B [?d])
185 (aset standard-display-table ?$,1(U(B [?e])
186 (aset standard-display-table ?$,1(q(B [?y ?o])
187 (aset standard-display-table ?$,1(V(B [?z ?h])
188 (aset standard-display-table ?$,1(W(B [?z])
189 (aset standard-display-table ?$,1(X(B [?i])
190 (aset standard-display-table ?$,1(Y(B [?j])
191 (aset standard-display-table ?$,1(Z(B [?k])
192 (aset standard-display-table ?$,1([(B [?l])
193 (aset standard-display-table ?$,1(\(B [?m])
194 (aset standard-display-table ?$,1(](B [?n])
195 (aset standard-display-table ?$,1(^(B [?o])
196 (aset standard-display-table ?$,1(_(B [?p])
197 (aset standard-display-table ?$,1(`(B [?r])
198 (aset standard-display-table ?$,1(a(B [?s])
199 (aset standard-display-table ?$,1(b(B [?t])
200 (aset standard-display-table ?$,1(c(B [?u])
201 (aset standard-display-table ?$,1(d(B [?f])
202 (aset standard-display-table ?$,1(e(B [?k ?h])
203 (aset standard-display-table ?$,1(f(B [?t ?s])
204 (aset standard-display-table ?$,1(g(B [?c ?h])
205 (aset standard-display-table ?$,1(h(B [?s ?h])
206 (aset standard-display-table ?$,1(i(B [?s ?c ?h])
207 (aset standard-display-table ?$,1(j(B [?~])
208 (aset standard-display-table ?$,1(k(B [?y])
209 (aset standard-display-table ?$,1(l(B [?'])
210 (aset standard-display-table ?$,1(m(B [?e ?'])
211 (aset standard-display-table ?$,1(n(B [?y ?u])
212 (aset standard-display-table ?$,1(o(B [?y ?a])
213
214 (aset standard-display-table ?$,1(0(B [?A])
215 (aset standard-display-table ?$,1(1(B [?B])
216 (aset standard-display-table ?$,1(2(B [?V])
217 (aset standard-display-table ?$,1(3(B [?G])
218 (aset standard-display-table ?$,1(4(B [?D])
219 (aset standard-display-table ?$,1(5(B [?E])
220 (aset standard-display-table ?$,1(!(B [?Y ?o])
221 (aset standard-display-table ?$,1(6(B [?Z ?h])
222 (aset standard-display-table ?$,1(7(B [?Z])
223 (aset standard-display-table ?$,1(8(B [?I])
224 (aset standard-display-table ?$,1(9(B [?J])
225 (aset standard-display-table ?$,1(:(B [?K])
226 (aset standard-display-table ?$,1(;(B [?L])
227 (aset standard-display-table ?$,1(<(B [?M])
228 (aset standard-display-table ?$,1(=(B [?N])
229 (aset standard-display-table ?$,1(>(B [?O])
230 (aset standard-display-table ?$,1(?(B [?P])
231 (aset standard-display-table ?$,1(@(B [?R])
232 (aset standard-display-table ?$,1(A(B [?S])
233 (aset standard-display-table ?$,1(B(B [?T])
234 (aset standard-display-table ?$,1(C(B [?U])
235 (aset standard-display-table ?$,1(D(B [?F])
236 (aset standard-display-table ?$,1(E(B [?K ?h])
237 (aset standard-display-table ?$,1(F(B [?T ?s])
238 (aset standard-display-table ?$,1(G(B [?C ?h])
239 (aset standard-display-table ?$,1(H(B [?S ?h])
240 (aset standard-display-table ?$,1(I(B [?S ?c ?h])
241 (aset standard-display-table ?$,1(J(B [?~])
242 (aset standard-display-table ?$,1(K(B [?Y])
243 (aset standard-display-table ?$,1(L(B [?'])
244 (aset standard-display-table ?$,1(M(B [?E ?'])
245 (aset standard-display-table ?$,1(N(B [?Y ?u])
246 (aset standard-display-table ?$,1(O(B [?Y ?a])
247
248 (aset standard-display-table ?$,1(t(B [?i ?e])
249 (aset standard-display-table ?$,1(w(B [?i])
250 (aset standard-display-table ?$,1(~(B [?u])
251 (aset standard-display-table ?$,1(r(B [?d ?j])
252 (aset standard-display-table ?$,1({(B [?c ?h ?j])
253 (aset standard-display-table ?$,1(s(B [?g ?j])
254 (aset standard-display-table ?$,1(u(B [?s])
255 (aset standard-display-table ?$,1(|(B [?k])
256 (aset standard-display-table ?$,1(v(B [?i])
257 (aset standard-display-table ?$,1(x(B [?j])
258 (aset standard-display-table ?$,1(y(B [?l ?j])
259 (aset standard-display-table ?$,1(z(B [?n ?j])
260 (aset standard-display-table ?$,1((B [?d ?z])
261
262 (aset standard-display-table ?$,1($(B [?Y ?e])
263 (aset standard-display-table ?$,1('(B [?Y ?i])
264 (aset standard-display-table ?$,1(.(B [?U])
265 (aset standard-display-table ?$,1("(B [?D ?j])
266 (aset standard-display-table ?$,1(+(B [?C ?h ?j])
267 (aset standard-display-table ?$,1(#(B [?G ?j])
268 (aset standard-display-table ?$,1(%(B [?S])
269 (aset standard-display-table ?$,1(,(B [?K])
270 (aset standard-display-table ?$,1(&(B [?I])
271 (aset standard-display-table ?$,1(((B [?J])
272 (aset standard-display-table ?$,1()(B [?L ?j])
273 (aset standard-display-table ?$,1(*(B [?N ?j])
274 (aset standard-display-table ?$,1(/(B [?D ?j])
275
276 (when (equal cyrillic-language "Bulgarian") 172 (when (equal cyrillic-language "Bulgarian")
277 (aset standard-display-table ?,Li(B [?s ?h ?t]) 173 (aset standard-display-table ?,Li(B [?s ?h ?t])
278 (aset standard-display-table ?,LI(B [?S ?h ?t]) 174 (aset standard-display-table ?,LI(B [?S ?h ?t])
279 (aset standard-display-table ?,Ln(B [?i ?u]) 175 (aset standard-display-table ?,Ln(B [?i ?u])
280 (aset standard-display-table ?,LN(B [?I ?u]) 176 (aset standard-display-table ?,LN(B [?I ?u])
281 (aset standard-display-table ?,Lo(B [?i ?a]) 177 (aset standard-display-table ?,Lo(B [?i ?a])
282 (aset standard-display-table ?,LO(B [?I ?a]) 178 (aset standard-display-table ?,LO(B [?I ?a]))
283 ;; Unicode version:
284 (aset standard-display-table ?$,1(i(B [?s ?h ?t])
285 (aset standard-display-table ?$,1(I(B [?S ?h ?t])
286 (aset standard-display-table ?$,1(n(B [?i ?u])
287 (aset standard-display-table ?$,1(N(B [?I ?u])
288 (aset standard-display-table ?$,1(o(B [?i ?a])
289 (aset standard-display-table ?$,1(O(B [?I ?a]))
290 179
291 (when (equal cyrillic-language "Ukrainian") ; based on the official 180 (when (equal cyrillic-language "Ukrainian") ; based on the official
292 ; transliteration table 181 ; transliteration table
293 (aset standard-display-table ?,LX(B [?y]) 182 (aset standard-display-table ?,LX(B [?y])
294 (aset standard-display-table ?,L8(B [?Y]) 183 (aset standard-display-table ?,L8(B [?Y])
295 (aset standard-display-table ?,LY(B [?i]) 184 (aset standard-display-table ?,LY(B [?i])
296 (aset standard-display-table ?,L9(B [?Y]) 185 (aset standard-display-table ?,L9(B [?Y])
297 (aset standard-display-table ?,Ln(B [?i ?u]) 186 (aset standard-display-table ?,Ln(B [?i ?u])
298 (aset standard-display-table ?,Lo(B [?i ?a]) 187 (aset standard-display-table ?,Lo(B [?i ?a]))))
299 ;; Unicode version:
300 (aset standard-display-table ?$,1(X(B [?y])
301 (aset standard-display-table ?$,1(8(B [?Y])
302 (aset standard-display-table ?$,1(Y(B [?i])
303 (aset standard-display-table ?$,1(9(B [?Y])
304 (aset standard-display-table ?$,1(n(B [?i ?u])
305 (aset standard-display-table ?$,1(o(B [?i ?a]))))
306 188
307 ;; 189 ;;
308 (provide 'cyril-util) 190 (provide 'cyril-util)
309 191
310 ;; Local Variables: 192 ;; Local Variables: