From: Dave Love <fx@gnu.org>
Date: Sun, 18 Aug 2002 13:18:54 +0000 (+0000)
Subject: ("Tajik", "Bulgarian", "Belarusian"): Add
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~442
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a3fa7140af59cacecf53dfb56db66cda0a2b51c;p=emacs.git

("Tajik", "Bulgarian", "Belarusian"): Add
charset.
("Ukrainian"): New.
---

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