From ef60b6365b13fecdace792d4e7ac1337e1618f39 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 22 Jan 1998 01:47:27 +0000 Subject: [PATCH] Adjusted for the change of make-coding-system and setup-8-bit-environment. (setup-greek-environment): For Greek lang. env., change default input method to "greek-postfix". --- lisp/language/greek.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/language/greek.el b/lisp/language/greek.el index 8a9694016dd..b59caa19f98 100644 --- a/lisp/language/greek.el +++ b/lisp/language/greek.el @@ -31,17 +31,17 @@ (make-coding-system '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) - '(ascii greek-iso8859-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-alias 'iso-8859-7 'greek-iso-8bit) (defun setup-greek-environment () "Setup multilingual environment (MULE) for Greek." (interactive) - (setup-8-bit-environment "Greek" 'greek-iso8859-7 'greek-iso-8bit - "greek")) + (setup-8-bit-environment "Greek" 'greek-iso8859-7 "greek-postfix")) (set-language-info-alist "Greek" '((setup-function . setup-greek-environment) -- 2.39.2