Mercurial > emacs

changeset 88991:8f20edeaf2e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
("Tajik", "Bulgarian", "Belarusian"): Add charset. ("Ukrainian"): New.
author Dave Love <fx@gnu.org>
date Sun, 18 Aug 2002 13:18:54 +0000
parents 16317690f974
children 88f65b224d62
files lisp/language/cyrillic.el
diffstat 1 files changed, 13 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/cyrillic.el	Sun Aug 18 12:55:13 2002 +0000
+++ b/lisp/language/cyrillic.el	Sun Aug 18 13:18:54 2002 +0000
@@ -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