diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-08-10 06:29:02 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-08-10 06:29:02 +0000 |
| commit | 8f76845d7eef977f60ef1e95d9bdeccb8249638c (patch) | |
| tree | 88abe084fe78e1989fcd91fdd40930506e87b51f /lisp/language/greek.el | |
| parent | 6e49aeecbf0de2eca73dbbd3c1fbfc424bccaa71 (diff) | |
| download | emacs-8f76845d7eef977f60ef1e95d9bdeccb8249638c.tar.gz emacs-8f76845d7eef977f60ef1e95d9bdeccb8249638c.tar.bz2 emacs-8f76845d7eef977f60ef1e95d9bdeccb8249638c.zip | |
(setup-XXX-environment): Just call set-language-environment. If
they used to do some other jobs than what done by
set-language-environment, those jobs are done in
setup-XXX-environment-internal now.
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
the value to setup-XXX-environment-internal. Add properties
nonascii-translation, input-method, features, unibyte-syntax, and
unibyte-display.
Diffstat (limited to 'lisp/language/greek.el')
| -rw-r--r-- | lisp/language/greek.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/language/greek.el b/lisp/language/greek.el index 85bfd380839..96a0ec6aafd 100644 --- a/lisp/language/greek.el +++ b/lisp/language/greek.el @@ -41,14 +41,15 @@ (defun setup-greek-environment () "Setup multilingual environment (MULE) for Greek." (interactive) - (setup-8-bit-environment "Greek" 'greek-iso8859-7 "greek-postfix")) + (set-language-environment "Greek")) (set-language-info-alist - "Greek" '((setup-function . setup-greek-environment) - (charset . (greek-iso8859-7)) + "Greek" '((charset . (greek-iso8859-7)) (coding-system . (greek-iso-8bit)) (coding-priority greek-iso-8bit) - (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B") + (nonascii-translation . greek-iso8859-7) + (input-method . "greek") + (unibyte-display . greek-iso-8bit) (documentation . t))) ;;; greek.el ends here |