(standard-display-cyrillic-translit): New function.

diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el
index e992b0040b9e56b0a5e260eaabf07bde599e30f1..1f5cb1695ac5dbe466a12ae496dc4635ef7f6d3f 100644 (file)
--- a/lisp/language/cyril-util.el
+++ b/lisp/language/cyril-util.el
@@ -31,6 +31,134 @@
   (setup-8-bit-environment "Cyrillic" 'cyrillic-iso8859-5 'cyrillic-iso-8bit
                           "cyrillic-yawerty")
   (setq primary-language "Cyrillic"))
+\f
+;; Display 
+
+;; Written by Valery Alexeev <valery@math.uga.edu>.
+
+(defun standard-display-cyrillic-translit (cyrillic-language)
+  "Display a cyrillic buffer using a transliteration.
+For readability, the table is slightly
+different from the one used for the input method `cyrillic-translit'.
+
+The argument specifies which language you are using;
+that affects the choice of transliterations slightly.
+Possible values are `ukranian', `bulgarian' or t (any other language).
+If the argument is nil, we return the display table to its standard state."
+  (if (null cyrillic-language)
+      (setq standard-display-table (make-display-table))
+    (aset standard-display-table ?\81Ð  [?a])
+    (aset standard-display-table ?\81Ñ  [?b])
+    (aset standard-display-table ?\81Ò  [?v])
+    (aset standard-display-table ?\81Ó  [?g])
+    (aset standard-display-table ?\81Ô  [?d])
+    (aset standard-display-table ?\81Õ  [?e])
+    (aset standard-display-table ?\81ñ  [?y?o])
+    (aset standard-display-table ?\81Ö  [?z?h])
+    (aset standard-display-table ?\81×  [?z])
+    (aset standard-display-table ?\81Ø  [?i])
+    (aset standard-display-table ?\81Ù  [?j])
+    (aset standard-display-table ?\81Ú  [?k])
+    (aset standard-display-table ?\81Û  [?l])
+    (aset standard-display-table ?\81Ü  [?m])
+    (aset standard-display-table ?\81Ý  [?n])
+    (aset standard-display-table ?\81Þ  [?o])
+    (aset standard-display-table ?\81ß  [?p])
+    (aset standard-display-table ?\81à  [?r])
+    (aset standard-display-table ?\81á  [?s])
+    (aset standard-display-table ?\81â  [?t])
+    (aset standard-display-table ?\81ã  [?u])
+    (aset standard-display-table ?\81ä  [?f])
+    (aset standard-display-table ?\81å  [?k?h])
+    (aset standard-display-table ?\81æ  [?t?s])
+    (aset standard-display-table ?\81ç  [?c?h])
+    (aset standard-display-table ?\81è  [?s?h])
+    (aset standard-display-table ?\81é  [?s?c?h])
+    (aset standard-display-table ?\81ê  [?~])
+    (aset standard-display-table ?\81ë  [?y])
+    (aset standard-display-table ?\81ì  [?'])
+    (aset standard-display-table ?\81í  [?e?'])
+    (aset standard-display-table ?\81î  [?y?u])
+    (aset standard-display-table ?\81ï  [?y?a])
+  
+    (aset standard-display-table ?\81°  [?A])
+    (aset standard-display-table ?\81±  [?B])
+    (aset standard-display-table ?\81²  [?V])
+    (aset standard-display-table ?\81³  [?G])
+    (aset standard-display-table ?\81´  [?D])
+    (aset standard-display-table ?\81µ  [?E])
+    (aset standard-display-table ?\81¡  [?Y?o])
+    (aset standard-display-table ?\81¶  [?Z?h])
+    (aset standard-display-table ?\81·  [?Z])
+    (aset standard-display-table ?\81¸  [?I])
+    (aset standard-display-table ?\81¹  [?J])
+    (aset standard-display-table ?\81º  [?K])
+    (aset standard-display-table ?\\81»  [?L])
+    (aset standard-display-table ?\81¼  [?M])
+    (aset standard-display-table ?\81½  [?N])
+    (aset standard-display-table ?\81¾  [?O])
+    (aset standard-display-table ?\81¿  [?P])
+    (aset standard-display-table ?\81À  [?R])
+    (aset standard-display-table ?\81Á  [?S])
+    (aset standard-display-table ?\81Â  [?T])
+    (aset standard-display-table ?\81Ã  [?U])
+    (aset standard-display-table ?\81Ä  [?F])
+    (aset standard-display-table ?\81Å  [?K?h])
+    (aset standard-display-table ?\81Æ  [?T?s])
+    (aset standard-display-table ?\81Ç  [?C?h])
+    (aset standard-display-table ?\81È  [?S?h])
+    (aset standard-display-table ?\81É  [?S?c?h])
+    (aset standard-display-table ?\81Ê  [?~])
+    (aset standard-display-table ?\81Ë  [?Y])
+    (aset standard-display-table ?\81Ì  [?'])
+    (aset standard-display-table ?\81Í  [?E?'])
+    (aset standard-display-table ?\81Î  [?Y?u])
+    (aset standard-display-table ?\81Ï  [?Y?a])
+
+    (aset standard-display-table ?\81ô  [?i?e])
+    (aset standard-display-table ?\81÷  [?i])
+    (aset standard-display-table ?\81þ  [?u])
+    (aset standard-display-table ?\81ò  [?d?j])
+    (aset standard-display-table ?\81û  [?c?h?j])
+    (aset standard-display-table ?\81ó  [?g?j])
+    (aset standard-display-table ?\81õ  [?s])
+    (aset standard-display-table ?\81ü  [?k])
+    (aset standard-display-table ?\81ö  [?i])
+    (aset standard-display-table ?\81ø  [?j])
+    (aset standard-display-table ?\81ù  [?l?j])
+    (aset standard-display-table ?\81ú  [?n?j])
+    (aset standard-display-table ?\81ÿ  [?d?z])
+
+    (aset standard-display-table ?\81¤  [?Y?e])
+    (aset standard-display-table ?\81§  [?Y?i])
+    (aset standard-display-table ?\81®  [?U])
+    (aset standard-display-table ?\81¢  [?D?j])
+    (aset standard-display-table ?\\81«  [?C?h?j])
+    (aset standard-display-table ?\81£  [?G?j])
+    (aset standard-display-table ?\81¥  [?S])
+    (aset standard-display-table ?\81¬  [?K])
+    (aset standard-display-table ?\81¦  [?I])
+    (aset standard-display-table ?\81¨  [?J])
+    (aset standard-display-table ?\81©  [?L?j])
+    (aset standard-display-table ?\81ª  [?N?j])
+    (aset standard-display-table ?\81¯  [?D?j])
+
+    (when (eq cyrillic-language 'bulgarian)
+      (aset standard-display-table ?\81é [?s?h?t])
+      (aset standard-display-table ?\81É [?S?h?t])
+      (aset standard-display-table ?\81î [?i?u])
+      (aset standard-display-table ?\81Î [?I?u])
+      (aset standard-display-table ?\81ï [?i?a])
+      (aset standard-display-table ?\81Ï [?I?a]))
+
+    (when (eq cyrillic-language 'ukranian) ; based on the official
+                                       ; transliteration table
+      (aset standard-display-table ?\81Ø [?y])
+      (aset standard-display-table ?\81¸ [?Y])
+      (aset standard-display-table ?\81Ù [?i])
+      (aset standard-display-table ?\81¹ [?Y])
+      (aset standard-display-table ?\81î [?i?u])
+      (aset standard-display-table ?\81ï [?i?a]))))
 
 ;;
 (provide 'cyril-util)