(windows-1252): New coding system.

[gnu-emacs] / lisp / language / european.el

diff --git a/lisp/language/european.el b/lisp/language/european.el
index 07bd14aea6a30d8e7a481015e308893b3864b077..77bbeba35825802cf4c7e599706c369e91cd3fc0 100644 (file)
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -233,6 +233,14 @@ addition of the Euro sign and some additional French and Finnish letters.
 Latin-9 is sometimes nicknamed `Latin-0'."))
  '("European"))
 \f
+(define-coding-system 'windows-1252
+  "windows-1252 8-bit encoding for Cyrillic (MIME: WINDOWS-1252)"
+  :coding-type 'charset
+  :mnemonic ?*
+  :charset-list '(windows-1252)
+  :mime-charset 'windows-1252)
+(define-coding-system-alias 'cp1252 'windows-1252)
+\f
 (set-language-info-alist
  "German" '((tutorial . "TUTORIAL.de")
            (charset iso-8859-1)