# HG changeset patch # User Dave Love # Date 1034616567 0 # Node ID e7cc92cb7ad5e9bdd51f4553030d9e86fc910b99 # Parent 61d0db65f8e4b3c09c895b5200c95039aa69e067 (cyrillic-alternativnyj): Remove mime-charset. Use alternativnj charset. (cp866): Remove alias. Define standalone. diff -r 61d0db65f8e4 -r e7cc92cb7ad5 lisp/language/cyrillic.el --- a/lisp/language/cyrillic.el Mon Oct 14 17:13:49 2002 +0000 +++ b/lisp/language/cyrillic.el Mon Oct 14 17:29:27 2002 +0000 @@ -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