summaryrefslogtreecommitdiff
path: root/lisp/language/cyrillic.el
diff options
context:
space:
mode:
authorDave Love <fx@gnu.org>2002-05-16 19:11:09 +0000
committerDave Love <fx@gnu.org>2002-05-16 19:11:09 +0000
commita07aa6808d3a0f59d6856ceb794ffd6912da10f5 (patch)
tree743e0aa6af43d16fe9aaec027d09dcb75910d267 /lisp/language/cyrillic.el
parent46a0591ce18349ac4735ef7b5ff275368e39941a (diff)
downloademacs-a07aa6808d3a0f59d6856ceb794ffd6912da10f5.tar.gz
(koi8-u, koi8-t, windows-1251, cp1125): New
coding systems.
Diffstat (limited to 'lisp/language/cyrillic.el')
-rw-r--r--lisp/language/cyrillic.el37
1 files changed, 34 insertions, 3 deletions
diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index 0c2b26ef933..b1cd6ff8c88 100644
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -32,7 +32,7 @@
;; Cyrillic (general)
-;; ISO-8859-5 staff
+;; ISO-8859-5 stuff
(define-coding-system 'cyrillic-iso-8bit
"ISO 2022 based 8-bit encoding for Cyrillic script (MIME:ISO-8859-5)."
@@ -55,7 +55,7 @@
(documentation . "Support for Cyrillic ISO-8859-5."))
'("Cyrillic"))
-;; KOI-8 staff
+;; KOI-8 stuff
(define-coding-system 'cyrillic-koi8
"KOI8 8-bit encoding for Cyrillic (MIME: KOI8-R)."
@@ -83,7 +83,7 @@
(documentation . "Support for Cyrillic KOI8-R."))
'("Cyrillic"))
-;;; ALTERNATIVNYJ staff
+;;; ALTERNATIVNYJ stuff
(define-coding-system 'cyrillic-alternativnyj
"ALTERNATIVNYJ 8-bit encoding for Cyrillic."
@@ -107,6 +107,37 @@
(documentation . "Support for Cyrillic ALTERNATIVNYJ."))
'("Cyrillic"))
+(define-coding-system 'koi8-u
+ "KOI8-U 8-bit encoding for Cyrillic (MIME: KOI8-U)"
+ :coding-type 'charset
+ :mnemonic ?U
+ :charset-list '(koi8-u)
+ :mime-charset 'koi8-u)
+
+(define-coding-system 'koi8-t
+ "KOI8-T 8-bit encoding for Cyrillic (MIME: KOI8-T)"
+ :coding-type 'charset
+ :mnemonic ?*
+ :charset-list '(koi8-t)
+ :mime-charset 'koi8-t)
+
+(define-coding-system 'windows-1251
+ "windows-1251 8-bit encoding for Cyrillic (MIME: WINDOWS-1251)"
+ :coding-type 'charset
+ :mnemonic ?b
+ :charset-list '(windows-1251)
+ :mime-charset 'windows-1251)
+(define-coding-system-alias 'cp1251 'windows-1251)
+
+(define-coding-system 'cp1125
+ "cp1125 8-bit encoding for Cyrillic (MIME: CP1125)"
+ :coding-type 'charset
+ :mnemonic ?*
+ :charset-list '(cp1125))
+(define-coding-system-alias 'ruscii 'cp1125)
+;; Original name for cp1125, says Serhii Hlodin <hlodin@lutsk.bank.gov.ua>
+(define-coding-system-alias 'cp866u 'cp1125)
+
(provide 'cyrillic)
;;; cyrillic.el ends here