*** empty log message ***

[gnu-emacs] / lisp / language / cyril-util.el

diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el
index ed9125aa03f215f9b78ea60fe15d79d68f15e872..5d53f224a0a617aada332e73b02f7b8b129b0821 100644 (file)
--- a/lisp/language/cyril-util.el
+++ b/lisp/language/cyril-util.el
@@ -30,19 +30,12 @@
 ;;;###autoload
 (defun cyrillic-encode-koi8-r-char (char)
   "Return KOI8-R external character code of CHAR if appropriate."
-  (aref (char-table-extra-slot
-        (get 'cyrillic-koi8-r-nonascii-translation-table 'translation-table)
-        0)
-       char))
+  (encode-char char 'koi8-r))
 
 ;;;###autoload
 (defun cyrillic-encode-alternativnyj-char (char)
   "Return ALTERNATIVNYJ external character code of CHAR if appropriate."
-  (aref (char-table-extra-slot
-        (get 'cyrillic-alternativnyj-nonascii-translation-table
-             'translation-table)
-        0)
-       char))
+  (encode-char char 'alternativnyj))
 
 \f
 ;; Display
@@ -176,117 +169,13 @@ If the argument is nil, we return the display table to its standard state."
     (aset standard-display-table ?\e,L*\e(B  [?N ?j])
     (aset standard-display-table ?\e,L/\e(B  [?D ?j])
 
-    ;; Unicode version:
-    (aset standard-display-table ?\e$,1(P\e(B  [?a])
-    (aset standard-display-table ?\e$,1(Q\e(B  [?b])
-    (aset standard-display-table ?\e$,1(R\e(B  [?v])
-    (aset standard-display-table ?\e$,1(S\e(B  [?g])
-    (aset standard-display-table ?\e$,1(T\e(B  [?d])
-    (aset standard-display-table ?\e$,1(U\e(B  [?e])
-    (aset standard-display-table ?\e$,1(q\e(B  [?y ?o])
-    (aset standard-display-table ?\e$,1(V\e(B  [?z ?h])
-    (aset standard-display-table ?\e$,1(W\e(B  [?z])
-    (aset standard-display-table ?\e$,1(X\e(B  [?i])
-    (aset standard-display-table ?\e$,1(Y\e(B  [?j])
-    (aset standard-display-table ?\e$,1(Z\e(B  [?k])
-    (aset standard-display-table ?\e$,1([\e(B  [?l])
-    (aset standard-display-table ?\e$,1(\\e(B  [?m])
-    (aset standard-display-table ?\e$,1(]\e(B  [?n])
-    (aset standard-display-table ?\e$,1(^\e(B  [?o])
-    (aset standard-display-table ?\e$,1(_\e(B  [?p])
-    (aset standard-display-table ?\e$,1(`\e(B  [?r])
-    (aset standard-display-table ?\e$,1(a\e(B  [?s])
-    (aset standard-display-table ?\e$,1(b\e(B  [?t])
-    (aset standard-display-table ?\e$,1(c\e(B  [?u])
-    (aset standard-display-table ?\e$,1(d\e(B  [?f])
-    (aset standard-display-table ?\e$,1(e\e(B  [?k ?h])
-    (aset standard-display-table ?\e$,1(f\e(B  [?t ?s])
-    (aset standard-display-table ?\e$,1(g\e(B  [?c ?h])
-    (aset standard-display-table ?\e$,1(h\e(B  [?s ?h])
-    (aset standard-display-table ?\e$,1(i\e(B  [?s ?c ?h])
-    (aset standard-display-table ?\e$,1(j\e(B  [?~])
-    (aset standard-display-table ?\e$,1(k\e(B  [?y])
-    (aset standard-display-table ?\e$,1(l\e(B  [?'])
-    (aset standard-display-table ?\e$,1(m\e(B  [?e ?'])
-    (aset standard-display-table ?\e$,1(n\e(B  [?y ?u])
-    (aset standard-display-table ?\e$,1(o\e(B  [?y ?a])
-
-    (aset standard-display-table ?\e$,1(0\e(B  [?A])
-    (aset standard-display-table ?\e$,1(1\e(B  [?B])
-    (aset standard-display-table ?\e$,1(2\e(B  [?V])
-    (aset standard-display-table ?\e$,1(3\e(B  [?G])
-    (aset standard-display-table ?\e$,1(4\e(B  [?D])
-    (aset standard-display-table ?\e$,1(5\e(B  [?E])
-    (aset standard-display-table ?\e$,1(!\e(B  [?Y ?o])
-    (aset standard-display-table ?\e$,1(6\e(B  [?Z ?h])
-    (aset standard-display-table ?\e$,1(7\e(B  [?Z])
-    (aset standard-display-table ?\e$,1(8\e(B  [?I])
-    (aset standard-display-table ?\e$,1(9\e(B  [?J])
-    (aset standard-display-table ?\e$,1(:\e(B  [?K])
-    (aset standard-display-table ?\e$,1(;\e(B  [?L])
-    (aset standard-display-table ?\e$,1(<\e(B  [?M])
-    (aset standard-display-table ?\e$,1(=\e(B  [?N])
-    (aset standard-display-table ?\e$,1(>\e(B  [?O])
-    (aset standard-display-table ?\e$,1(?\e(B  [?P])
-    (aset standard-display-table ?\e$,1(@\e(B  [?R])
-    (aset standard-display-table ?\e$,1(A\e(B  [?S])
-    (aset standard-display-table ?\e$,1(B\e(B  [?T])
-    (aset standard-display-table ?\e$,1(C\e(B  [?U])
-    (aset standard-display-table ?\e$,1(D\e(B  [?F])
-    (aset standard-display-table ?\e$,1(E\e(B  [?K ?h])
-    (aset standard-display-table ?\e$,1(F\e(B  [?T ?s])
-    (aset standard-display-table ?\e$,1(G\e(B  [?C ?h])
-    (aset standard-display-table ?\e$,1(H\e(B  [?S ?h])
-    (aset standard-display-table ?\e$,1(I\e(B  [?S ?c ?h])
-    (aset standard-display-table ?\e$,1(J\e(B  [?~])
-    (aset standard-display-table ?\e$,1(K\e(B  [?Y])
-    (aset standard-display-table ?\e$,1(L\e(B  [?'])
-    (aset standard-display-table ?\e$,1(M\e(B  [?E ?'])
-    (aset standard-display-table ?\e$,1(N\e(B  [?Y ?u])
-    (aset standard-display-table ?\e$,1(O\e(B  [?Y ?a])
-
-    (aset standard-display-table ?\e$,1(t\e(B  [?i ?e])
-    (aset standard-display-table ?\e$,1(w\e(B  [?i])
-    (aset standard-display-table ?\e$,1(~\e(B  [?u])
-    (aset standard-display-table ?\e$,1(r\e(B  [?d ?j])
-    (aset standard-display-table ?\e$,1({\e(B  [?c ?h ?j])
-    (aset standard-display-table ?\e$,1(s\e(B  [?g ?j])
-    (aset standard-display-table ?\e$,1(u\e(B  [?s])
-    (aset standard-display-table ?\e$,1(|\e(B  [?k])
-    (aset standard-display-table ?\e$,1(v\e(B  [?i])
-    (aset standard-display-table ?\e$,1(x\e(B  [?j])
-    (aset standard-display-table ?\e$,1(y\e(B  [?l ?j])
-    (aset standard-display-table ?\e$,1(z\e(B  [?n ?j])
-    (aset standard-display-table ?\e$,1(\7f\e(B  [?d ?z])
-
-    (aset standard-display-table ?\e$,1($\e(B  [?Y ?e])
-    (aset standard-display-table ?\e$,1('\e(B  [?Y ?i])
-    (aset standard-display-table ?\e$,1(.\e(B  [?U])
-    (aset standard-display-table ?\e$,1("\e(B  [?D ?j])
-    (aset standard-display-table ?\e$,1(+\e(B  [?C ?h ?j])
-    (aset standard-display-table ?\e$,1(#\e(B  [?G ?j])
-    (aset standard-display-table ?\e$,1(%\e(B  [?S])
-    (aset standard-display-table ?\e$,1(,\e(B  [?K])
-    (aset standard-display-table ?\e$,1(&\e(B  [?I])
-    (aset standard-display-table ?\e$,1((\e(B  [?J])
-    (aset standard-display-table ?\e$,1()\e(B  [?L ?j])
-    (aset standard-display-table ?\e$,1(*\e(B  [?N ?j])
-    (aset standard-display-table ?\e$,1(/\e(B  [?D ?j])
-
     (when (equal cyrillic-language "Bulgarian")
       (aset standard-display-table ?\e,Li\e(B [?s ?h ?t])
       (aset standard-display-table ?\e,LI\e(B [?S ?h ?t])
       (aset standard-display-table ?\e,Ln\e(B [?i ?u])
       (aset standard-display-table ?\e,LN\e(B [?I ?u])
       (aset standard-display-table ?\e,Lo\e(B [?i ?a])
-      (aset standard-display-table ?\e,LO\e(B [?I ?a])
-      ;; Unicode version:
-      (aset standard-display-table ?\e$,1(i\e(B [?s ?h ?t])
-      (aset standard-display-table ?\e$,1(I\e(B [?S ?h ?t])
-      (aset standard-display-table ?\e$,1(n\e(B [?i ?u])
-      (aset standard-display-table ?\e$,1(N\e(B [?I ?u])
-      (aset standard-display-table ?\e$,1(o\e(B [?i ?a])
-      (aset standard-display-table ?\e$,1(O\e(B [?I ?a]))
+      (aset standard-display-table ?\e,LO\e(B [?I ?a]))
 
     (when (equal cyrillic-language "Ukrainian")        ; based on the official
                                        ; transliteration table
@@ -295,14 +184,7 @@ If the argument is nil, we return the display table to its standard state."
       (aset standard-display-table ?\e,LY\e(B [?i])
       (aset standard-display-table ?\e,L9\e(B [?Y])
       (aset standard-display-table ?\e,Ln\e(B [?i ?u])
-      (aset standard-display-table ?\e,Lo\e(B [?i ?a])
-      ;; Unicode version:
-      (aset standard-display-table ?\e$,1(X\e(B [?y])
-      (aset standard-display-table ?\e$,1(8\e(B [?Y])
-      (aset standard-display-table ?\e$,1(Y\e(B [?i])
-      (aset standard-display-table ?\e$,1(9\e(B [?Y])
-      (aset standard-display-table ?\e$,1(n\e(B [?i ?u])
-      (aset standard-display-table ?\e$,1(o\e(B [?i ?a]))))
+      (aset standard-display-table ?\e,Lo\e(B [?i ?a]))))
 
 ;;
 (provide 'cyril-util)