Mercurial > emacs
changeset 20742:d156e6f2513d
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".
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 22 Jan 1998 01:47:27 +0000 |
| parents | dcad2d056d80 |
| children | ffa67db916b4 |
| files | lisp/language/greek.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/greek.el Thu Jan 22 01:47:27 1998 +0000 +++ b/lisp/language/greek.el Thu Jan 22 01:47:27 1998 +0000 @@ -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)