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

18 files changed, 0 insertions, 169 deletions

diff --git a/lisp/language/china-util.el b/lisp/language/china-util.el
index a4a2569a3d0..6e4e68e26b0 100644
--- 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 4df69bcefee..0235e159dac 100644
--- a/lisp/language/cyril-util.el
+++ b/lisp/language/cyril-util.el
@@ -24,24 +24,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."
   (aref (char-table-extra-slot cyrillic-koi8-r-nonascii-translation-table 0)
diff --git a/lisp/language/czech.el b/lisp/language/czech.el
index 5ab230c1dba..0658329911a 100644
--- 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 05ba7f948d8..b0003d2e742 100644
--- 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 e30a9349e5e..bba7e20b94d 100644
--- 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 2ddea090c7c..43f2ad0ee1c 100644
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -30,11 +30,6 @@
 (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)
 			([?\S- ] . ethio-insert-ethio-space)
diff --git a/lisp/language/european.el b/lisp/language/european.el
index 66ba64a1f56..873abb875fa 100644
--- 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"))
 
-(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 96a0ec6aafd..50a05d7eeec 100644
--- 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 05b25a3bfe1..3e8ad4d8389 100644
--- 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 58645ba6b11..fc1e123fa09 100644
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -27,12 +27,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)
 	 (prefer-coding-system 'japanese-shift-jis))
diff --git a/lisp/language/korea-util.el b/lisp/language/korea-util.el
index 4b4292d52ba..11438295a2e 100644
--- a/lisp/language/korea-util.el
+++ b/lisp/language/korea-util.el
@@ -99,12 +99,6 @@
     (,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))
     (while key-bindings
diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index 02a16158bd4..55f7940ef20 100644
--- 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 9fe1580a4a8..bf3c1e73806 100644
--- 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 4b95b2f68a5..795876547d2 100644
--- 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 d20438ad6d6..15688e6eeba 100644
--- 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 e46a472d9f2..6c6744424ff 100644
--- 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 03f92e86b08..009f88a5616 100644
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -34,11 +34,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.
 Returns non-nil if CH is Tibetan. Otherwise, returns nil."
diff --git a/lisp/language/viet-util.el b/lisp/language/viet-util.el
index 4a4022d2b62..1f2f74e5d7a 100644
--- 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:
 ;; ------------+----------+--------