diff options
Diffstat (limited to 'lisp/language/greek.el')
-rw-r--r-- | lisp/language/greek.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/language/greek.el b/lisp/language/greek.el index 632ae24a8ae..57bc4f24260 100644 --- a/lisp/language/greek.el +++ b/lisp/language/greek.el @@ -29,23 +29,26 @@ ;;; Code: (make-coding-system - 'iso-8859-7 2 ?7 "MIME ISO-8859-7" + 'greek-iso-8bit 2 ?7 + "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)" '((ascii t) (greek-iso8859-7 t) nil nil nil ascii-eol ascii-cntl nil nil nil nil)) +(define-coding-system-alias 'greek-iso-8bit '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) - (setup-8-bit-environment 'greek-iso8859-7 'iso-8859-7 + (setup-8-bit-environment 'greek-iso8859-7 'greek-iso-8bit '("Greek" . "quail-greek"))) (set-language-info-alist "Greek" '((setup-function . setup-greek-environment) (charset . (greek-iso8859-7)) - (coding-system . (iso-8859-7)) + (coding-system . (greek-iso-8bit)) (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B") (documentation . t))) |