;ELC ;;; compiled by nk@localhost.localdomain on Fri Dec 1 22:48:56 2006 ;;; from file /home/nk/pkg-build/test/mule-packages/mule-base/cyril-util.el ;;; emacs version 21.4 (patch 19) "Constant Variable" XEmacs Lucid. ;;; bytecomp version 2.27 XEmacs; 2000-09-12. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 19. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`cyril-util.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (require 'mule) ;;;###coding system: escape-quoted (defalias 'setup-cyrillic-iso-environment #[nil "!" [set-language-environment "Cyrillic-ISO"] 2 "\ Setup multilingual environment (MULE) for Cyrillic ISO-8859-5 users." nil]) (defalias 'setup-cyrillic-koi8-environment #[nil "!" [set-language-environment "Cyrillic-KOI8"] 2 "\ Setup multilingual environment (MULE) for Cyrillic KOI8 users." nil]) (defalias 'setup-cyrillic-alternativnyj-environment #[nil "!" [set-language-environment "Cyrillic-ALT"] 2 "\ Setup multilingual environment (MULE) for Cyrillic ALTERNATIVNYJ users." nil]) (defalias 'cyrillic-encode-koi8-r-char #[(char) " \"H" [char cyrillic-koi8-r-nonascii-translation-table char-table-extra-slot 0] 3 "\ Return KOI8-R external character code of CHAR if appropriate."]) (defalias 'cyrillic-encode-alternativnyj-char #[(char) " \"H" [char cyrillic-alternativnyj-nonascii-translation-table char-table-extra-slot 0] 3 "\ Return ALTERNATIVNYJ external character code of CHAR if appropriate."]) (defvar cyrillic-language-alist (list '("Belorussian") '("Bulgarian") '("Macedonian") '("Russian") '("Serbian") '("Ukrainian")) "\ *List of known cyrillic languages") (defalias 'standard-display-cyrillic-translit #[(&optional cyrillic-language) " k  I I I I I I I I I I I I I I I I I I I I I I I I I I I I I @I ABI CDI EFI GHI IJI KLI MNI OPI QRI STI UVI WXI YZI [\\I ]^I _`I abI cdI efI ghI ijI klI mnI opI qrI stI uvI wxI yzI {|I }~I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I Ik I {I CI I EI Ik ׁI YI فI [I CI EI" [cyrillic-language standard-display-table make-display-table "" nil ?-L [?a] ? [?b] ? [?v] ? [?g] ? [?d] ? [?e] ? [?y ?o] ? [?z ?h] ? [?z] ? [?i] ? [?j] ? [?k] ? [?l] ? [?m] ? [?n] ? [?o] ? [?p] ? [?r] ? [?s] ? [?t] ? [?u] ? [?f] ? [?k ?h] ? [?t ?s] ? [?c ?h] ? [?s ?h] ? [?s ?c ?h] ? [?~] ? [?y] ? [?\'] ? [?e ?\'] ? [?y ?u] ? [?y ?a] ? [?A] ? [?B] ? [?V] ? [?G] ? [?D] ? [?E] ? [?Y ?o] ? [?Z ?h] ? [?Z] ? [?I] ? [?J] ? [?K] ? [?L] ? [?M] ? [?N] ? [?O] ? [?P] ? [?R] ? [?S] ? [?T] ? [?U] ? [?F] ? [?K ?h] ? [?T ?s] ? [?C ?h] ? [?S ?h] ? [?S ?c ?h] ? [?~] ? [?Y] ? [?\'] ? [?E ?\'] ? [?Y ?u] ? [?Y ?a] ? [?i ?e] ? [?i] ? [?u] ? [?d ?j] ? [?c ?h ?j] ? [?g ?j] ? [?s] ? [?k] ? [?i] ? [?j] ? [?l ?j] ? [?n ?j] ? [?d ?z] ? [?Y ?e] ? [?Y ?i] ? [?U] ? [?D ?j] ? [?C ?h ?j] ? [?G ?j] ? [?S] ? [?K] ? [?I] ? [?J] ? [?L ?j] ? [?N ?j] ? [?D ?j] "Bulgarian" [?s ?h ?t] [?S ?h ?t] [?i ?u] [?I ?u] [?i ?a] [?I ?a] "Ukrainian" [?y] [?Y] [?i] [?Y] [?i ?u] [?i ?a]] 3 "\-A 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." (list (let* ((completion-ignore-case t)) (completing-read "Cyrillic language (default nil): " cyrillic-language-alist nil t nil nil nil)))]) (provide 'cyril-util)