From 30cbd69af0bf1868fe190763d26ed5ef1c9a9a13 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 14 May 2002 15:36:38 +0000 Subject: [PATCH] (cyrillic-iso-8bit, cyrillic-koi8) (cyrillic-alternativnyj): Fix :mime-charset. (cp878, cp866): New alias. --- lisp/language/cyrillic.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index 8deb053b25b..0c2b26ef933 100644 --- a/lisp/language/cyrillic.el +++ b/lisp/language/cyrillic.el @@ -39,7 +39,7 @@ :coding-type 'charset :mnemonic ?5 :charset-list '(iso-8859-5) - :plist '(mime-charset iso-8859-5)) + :mime-charset 'iso-8859-5) (define-coding-system-alias 'iso-8859-5 'cyrillic-iso-8bit) @@ -65,10 +65,11 @@ ;; languages other than Russian will have to forgive us. :mnemonic ?R :charset-list '(koi8) - :plist '(mime-charset koi8-r)) + :mime-charset 'koi8-r) (define-coding-system-alias 'koi8-r 'cyrillic-koi8) (define-coding-system-alias 'koi8 'cyrillic-koi8) +(define-coding-system-alias 'cp878 'cyrillic-koi8) (set-language-info-alist "Cyrillic-KOI8" `((charset koi8) @@ -88,9 +89,11 @@ "ALTERNATIVNYJ 8-bit encoding for Cyrillic." :coding-type 'charset :mnemonic ?A - :charset-list '(alternativnyj)) + :charset-list '(alternativnyj) + :mime-charset 'cp866) (define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj) +(define-coding-system-alias 'cp866 'cyrillic-alternativnyj) (set-language-info-alist "Cyrillic-ALT" `((charset alternativnyj) -- 2.39.2