From d7a9db1c67a72a3f95151410928170232198e873 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 14 Oct 2002 17:29:27 +0000 Subject: [PATCH] (cyrillic-alternativnyj): Remove mime-charset. Use alternativnj charset. (cp866): Remove alias. Define standalone. --- lisp/language/cyrillic.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index 98f07e76d9a..604a49e8a4c 100644 --- a/lisp/language/cyrillic.el +++ b/lisp/language/cyrillic.el @@ -2,6 +2,7 @@ ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. +;; Copyright (C) 2002 Free Software Foundation, Inc. ;; Keywords: multilingual, Cyrillic @@ -89,11 +90,9 @@ "ALTERNATIVNYJ 8-bit encoding for Cyrillic." :coding-type 'charset :mnemonic ?A - :charset-list '(alternativnyj) - :mime-charset 'cp866) + :charset-list '(alternativnyj)) (define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj) -(define-coding-system-alias 'cp866 'cyrillic-alternativnyj) (set-language-info-alist "Cyrillic-ALT" `((charset alternativnyj) @@ -107,6 +106,13 @@ (documentation . "Support for Cyrillic ALTERNATIVNYJ.")) '("Cyrillic")) +(define-coding-system 'cp866 + "CP866 encoding for Cyrillic." + :coding-type 'charset + :mnemonic ?* + :charset-list '(ibm866) + :mime-charset 'cp866) + (define-coding-system 'koi8-u "KOI8-U 8-bit encoding for Cyrillic (MIME: KOI8-U)" :coding-type 'charset -- 2.39.2