Current File : //usr/share/emacs/24.3/lisp/language/cyril-util.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:56 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/language/cyril-util.el
;;; in Emacs version 24.3.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 (#$ . 562)])
#@70 Return ALTERNATIVNYJ external character code of CHAR if appropriate.
(defalias 'cyrillic-encode-alternativnyj-char #[(char) "\301\302\"\207" [char encode-char alternativnyj] 3 (#$ . 737)])
#@35 List of known cyrillic languages.
(defvar cyrillic-language-alist (list '("Belorussian") '("Bulgarian") '("Macedonian") '("Russian") '("Serbo-Croatian") '("Ukrainian")) (#$ . 933))
#@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 \201B I\210\201C \201D I\210\201E \201F I\210\201G \201H I\210\201I \201J I\210\201K \201L I\210\201M \201N I\210\201O \201P I\210\201Q \201R I\210\201S \201T I\210\201U \201V I\210\201W \201X I\210\201Y \201Z I\210\201[ \201\\ I\210\201] \201^ I\210\201_ \201` I\210\201a \201b I\210\201c \201d I\210\201e \201f I\210\201g \201h I\210\201i \201j I\210\201k \201l I\210\201m \201n I\210\201o \201p I\210\201q \201r I\210\201s \201t I\210\201u \201v I\210\201w \201x I\210\201y \201z I\210\201{ \201| I\210\201} \201~ I\210\201 \201\200 I\210\201\201 \201\202 I\210\201\203 \201\204 I\210\201\205 \201\206 I\210\201\207 \201\210 I\210\201\211 \201\212 I\210\201\213 \201\214 I\210\201\215 \201\216 I\210\201\217 \201\220 I\210\201\221 \201\222 I\210\201\223 \201\224 I\210\201\225 \201\226 I\210\201\227 \201\230 I\210\201\231 \201\232 I\210\201\233 \201\234 I\210\201\235 \201\236 I\210\201\237 \201\240 I\210\201\241 \201\242 I\210\201\243 \201\244 I\210\201\245 \201\246 I\210\201\247 \201\250 I\210\201\251 \201\252 I\210\201\253 \201\254 I\210\201\255 \201\256 I\210\201\257 \201\260 I\210\201\261 \201\262 I\210\201\263 \201\264 I\210\201\265 \201\266 I\210\201\267 \201\270 I\210\201\271 \201\272 I\210\201\273 \201\274 I\210 \201\275 \232\203\371\201\276 I\210\201{ \201\277 I\210\201C \201\300 I\210\201\205 \201\301 I\210\201E \201\302 I\210\201\207 \201\303 I\210 \201\304 \232\205S\327\201\305 I\210\201Y \201\306 I\210\331\201\307 I\210\201[ \201\310 I\210\201C \201\311 I\210\201E \201\312 I\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 (#$ . 1121) (list (let* ((completion-ignore-case t)) (completing-read "Cyrillic language (default nil): " cyrillic-language-alist nil t nil nil nil)))])
(provide 'cyril-util)