(standard-display-cyrillic-translit): New function.
This commit is contained in:
Richard M. Stallman
parent
145eec6fbc
commit
71ed499293
1 changed files with 128 additions and 0 deletions
|
|
@ -31,6 +31,134 @@
|
|||
(setup-8-bit-environment "Cyrillic" 'cyrillic-iso8859-5 'cyrillic-iso-8bit
|
||||
"cyrillic-yawerty")
|
||||
(setq primary-language "Cyrillic"))
|
||||
|
||||
;; 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 ?<3F>Ð [?a])
|
||||
(aset standard-display-table ?<3F>Ñ [?b])
|
||||
(aset standard-display-table ?<3F>Ò [?v])
|
||||
(aset standard-display-table ?<3F>Ó [?g])
|
||||
(aset standard-display-table ?<3F>Ô [?d])
|
||||
(aset standard-display-table ?<3F>Õ [?e])
|
||||
(aset standard-display-table ?<3F>ñ [?y?o])
|
||||
(aset standard-display-table ?<3F>Ö [?z?h])
|
||||
(aset standard-display-table ?<3F>× [?z])
|
||||
(aset standard-display-table ?<3F>Ø [?i])
|
||||
(aset standard-display-table ?<3F>Ù [?j])
|
||||
(aset standard-display-table ?<3F>Ú [?k])
|
||||
(aset standard-display-table ?<3F>Û [?l])
|
||||
(aset standard-display-table ?<3F>Ü [?m])
|
||||
(aset standard-display-table ?<3F>Ý [?n])
|
||||
(aset standard-display-table ?<3F>Þ [?o])
|
||||
(aset standard-display-table ?<3F>ß [?p])
|
||||
(aset standard-display-table ?<3F>à [?r])
|
||||
(aset standard-display-table ?<3F>á [?s])
|
||||
(aset standard-display-table ?<3F>â [?t])
|
||||
(aset standard-display-table ?<3F>ã [?u])
|
||||
(aset standard-display-table ?<3F>ä [?f])
|
||||
(aset standard-display-table ?<3F>å [?k?h])
|
||||
(aset standard-display-table ?<3F>æ [?t?s])
|
||||
(aset standard-display-table ?<3F>ç [?c?h])
|
||||
(aset standard-display-table ?<3F>è [?s?h])
|
||||
(aset standard-display-table ?<3F>é [?s?c?h])
|
||||
(aset standard-display-table ?<3F>ê [?~])
|
||||
(aset standard-display-table ?<3F>ë [?y])
|
||||
(aset standard-display-table ?<3F>ì [?'])
|
||||
(aset standard-display-table ?<3F>í [?e?'])
|
||||
(aset standard-display-table ?<3F>î [?y?u])
|
||||
(aset standard-display-table ?<3F>ï [?y?a])
|
||||
|
||||
(aset standard-display-table ?<3F>° [?A])
|
||||
(aset standard-display-table ?<3F>± [?B])
|
||||
(aset standard-display-table ?<3F>² [?V])
|
||||
(aset standard-display-table ?<3F>³ [?G])
|
||||
(aset standard-display-table ?<3F>´ [?D])
|
||||
(aset standard-display-table ?<3F>µ [?E])
|
||||
(aset standard-display-table ?<3F>¡ [?Y?o])
|
||||
(aset standard-display-table ?<3F>¶ [?Z?h])
|
||||
(aset standard-display-table ?<3F>· [?Z])
|
||||
(aset standard-display-table ?<3F>¸ [?I])
|
||||
(aset standard-display-table ?<3F>¹ [?J])
|
||||
(aset standard-display-table ?<3F>º [?K])
|
||||
(aset standard-display-table ?\<5C>» [?L])
|
||||
(aset standard-display-table ?<3F>¼ [?M])
|
||||
(aset standard-display-table ?<3F>½ [?N])
|
||||
(aset standard-display-table ?<3F>¾ [?O])
|
||||
(aset standard-display-table ?<3F>¿ [?P])
|
||||
(aset standard-display-table ?<3F>À [?R])
|
||||
(aset standard-display-table ?<3F>Á [?S])
|
||||
(aset standard-display-table ?<3F>Â [?T])
|
||||
(aset standard-display-table ?<3F>Ã [?U])
|
||||
(aset standard-display-table ?<3F>Ä [?F])
|
||||
(aset standard-display-table ?<3F>Å [?K?h])
|
||||
(aset standard-display-table ?<3F>Æ [?T?s])
|
||||
(aset standard-display-table ?<3F>Ç [?C?h])
|
||||
(aset standard-display-table ?<3F>È [?S?h])
|
||||
(aset standard-display-table ?<3F>É [?S?c?h])
|
||||
(aset standard-display-table ?<3F>Ê [?~])
|
||||
(aset standard-display-table ?<3F>Ë [?Y])
|
||||
(aset standard-display-table ?<3F>Ì [?'])
|
||||
(aset standard-display-table ?<3F>Í [?E?'])
|
||||
(aset standard-display-table ?<3F>Î [?Y?u])
|
||||
(aset standard-display-table ?<3F>Ï [?Y?a])
|
||||
|
||||
(aset standard-display-table ?<3F>ô [?i?e])
|
||||
(aset standard-display-table ?<3F>÷ [?i])
|
||||
(aset standard-display-table ?<3F>þ [?u])
|
||||
(aset standard-display-table ?<3F>ò [?d?j])
|
||||
(aset standard-display-table ?<3F>û [?c?h?j])
|
||||
(aset standard-display-table ?<3F>ó [?g?j])
|
||||
(aset standard-display-table ?<3F>õ [?s])
|
||||
(aset standard-display-table ?<3F>ü [?k])
|
||||
(aset standard-display-table ?<3F>ö [?i])
|
||||
(aset standard-display-table ?<3F>ø [?j])
|
||||
(aset standard-display-table ?<3F>ù [?l?j])
|
||||
(aset standard-display-table ?<3F>ú [?n?j])
|
||||
(aset standard-display-table ?<3F>ÿ [?d?z])
|
||||
|
||||
(aset standard-display-table ?<3F>¤ [?Y?e])
|
||||
(aset standard-display-table ?<3F>§ [?Y?i])
|
||||
(aset standard-display-table ?<3F>® [?U])
|
||||
(aset standard-display-table ?<3F>¢ [?D?j])
|
||||
(aset standard-display-table ?\<5C>« [?C?h?j])
|
||||
(aset standard-display-table ?<3F>£ [?G?j])
|
||||
(aset standard-display-table ?<3F>¥ [?S])
|
||||
(aset standard-display-table ?<3F>¬ [?K])
|
||||
(aset standard-display-table ?<3F>¦ [?I])
|
||||
(aset standard-display-table ?<3F>¨ [?J])
|
||||
(aset standard-display-table ?<3F>© [?L?j])
|
||||
(aset standard-display-table ?<3F>ª [?N?j])
|
||||
(aset standard-display-table ?<3F>¯ [?D?j])
|
||||
|
||||
(when (eq cyrillic-language 'bulgarian)
|
||||
(aset standard-display-table ?<3F>é [?s?h?t])
|
||||
(aset standard-display-table ?<3F>É [?S?h?t])
|
||||
(aset standard-display-table ?<3F>î [?i?u])
|
||||
(aset standard-display-table ?<3F>Î [?I?u])
|
||||
(aset standard-display-table ?<3F>ï [?i?a])
|
||||
(aset standard-display-table ?<3F>Ï [?I?a]))
|
||||
|
||||
(when (eq cyrillic-language 'ukranian) ; based on the official
|
||||
; transliteration table
|
||||
(aset standard-display-table ?<3F>Ø [?y])
|
||||
(aset standard-display-table ?<3F>¸ [?Y])
|
||||
(aset standard-display-table ?<3F>Ù [?i])
|
||||
(aset standard-display-table ?<3F>¹ [?Y])
|
||||
(aset standard-display-table ?<3F>î [?i?u])
|
||||
(aset standard-display-table ?<3F>ï [?i?a]))))
|
||||
|
||||
;;
|
||||
(provide 'cyril-util)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue