;;; cyril-util.el --- utilities for Cyrillic scripts
-;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005,
-;; 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
+;; Copyright (C) 1997-1998, 2001-2016 Free Software Foundation, Inc.
;; Keywords: mule, multilingual, Cyrillic
;; Written by Valery Alexeev <valery@math.uga.edu>.
(defvar cyrillic-language-alist
- (list '("Belorussian") '("Bulgarian") '("Macedonian")
+ (list '("Belarusian") '("Bulgarian") '("Macedonian")
'("Russian") '("Serbo-Croatian") '("Ukrainian"))
"List of known cyrillic languages.")
(if (null cyrillic-language)
(setq standard-display-table (make-display-table))
- (aset standard-display-table ?\e,LP\e(B [?a])
- (aset standard-display-table ?\e,LQ\e(B [?b])
- (aset standard-display-table ?\e,LR\e(B [?v])
- (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,LW\e(B [?z])
- (aset standard-display-table ?\e,LX\e(B [?i])
- (aset standard-display-table ?\e,LY\e(B [?j])
- (aset standard-display-table ?\e,LZ\e(B [?k])
- (aset standard-display-table ?\e,L[\e(B [?l])
- (aset standard-display-table ?\e,L\\e(B [?m])
- (aset standard-display-table ?\e,L]\e(B [?n])
- (aset standard-display-table ?\e,L^\e(B [?o])
- (aset standard-display-table ?\e,L_\e(B [?p])
- (aset standard-display-table ?\e,L`\e(B [?r])
- (aset standard-display-table ?\e,La\e(B [?s])
- (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,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,L0\e(B [?A])
- (aset standard-display-table ?\e,L1\e(B [?B])
- (aset standard-display-table ?\e,L2\e(B [?V])
- (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,L7\e(B [?Z])
- (aset standard-display-table ?\e,L8\e(B [?I])
- (aset standard-display-table ?\e,L9\e(B [?J])
- (aset standard-display-table ?\e,L:\e(B [?K])
- (aset standard-display-table ?\e,L;\e(B [?L])
- (aset standard-display-table ?\e,L<\e(B [?M])
- (aset standard-display-table ?\e,L=\e(B [?N])
- (aset standard-display-table ?\e,L>\e(B [?O])
- (aset standard-display-table ?\e,L?\e(B [?P])
- (aset standard-display-table ?\e,L@\e(B [?R])
- (aset standard-display-table ?\e,LA\e(B [?S])
- (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,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,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,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,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 [?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 ?а [?a])
+ (aset standard-display-table ?б [?b])
+ (aset standard-display-table ?в [?v])
+ (aset standard-display-table ?г [?g])
+ (aset standard-display-table ?д [?d])
+ (aset standard-display-table ?е [?e])
+ (aset standard-display-table ?ё [?y ?o])
+ (aset standard-display-table ?ж [?z ?h])
+ (aset standard-display-table ?з [?z])
+ (aset standard-display-table ?и [?i])
+ (aset standard-display-table ?й [?j])
+ (aset standard-display-table ?к [?k])
+ (aset standard-display-table ?л [?l])
+ (aset standard-display-table ?м [?m])
+ (aset standard-display-table ?н [?n])
+ (aset standard-display-table ?о [?o])
+ (aset standard-display-table ?п [?p])
+ (aset standard-display-table ?р [?r])
+ (aset standard-display-table ?с [?s])
+ (aset standard-display-table ?т [?t])
+ (aset standard-display-table ?у [?u])
+ (aset standard-display-table ?ф [?f])
+ (aset standard-display-table ?х [?k ?h])
+ (aset standard-display-table ?ц [?t ?s])
+ (aset standard-display-table ?ч [?c ?h])
+ (aset standard-display-table ?ш [?s ?h])
+ (aset standard-display-table ?щ [?s ?c ?h])
+ (aset standard-display-table ?ъ [?~])
+ (aset standard-display-table ?ы [?y])
+ (aset standard-display-table ?ь [?'])
+ (aset standard-display-table ?э [?e ?'])
+ (aset standard-display-table ?ю [?y ?u])
+ (aset standard-display-table ?я [?y ?a])
+
+ (aset standard-display-table ?А [?A])
+ (aset standard-display-table ?Б [?B])
+ (aset standard-display-table ?В [?V])
+ (aset standard-display-table ?Г [?G])
+ (aset standard-display-table ?Д [?D])
+ (aset standard-display-table ?Е [?E])
+ (aset standard-display-table ?Ё [?Y ?o])
+ (aset standard-display-table ?Ж [?Z ?h])
+ (aset standard-display-table ?З [?Z])
+ (aset standard-display-table ?И [?I])
+ (aset standard-display-table ?Й [?J])
+ (aset standard-display-table ?К [?K])
+ (aset standard-display-table ?Л [?L])
+ (aset standard-display-table ?М [?M])
+ (aset standard-display-table ?Н [?N])
+ (aset standard-display-table ?О [?O])
+ (aset standard-display-table ?П [?P])
+ (aset standard-display-table ?Р [?R])
+ (aset standard-display-table ?С [?S])
+ (aset standard-display-table ?Т [?T])
+ (aset standard-display-table ?У [?U])
+ (aset standard-display-table ?Ф [?F])
+ (aset standard-display-table ?Х [?K ?h])
+ (aset standard-display-table ?Ц [?T ?s])
+ (aset standard-display-table ?Ч [?C ?h])
+ (aset standard-display-table ?Ш [?S ?h])
+ (aset standard-display-table ?Щ [?S ?c ?h])
+ (aset standard-display-table ?Ъ [?~])
+ (aset standard-display-table ?Ы [?Y])
+ (aset standard-display-table ?Ь [?'])
+ (aset standard-display-table ?Э [?E ?'])
+ (aset standard-display-table ?Ю [?Y ?u])
+ (aset standard-display-table ?Я [?Y ?a])
+
+ (aset standard-display-table ?є [?i ?e])
+ (aset standard-display-table ?ї [?i])
+ (aset standard-display-table ?ў [?u])
+ (aset standard-display-table ?ђ [?d ?j])
+ (aset standard-display-table ?ћ [?c ?h ?j])
+ (aset standard-display-table ?ѓ [?g ?j])
+ (aset standard-display-table ?ѕ [?s])
+ (aset standard-display-table ?ќ [?k])
+ (aset standard-display-table ?і [?i])
+ (aset standard-display-table ?ј [?j])
+ (aset standard-display-table ?љ [?l ?j])
+ (aset standard-display-table ?њ [?n ?j])
+ (aset standard-display-table ?џ [?d ?z])
+
+ (aset standard-display-table ?Є [?Y ?e])
+ (aset standard-display-table ?Ї [?Y ?i])
+ (aset standard-display-table ?Ў [?U])
+ (aset standard-display-table ?Ђ [?D ?j])
+ (aset standard-display-table ?Ћ [?C ?h ?j])
+ (aset standard-display-table ?Ѓ [?G ?j])
+ (aset standard-display-table ?Ѕ [?S])
+ (aset standard-display-table ?Ќ [?K])
+ (aset standard-display-table ?І [?I])
+ (aset standard-display-table ?Ј [?J])
+ (aset standard-display-table ?Љ [?L ?j])
+ (aset standard-display-table ?Њ [?N ?j])
+ (aset standard-display-table ?Џ [?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 ?щ [?s ?h ?t])
+ (aset standard-display-table ?Щ [?S ?h ?t])
+ (aset standard-display-table ?ю [?i ?u])
+ (aset standard-display-table ?Ю [?I ?u])
+ (aset standard-display-table ?я [?i ?a])
+ (aset standard-display-table ?Я [?I ?a]))
(when (equal cyrillic-language "Ukrainian") ; based on the official
; transliteration table
- (aset standard-display-table ?\e,LX\e(B [?y])
- (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 ?и [?y])
+ (aset standard-display-table ?И [?Y])
+ (aset standard-display-table ?й [?i])
+ (aset standard-display-table ?Й [?Y])
+ (aset standard-display-table ?ю [?i ?u])
+ (aset standard-display-table ?я [?i ?a]))))
;;
(provide 'cyril-util)
;; Local Variables:
-;; coding: iso-2022-7bit
+;; coding: utf-8
;; End:
;;; cyril-util.el ends here