/[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.25 by lektu, Tue Feb 18 11:06:02 2003 UTC revision 1.25.4.1 by handa, Mon Sep 8 12:53:41 2003 UTC
# Line 30  Line 30 
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."
33    (aref (char-table-extra-slot    (encode-char char 'koi8-r))
          (get 'cyrillic-koi8-r-nonascii-translation-table 'translation-table)  
          0)  
         char))  
34    
35  ;;;###autoload  ;;;###autoload
36  (defun cyrillic-encode-alternativnyj-char (char)  (defun cyrillic-encode-alternativnyj-char (char)
37    "Return ALTERNATIVNYJ external character code of CHAR if appropriate."    "Return ALTERNATIVNYJ external character code of CHAR if appropriate."
38    (aref (char-table-extra-slot    (encode-char char 'alternativnyj))
          (get 'cyrillic-alternativnyj-nonascii-translation-table  
               'translation-table)  
          0)  
         char))  
39    
40    
41  ;; Display  ;; Display
# Line 176  If the argument is nil, we return the di Line 169  If the argument is nil, we return the di
169      (aset standard-display-table ?,L*(B  [?N ?j])      (aset standard-display-table ?,L*(B  [?N ?j])
170      (aset standard-display-table ?,L/(B  [?D ?j])      (aset standard-display-table ?,L/(B  [?D ?j])
171    
     ;; Unicode version:  
     (aset standard-display-table ?$,1(P(B  [?a])  
     (aset standard-display-table ?$,1(Q(B  [?b])  
     (aset standard-display-table ?$,1(R(B  [?v])  
     (aset standard-display-table ?$,1(S(B  [?g])  
     (aset standard-display-table ?$,1(T(B  [?d])  
     (aset standard-display-table ?$,1(U(B  [?e])  
     (aset standard-display-table ?$,1(q(B  [?y ?o])  
     (aset standard-display-table ?$,1(V(B  [?z ?h])  
     (aset standard-display-table ?$,1(W(B  [?z])  
     (aset standard-display-table ?$,1(X(B  [?i])  
     (aset standard-display-table ?$,1(Y(B  [?j])  
     (aset standard-display-table ?$,1(Z(B  [?k])  
     (aset standard-display-table ?$,1([(B  [?l])  
     (aset standard-display-table ?$,1(\(B  [?m])  
     (aset standard-display-table ?$,1(](B  [?n])  
     (aset standard-display-table ?$,1(^(B  [?o])  
     (aset standard-display-table ?$,1(_(B  [?p])  
     (aset standard-display-table ?$,1(`(B  [?r])  
     (aset standard-display-table ?$,1(a(B  [?s])  
     (aset standard-display-table ?$,1(b(B  [?t])  
     (aset standard-display-table ?$,1(c(B  [?u])  
     (aset standard-display-table ?$,1(d(B  [?f])  
     (aset standard-display-table ?$,1(e(B  [?k ?h])  
     (aset standard-display-table ?$,1(f(B  [?t ?s])  
     (aset standard-display-table ?$,1(g(B  [?c ?h])  
     (aset standard-display-table ?$,1(h(B  [?s ?h])  
     (aset standard-display-table ?$,1(i(B  [?s ?c ?h])  
     (aset standard-display-table ?$,1(j(B  [?~])  
     (aset standard-display-table ?$,1(k(B  [?y])  
     (aset standard-display-table ?$,1(l(B  [?'])  
     (aset standard-display-table ?$,1(m(B  [?e ?'])  
     (aset standard-display-table ?$,1(n(B  [?y ?u])  
     (aset standard-display-table ?$,1(o(B  [?y ?a])  
   
     (aset standard-display-table ?$,1(0(B  [?A])  
     (aset standard-display-table ?$,1(1(B  [?B])  
     (aset standard-display-table ?$,1(2(B  [?V])  
     (aset standard-display-table ?$,1(3(B  [?G])  
     (aset standard-display-table ?$,1(4(B  [?D])  
     (aset standard-display-table ?$,1(5(B  [?E])  
     (aset standard-display-table ?$,1(!(B  [?Y ?o])  
     (aset standard-display-table ?$,1(6(B  [?Z ?h])  
     (aset standard-display-table ?$,1(7(B  [?Z])  
     (aset standard-display-table ?$,1(8(B  [?I])  
     (aset standard-display-table ?$,1(9(B  [?J])  
     (aset standard-display-table ?$,1(:(B  [?K])  
     (aset standard-display-table ?$,1(;(B  [?L])  
     (aset standard-display-table ?$,1(<(B  [?M])  
     (aset standard-display-table ?$,1(=(B  [?N])  
     (aset standard-display-table ?$,1(>(B  [?O])  
     (aset standard-display-table ?$,1(?(B  [?P])  
     (aset standard-display-table ?$,1(@(B  [?R])  
     (aset standard-display-table ?$,1(A(B  [?S])  
     (aset standard-display-table ?$,1(B(B  [?T])  
     (aset standard-display-table ?$,1(C(B  [?U])  
     (aset standard-display-table ?$,1(D(B  [?F])  
     (aset standard-display-table ?$,1(E(B  [?K ?h])  
     (aset standard-display-table ?$,1(F(B  [?T ?s])  
     (aset standard-display-table ?$,1(G(B  [?C ?h])  
     (aset standard-display-table ?$,1(H(B  [?S ?h])  
     (aset standard-display-table ?$,1(I(B  [?S ?c ?h])  
     (aset standard-display-table ?$,1(J(B  [?~])  
     (aset standard-display-table ?$,1(K(B  [?Y])  
     (aset standard-display-table ?$,1(L(B  [?'])  
     (aset standard-display-table ?$,1(M(B  [?E ?'])  
     (aset standard-display-table ?$,1(N(B  [?Y ?u])  
     (aset standard-display-table ?$,1(O(B  [?Y ?a])  
   
     (aset standard-display-table ?$,1(t(B  [?i ?e])  
     (aset standard-display-table ?$,1(w(B  [?i])  
     (aset standard-display-table ?$,1(~(B  [?u])  
     (aset standard-display-table ?$,1(r(B  [?d ?j])  
     (aset standard-display-table ?$,1({(B  [?c ?h ?j])  
     (aset standard-display-table ?$,1(s(B  [?g ?j])  
     (aset standard-display-table ?$,1(u(B  [?s])  
     (aset standard-display-table ?$,1(|(B  [?k])  
     (aset standard-display-table ?$,1(v(B  [?i])  
     (aset standard-display-table ?$,1(x(B  [?j])  
     (aset standard-display-table ?$,1(y(B  [?l ?j])  
     (aset standard-display-table ?$,1(z(B  [?n ?j])  
     (aset standard-display-table ?$,1((B  [?d ?z])  
   
     (aset standard-display-table ?$,1($(B  [?Y ?e])  
     (aset standard-display-table ?$,1('(B  [?Y ?i])  
     (aset standard-display-table ?$,1(.(B  [?U])  
     (aset standard-display-table ?$,1("(B  [?D ?j])  
     (aset standard-display-table ?$,1(+(B  [?C ?h ?j])  
     (aset standard-display-table ?$,1(#(B  [?G ?j])  
     (aset standard-display-table ?$,1(%(B  [?S])  
     (aset standard-display-table ?$,1(,(B  [?K])  
     (aset standard-display-table ?$,1(&(B  [?I])  
     (aset standard-display-table ?$,1(((B  [?J])  
     (aset standard-display-table ?$,1()(B  [?L ?j])  
     (aset standard-display-table ?$,1(*(B  [?N ?j])  
     (aset standard-display-table ?$,1(/(B  [?D ?j])  
   
172      (when (equal cyrillic-language "Bulgarian")      (when (equal cyrillic-language "Bulgarian")
173        (aset standard-display-table ?,Li(B [?s ?h ?t])        (aset standard-display-table ?,Li(B [?s ?h ?t])
174        (aset standard-display-table ?,LI(B [?S ?h ?t])        (aset standard-display-table ?,LI(B [?S ?h ?t])
175        (aset standard-display-table ?,Ln(B [?i ?u])        (aset standard-display-table ?,Ln(B [?i ?u])
176        (aset standard-display-table ?,LN(B [?I ?u])        (aset standard-display-table ?,LN(B [?I ?u])
177        (aset standard-display-table ?,Lo(B [?i ?a])        (aset standard-display-table ?,Lo(B [?i ?a])
178        (aset standard-display-table ?,LO(B [?I ?a])        (aset standard-display-table ?,LO(B [?I ?a]))
       ;; Unicode version:  
       (aset standard-display-table ?$,1(i(B [?s ?h ?t])  
       (aset standard-display-table ?$,1(I(B [?S ?h ?t])  
       (aset standard-display-table ?$,1(n(B [?i ?u])  
       (aset standard-display-table ?$,1(N(B [?I ?u])  
       (aset standard-display-table ?$,1(o(B [?i ?a])  
       (aset standard-display-table ?$,1(O(B [?I ?a]))  
179    
180      (when (equal cyrillic-language "Ukrainian") ; based on the official      (when (equal cyrillic-language "Ukrainian") ; based on the official
181                                          ; transliteration table                                          ; transliteration table
# Line 295  If the argument is nil, we return the di Line 184  If the argument is nil, we return the di
184        (aset standard-display-table ?,LY(B [?i])        (aset standard-display-table ?,LY(B [?i])
185        (aset standard-display-table ?,L9(B [?Y])        (aset standard-display-table ?,L9(B [?Y])
186        (aset standard-display-table ?,Ln(B [?i ?u])        (aset standard-display-table ?,Ln(B [?i ?u])
187        (aset standard-display-table ?,Lo(B [?i ?a])        (aset standard-display-table ?,Lo(B [?i ?a]))))
       ;; Unicode version:  
       (aset standard-display-table ?$,1(X(B [?y])  
       (aset standard-display-table ?$,1(8(B [?Y])  
       (aset standard-display-table ?$,1(Y(B [?i])  
       (aset standard-display-table ?$,1(9(B [?Y])  
       (aset standard-display-table ?$,1(n(B [?i ?u])  
       (aset standard-display-table ?$,1(o(B [?i ?a]))))  
188    
189  ;;  ;;
190  (provide 'cyril-util)  (provide 'cyril-util)

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.25.4.1

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