diff lisp/language/cyril-util.el @ 49845:35a345af2558

(standard-display-cyrillic-translit): Fix character constants.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 18 Feb 2003 11:06:02 +0000
parents 0d8b17d428b5
children 695cf19ef79e
line wrap: on
line diff
--- a/lisp/language/cyril-util.el	Tue Feb 18 11:03:31 2003 +0000
+++ b/lisp/language/cyril-util.el	Tue Feb 18 11:06:02 2003 +0000
@@ -86,8 +86,8 @@
     (aset standard-display-table ?,LS(B  [?g])
     (aset standard-display-table ?,LT(B  [?d])
     (aset standard-display-table ?,LU(B  [?e])
-    (aset standard-display-table ?,Lq(B  [?y?o])
-    (aset standard-display-table ?,LV(B  [?z?h])
+    (aset standard-display-table ?,Lq(B  [?y ?o])
+    (aset standard-display-table ?,LV(B  [?z ?h])
     (aset standard-display-table ?,LW(B  [?z])
     (aset standard-display-table ?,LX(B  [?i])
     (aset standard-display-table ?,LY(B  [?j])
@@ -102,17 +102,17 @@
     (aset standard-display-table ?,Lb(B  [?t])
     (aset standard-display-table ?,Lc(B  [?u])
     (aset standard-display-table ?,Ld(B  [?f])
-    (aset standard-display-table ?,Le(B  [?k?h])
-    (aset standard-display-table ?,Lf(B  [?t?s])
-    (aset standard-display-table ?,Lg(B  [?c?h])
-    (aset standard-display-table ?,Lh(B  [?s?h])
-    (aset standard-display-table ?,Li(B  [?s?c?h])
+    (aset standard-display-table ?,Le(B  [?k ?h])
+    (aset standard-display-table ?,Lf(B  [?t ?s])
+    (aset standard-display-table ?,Lg(B  [?c ?h])
+    (aset standard-display-table ?,Lh(B  [?s ?h])
+    (aset standard-display-table ?,Li(B  [?s ?c ?h])
     (aset standard-display-table ?,Lj(B  [?~])
     (aset standard-display-table ?,Lk(B  [?y])
     (aset standard-display-table ?,Ll(B  [?'])
-    (aset standard-display-table ?,Lm(B  [?e?'])
-    (aset standard-display-table ?,Ln(B  [?y?u])
-    (aset standard-display-table ?,Lo(B  [?y?a])
+    (aset standard-display-table ?,Lm(B  [?e ?'])
+    (aset standard-display-table ?,Ln(B  [?y ?u])
+    (aset standard-display-table ?,Lo(B  [?y ?a])
 
     (aset standard-display-table ?,L0(B  [?A])
     (aset standard-display-table ?,L1(B  [?B])
@@ -120,8 +120,8 @@
     (aset standard-display-table ?,L3(B  [?G])
     (aset standard-display-table ?,L4(B  [?D])
     (aset standard-display-table ?,L5(B  [?E])
-    (aset standard-display-table ?,L!(B  [?Y?o])
-    (aset standard-display-table ?,L6(B  [?Z?h])
+    (aset standard-display-table ?,L!(B  [?Y ?o])
+    (aset standard-display-table ?,L6(B  [?Z ?h])
     (aset standard-display-table ?,L7(B  [?Z])
     (aset standard-display-table ?,L8(B  [?I])
     (aset standard-display-table ?,L9(B  [?J])
@@ -136,45 +136,45 @@
     (aset standard-display-table ?,LB(B  [?T])
     (aset standard-display-table ?,LC(B  [?U])
     (aset standard-display-table ?,LD(B  [?F])
-    (aset standard-display-table ?,LE(B  [?K?h])
-    (aset standard-display-table ?,LF(B  [?T?s])
-    (aset standard-display-table ?,LG(B  [?C?h])
-    (aset standard-display-table ?,LH(B  [?S?h])
-    (aset standard-display-table ?,LI(B  [?S?c?h])
+    (aset standard-display-table ?,LE(B  [?K ?h])
+    (aset standard-display-table ?,LF(B  [?T ?s])
+    (aset standard-display-table ?,LG(B  [?C ?h])
+    (aset standard-display-table ?,LH(B  [?S ?h])
+    (aset standard-display-table ?,LI(B  [?S ?c ?h])
     (aset standard-display-table ?,LJ(B  [?~])
     (aset standard-display-table ?,LK(B  [?Y])
     (aset standard-display-table ?,LL(B  [?'])
-    (aset standard-display-table ?,LM(B  [?E?'])
-    (aset standard-display-table ?,LN(B  [?Y?u])
-    (aset standard-display-table ?,LO(B  [?Y?a])
+    (aset standard-display-table ?,LM(B  [?E ?'])
+    (aset standard-display-table ?,LN(B  [?Y ?u])
+    (aset standard-display-table ?,LO(B  [?Y ?a])
 
-    (aset standard-display-table ?,Lt(B  [?i?e])
+    (aset standard-display-table ?,Lt(B  [?i ?e])
     (aset standard-display-table ?,Lw(B  [?i])
     (aset standard-display-table ?,L~(B  [?u])
-    (aset standard-display-table ?,Lr(B  [?d?j])
-    (aset standard-display-table ?,L{(B  [?c?h?j])
-    (aset standard-display-table ?,Ls(B  [?g?j])
+    (aset standard-display-table ?,Lr(B  [?d ?j])
+    (aset standard-display-table ?,L{(B  [?c ?h ?j])
+    (aset standard-display-table ?,Ls(B  [?g ?j])
     (aset standard-display-table ?,Lu(B  [?s])
     (aset standard-display-table ?,L|(B  [?k])
     (aset standard-display-table ?,Lv(B  [?i])
     (aset standard-display-table ?,Lx(B  [?j])
-    (aset standard-display-table ?,Ly(B  [?l?j])
-    (aset standard-display-table ?,Lz(B  [?n?j])
-    (aset standard-display-table ?,L(B  [?d?z])
+    (aset standard-display-table ?,Ly(B  [?l ?j])
+    (aset standard-display-table ?,Lz(B  [?n ?j])
+    (aset standard-display-table ?,L(B  [?d ?z])
 
-    (aset standard-display-table ?,L$(B  [?Y?e])
-    (aset standard-display-table ?,L'(B  [?Y?i])
+    (aset standard-display-table ?,L$(B  [?Y ?e])
+    (aset standard-display-table ?,L'(B  [?Y ?i])
     (aset standard-display-table ?,L.(B  [?U])
-    (aset standard-display-table ?,L"(B  [?D?j])
-    (aset standard-display-table ?,L+(B  [?C?h?j])
-    (aset standard-display-table ?,L#(B  [?G?j])
+    (aset standard-display-table ?,L"(B  [?D ?j])
+    (aset standard-display-table ?,L+(B  [?C ?h ?j])
+    (aset standard-display-table ?,L#(B  [?G ?j])
     (aset standard-display-table ?,L%(B  [?S])
     (aset standard-display-table ?,L,(B  [?K])
     (aset standard-display-table ?,L&(B  [?I])
     (aset standard-display-table ?,L((B  [?J])
-    (aset standard-display-table ?,L)(B  [?L?j])
-    (aset standard-display-table ?,L*(B  [?N?j])
-    (aset standard-display-table ?,L/(B  [?D?j])
+    (aset standard-display-table ?,L)(B  [?L ?j])
+    (aset standard-display-table ?,L*(B  [?N ?j])
+    (aset standard-display-table ?,L/(B  [?D ?j])
 
     ;; Unicode version:
     (aset standard-display-table ?$,1(P(B  [?a])
@@ -183,8 +183,8 @@
     (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(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])
@@ -199,17 +199,17 @@
     (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(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(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])
@@ -217,8 +217,8 @@
     (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(!(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])
@@ -233,60 +233,60 @@
     (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(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(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(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(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(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  [?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  [?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])
+    (aset standard-display-table ?$,1()(B  [?L ?j])
+    (aset standard-display-table ?$,1(*(B  [?N ?j])
+    (aset standard-display-table ?$,1(/(B  [?D ?j])
 
     (when (equal cyrillic-language "Bulgarian")
-      (aset standard-display-table ?,Li(B [?s?h?t])
-      (aset standard-display-table ?,LI(B [?S?h?t])
-      (aset standard-display-table ?,Ln(B [?i?u])
-      (aset standard-display-table ?,LN(B [?I?u])
-      (aset standard-display-table ?,Lo(B [?i?a])
-      (aset standard-display-table ?,LO(B [?I?a])
+      (aset standard-display-table ?,Li(B [?s ?h ?t])
+      (aset standard-display-table ?,LI(B [?S ?h ?t])
+      (aset standard-display-table ?,Ln(B [?i ?u])
+      (aset standard-display-table ?,LN(B [?I ?u])
+      (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]))
+      (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]))
 
     (when (equal cyrillic-language "Ukrainian")	; based on the official
 					; transliteration table
@@ -294,15 +294,15 @@
       (aset standard-display-table ?,L8(B [?Y])
       (aset standard-display-table ?,LY(B [?i])
       (aset standard-display-table ?,L9(B [?Y])
-      (aset standard-display-table ?,Ln(B [?i?u])
-      (aset standard-display-table ?,Lo(B [?i?a])
+      (aset standard-display-table ?,Ln(B [?i ?u])
+      (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]))))
+      (aset standard-display-table ?$,1(n(B [?i ?u])
+      (aset standard-display-table ?$,1(o(B [?i ?a]))))
 
 ;;
 (provide 'cyril-util)