mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 16:21:07 -08:00
Code Issues Projects Releases Wiki Activity

(koi8-u, koi8-t, windows-1251, cp1125): New

Browse source 
coding systems.
This commit is contained in:
Dave Love 2002-05-16 19:11:09 +00:00
parent 46a0591ce1
commit a07aa6808d
1 changed files with 34 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

37
lisp/language/cyrillic.el
View file

@ -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