diff options
| author | Dave Love <fx@gnu.org> | 2002-08-18 13:18:54 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2002-08-18 13:18:54 +0000 |
| commit | 0a3fa7140af59cacecf53dfb56db66cda0a2b51c (patch) | |
| tree | 30845d35656367189aae3dc0fb40e5a07cd327f8 /lisp/language/cyrillic.el | |
| parent | ed1d5bc0b2b76c2ee21ca5ee2af3c9fc186748a0 (diff) | |
| download | emacs-0a3fa7140af59cacecf53dfb56db66cda0a2b51c.tar.gz | |
("Tajik", "Bulgarian", "Belarusian"): Add
charset.
("Ukrainian"): New.
Diffstat (limited to 'lisp/language/cyrillic.el')
| -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 |