-;;; greek.el --- Support for Greek
+;;; greek.el --- support for Greek -*- no-byte-compile: t -*-
-;; Copyright (C) 1995 Free Software Foundation, Inc.
-;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
+;; Copyright (C) 2002 Free Software Foundation, Inc.
+;; Copyright (C) 1995
+;; National Institute of Advanced Industrial Science and Technology (AIST)
+;; Registration Number H14PRO021
+;; Copyright (C) 2003
+;; National Institute of Advanced Industrial Science and Technology (AIST)
+;; Registration Number H13PRO009
;; Keywords: multilingual, Greek
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
;;; Code:
-(make-coding-system
- 'iso-8859-7 2 ?7 "MIME ISO-8859-7"
- '((ascii t) (greek-iso8859-7 t) nil nil
- nil ascii-eol ascii-cntl nil nil nil nil))
+(define-coding-system 'greek-iso-8bit
+ "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)."
+ :coding-type 'charset
+ :mnemonic ?7
+ :charset-list '(iso-8859-7)
+ :mime-charset 'iso-8859-7)
-(register-input-method
- "Greek" '("quail-greek" quail-use-package "quail/greek"))
+(define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)
-(defun setup-greek-environment ()
- "Setup multilingual environment (MULE) for Greek."
- (interactive)
- (setup-8-bit-environment 'greek-iso8859-7 'iso-8859-7
- '("Greek" . "quail-greek")))
+(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)
+
+(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
+ :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" '((setup-function . setup-greek-environment)
- (charset . (greek-iso8859-7))
- (coding-system . (iso-8859-7))
- (sample-text . "Greek (\e,FGkk]mija\e(B) \e,FCei\\e(B \e,Fsar\e(B")
+ "Greek" '((charset iso-8859-7)
+ (coding-system greek-iso-8bit windows-1253 cp851 cp869)
+ (coding-priority greek-iso-8bit)
+ (nonascii-translation . iso-8859-7)
+ (input-method . "greek")
(documentation . t)))
+(provide 'greek)
+
+;;; arch-tag: 9ba48d79-84bc-45e1-9318-685dc3921410
;;; greek.el ends here