(ethio-tilde-escape) (ethio-use-three-dot-question): Fix spelling in docstrings.

[gnu-emacs] / lisp / language / greek.el

diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index 5ff5a58dbe90b1067935e818b881e95a265c9be9..bd67b878ee67ca2ee861ba30140dfbc4b65ae0ad 100644 (file)
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.el
@@ -1,7 +1,8 @@
-;;; 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
 
@@ -29,34 +30,25 @@
 ;;; 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))
+ '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 ()
-  "Setup multilingual environment (MULE) for Greek."
-  (interactive)
-  (setq coding-category-iso-8-1 'iso-8859-7)
-
-  (set-coding-priority
-   '(coding-category-iso-7
-     coding-category-iso-8-1))
-
-  (setq-default buffer-file-coding-system 'iso-8859-7)
-  (set-terminal-coding-system 'iso-8859-7)
-  (set-keyboard-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 . (iso-8859-7))
-          (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