Commit 7286c88e authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(cyrillic-language-alist): New variable.

(standard-display-cyrillic-translit): Add autoload cookie.
parent f80235e3
......@@ -36,131 +36,156 @@
;; Written by Valery Alexeev <valery@math.uga.edu>.
(defun standard-display-cyrillic-translit (cyrillic-language)
(defvar cyrillic-language-alist
(list '("Bulgarian") '("Macedonian") '("Serbocroatian")
'("Russian") '("Ukrainian"))
"*List of known cyrillic languages")
(setq standard-display-table (make-display-table))
;;;###autoload
(defun standard-display-cyrillic-translit (&optional 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;
The argument is a string which specifies which language you are using;
that affects the choice of transliterations slightly.
Possible values are `ukranian', `bulgarian' or t (any other language).
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."
(interactive)
(if (interactive-p)
(let* ((completion-ignore-case t))
(setq cyrillic-language
(completing-read
"Cyrillic language (default nil): "
cyrillic-language-alist nil t nil nil nil))))
(if (equal cyrillic-language "")
(setq cyrillic-language nil))
(if (null cyrillic-language)
(setq standard-display-table (make-display-table))
(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 (eq cyrillic-language 'bulgarian)
(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 (eq cyrillic-language 'ukranian) ; based on the official
(aset standard-display-table ?,LP(B [?a])
(aset standard-display-table ?,LQ(B [?b])
(aset standard-display-table ?,LR(B [?v])
(aset standard-display-table ?,LS(B [?g])
(aset standard-display-table ?,LT(B [?d])
(aset standard-display-table ?,LU(B [?e])
(aset standard-display-table ?,Lq(B [?y?o])
(aset standard-display-table ?,LV(B [?z?h])
(aset standard-display-table ?,LW(B [?z])
(aset standard-display-table ?,LX(B [?i])
(aset standard-display-table ?,LY(B [?j])
(aset standard-display-table ?,LZ(B [?k])
(aset standard-display-table ?,L[(B [?l])
(aset standard-display-table ?,L\(B [?m])
(aset standard-display-table ?,L](B [?n])
(aset standard-display-table ?,L^(B [?o])
(aset standard-display-table ?,L_(B [?p])
(aset standard-display-table ?,L`(B [?r])
(aset standard-display-table ?,La(B [?s])
(aset standard-display-table ?,Lb(B [?t])
(aset standard-display-table ?,Lc(B [?u])
(aset standard-display-table ?,Ld(B [?f])
(aset standard-display-table ?,Le(B [?k?h])
(aset standard-display-table ?,Lf(B [?t?s])
(aset standard-display-table ?,Lg(B [?c?h])
(aset standard-display-table ?,Lh(B [?s?h])
(aset standard-display-table ?,Li(B [?s?c?h])
(aset standard-display-table ?,Lj(B [?~])
(aset standard-display-table ?,Lk(B [?y])
(aset standard-display-table ?,Ll(B [?'])
(aset standard-display-table ?,Lm(B [?e?'])
(aset standard-display-table ?,Ln(B [?y?u])
(aset standard-display-table ?,Lo(B [?y?a])
(aset standard-display-table ?,L0(B [?A])
(aset standard-display-table ?,L1(B [?B])
(aset standard-display-table ?,L2(B [?V])
(aset standard-display-table ?,L3(B [?G])
(aset standard-display-table ?,L4(B [?D])
(aset standard-display-table ?,L5(B [?E])
(aset standard-display-table ?,L!(B [?Y?o])
(aset standard-display-table ?,L6(B [?Z?h])
(aset standard-display-table ?,L7(B [?Z])
(aset standard-display-table ?,L8(B [?I])
(aset standard-display-table ?,L9(B [?J])
(aset standard-display-table ?,L:(B [?K])
(aset standard-display-table ?,L;(B [?L])
(aset standard-display-table ?,L<(B [?M])
(aset standard-display-table ?,L=(B [?N])
(aset standard-display-table ?,L>(B [?O])
(aset standard-display-table ?,L?(B [?P])
(aset standard-display-table ?,L@(B [?R])
(aset standard-display-table ?,LA(B [?S])
(aset standard-display-table ?,LB(B [?T])
(aset standard-display-table ?,LC(B [?U])
(aset standard-display-table ?,LD(B [?F])
(aset standard-display-table ?,LE(B [?K?h])
(aset standard-display-table ?,LF(B [?T?s])
(aset standard-display-table ?,LG(B [?C?h])
(aset standard-display-table ?,LH(B [?S?h])
(aset standard-display-table ?,LI(B [?S?c?h])
(aset standard-display-table ?,LJ(B [?~])
(aset standard-display-table ?,LK(B [?Y])
(aset standard-display-table ?,LL(B [?'])
(aset standard-display-table ?,LM(B [?E?'])
(aset standard-display-table ?,LN(B [?Y?u])
(aset standard-display-table ?,LO(B [?Y?a])
(aset standard-display-table ?,Lt(B [?i?e])
(aset standard-display-table ?,Lw(B [?i])
(aset standard-display-table ?,L~(B [?u])
(aset standard-display-table ?,Lr(B [?d?j])
(aset standard-display-table ?,L{(B [?c?h?j])
(aset standard-display-table ?,Ls(B [?g?j])
(aset standard-display-table ?,Lu(B [?s])
(aset standard-display-table ?,L|(B [?k])
(aset standard-display-table ?,Lv(B [?i])
(aset standard-display-table ?,Lx(B [?j])
(aset standard-display-table ?,Ly(B [?l?j])
(aset standard-display-table ?,Lz(B [?n?j])
(aset standard-display-table ?,L(B [?d?z])
(aset standard-display-table ?,L$(B [?Y?e])
(aset standard-display-table ?,L'(B [?Y?i])
(aset standard-display-table ?,L.(B [?U])
(aset standard-display-table ?,L"(B [?D?j])
(aset standard-display-table ?,L+(B [?C?h?j])
(aset standard-display-table ?,L#(B [?G?j])
(aset standard-display-table ?,L%(B [?S])
(aset standard-display-table ?,L,(B [?K])
(aset standard-display-table ?,L&(B [?I])
(aset standard-display-table ?,L((B [?J])
(aset standard-display-table ?,L)(B [?L?j])
(aset standard-display-table ?,L*(B [?N?j])
(aset standard-display-table ?,L/(B [?D?j])
(when (equal cyrillic-language "Bulgarian")
(aset standard-display-table ?,Li(B [?s?h?t])
(aset standard-display-table ?,LI(B [?S?h?t])
(aset standard-display-table ?,Ln(B [?i?u])
(aset standard-display-table ?,LN(B [?I?u])
(aset standard-display-table ?,Lo(B [?i?a])
(aset standard-display-table ?,LO(B [?I?a]))
(when (equal cyrillic-language "Ukrainian") ; based on the official
; transliteration table
(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]))))
(aset standard-display-table ?,LX(B [?y])
(aset standard-display-table ?,L8(B [?Y])
(aset standard-display-table ?,LY(B [?i])
(aset standard-display-table ?,L9(B [?Y])
(aset standard-display-table ?,Ln(B [?i?u])
(aset standard-display-table ?,Lo(B [?i?a]))))
;;
(provide 'cyril-util)
;;; cyril-util.el ends here
;; Local Variables:
;; buffer-file-coding-system: iso-2022-7bit
;; End:
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment