-;;; 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) 1995
+;; National Institute of Advanced Industrial Science and Technology (AIST)
+;; Registration Number H14PRO021
;; Keywords: multilingual, Greek
;;; Code:
(make-coding-system
- '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))
+ 'greek-iso-8bit 2 ?7
+ "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)."
+ '(ascii greek-iso8859-7 nil nil
+ nil nil nil nil nil nil nil nil nil nil nil t)
+ '((safe-charsets ascii greek-iso8859-7)
+ (mime-charset . iso-8859-7)))
-(register-input-method
- "Greek" '("quail-greek" quail-use-package "quail/greek"))
-
-(defun setup-greek-environment ()
- (setq coding-category-iso-8-1 'coding-system-iso-8859-7)
-
- (set-coding-priority
- '(coding-category-iso-7
- coding-category-iso-8-1))
-
- (setq-default buffer-file-coding-system 'coding-system-iso-8859-7)
- (set-terminal-coding-system 'coding-system-iso-8859-7)
- (set-keyboard-coding-system 'coding-system-iso-8859-7)
-
- (setq default-input-method '("Greek" . "quail-greek"))
- )
+(define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)
(set-language-info-alist
- "Greek" '((setup-function . setup-greek-environment)
- (charset . (greek-iso8859-7))
- (coding-system . (coding-system-iso-8859-7))
- (documentation . t)
- (sample-text . "Greek (\e,FGkk]mija\e(B) \e,FCei\\e(B \e,Fsar\e(B")))
+ "Greek" '((charset . (greek-iso8859-7))
+ (coding-system . (greek-iso-8bit))
+ (coding-priority greek-iso-8bit)
+ (nonascii-translation . greek-iso8859-7)
+ (input-method . "greek")
+ (unibyte-display . greek-iso-8bit)
+ (documentation . t)))
+
+(provide 'greek)
+;;; arch-tag: 9ba48d79-84bc-45e1-9318-685dc3921410
;;; greek.el ends here