From: Dave Love <fx@gnu.org>
Date: Sat, 5 Oct 2002 19:10:39 +0000 (+0000)
Subject: ("Greek"): Remove unibyte-syntax property.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~297
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69cf07bd77df883fd1dfe14848bf7f586ba95a11;p=emacs.git

("Greek"): Remove unibyte-syntax property.
(cp737): New coding system.
---

diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index 013534882ec..d183d0c617e 100644
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.el
@@ -46,6 +46,13 @@
   :mime-charset 'windows-1253)
 (define-coding-system-alias 'cp1253 'windows-1253)
 
+(define-coding-system 'cp737
+  "Codepage 737 (PC Greek)"
+  :coding-type 'charset
+  :mnemonic ?D
+  :charset-list '(cp737)
+  :mime-charset 'cp737)
+
 (define-coding-system 'cp851
   "DOS codepage 851 (Greek)"
   :coding-type 'charset
@@ -68,7 +75,6 @@
 	   (coding-priority greek-iso-8bit)
 	   (nonascii-translation . iso-8859-7)
 	   (input-method . "greek")
-	   (unibyte-display . greek-iso-8bit)
 	   (documentation . t)))
 
 (provide 'greek)