(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.

1 files changed, 5 insertions, 4 deletions

diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index 85bfd38083..96a0ec6aaf 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