Remove all the setup-...-environment functions.

diff --git a/lisp/language/china-util.el b/lisp/language/china-util.el
index a4a2569a3d064be246a82858e2647aa7e34636cd..6e4e68e26b0d95bf8b8e502bb145a8c20bc3ca31 100644 (file)
--- a/lisp/language/china-util.el
+++ b/lisp/language/china-util.el
@@ -24,24 +24,6 @@
 
 ;;; Code:
 
-;;;###autoload
-(defun setup-chinese-gb-environment ()
-  "Setup multilingual environment (MULE) for Chinese GB2312 users."
-  (interactive)
-  (set-language-environment "Chinese-GB"))
-
-;;;###autoload
-(defun setup-chinese-big5-environment ()
-  "Setup multilingual environment (MULE) for Chinese Big5 users."
-  (interactive)
-  (set-language-environment "Chinese-BIG5"))
-
-;;;###autoload
-(defun setup-chinese-cns-environment ()
-  "Setup multilingual environment (MULE) for Chinese CNS11643 family users."
-  (interactive)
-  (set-language-environment "Chinese-CNS"))
-
 ;; Hz/ZW encoding stuffs
 
 ;; HZ is an encoding method for Chinese character set GB2312 used

diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el
index 4df69bcefee1039b3d06805659e7f89ebcfff26f..0235e159dacb1c8a274a64c2b36d5bdb9b01238e 100644 (file)
--- a/lisp/language/cyril-util.el
+++ b/lisp/language/cyril-util.el
@@ -23,24 +23,6 @@
 
 ;;; Code:
 
-;;;###autoload
-(defun setup-cyrillic-iso-environment ()
-  "Setup multilingual environment (MULE) for Cyrillic ISO-8859-5 users."
-  (interactive)
-  (set-language-environment "Cyrillic-ISO"))
-
-;;;###autoload
-(defun setup-cyrillic-koi8-environment ()
-  "Setup multilingual environment (MULE) for Cyrillic KOI8 users."
-  (interactive)
-  (set-language-environment "Cyrillic-KOI8"))
-
-;;;###autoload
-(defun setup-cyrillic-alternativnyj-environment ()
-  "Setup multilingual environment (MULE) for Cyrillic ALTERNATIVNYJ users."
-  (interactive)
-  (set-language-environment "Cyrillic-ALT"))
-
 ;;;###autoload
 (defun cyrillic-encode-koi8-r-char (char)
   "Return KOI8-R external character code of CHAR if appropriate."

diff --git a/lisp/language/czech.el b/lisp/language/czech.el
index 5ab230c1dbafa833ee70d5c078ee583af97dd987..0658329911a3d18dfbf91d2b228502e6a3973604 100644 (file)
--- a/lisp/language/czech.el
+++ b/lisp/language/czech.el
@@ -28,11 +28,6 @@
 
 ;;; Code:
 
-(defun setup-czech-environment ()
-  "Setup multilingual environment (MULE) for Czech."
-  (interactive)
-  (set-language-environment "Latin-2"))
-
 (set-language-info-alist
  "Czech" '((charset . (ascii latin-iso8859-2))
           (coding-system . (iso-8859-2))

diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el
index 05ba7f948d8f9ad975265e499b96fd27febf89d5..b0003d2e742eeb1e0e6fefc8eec0d449c784ba40 100644 (file)
--- a/lisp/language/devan-util.el
+++ b/lisp/language/devan-util.el
@@ -39,12 +39,6 @@
 ;;;
 ;;;   Steps toward composition of Devanagari Characters.
 ;;;
-
-;;;###autoload
-(defun setup-devanagari-environment ()
-  "Setup multilingual environment (MULE) for languages using Devanagari."
-  (interactive)
-  (set-language-environment "Devanagari"))
           
 ;;; Basic functions.
 

diff --git a/lisp/language/english.el b/lisp/language/english.el
index e30a9349e5e95ccab2f7f8663b2e86525ff7679d..bba7e20b94d07a2df346af0b5d7ef580de2e668c 100644 (file)
--- a/lisp/language/english.el
+++ b/lisp/language/english.el
@@ -30,12 +30,6 @@
 
 ;;; Code
 
-(defun setup-english-environment ()
-  "Reset multilingual environment of Emacs to the default status.
-See the function `reset-language-environment' for more detail."
-  (interactive)
-  (reset-language-environment))
-
 (set-language-info-alist
  "English" '((tutorial . "TUTORIAL")
             (charset ascii)

diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index 2ddea090c7ca1c87bb77bb0727e557238b395152..43f2ad0ee1c664acb78a1ad0b8ba2bb30f0aaaef 100644 (file)
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -29,11 +29,6 @@
 ;; Information for exiting Ethiopic environment.
 (defvar exit-ethiopic-environment-data nil)
 
-;;;###autoload
-(defun setup-ethiopic-environment ()
-  "Setup multilingual environment for Ethiopic."
-  (set-language-environment "Ethiopic"))
-
 ;;;###autoload
 (defun setup-ethiopic-environment-internal ()
   (let ((key-bindings '((" " . ethio-insert-space)

diff --git a/lisp/language/european.el b/lisp/language/european.el
index 66ba64a1f562b8a6c32612078927805c1a8ae639..873abb875fa695160969a52bd0eaa023a5361560 100644 (file)
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -50,11 +50,6 @@
 
 (define-coding-system-alias 'ctext 'compound-text)
 
-(defun setup-latin1-environment ()
-  "Set up multilingual environment (MULE) for European Latin-1 users."
-  (interactive)
-  (set-language-environment "Latin-1"))
-
 (set-language-info-alist
  "Latin-1" '((charset ascii latin-iso8859-1)
             (coding-system iso-latin-1)
@@ -93,11 +88,6 @@ Indonesian/Malay, Tagalog (Philippines), Swahili and Afrikaans."))
 (define-coding-system-alias 'iso-8859-2 'iso-latin-2)
 (define-coding-system-alias 'latin-2 'iso-latin-2)
 
-(defun setup-latin2-environment ()
-  "Set up multilingual environment (MULE) for European Latin-2 users."
-  (interactive)
-  (set-language-environment "Latin-2"))
-
 (set-language-info-alist
  "Latin-2" '((charset ascii latin-iso8859-2)
             (coding-system iso-latin-2)
@@ -132,11 +122,6 @@ We also have specific language environments for the following languages:
 (define-coding-system-alias 'iso-8859-3 'iso-latin-3)
 (define-coding-system-alias 'latin-3 'iso-latin-3)
 
-(defun setup-latin3-environment ()
-  "Set up multilingual environment (MULE) for European Latin-3 users."
-  (interactive)
-  (set-language-environment "Latin-3"))
-
 (set-language-info-alist
  "Latin-3" '((charset ascii latin-iso8859-3)
             (coding-system iso-latin-3)
@@ -165,11 +150,6 @@ These languages are supported with the Latin-3 (ISO-8859-3) character set:
 (define-coding-system-alias 'iso-8859-4 'iso-latin-4)
 (define-coding-system-alias 'latin-4 'iso-latin-4)
 
-(defun setup-latin4-environment ()
-  "Set up multilingual environment (MULE) for European Latin-4 users."
-  (interactive)
-  (set-language-environment "Latin-4"))
-
 (set-language-info-alist
  "Latin-4" '((charset ascii latin-iso8859-4)
             (coding-system iso-8859-4)
@@ -198,11 +178,6 @@ These languages are supported with the Latin-4 (ISO-8859-4) character set:
 (define-coding-system-alias 'iso-8859-9 'iso-latin-5)
 (define-coding-system-alias 'latin-5 'iso-latin-5)
 
-(defun setup-latin5-environment ()
-  "Set up multilingual environment (MULE) for European Latin-5 users."
-  (interactive)
-  (set-language-environment "Latin-5"))
-
 (set-language-info-alist
  "Latin-5" '((charset ascii latin-iso8859-9)
             (coding-system iso-latin-5)
@@ -232,11 +207,6 @@ Ukranian."))                               ; says ISO 8859-1
 (define-coding-system-alias 'iso-8859-14 'iso-latin-8)
 (define-coding-system-alias 'latin-8 'iso-latin-8)
 
-(defun setup-latin8-environment ()
-  "Set up multilingual environment (MULE) for European Latin-8 users."
-  (interactive)
-  (set-language-environment "latin-8"))
-
 (set-language-info-alist
  "Latin-8" '((charset ascii latin-iso8859-14)
             (coding-system iso-latin-8)
@@ -269,11 +239,6 @@ Irish Gaelic (old orthography)."))
 (define-coding-system-alias 'latin-9 'iso-latin-9)
 (define-coding-system-alias 'latin-0 'iso-latin-9)
 
-(defun setup-latin9-environment ()
-  "Set up multilingual environment (MULE) for European Latin-9 users."
-  (interactive)
-  (set-language-environment "latin-9"))
-
 (set-language-info-alist
  "Latin-9" '((charset ascii latin-iso8859-15)
             (coding-system iso-latin-9)
@@ -291,11 +256,6 @@ addition of the Euro sign and some additional French and Finnish letters.
 Latin-9 is sometimes nicknamed `Latin-0'."))
  '("European"))
 \f
-(defun setup-german-environment ()
-  "Set up multilingual environment (MULE) for German users."
-  (interactive)
-  (set-language-environment "German"))
-
 (set-language-info-alist
  "German" '((tutorial . "TUTORIAL.de")
            (charset ascii latin-iso8859-1)
@@ -313,11 +273,6 @@ This language environment is almost the same as Latin-1,
 but default input method is set to \"german-postfix\"."))
  '("European"))
 
-(defun setup-slovenian-environment ()
-  "Setup multilingual environment (MULE) for Slovenian."
-  (interactive)
-  (set-language-environment "Slovenian"))
-
 (set-language-info-alist
  "Slovenian" '((charset . (ascii latin-iso8859-2))
              (coding-system . (iso-8859-2))
@@ -351,11 +306,6 @@ but default input method is set to \"german-postfix\"."))
 ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl>
 ;; Keywords: multilingual, Polish
 
-(defun setup-polish-environment ()
-  "Setup multilingual environment (MULE) for Polish."
-  (interactive)
-  (set-language-environment "Polish"))
-
 (set-language-info-alist
  "Polish" '((charset . (ascii latin-iso8859-2))
           (coding-system . (iso-8859-2))

diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index 96a0ec6aafdd7f7e999d68f0e219000c86e48cb9..50a05d7eeeccb833166d78c836ebdd8b422076f6 100644 (file)
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.el
@@ -38,11 +38,6 @@
 
 (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)
 
-(defun setup-greek-environment ()
-  "Setup multilingual environment (MULE) for Greek."
-  (interactive)
-  (set-language-environment "Greek"))
-
 (set-language-info-alist
  "Greek" '((charset . (greek-iso8859-7))
           (coding-system . (greek-iso-8bit))

diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el
index 05b25a3bfe1e6a71c60756b2f7a183114f17ff32..3e8ad4d838944a9225da2b04642c5b482a5e41b1 100644 (file)
--- a/lisp/language/hebrew.el
+++ b/lisp/language/hebrew.el
@@ -38,12 +38,6 @@
 
 (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit)
 
-(defun setup-hebrew-environment ()
-  "Setup multilingual environment (MULE) for Hebrew.
-But, please note that right-to-left writing is not yet supported."
-  (interactive)
-  (set-language-environment "Hebrew"))
-
 (set-language-info-alist
  "Hebrew" '((charset . (hebrew-iso8859-8))
            (coding-priority hebrew-iso-8bit)

diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index 58645ba6b11ff6c86a09f2dacaaa37eaed34582a..fc1e123fa095caf3b66d6b6e959a62df73f4b769 100644 (file)
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -26,12 +26,6 @@
 
 (defvar sentence-end-save nil)
 
-;;;###autoload
-(defun setup-japanese-environment ()
-  "Setup multilingual environment (MULE) for Japanese."
-  (interactive)
-  (set-language-environment "Japanese"))
-
 ;;;###autoload
 (defun setup-japanese-environment-internal ()
   (cond ((eq system-type 'ms-dos)

diff --git a/lisp/language/korea-util.el b/lisp/language/korea-util.el
index 4b4292d52ba07a2c8ddcc962a7a0da9668e4ba51..11438295a2e08cdab7ffe43c30e5976e52d06e51 100644 (file)
--- a/lisp/language/korea-util.el
+++ b/lisp/language/korea-util.el
@@ -98,12 +98,6 @@
     (,isearch-mode-map [C-f9] isearch-hangul-switch-symbol-ksc nil)
     (,isearch-mode-map [f9] isearch-hangul-switch-hanja nil)))
 
-;;;###autoload
-(defun setup-korean-environment ()
-  "Setup multilingual environment (MULE) for Korean."
-  (interactive)
-  (set-language-environment "Korean"))
-
 ;;;###autoload
 (defun setup-korean-environment-internal ()
   (let ((key-bindings korean-key-bindings))

diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index 02a16158bd4e15a035aff9d32649ac059e09e0f1..55f7940ef20595ac66758dcffa0ef80d2e5a2196 100644 (file)
--- a/lisp/language/lao-util.el
+++ b/lisp/language/lao-util.el
@@ -24,12 +24,6 @@
 
 ;;; Code:
 
-;;;###autoload
-(defun setup-lao-environment ()
-  "Setup multilingual environment (MULE) for Lao."
-  (interactive)
-  (set-language-environment "Lao"))
-
 ;; Setting information of Thai characters.
 
 (defconst lao-category-table (make-category-table))

diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el
index 9fe1580a4a8d0e0a004cbb28457b0e53e506d939..bf3c1e73806655c8ac7d97f5f66dc6c23581cbe1 100644 (file)
--- a/lisp/language/misc-lang.el
+++ b/lisp/language/misc-lang.el
@@ -26,11 +26,6 @@
 ;;; IPA (International Phonetic Alphabet)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defun setup-ipa-environment ()
-  "Setup multilingual environment (MULE) for IPA."
-  (interactive)
-  (set-language-environment "IPA"))
-
 (set-language-info-alist
  "IPA" '((charset . (ipa))
         (coding-priority iso-2022-7bit)

diff --git a/lisp/language/romanian.el b/lisp/language/romanian.el
index 4b95b2f68a5ef4e4e7c9ebcd2f9cd5e331543d6e..795876547d2a9e16f0eb7ab31edefa22d80cb234 100644 (file)
--- a/lisp/language/romanian.el
+++ b/lisp/language/romanian.el
@@ -28,11 +28,6 @@
 
 ;;; Code:
 
-(defun setup-romanian-environment ()
-  "Setup multilingual environment (MULE) for Romanian."
-  (interactive)
-  (set-language-environment "Romanian"))
-
 (set-language-info-alist
  "Romanian" '((charset . (ascii latin-iso8859-2))
              (coding-system . (iso-8859-2))

diff --git a/lisp/language/slovak.el b/lisp/language/slovak.el
index d20438ad6d65cea5dd2f2d82961a97ebefa65449..15688e6eeba55018045b2047748bf05a67bc166a 100644 (file)
--- a/lisp/language/slovak.el
+++ b/lisp/language/slovak.el
@@ -30,11 +30,6 @@
 
 ;;; Code:
 
-(defun setup-slovak-environment ()
-  "Setup multilingual environment (MULE) for Slovak."
-  (interactive)
-  (set-language-environment "Slovak"))
-
 (set-language-info-alist
  "Slovak" '((charset . (ascii latin-iso8859-2))
            (coding-system . (iso-8859-2))

diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el
index e46a472d9f2bc5fe47f9c06ffcc137bbc59a127b..6c6744424ff2c0cd0f2ba5b69771a22ed90edbdc 100644 (file)
--- a/lisp/language/thai-util.el
+++ b/lisp/language/thai-util.el
@@ -24,12 +24,6 @@
 
 ;;; Code:
 
-;;;###autoload
-(defun setup-thai-environment ()
-  "Setup multilingual environment (MULE) for Thai."
-  (interactive)
-  (set-language-environment "Thai"))
-
 ;; Setting information of Thai characters.
 
 (defconst thai-category-table (make-category-table))

diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index 03f92e86b08d8b23b0c3d85a9582b8581a2e786e..009f88a56161e116d6d2e63da39b4e0f1c51de51 100644 (file)
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -33,11 +33,6 @@
 
 ;;; Code:
 
-;;;###autoload
-(defun setup-tibetan-environment ()
-  (interactive)
-  (set-language-environment "Tibetan"))
-
 ;;;###autoload
 (defun tibetan-char-p (ch)
   "Check if char CH is Tibetan character.

diff --git a/lisp/language/viet-util.el b/lisp/language/viet-util.el
index 4a4022d2b627a9f4241c401cbdf10a20d5214b09..1f2f74e5d7a48924c56ad28aa847c8020b8cf431 100644 (file)
--- a/lisp/language/viet-util.el
+++ b/lisp/language/viet-util.el
@@ -41,12 +41,6 @@
   (aref (char-table-extra-slot viet-viscii-nonascii-translation-table 0)
        char))
 
-;;;###autoload
-(defun setup-vietnamese-environment ()
-  "Setup multilingual environment (MULE) for Vietnamese VISCII users."
-  (interactive)
-  (set-language-environment "Vietnamese"))
-
 ;; VIQR is a menmonic encoding specification for Vietnamese.
 ;; It represents diacritical marks by ASCII characters as follows:
 ;; ------------+----------+--------