From 62f5fe72d66c78128c2925b44d361309be7e592c Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Fri, 17 May 2002 20:13:50 +0000
Subject: [PATCH] (windows-1253, cp1253): New coding systems.

---
 lisp/language/greek.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index 469194893df..81cd945afc7 100644
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.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, Greek
 
@@ -37,6 +38,14 @@
 
 (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)
 
+(define-coding-system 'windows-1253
+  "windows-1253 encoding for Greek"
+  :coding-type 'charset
+  :mnemonic ?g
+  :charset-list '(windows-1253)
+  :mime-charset 'windows-1253)
+(define-coding-system-alias 'cp1253 'windows-1253)
+
 (set-language-info-alist
  "Greek" '((charset iso-8859-7)
 	   (coding-system . (greek-iso-8bit))
-- 
2.39.2