Mercurial > emacs
changeset 88733:bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
environments.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 10 Jun 2002 16:07:03 +0000 |
| parents | 47ddcc90547c |
| children | a857c28217b1 |
| files | lisp/language/cyrillic.el |
| diffstat | 1 files changed, 40 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/cyrillic.el Mon Jun 10 15:35:49 2002 +0000 +++ b/lisp/language/cyrillic.el Mon Jun 10 16:07:03 2002 +0000 @@ -146,6 +146,46 @@ :mime-charset 'cp855) (define-coding-system-alias 'ibm855 'cp855) +;; (set-language-info-alist +;; "Windows-1251" `((coding-system windows-1251) +;; (coding-priority windows-1251) +;; (nonascii-translation +;; . ,(get 'decode-windows-1252 'translation-table)) +;; (input-method . "russian-typewriter") ; fixme? +;; (features code-pages) +;; (documentation . "Support for windows-1251 character set.")) +;; '("Cyrillic")) + +(set-language-info-alist + "Tajik" `((coding-system cyrillic-koi8-t) + (coding-priority cyrillic-koi8-t) + (nonascii-translation . cyrillic-koi8-t) + (input-method . "russian-typewriter") ; fixme? + (features code-pages) + (documentation . "Support for Tajik using KOI8-T.")) + '("Cyrillic")) + +(set-language-info-alist + "Bulgarian" `((coding-system windows-1251) + (coding-priority windows-1251) + (nonascii-translation . windows-1251) + (input-method . "bulgarian-standard") + (features code-pages) + (documentation + . "Support for Bulgrian with windows-1251 character set.")) + '("Cyrillic")) + +(set-language-info-alist + "Belarusian" `((coding-system windows-1251) + (coding-priority windows-1251) + (nonascii-translation . windows-1251) + (input-method . "belarusian") + (features code-pages) + (documentation + . "Support for Belarusian with windows-1251 character set. +(The name Belarusian replaced Byelorussian in the eraly 1990s.)")) + '("Cyrillic")) + (provide 'cyrillic) ;;; cyrillic.el ends here