diff options
-rw-r--r-- | lisp/language/cyrillic.el | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index 1833d24a63e..3c8ddb90ff5 100644 --- a/lisp/language/cyrillic.el +++ b/lisp/language/cyrillic.el @@ -149,17 +149,16 @@ ;; (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) + "Tajik" `((coding-system koi8-t) + (coding-priority koi8-t) (nonascii-translation . cyrillic-koi8-t) + (charset . koi8-t) (input-method . "russian-typewriter") ; fixme? (features code-pages) (documentation . "Support for Tajik using KOI8-T.")) @@ -169,6 +168,7 @@ "Bulgarian" `((coding-system windows-1251) (coding-priority windows-1251) (nonascii-translation . windows-1251) + (charset . windows-1251) (input-method . "bulgarian-standard") (features code-pages) (documentation @@ -179,6 +179,7 @@ "Belarusian" `((coding-system windows-1251) (coding-priority windows-1251) (nonascii-translation . windows-1251) + (charset . windows-1251) (input-method . "belarusian") (features code-pages) (documentation @@ -186,6 +187,14 @@ \(The name Belarusian replaced Byelorussian in the early 1990s.)")) '("Cyrillic")) +(set-language-info-alist + "Ukrainian" `((coding-system koi8-u) + (coding-priority koi8-u) + (input-method . "ukrainian-computer") + (documentation + . "Support for Ukrainian with koi8-u character set.")) + '("Cyrillic")) + (provide 'cyrillic) ;;; cyrillic.el ends here |