;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:15:47 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/language/cyril-util.el
;;; in Emacs version 24.0.50.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@63 Return KOI8-R external character code of CHAR if appropriate.
(defalias 'cyrillic-encode-koi8-r-char #[(char) "\301\302\"\207" [char encode-char koi8-r] 3 (#$ . 553)])
#@70 Return ALTERNATIVNYJ external character code of CHAR if appropriate.
(defalias 'cyrillic-encode-alternativnyj-char #[(char) "\301\302\"\207" [char encode-char alternativnyj] 3 (#$ . 728)])
#@35 List of known cyrillic languages.
(defvar cyrillic-language-alist (list '("Belorussian") '("Bulgarian") '("Macedonian") '("Russian") '("Serbo-Croatian") '("Ukrainian")) (#$ . 924))
#@486 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 is a string which specifies which language you are using;
that affects the choice of transliterations slightly.
Possible values are listed in `cyrillic-language-alist'.
If the argument is t, we use the default cyrillic transliteration.
If the argument is nil, we return the display table to its standard state.
(defalias 'standard-display-cyrillic-translit #[(&optional cyrillic-language) "\204\302 	\303\232\203\304	\204\302 \211\207\305\306I\210\307\310I\210\311\312I\210\313\314I\210\315\316I\210\317\320I\210\321\322I\210\323\324I\210\325\326I\210\327\330I\210\331\332I\210\333\334I\210\335\336I\210\337\340I\210\341\342I\210\343\344I\210\345\346I\210\347\350I\210\351\352I\210\353\354I\210\355\356I\210\357\360I\210\361\362I\210\363\364I\210\365\366I\210\367\370I\210\371\372I\210\373\374I\210\375\376I\210\377\201@I\210\201A\201BI\210\201C\201DI\210\201E\201FI\210\201G\201HI\210\201I\201JI\210\201K\201LI\210\201M\201NI\210\201O\201PI\210\201Q\201RI\210\201S\201TI\210\201U\201VI\210\201W\201XI\210\201Y\201ZI\210\201[\201\\I\210\201]\201^I\210\201_\201`I\210\201a\201bI\210\201c\201dI\210\201e\201fI\210\201g\201hI\210\201i\201jI\210\201k\201lI\210\201m\201nI\210\201o\201pI\210\201q\201rI\210\201s\201tI\210\201u\201vI\210\201w\201xI\210\201y\201zI\210\201{\201|I\210\201}\201~I\210\201\201\200I\210\201\201\201\202I\210\201\203\201\204I\210\201\205\201\206I\210\201\207\201\210I\210\201\211\201\212I\210\201\213\201\214I\210\201\215\201\216I\210\201\217\201\220I\210\201\221\201\222I\210\201\223\201\224I\210\201\225\201\226I\210\201\227\201\230I\210\201\231\201\232I\210\201\233\201\234I\210\201\235\201\236I\210\201\237\201\240I\210\201\241\201\242I\210\201\243\201\244I\210\201\245\201\246I\210\201\247\201\250I\210\201\251\201\252I\210\201\253\201\254I\210\201\255\201\256I\210\201\257\201\260I\210\201\261\201\262I\210\201\263\201\264I\210\201\265\201\266I\210\201\267\201\270I\210\201\271\201\272I\210\201\273\201\274I\210	\201\275\232\203\371\201\276I\210\201{\201\277I\210\201C\201\300I\210\201\205\201\301I\210\201E\201\302I\210\201\207\201\303I\210	\201\304\232\205S\327\201\305I\210\201Y\201\306I\210\331\201\307I\210\201[\201\310I\210\201C\201\311I\210\201E\201\312I\207" [standard-display-table cyrillic-language make-display-table "" nil 1072 [97] 1073 [98] 1074 [118] 1075 [103] 1076 [100] 1077 [101] 1105 [121 111] 1078 [122 104] 1079 [122] 1080 [105] 1081 [106] 1082 [107] 1083 [108] 1084 [109] 1085 [110] 1086 [111] 1087 [112] 1088 [114] 1089 [115] 1090 [116] 1091 [117] 1092 [102] 1093 [107 104] 1094 [116 115] 1095 [99 104] 1096 [115 104] 1097 [115 99 104] 1098 [126] 1099 [121] 1100 [39] 1101 [101 39] 1102 [121 117] 1103 [121 97] 1040 [65] 1041 [66] 1042 [86] 1043 [71] 1044 [68] 1045 [69] 1025 [89 111] 1046 [90 104] 1047 [90] 1048 [73] 1049 [74] 1050 [75] 1051 [76] 1052 [77] 1053 [78] 1054 [79] 1055 [80] 1056 [82] 1057 [83] 1058 [84] 1059 [85] 1060 [70] 1061 [75 104] 1062 [84 115] 1063 [67 104] 1064 [83 104] 1065 [83 99 104] 1066 [126] 1067 [89] 1068 [39] 1069 [69 39] 1070 [89 117] 1071 [89 97] 1108 [105 101] 1111 [105] 1118 [117] 1106 [100 106] 1115 [99 104 106] 1107 [103 106] 1109 [115] 1116 [107] 1110 [105] 1112 [106] 1113 [108 106] 1114 [110 106] 1119 [100 122] 1028 [89 101] 1031 [89 105] 1038 [85] 1026 [68 106] 1035 [67 104 106] 1027 [71 106] 1029 [83] 1036 [75] 1030 [73] 1032 [74] 1033 [76 106] 1034 [78 106] 1039 [68 106] "Bulgarian" [115 104 116] [83 104 116] [105 117] [73 117] [105 97] [73 97] "Ukrainian" [121] [89] [105] [89] [105 117] [105 97]] 3 (#$ . 1112) (list (let* ((completion-ignore-case t)) (completing-read "Cyrillic language (default nil): " cyrillic-language-alist nil t nil nil nil)))])
(provide 'cyril-util)
