/[emacs]/emacs/lisp/language/cyril-util.el
ViewVC logotype

Diff of /emacs/lisp/language/cyril-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by rms, Thu Feb 7 17:44:08 2002 UTC revision 1.22.4.1 by miles, Fri Apr 4 06:20:26 2003 UTC
# Line 1  Line 1 
1  ;;; cyril-util.el --- utilities for Cyrillic scripts  ;;; cyril-util.el --- utilities for Cyrillic scripts
2    
3  ;; Copyright (C) 1997, 2001 Free Software Foundation, Inc.  ;; Copyright (C) 1997, 2001, 2002 Free Software Foundation, Inc.
4    
5  ;; Keywords: mule, multilingual, Cyrillic  ;; Keywords: mule, multilingual, Cyrillic
6    
# Line 25  Line 25 
25    
26  ;;; Code:  ;;; Code:
27    
28    ;; Fixme: are the next two useful?
29    
30  ;;;###autoload  ;;;###autoload
31  (defun cyrillic-encode-koi8-r-char (char)  (defun cyrillic-encode-koi8-r-char (char)
32    "Return KOI8-R external character code of CHAR if appropriate."    "Return KOI8-R external character code of CHAR if appropriate."
# Line 84  If the argument is nil, we return the di Line 86  If the argument is nil, we return the di
86      (aset standard-display-table ?,LS(B  [?g])      (aset standard-display-table ?,LS(B  [?g])
87      (aset standard-display-table ?,LT(B  [?d])      (aset standard-display-table ?,LT(B  [?d])
88      (aset standard-display-table ?,LU(B  [?e])      (aset standard-display-table ?,LU(B  [?e])
89      (aset standard-display-table ?,Lq(B  [?y?o])      (aset standard-display-table ?,Lq(B  [?y ?o])
90      (aset standard-display-table ?,LV(B  [?z?h])      (aset standard-display-table ?,LV(B  [?z ?h])
91      (aset standard-display-table ?,LW(B  [?z])      (aset standard-display-table ?,LW(B  [?z])
92      (aset standard-display-table ?,LX(B  [?i])      (aset standard-display-table ?,LX(B  [?i])
93      (aset standard-display-table ?,LY(B  [?j])      (aset standard-display-table ?,LY(B  [?j])
# Line 100  If the argument is nil, we return the di Line 102  If the argument is nil, we return the di
102      (aset standard-display-table ?,Lb(B  [?t])      (aset standard-display-table ?,Lb(B  [?t])
103      (aset standard-display-table ?,Lc(B  [?u])      (aset standard-display-table ?,Lc(B  [?u])
104      (aset standard-display-table ?,Ld(B  [?f])      (aset standard-display-table ?,Ld(B  [?f])
105      (aset standard-display-table ?,Le(B  [?k?h])      (aset standard-display-table ?,Le(B  [?k ?h])
106      (aset standard-display-table ?,Lf(B  [?t?s])      (aset standard-display-table ?,Lf(B  [?t ?s])
107      (aset standard-display-table ?,Lg(B  [?c?h])      (aset standard-display-table ?,Lg(B  [?c ?h])
108      (aset standard-display-table ?,Lh(B  [?s?h])      (aset standard-display-table ?,Lh(B  [?s ?h])
109      (aset standard-display-table ?,Li(B  [?s?c?h])      (aset standard-display-table ?,Li(B  [?s ?c ?h])
110      (aset standard-display-table ?,Lj(B  [?~])      (aset standard-display-table ?,Lj(B  [?~])
111      (aset standard-display-table ?,Lk(B  [?y])      (aset standard-display-table ?,Lk(B  [?y])
112      (aset standard-display-table ?,Ll(B  [?'])      (aset standard-display-table ?,Ll(B  [?'])
113      (aset standard-display-table ?,Lm(B  [?e?'])      (aset standard-display-table ?,Lm(B  [?e ?'])
114      (aset standard-display-table ?,Ln(B  [?y?u])      (aset standard-display-table ?,Ln(B  [?y ?u])
115      (aset standard-display-table ?,Lo(B  [?y?a])      (aset standard-display-table ?,Lo(B  [?y ?a])
116        
117      (aset standard-display-table ?,L0(B  [?A])      (aset standard-display-table ?,L0(B  [?A])
118      (aset standard-display-table ?,L1(B  [?B])      (aset standard-display-table ?,L1(B  [?B])
119      (aset standard-display-table ?,L2(B  [?V])      (aset standard-display-table ?,L2(B  [?V])
120      (aset standard-display-table ?,L3(B  [?G])      (aset standard-display-table ?,L3(B  [?G])
121      (aset standard-display-table ?,L4(B  [?D])      (aset standard-display-table ?,L4(B  [?D])
122      (aset standard-display-table ?,L5(B  [?E])      (aset standard-display-table ?,L5(B  [?E])
123      (aset standard-display-table ?,L!(B  [?Y?o])      (aset standard-display-table ?,L!(B  [?Y ?o])
124      (aset standard-display-table ?,L6(B  [?Z?h])      (aset standard-display-table ?,L6(B  [?Z ?h])
125      (aset standard-display-table ?,L7(B  [?Z])      (aset standard-display-table ?,L7(B  [?Z])
126      (aset standard-display-table ?,L8(B  [?I])      (aset standard-display-table ?,L8(B  [?I])
127      (aset standard-display-table ?,L9(B  [?J])      (aset standard-display-table ?,L9(B  [?J])
# Line 134  If the argument is nil, we return the di Line 136  If the argument is nil, we return the di
136      (aset standard-display-table ?,LB(B  [?T])      (aset standard-display-table ?,LB(B  [?T])
137      (aset standard-display-table ?,LC(B  [?U])      (aset standard-display-table ?,LC(B  [?U])
138      (aset standard-display-table ?,LD(B  [?F])      (aset standard-display-table ?,LD(B  [?F])
139      (aset standard-display-table ?,LE(B  [?K?h])      (aset standard-display-table ?,LE(B  [?K ?h])
140      (aset standard-display-table ?,LF(B  [?T?s])      (aset standard-display-table ?,LF(B  [?T ?s])
141      (aset standard-display-table ?,LG(B  [?C?h])      (aset standard-display-table ?,LG(B  [?C ?h])
142      (aset standard-display-table ?,LH(B  [?S?h])      (aset standard-display-table ?,LH(B  [?S ?h])
143      (aset standard-display-table ?,LI(B  [?S?c?h])      (aset standard-display-table ?,LI(B  [?S ?c ?h])
144      (aset standard-display-table ?,LJ(B  [?~])      (aset standard-display-table ?,LJ(B  [?~])
145      (aset standard-display-table ?,LK(B  [?Y])      (aset standard-display-table ?,LK(B  [?Y])
146      (aset standard-display-table ?,LL(B  [?'])      (aset standard-display-table ?,LL(B  [?'])
147      (aset standard-display-table ?,LM(B  [?E?'])      (aset standard-display-table ?,LM(B  [?E ?'])
148      (aset standard-display-table ?,LN(B  [?Y?u])      (aset standard-display-table ?,LN(B  [?Y ?u])
149      (aset standard-display-table ?,LO(B  [?Y?a])      (aset standard-display-table ?,LO(B  [?Y ?a])
150    
151      (aset standard-display-table ?,Lt(B  [?i?e])      (aset standard-display-table ?,Lt(B  [?i ?e])
152      (aset standard-display-table ?,Lw(B  [?i])      (aset standard-display-table ?,Lw(B  [?i])
153      (aset standard-display-table ?,L~(B  [?u])      (aset standard-display-table ?,L~(B  [?u])
154      (aset standard-display-table ?,Lr(B  [?d?j])      (aset standard-display-table ?,Lr(B  [?d ?j])
155      (aset standard-display-table ?,L{(B  [?c?h?j])      (aset standard-display-table ?,L{(B  [?c ?h ?j])
156      (aset standard-display-table ?,Ls(B  [?g?j])      (aset standard-display-table ?,Ls(B  [?g ?j])
157      (aset standard-display-table ?,Lu(B  [?s])      (aset standard-display-table ?,Lu(B  [?s])
158      (aset standard-display-table ?,L|(B  [?k])      (aset standard-display-table ?,L|(B  [?k])
159      (aset standard-display-table ?,Lv(B  [?i])      (aset standard-display-table ?,Lv(B  [?i])
160      (aset standard-display-table ?,Lx(B  [?j])      (aset standard-display-table ?,Lx(B  [?j])
161      (aset standard-display-table ?,Ly(B  [?l?j])      (aset standard-display-table ?,Ly(B  [?l ?j])
162      (aset standard-display-table ?,Lz(B  [?n?j])      (aset standard-display-table ?,Lz(B  [?n ?j])
163      (aset standard-display-table ?,L(B  [?d?z])      (aset standard-display-table ?,L(B  [?d ?z])
164    
165      (aset standard-display-table ?,L$(B  [?Y?e])      (aset standard-display-table ?,L$(B  [?Y ?e])
166      (aset standard-display-table ?,L'(B  [?Y?i])      (aset standard-display-table ?,L'(B  [?Y ?i])
167      (aset standard-display-table ?,L.(B  [?U])      (aset standard-display-table ?,L.(B  [?U])
168      (aset standard-display-table ?,L"(B  [?D?j])      (aset standard-display-table ?,L"(B  [?D ?j])
169      (aset standard-display-table ?,L+(B  [?C?h?j])      (aset standard-display-table ?,L+(B  [?C ?h ?j])
170      (aset standard-display-table ?,L#(B  [?G?j])      (aset standard-display-table ?,L#(B  [?G ?j])
171      (aset standard-display-table ?,L%(B  [?S])      (aset standard-display-table ?,L%(B  [?S])
172      (aset standard-display-table ?,L,(B  [?K])      (aset standard-display-table ?,L,(B  [?K])
173      (aset standard-display-table ?,L&(B  [?I])      (aset standard-display-table ?,L&(B  [?I])
174      (aset standard-display-table ?,L((B  [?J])      (aset standard-display-table ?,L((B  [?J])
175      (aset standard-display-table ?,L)(B  [?L?j])      (aset standard-display-table ?,L)(B  [?L ?j])
176      (aset standard-display-table ?,L*(B  [?N?j])      (aset standard-display-table ?,L*(B  [?N ?j])
177      (aset standard-display-table ?,L/(B  [?D?j])      (aset standard-display-table ?,L/(B  [?D ?j])
178    
179      ;; Unicode version:      ;; Unicode version:
180      (aset standard-display-table ?$,1(P(B  [?a])      (aset standard-display-table ?$,1(P(B  [?a])
# Line 181  If the argument is nil, we return the di Line 183  If the argument is nil, we return the di
183      (aset standard-display-table ?$,1(S(B  [?g])      (aset standard-display-table ?$,1(S(B  [?g])
184      (aset standard-display-table ?$,1(T(B  [?d])      (aset standard-display-table ?$,1(T(B  [?d])
185      (aset standard-display-table ?$,1(U(B  [?e])      (aset standard-display-table ?$,1(U(B  [?e])
186      (aset standard-display-table ?$,1(q(B  [?y?o])      (aset standard-display-table ?$,1(q(B  [?y ?o])
187      (aset standard-display-table ?$,1(V(B  [?z?h])      (aset standard-display-table ?$,1(V(B  [?z ?h])
188      (aset standard-display-table ?$,1(W(B  [?z])      (aset standard-display-table ?$,1(W(B  [?z])
189      (aset standard-display-table ?$,1(X(B  [?i])      (aset standard-display-table ?$,1(X(B  [?i])
190      (aset standard-display-table ?$,1(Y(B  [?j])      (aset standard-display-table ?$,1(Y(B  [?j])
# Line 197  If the argument is nil, we return the di Line 199  If the argument is nil, we return the di
199      (aset standard-display-table ?$,1(b(B  [?t])      (aset standard-display-table ?$,1(b(B  [?t])
200      (aset standard-display-table ?$,1(c(B  [?u])      (aset standard-display-table ?$,1(c(B  [?u])
201      (aset standard-display-table ?$,1(d(B  [?f])      (aset standard-display-table ?$,1(d(B  [?f])
202      (aset standard-display-table ?$,1(e(B  [?k?h])      (aset standard-display-table ?$,1(e(B  [?k ?h])
203      (aset standard-display-table ?$,1(f(B  [?t?s])      (aset standard-display-table ?$,1(f(B  [?t ?s])
204      (aset standard-display-table ?$,1(g(B  [?c?h])      (aset standard-display-table ?$,1(g(B  [?c ?h])
205      (aset standard-display-table ?$,1(h(B  [?s?h])      (aset standard-display-table ?$,1(h(B  [?s ?h])
206      (aset standard-display-table ?$,1(i(B  [?s?c?h])      (aset standard-display-table ?$,1(i(B  [?s ?c ?h])
207      (aset standard-display-table ?$,1(j(B  [?~])      (aset standard-display-table ?$,1(j(B  [?~])
208      (aset standard-display-table ?$,1(k(B  [?y])      (aset standard-display-table ?$,1(k(B  [?y])
209      (aset standard-display-table ?$,1(l(B  [?'])      (aset standard-display-table ?$,1(l(B  [?'])
210      (aset standard-display-table ?$,1(m(B  [?e?'])      (aset standard-display-table ?$,1(m(B  [?e ?'])
211      (aset standard-display-table ?$,1(n(B  [?y?u])      (aset standard-display-table ?$,1(n(B  [?y ?u])
212      (aset standard-display-table ?$,1(o(B  [?y?a])      (aset standard-display-table ?$,1(o(B  [?y ?a])
213    
214      (aset standard-display-table ?$,1(0(B  [?A])      (aset standard-display-table ?$,1(0(B  [?A])
215      (aset standard-display-table ?$,1(1(B  [?B])      (aset standard-display-table ?$,1(1(B  [?B])
# Line 215  If the argument is nil, we return the di Line 217  If the argument is nil, we return the di
217      (aset standard-display-table ?$,1(3(B  [?G])      (aset standard-display-table ?$,1(3(B  [?G])
218      (aset standard-display-table ?$,1(4(B  [?D])      (aset standard-display-table ?$,1(4(B  [?D])
219      (aset standard-display-table ?$,1(5(B  [?E])      (aset standard-display-table ?$,1(5(B  [?E])
220      (aset standard-display-table ?$,1(!(B  [?Y?o])      (aset standard-display-table ?$,1(!(B  [?Y ?o])
221      (aset standard-display-table ?$,1(6(B  [?Z?h])      (aset standard-display-table ?$,1(6(B  [?Z ?h])
222      (aset standard-display-table ?$,1(7(B  [?Z])      (aset standard-display-table ?$,1(7(B  [?Z])
223      (aset standard-display-table ?$,1(8(B  [?I])      (aset standard-display-table ?$,1(8(B  [?I])
224      (aset standard-display-table ?$,1(9(B  [?J])      (aset standard-display-table ?$,1(9(B  [?J])
# Line 231  If the argument is nil, we return the di Line 233  If the argument is nil, we return the di
233      (aset standard-display-table ?$,1(B(B  [?T])      (aset standard-display-table ?$,1(B(B  [?T])
234      (aset standard-display-table ?$,1(C(B  [?U])      (aset standard-display-table ?$,1(C(B  [?U])
235      (aset standard-display-table ?$,1(D(B  [?F])      (aset standard-display-table ?$,1(D(B  [?F])
236      (aset standard-display-table ?$,1(E(B  [?K?h])      (aset standard-display-table ?$,1(E(B  [?K ?h])
237      (aset standard-display-table ?$,1(F(B  [?T?s])      (aset standard-display-table ?$,1(F(B  [?T ?s])
238      (aset standard-display-table ?$,1(G(B  [?C?h])      (aset standard-display-table ?$,1(G(B  [?C ?h])
239      (aset standard-display-table ?$,1(H(B  [?S?h])      (aset standard-display-table ?$,1(H(B  [?S ?h])
240      (aset standard-display-table ?$,1(I(B  [?S?c?h])      (aset standard-display-table ?$,1(I(B  [?S ?c ?h])
241      (aset standard-display-table ?$,1(J(B  [?~])      (aset standard-display-table ?$,1(J(B  [?~])
242      (aset standard-display-table ?$,1(K(B  [?Y])      (aset standard-display-table ?$,1(K(B  [?Y])
243      (aset standard-display-table ?$,1(L(B  [?'])      (aset standard-display-table ?$,1(L(B  [?'])
244      (aset standard-display-table ?$,1(M(B  [?E?'])      (aset standard-display-table ?$,1(M(B  [?E ?'])
245      (aset standard-display-table ?$,1(N(B  [?Y?u])      (aset standard-display-table ?$,1(N(B  [?Y ?u])
246      (aset standard-display-table ?$,1(O(B  [?Y?a])      (aset standard-display-table ?$,1(O(B  [?Y ?a])
247    
248      (aset standard-display-table ?$,1(t(B  [?i?e])      (aset standard-display-table ?$,1(t(B  [?i ?e])
249      (aset standard-display-table ?$,1(w(B  [?i])      (aset standard-display-table ?$,1(w(B  [?i])
250      (aset standard-display-table ?$,1(~(B  [?u])      (aset standard-display-table ?$,1(~(B  [?u])
251      (aset standard-display-table ?$,1(r(B  [?d?j])      (aset standard-display-table ?$,1(r(B  [?d ?j])
252      (aset standard-display-table ?$,1({(B  [?c?h?j])      (aset standard-display-table ?$,1({(B  [?c ?h ?j])
253      (aset standard-display-table ?$,1(s(B  [?g?j])      (aset standard-display-table ?$,1(s(B  [?g ?j])
254      (aset standard-display-table ?$,1(u(B  [?s])      (aset standard-display-table ?$,1(u(B  [?s])
255      (aset standard-display-table ?$,1(|(B  [?k])      (aset standard-display-table ?$,1(|(B  [?k])
256      (aset standard-display-table ?$,1(v(B  [?i])      (aset standard-display-table ?$,1(v(B  [?i])
257      (aset standard-display-table ?$,1(x(B  [?j])      (aset standard-display-table ?$,1(x(B  [?j])
258      (aset standard-display-table ?$,1(y(B  [?l?j])      (aset standard-display-table ?$,1(y(B  [?l ?j])
259      (aset standard-display-table ?$,1(z(B  [?n?j])      (aset standard-display-table ?$,1(z(B  [?n ?j])
260      (aset standard-display-table ?$,1((B  [?d?z])      (aset standard-display-table ?$,1((B  [?d ?z])
261    
262      (aset standard-display-table ?$,1($(B  [?Y?e])      (aset standard-display-table ?$,1($(B  [?Y ?e])
263      (aset standard-display-table ?$,1('(B  [?Y?i])      (aset standard-display-table ?$,1('(B  [?Y ?i])
264      (aset standard-display-table ?$,1(.(B  [?U])      (aset standard-display-table ?$,1(.(B  [?U])
265      (aset standard-display-table ?$,1("(B  [?D?j])      (aset standard-display-table ?$,1("(B  [?D ?j])
266      (aset standard-display-table ?$,1(+(B  [?C?h?j])      (aset standard-display-table ?$,1(+(B  [?C ?h ?j])
267      (aset standard-display-table ?$,1(#(B  [?G?j])      (aset standard-display-table ?$,1(#(B  [?G ?j])
268      (aset standard-display-table ?$,1(%(B  [?S])      (aset standard-display-table ?$,1(%(B  [?S])
269      (aset standard-display-table ?$,1(,(B  [?K])      (aset standard-display-table ?$,1(,(B  [?K])
270      (aset standard-display-table ?$,1(&(B  [?I])      (aset standard-display-table ?$,1(&(B  [?I])
271      (aset standard-display-table ?$,1(((B  [?J])      (aset standard-display-table ?$,1(((B  [?J])
272      (aset standard-display-table ?$,1()(B  [?L?j])      (aset standard-display-table ?$,1()(B  [?L ?j])
273      (aset standard-display-table ?$,1(*(B  [?N?j])      (aset standard-display-table ?$,1(*(B  [?N ?j])
274      (aset standard-display-table ?$,1(/(B  [?D?j])      (aset standard-display-table ?$,1(/(B  [?D ?j])
275    
276      (when (equal cyrillic-language "Bulgarian")      (when (equal cyrillic-language "Bulgarian")
277        (aset standard-display-table ?,Li(B [?s?h?t])        (aset standard-display-table ?,Li(B [?s ?h ?t])
278        (aset standard-display-table ?,LI(B [?S?h?t])        (aset standard-display-table ?,LI(B [?S ?h ?t])
279        (aset standard-display-table ?,Ln(B [?i?u])        (aset standard-display-table ?,Ln(B [?i ?u])
280        (aset standard-display-table ?,LN(B [?I?u])        (aset standard-display-table ?,LN(B [?I ?u])
281        (aset standard-display-table ?,Lo(B [?i?a])        (aset standard-display-table ?,Lo(B [?i ?a])
282        (aset standard-display-table ?,LO(B [?I?a])        (aset standard-display-table ?,LO(B [?I ?a])
283        ;; Unicode version:        ;; Unicode version:
284        (aset standard-display-table ?$,1(i(B [?s?h?t])        (aset standard-display-table ?$,1(i(B [?s ?h ?t])
285        (aset standard-display-table ?$,1(I(B [?S?h?t])        (aset standard-display-table ?$,1(I(B [?S ?h ?t])
286        (aset standard-display-table ?$,1(n(B [?i?u])        (aset standard-display-table ?$,1(n(B [?i ?u])
287        (aset standard-display-table ?$,1(N(B [?I?u])        (aset standard-display-table ?$,1(N(B [?I ?u])
288        (aset standard-display-table ?$,1(o(B [?i?a])        (aset standard-display-table ?$,1(o(B [?i ?a])
289        (aset standard-display-table ?$,1(O(B [?I?a]))        (aset standard-display-table ?$,1(O(B [?I ?a]))
290    
291      (when (equal cyrillic-language "Ukrainian") ; based on the official      (when (equal cyrillic-language "Ukrainian") ; based on the official
292                                          ; transliteration table                                          ; transliteration table
# Line 292  If the argument is nil, we return the di Line 294  If the argument is nil, we return the di
294        (aset standard-display-table ?,L8(B [?Y])        (aset standard-display-table ?,L8(B [?Y])
295        (aset standard-display-table ?,LY(B [?i])        (aset standard-display-table ?,LY(B [?i])
296        (aset standard-display-table ?,L9(B [?Y])        (aset standard-display-table ?,L9(B [?Y])
297        (aset standard-display-table ?,Ln(B [?i?u])        (aset standard-display-table ?,Ln(B [?i ?u])
298        (aset standard-display-table ?,Lo(B [?i?a])        (aset standard-display-table ?,Lo(B [?i ?a])
299        ;; Unicode version:        ;; Unicode version:
300        (aset standard-display-table ?$,1(X(B [?y])        (aset standard-display-table ?$,1(X(B [?y])
301        (aset standard-display-table ?$,1(8(B [?Y])        (aset standard-display-table ?$,1(8(B [?Y])
302        (aset standard-display-table ?$,1(Y(B [?i])        (aset standard-display-table ?$,1(Y(B [?i])
303        (aset standard-display-table ?$,1(9(B [?Y])        (aset standard-display-table ?$,1(9(B [?Y])
304        (aset standard-display-table ?$,1(n(B [?i?u])        (aset standard-display-table ?$,1(n(B [?i ?u])
305        (aset standard-display-table ?$,1(o(B [?i?a]))))        (aset standard-display-table ?$,1(o(B [?i ?a]))))
306    
307  ;;  ;;
308  (provide 'cyril-util)  (provide 'cyril-util)

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.22.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26