Commit 0922d3b4 authored by Dave Love's avatar Dave Love
Browse files

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

parent e8564f57
......@@ -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
......
......@@ -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."
......
......@@ -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))
......
......@@ -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.
......
......@@ -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)
......
......@@ -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)
......
......@@ -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))
......
......@@ -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))
......
......@@ -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)
......
......@@ -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)
......
......@@ -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))
......
......@@ -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))
......
......@@ -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)
......
......@@ -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))
......
......@@ -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))
......
......@@ -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))
......
......@@ -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.
......
......@@ -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:
;; ------------+----------+--------
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment