diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-05-28 03:39:03 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-05-28 03:39:03 +0000 |
| commit | 335a7ad76828cbb6c802eb1f103002f61ec1ec0a (patch) | |
| tree | 7fee13fb6eb167b7f250f1c3e6c43727586b4feb /lisp/language/greek.el | |
| parent | e4e6cfa0f0247d672b2a605dd2aed398571122f2 (diff) | |
| download | emacs-335a7ad76828cbb6c802eb1f103002f61ec1ec0a.tar.gz | |
Most of setup-LANGUAGE-environment functions are
moved form LANGUAGE.el to LANG-util.el. These functions now at
first call setup-english-environment to reset various values to
the defaults.
Diffstat (limited to 'lisp/language/greek.el')
| -rw-r--r-- | lisp/language/greek.el | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/lisp/language/greek.el b/lisp/language/greek.el index 5ff5a58dbe9..632ae24a8ae 100644 --- a/lisp/language/greek.el +++ b/lisp/language/greek.el @@ -39,18 +39,8 @@ (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")) - ) + (setup-8-bit-environment 'greek-iso8859-7 'iso-8859-7 + '("Greek" . "quail-greek"))) (set-language-info-alist "Greek" '((setup-function . setup-greek-environment) |