]> git.eshelyaron.com Git - emacs.git/commitdiff
("Tajik", "Bulgarian", "Belarusian"): New
authorDave Love <fx@gnu.org>
Mon, 10 Jun 2002 16:07:03 +0000 (16:07 +0000)
committerDave Love <fx@gnu.org>
Mon, 10 Jun 2002 16:07:03 +0000 (16:07 +0000)
environments.

lisp/language/cyrillic.el

index 76a04c3d0812e2697f9041579c0d4f551c8df6d8..7a0f62675d12e2e6afff52fa32b754cdf5936399 100644 (file)
   :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