From: Dave Love <fx@gnu.org>
Date: Thu, 23 May 2002 18:20:37 +0000 (+0000)
Subject: (cp851, ibm851, cp869, ibm869): New coding
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~778
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8b565eb5a7604b1c65c296b3f78f7d225b44aa18;p=emacs.git

(cp851, ibm851, cp869, ibm869): New coding
systems.
---

diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index 81cd945afc7..cfaa96e9d58 100644
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.el
@@ -46,6 +46,22 @@
   :mime-charset 'windows-1253)
 (define-coding-system-alias 'cp1253 'windows-1253)
 
+(define-coding-system 'cp851
+  "DOS codepage 851 (Greek)"
+  :coding-type 'charset
+  :mnemonic ?D
+  :charset-list '(cp851)
+  :mime-charset 'cp851)
+(define-coding-system-alias 'ibm851 'cp851)
+
+(define-coding-system 'cp869
+  "DOS codepage 869 (Greek)"
+  :coding-type 'charset
+  :mnemonic ?D
+  :charset-list '(cp869)
+  :mime-charset 'cp869)
+(define-coding-system-alias 'ibm869 'cp869)
+
 (set-language-info-alist
  "Greek" '((charset iso-8859-7)
 	   (coding-system . (greek-iso-8bit))