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

diff --git a/lisp/language/czech.el b/lisp/language/czech.el
index 69de792330fd3724cecdef2741ecea3ca90d3b86..b905cef4cea89830f9a8cc7c6cc0bf7ca32e5154 100644 (file)
--- a/lisp/language/czech.el
+++ b/lisp/language/czech.el
@@ -31,14 +31,16 @@
 (defun setup-czech-environment ()
   "Setup multilingual environment (MULE) for Czech."
   (interactive)
-  (funcall (get-language-info "Latin-2" 'setup-function))
-  (setq default-input-method "czech"))
+  (set-language-environment "Latin-2"))
 
 (set-language-info-alist
- "Czech" '((setup-function . setup-czech-environment)
-          (charset . (ascii latin-iso8859-2))
+ "Czech" '((charset . (ascii latin-iso8859-2))
           (coding-system . (iso-8859-2))
           (coding-priority . (iso-8859-2))
+          (input-method . "czech")
+          (nonascii-translation . latin-iso8859-2)
+          (unibyte-syntax . "latin-2")
+          (unibyte-display . iso-8859-2)
           (tutorial . "TUTORIAL.cs")
           (sample-text . "P\e,Bx\e(Bejeme v\e,Ba\e(Bm hezk\e,B}\e(B den!")
           (documentation . t))

diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index 85bfd380839a22cb81ef99d5dedded9ebbad783f..96a0ec6aafdd7f7e999d68f0e219000c86e48cb9 100644 (file)
--- 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 (\e,FGkk]mija\e(B)       \e,FCei\\e(B \e,Fsar\e(B")
+          (nonascii-translation . greek-iso8859-7)
+          (input-method . "greek")
+          (unibyte-display . greek-iso-8bit)
           (documentation . t)))
 
 ;;; greek.el ends here

diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el
index 14b8ff54286efc01b5d1e469e24ad44b26ba5149..f754108ae75f2c0139304cc475eedff0d626eda1 100644 (file)
--- a/lisp/language/hebrew.el
+++ b/lisp/language/hebrew.el
@@ -42,14 +42,16 @@
   "Setup multilingual environment (MULE) for Hebrew.
 But, please note that right-to-left writing is not yet supported."
   (interactive)
-  (setup-8-bit-environment "Hebrew" 'hebrew-iso8859-8 "hebrew"))
+  (set-language-environment "Hebrew"))
 
 (set-language-info-alist
- "Hebrew" '((setup-function . setup-hebrew-environment)
-           (describe-function . describe-hebrew-support)
+ "Hebrew" '((describe-function . describe-hebrew-support)
            (charset . (hebrew-iso8859-8))
            (coding-priority hebrew-iso-8bit)
            (coding-system . (hebrew-iso-8bit))
+           (nonascii-translation . hebrew-iso8859-8)
+           (input-method . "hebrew")
+           (unibyte-display . hebrew-iso-8bit)
            (sample-text . "Hebrew      \e,Hylem\e(B")
            (documentation . "Right-to-left writing is not yet supported.")
            ))

diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el
index 53b1399bbab868fc2033fd2d1f065432bce07f23..9fe1580a4a8d0e0a004cbb28457b0e53e506d939 100644 (file)
--- a/lisp/language/misc-lang.el
+++ b/lisp/language/misc-lang.el
@@ -29,13 +29,15 @@
 (defun setup-ipa-environment ()
   "Setup multilingual environment (MULE) for IPA."
   (interactive)
-  (setup-english-environment))
+  (set-language-environment "IPA"))
 
 (set-language-info-alist
- "IPA" '((setup-function . setup-ipa-environment)
-        (charset . (ipa))
+ "IPA" '((charset . (ipa))
         (coding-priority iso-2022-7bit)
         (coding-system iso-2022-7bit)
+        (input-method . "ipa")
+        (nonascii-translation . ipa)
+        (unibyte-display . iso-2022-7bit)
         (documentation . "\
 IPA is International Phonetic Alphabet for English, French, German
 and Italian.")))

diff --git a/lisp/language/romanian.el b/lisp/language/romanian.el
index 595f0cea7e45d1596f0a2085134f4e1ff36fb53c..939643ae985a95f4a41647d0a80b53c325a34577 100644 (file)
--- a/lisp/language/romanian.el
+++ b/lisp/language/romanian.el
@@ -31,15 +31,17 @@
 (defun setup-romanian-environment ()
   "Setup multilingual environment (MULE) for Romanian."
   (interactive)
-  (setup-8-bit-environment "Romanian" 'latin-iso8859-2 "latin-2-postfix")
-  (load "latin-2"))
+  (set-language-environment "Romanian"))
 
 (set-language-info-alist
- "Romanian" '((setup-function . setup-romanian-environment)
-             (charset . (ascii latin-iso8859-2))
+ "Romanian" '((charset . (ascii latin-iso8859-2))
              (coding-system . (iso-8859-2))
              (coding-priority . (iso-8859-2))
-             (sample-text . "Bun\e-Aã\e-B ziua, bine a\e-Aþi\e-B venit!")
+             (nonascii-translation . latin-iso8859-2)
+             (input-method . "latin-2-postfix")
+             (unibyte-syntax . "latin-2")
+             (unibyte-display . iso-8859-2)
+             (sample-text . "Bunã ziua, bine aþi venit!")
              (documentation . t))
  '("European"))
 

diff --git a/lisp/language/slovak.el b/lisp/language/slovak.el
index b944ed80ffcbe1113c03405dad287a477aeb9f65..d9aaf3470d52986705de3fa2a6e908005873cea5 100644 (file)
--- a/lisp/language/slovak.el
+++ b/lisp/language/slovak.el
@@ -33,14 +33,16 @@
 (defun setup-slovak-environment ()
   "Setup multilingual environment (MULE) for Slovak."
   (interactive)
-  (funcall (get-language-info "Latin-2" 'setup-function))
-  (setq default-input-method "slovak"))
+  (set-language-environment "Slovak"))
 
 (set-language-info-alist
- "Slovak" '((setup-function . setup-slovak-environment)
-           (charset . (ascii latin-iso8859-2))
+ "Slovak" '((charset . (ascii latin-iso8859-2))
            (coding-system . (iso-8859-2))
            (coding-priority . (iso-8859-2))
+           (nonascii-translation . latin-iso8859-2)
+           (input-method . "slovak")
+           (unibyte-syntax . "latin-2")
+           (unibyte-display . iso-8859-2)
            (sample-text . "Prajeme V\e,Ba\e(Bm pr\e,Bm\e(Bjemn\e,B}\e(B de\e,Br\e(B!")
            (documentation . t))
  '("European"))