Mercurial > emacs

changeset 28906:60eb71a9f901

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove all the setup-...-environment functions.
author Dave Love <fx@gnu.org>
date Sun, 14 May 2000 15:21:41 +0000
parents e96880caf4e5
children 6d7ba0ba3bc3
files lisp/language/china-util.el lisp/language/cyril-util.el lisp/language/czech.el lisp/language/devan-util.el lisp/language/english.el lisp/language/ethio-util.el lisp/language/european.el lisp/language/greek.el lisp/language/hebrew.el lisp/language/japan-util.el lisp/language/korea-util.el lisp/language/lao-util.el lisp/language/misc-lang.el lisp/language/romanian.el lisp/language/slovak.el lisp/language/thai-util.el lisp/language/tibet-util.el lisp/language/viet-util.el
diffstat 18 files changed, 0 insertions(+), 169 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/china-util.el	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/china-util.el	Sun May 14 15:21:41 2000 +0000
@@ -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	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/cyril-util.el	Sun May 14 15:21:41 2000 +0000
@@ -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)
--- a/lisp/language/czech.el	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/czech.el	Sun May 14 15:21:41 2000 +0000
@@ -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	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/devan-util.el	Sun May 14 15:21:41 2000 +0000
@@ -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	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/english.el	Sun May 14 15:21:41 2000 +0000
@@ -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	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/ethio-util.el	Sun May 14 15:21:41 2000 +0000
@@ -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)
--- a/lisp/language/european.el	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/european.el	Sun May 14 15:21:41 2000 +0000
@@ -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 @@
 (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 @@
 (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 @@
 (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 @@
 (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 @@
 (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 @@
 (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 @@
 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 @@
 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 @@
 ;; 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	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/greek.el	Sun May 14 15:21:41 2000 +0000
@@ -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	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/hebrew.el	Sun May 14 15:21:41 2000 +0000
@@ -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	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/japan-util.el	Sun May 14 15:21:41 2000 +0000
@@ -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))
--- a/lisp/language/korea-util.el	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/korea-util.el	Sun May 14 15:21:41 2000 +0000
@@ -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
--- a/lisp/language/lao-util.el	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/lao-util.el	Sun May 14 15:21:41 2000 +0000
@@ -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	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/misc-lang.el	Sun May 14 15:21:41 2000 +0000
@@ -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	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/romanian.el	Sun May 14 15:21:41 2000 +0000
@@ -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	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/slovak.el	Sun May 14 15:21:41 2000 +0000
@@ -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	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/thai-util.el	Sun May 14 15:21:41 2000 +0000
@@ -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	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/tibet-util.el	Sun May 14 15:21:41 2000 +0000
@@ -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."
--- a/lisp/language/viet-util.el	Sun May 14 02:26:19 2000 +0000
+++ b/lisp/language/viet-util.el	Sun May 14 15:21:41 2000 +0000
@@ -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:
 ;; ------------+----------+--------