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

2000-05-14 15:21:41 +00:00 · 2000-05-14 15:21:41 +00:00 · 0922d3b44c
commit 0922d3b44c
parent e8564f573c
18 changed files with 0 additions and 169 deletions
--- 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
--- 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."
--- 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))
--- 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.

--- 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)
--- 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)
--- 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))
--- 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))
--- 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)
--- 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)
--- 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))
--- 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))
--- 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)
--- 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))
--- 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))
--- 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))
--- 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.
--- 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:
 ;; ------------+----------+--------