diff options
author | Kenichi Handa <handa@m17n.org> | 2002-03-01 02:28:29 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 2002-03-01 02:28:29 +0000 |
commit | e1915ab396259f967733e4a6247a975c3dbdccad (patch) | |
tree | de64d08548fb722472bc9a665eb7a1170f7b1659 /lisp/language/greek.el | |
parent | c184177262bc93a25ae7c781dcabbcc1ba213b04 (diff) | |
download | emacs-e1915ab396259f967733e4a6247a975c3dbdccad.tar.gz |
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Diffstat (limited to 'lisp/language/greek.el')
-rw-r--r-- | lisp/language/greek.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lisp/language/greek.el b/lisp/language/greek.el index 2066e8a4951..16df9e68d79 100644 --- a/lisp/language/greek.el +++ b/lisp/language/greek.el @@ -28,21 +28,20 @@ ;;; Code: -(make-coding-system - '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) - '((safe-charsets ascii greek-iso8859-7) - (mime-charset . iso-8859-7))) +(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) + :plist '(mime-charset iso-8859-7)) (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit) (set-language-info-alist - "Greek" '((charset . (greek-iso8859-7)) + "Greek" '((charset iso-8859-7) (coding-system . (greek-iso-8bit)) (coding-priority greek-iso-8bit) - (nonascii-translation . greek-iso8859-7) + (nonascii-translation . iso-8859-7) (input-method . "greek") (unibyte-display . greek-iso-8bit) (documentation . t))) |