HCoop / bpt / emacs.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Fix copyrights.
[bpt/emacs.git] / lisp / language / cyril-util.el
diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el
index 3c9839e..3bccb25 100644 (file)
--- a/lisp/language/cyril-util.el
+++ b/lisp/language/cyril-util.el
@@ -1,6 +1,6 @@
 ;;; cyril-util.el --- utilities for Cyrillic scripts
 
-;; Copyright (C) 1997, 2001, 2002 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1998, 2001, 2002  Free Software Foundation, Inc.
 
 ;; Keywords: mule, multilingual, Cyrillic
 
@@ -86,8 +86,8 @@ If the argument is nil, we return the display table to its standard state."
     (aset standard-display-table ?\e,LS\e(B  [?g])
     (aset standard-display-table ?\e,LT\e(B  [?d])
     (aset standard-display-table ?\e,LU\e(B  [?e])
-    (aset standard-display-table ?\e,Lq\e(B  [?y?o])
-    (aset standard-display-table ?\e,LV\e(B  [?z?h])
+    (aset standard-display-table ?\e,Lq\e(B  [?y ?o])
+    (aset standard-display-table ?\e,LV\e(B  [?z ?h])
     (aset standard-display-table ?\e,LW\e(B  [?z])
     (aset standard-display-table ?\e,LX\e(B  [?i])
     (aset standard-display-table ?\e,LY\e(B  [?j])
@@ -102,17 +102,17 @@ If the argument is nil, we return the display table to its standard state."
     (aset standard-display-table ?\e,Lb\e(B  [?t])
     (aset standard-display-table ?\e,Lc\e(B  [?u])
     (aset standard-display-table ?\e,Ld\e(B  [?f])
-    (aset standard-display-table ?\e,Le\e(B  [?k?h])
-    (aset standard-display-table ?\e,Lf\e(B  [?t?s])
-    (aset standard-display-table ?\e,Lg\e(B  [?c?h])
-    (aset standard-display-table ?\e,Lh\e(B  [?s?h])
-    (aset standard-display-table ?\e,Li\e(B  [?s?c?h])
+    (aset standard-display-table ?\e,Le\e(B  [?k ?h])
+    (aset standard-display-table ?\e,Lf\e(B  [?t ?s])
+    (aset standard-display-table ?\e,Lg\e(B  [?c ?h])
+    (aset standard-display-table ?\e,Lh\e(B  [?s ?h])
+    (aset standard-display-table ?\e,Li\e(B  [?s ?c ?h])
     (aset standard-display-table ?\e,Lj\e(B  [?~])
     (aset standard-display-table ?\e,Lk\e(B  [?y])
     (aset standard-display-table ?\e,Ll\e(B  [?'])
-    (aset standard-display-table ?\e,Lm\e(B  [?e?'])
-    (aset standard-display-table ?\e,Ln\e(B  [?y?u])
-    (aset standard-display-table ?\e,Lo\e(B  [?y?a])
+    (aset standard-display-table ?\e,Lm\e(B  [?e ?'])
+    (aset standard-display-table ?\e,Ln\e(B  [?y ?u])
+    (aset standard-display-table ?\e,Lo\e(B  [?y ?a])
 
     (aset standard-display-table ?\e,L0\e(B  [?A])
     (aset standard-display-table ?\e,L1\e(B  [?B])
@@ -120,8 +120,8 @@ If the argument is nil, we return the display table to its standard state."
     (aset standard-display-table ?\e,L3\e(B  [?G])
     (aset standard-display-table ?\e,L4\e(B  [?D])
     (aset standard-display-table ?\e,L5\e(B  [?E])
-    (aset standard-display-table ?\e,L!\e(B  [?Y?o])
-    (aset standard-display-table ?\e,L6\e(B  [?Z?h])
+    (aset standard-display-table ?\e,L!\e(B  [?Y ?o])
+    (aset standard-display-table ?\e,L6\e(B  [?Z ?h])
     (aset standard-display-table ?\e,L7\e(B  [?Z])
     (aset standard-display-table ?\e,L8\e(B  [?I])
     (aset standard-display-table ?\e,L9\e(B  [?J])
@@ -136,45 +136,45 @@ If the argument is nil, we return the display table to its standard state."
     (aset standard-display-table ?\e,LB\e(B  [?T])
     (aset standard-display-table ?\e,LC\e(B  [?U])
     (aset standard-display-table ?\e,LD\e(B  [?F])
-    (aset standard-display-table ?\e,LE\e(B  [?K?h])
-    (aset standard-display-table ?\e,LF\e(B  [?T?s])
-    (aset standard-display-table ?\e,LG\e(B  [?C?h])
-    (aset standard-display-table ?\e,LH\e(B  [?S?h])
-    (aset standard-display-table ?\e,LI\e(B  [?S?c?h])
+    (aset standard-display-table ?\e,LE\e(B  [?K ?h])
+    (aset standard-display-table ?\e,LF\e(B  [?T ?s])
+    (aset standard-display-table ?\e,LG\e(B  [?C ?h])
+    (aset standard-display-table ?\e,LH\e(B  [?S ?h])
+    (aset standard-display-table ?\e,LI\e(B  [?S ?c ?h])
     (aset standard-display-table ?\e,LJ\e(B  [?~])
     (aset standard-display-table ?\e,LK\e(B  [?Y])
     (aset standard-display-table ?\e,LL\e(B  [?'])
-    (aset standard-display-table ?\e,LM\e(B  [?E?'])
-    (aset standard-display-table ?\e,LN\e(B  [?Y?u])
-    (aset standard-display-table ?\e,LO\e(B  [?Y?a])
+    (aset standard-display-table ?\e,LM\e(B  [?E ?'])
+    (aset standard-display-table ?\e,LN\e(B  [?Y ?u])
+    (aset standard-display-table ?\e,LO\e(B  [?Y ?a])
 
-    (aset standard-display-table ?\e,Lt\e(B  [?i?e])
+    (aset standard-display-table ?\e,Lt\e(B  [?i ?e])
     (aset standard-display-table ?\e,Lw\e(B  [?i])
     (aset standard-display-table ?\e,L~\e(B  [?u])
-    (aset standard-display-table ?\e,Lr\e(B  [?d?j])
-    (aset standard-display-table ?\e,L{\e(B  [?c?h?j])
-    (aset standard-display-table ?\e,Ls\e(B  [?g?j])
+    (aset standard-display-table ?\e,Lr\e(B  [?d ?j])
+    (aset standard-display-table ?\e,L{\e(B  [?c ?h ?j])
+    (aset standard-display-table ?\e,Ls\e(B  [?g ?j])
     (aset standard-display-table ?\e,Lu\e(B  [?s])
     (aset standard-display-table ?\e,L|\e(B  [?k])
     (aset standard-display-table ?\e,Lv\e(B  [?i])
     (aset standard-display-table ?\e,Lx\e(B  [?j])
-    (aset standard-display-table ?\e,Ly\e(B  [?l?j])
-    (aset standard-display-table ?\e,Lz\e(B  [?n?j])
-    (aset standard-display-table ?\e,L\7f\e(B  [?d?z])
+    (aset standard-display-table ?\e,Ly\e(B  [?l ?j])
+    (aset standard-display-table ?\e,Lz\e(B  [?n ?j])
+    (aset standard-display-table ?\e,L\7f\e(B  [?d ?z])
 
-    (aset standard-display-table ?\e,L$\e(B  [?Y?e])
-    (aset standard-display-table ?\e,L'\e(B  [?Y?i])
+    (aset standard-display-table ?\e,L$\e(B  [?Y ?e])
+    (aset standard-display-table ?\e,L'\e(B  [?Y ?i])
     (aset standard-display-table ?\e,L.\e(B  [?U])
-    (aset standard-display-table ?\e,L"\e(B  [?D?j])
-    (aset standard-display-table ?\e,L+\e(B  [?C?h?j])
-    (aset standard-display-table ?\e,L#\e(B  [?G?j])
+    (aset standard-display-table ?\e,L"\e(B  [?D ?j])
+    (aset standard-display-table ?\e,L+\e(B  [?C ?h ?j])
+    (aset standard-display-table ?\e,L#\e(B  [?G ?j])
     (aset standard-display-table ?\e,L%\e(B  [?S])
     (aset standard-display-table ?\e,L,\e(B  [?K])
     (aset standard-display-table ?\e,L&\e(B  [?I])
     (aset standard-display-table ?\e,L(\e(B  [?J])
-    (aset standard-display-table ?\e,L)\e(B  [?L?j])
-    (aset standard-display-table ?\e,L*\e(B  [?N?j])
-    (aset standard-display-table ?\e,L/\e(B  [?D?j])
+    (aset standard-display-table ?\e,L)\e(B  [?L ?j])
+    (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])
@@ -183,8 +183,8 @@ If the argument is nil, we return the display table to its standard state."
     (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(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])
@@ -199,17 +199,17 @@ If the argument is nil, we return the display table to its standard state."
     (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(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(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])
@@ -217,8 +217,8 @@ If the argument is nil, we return the display table to its standard state."
     (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(!\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])
@@ -233,60 +233,60 @@ If the argument is nil, we return the display table to its standard state."
     (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(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(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(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(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(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  [?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  [?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])
+    (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])
+      (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$,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]))
 
     (when (equal cyrillic-language "Ukrainian")        ; based on the official
                                        ; transliteration table
@@ -294,15 +294,15 @@ If the argument is nil, we return the display table to its standard state."
       (aset standard-display-table ?\e,L8\e(B [?Y])
       (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])
+      (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$,1(n\e(B [?i ?u])
+      (aset standard-display-table ?\e$,1(o\e(B [?i ?a]))))
 
 ;;
 (provide 'cyril-util)
@@ -311,4 +311,5 @@ If the argument is nil, we return the display table to its standard state."
 ;; coding: iso-2022-7bit
 ;; End:
 
+;;; arch-tag: f6d9dd5d-685c-45d6-a5d8-1e2178228b7e
 ;;; cyril-util.el ends here
Unnamed repository; edit this file 'description' to name the repository.