Mercurial > emacs
changeset 22987:708271862495
(setup-XXX-environment): Just call set-language-environment. If
they used to do some other jobs than what done by
set-language-environment, those jobs are done in
setup-XXX-environment-internal now.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 10 Aug 1998 06:42:41 +0000 |
| parents | b5c383369b40 |
| children | 618d123d5dd3 |
| files | lisp/language/china-util.el lisp/language/cyril-util.el lisp/language/devan-util.el lisp/language/ethio-util.el lisp/language/japan-util.el lisp/language/korea-util.el lisp/language/lao-util.el lisp/language/thai-util.el lisp/language/tibet-util.el lisp/language/viet-util.el |
| diffstat | 10 files changed, 25 insertions(+), 37 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/china-util.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/china-util.el Mon Aug 10 06:42:41 1998 +0000 @@ -28,25 +28,19 @@ (defun setup-chinese-gb-environment () "Setup multilingual environment (MULE) for Chinese GB2312 users." (interactive) - (setup-english-environment) - (set-language-environment-coding-systems "Chinese-GB") - (setq default-input-method "chinese-py-punct")) + (set-language-environment "Chinese-GB")) ;;;###autoload (defun setup-chinese-big5-environment () "Setup multilingual environment (MULE) for Chinese Big5 users." (interactive) - (setup-english-environment) - (set-language-environment-coding-systems "Chinese-BIG5") - (setq default-input-method "chinese-py-punct-b5")) + (set-language-environment "Chinese-BIG5")) ;;;###autoload (defun setup-chinese-cns-environment () "Setup multilingual environment (MULE) for Chinese CNS11643 family users." (interactive) - (setup-english-environment) - (set-language-environment-coding-systems "Chinese-CNS") - (setq default-input-method "chinese-cns-quick")) + (set-language-environment "Chinese-CNS")) ;; Hz/ZW encoding stuffs
--- a/lisp/language/cyril-util.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/cyril-util.el Mon Aug 10 06:42:41 1998 +0000 @@ -27,23 +27,19 @@ (defun setup-cyrillic-iso-environment () "Setup multilingual environment (MULE) for Cyrillic ISO-8859-5 users." (interactive) - (setup-8-bit-environment "Cyrillic-ISO" 'cyrillic-iso8859-5 - "cyrillic-yawerty")) + (set-language-environment "Cyrillic-ISO")) ;;;###autoload (defun setup-cyrillic-koi8-environment () "Setup multilingual environment (MULE) for Cyrillic KOI8 users." (interactive) - (setup-8-bit-environment "Cyrillic-KOI8" 'cyrillic-iso8859-5 - "cyrillic-yawerty")) + (set-language-environment "Cyrillic-KOI8")) ;;;###autoload (defun setup-cyrillic-alternativnyj-environment () "Setup multilingual environment (MULE) for Cyrillic ALTERNATIVNYJ users." (interactive) - (setup-8-bit-environment "Cyrillic-ALT" 'cyrillic-iso8859-5 - "cyrillic-yawerty") - (setq coding-category-raw-text 'cyrillic-alternativnyj)) + (set-language-environment "Cyrillic-ALT")) ;;;###autoload (defun cyrillic-encode-koi8-r-char (char)
--- a/lisp/language/devan-util.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/devan-util.el Mon Aug 10 06:42:41 1998 +0000 @@ -44,8 +44,8 @@ (defun setup-devanagari-environment () "Setup multilingual environment (MULE) for languages using Devanagari." (interactive) - (setup-8-bit-environment "Devanagari" nil "devanagari-itrans")) - + (set-language-environment "Devanagari")) + ;;; Basic functions. ;;;###autoload
--- a/lisp/language/ethio-util.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/ethio-util.el Mon Aug 10 06:42:41 1998 +0000 @@ -32,10 +32,10 @@ ;;;###autoload (defun setup-ethiopic-environment () "Setup multilingual environment for Ethiopic." - (interactive) - (setup-english-environment) - (setq default-input-method "ethiopic") + (set-language-environment "Ethiopic")) +;;;###autoload +(defun setup-ethiopic-environment-internal () (let ((key-bindings '((" " . ethio-insert-space) ([?\S- ] . ethio-insert-ethio-space) ([?\C-'] . ethio-gemination)
--- a/lisp/language/japan-util.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/japan-util.el Mon Aug 10 06:42:41 1998 +0000 @@ -30,12 +30,13 @@ (defun setup-japanese-environment () "Setup multilingual environment (MULE) for Japanese." (interactive) - (setup-english-environment) - (set-language-environment-coding-systems "Japanese") + (set-language-environment "Japanese")) + +;;;###autoload +(defun setup-japanese-environment-internal () (if (eq system-type 'ms-dos) - (prefer-coding-system 'japanese-shift-jis)) - (setq default-file-name-coding-system 'japanese-iso-8bit) - (setq default-input-method "japanese") + (prefer-coding-system 'japanese-shift-jis) + (setq default-file-name-coding-system 'japanese-iso-8bit)) (setq sentence-end-save sentence-end) (setq sentence-end (concat sentence-end "\\|[$B!#!)!*(B]")))
--- a/lisp/language/korea-util.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/korea-util.el Mon Aug 10 06:42:41 1998 +0000 @@ -90,11 +90,10 @@ (defun setup-korean-environment () "Setup multilingual environment (MULE) for Korean." (interactive) - (setup-english-environment) - (set-language-environment-coding-systems "Korean") + (set-language-environment "Korean")) - (setq default-input-method "korean-hangul") - +;;;###autoload +(defun setup-korean-environment-internal () (let ((key-bindings korean-key-bindings)) (while key-bindings (let* ((this (car key-bindings))
--- a/lisp/language/lao-util.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/lao-util.el Mon Aug 10 06:42:41 1998 +0000 @@ -28,7 +28,7 @@ (defun setup-lao-environment () "Setup multilingual environment (MULE) for Lao." (interactive) - (setup-8-bit-environment "Lao" 'lao "lao")) + (set-language-environment "Lao")) (let ((l '((?(1!(B consonant "LETTER KOR KAI'" "CHICKEN") (?(1"(B consonant "LETTER KHOR KHAI'" "EGG")
--- a/lisp/language/thai-util.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/thai-util.el Mon Aug 10 06:42:41 1998 +0000 @@ -28,7 +28,7 @@ (defun setup-thai-environment () "Setup multilingual environment (MULE) for Thai." (interactive) - (setup-8-bit-environment "Thai" 'thai-tis620 "thai-kesmanee")) + (set-language-environment "Thai")) ;; Setting information of Thai characters.
--- a/lisp/language/tibet-util.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/tibet-util.el Mon Aug 10 06:42:41 1998 +0000 @@ -35,9 +35,7 @@ ;;;###autoload (defun setup-tibetan-environment () (interactive) - (setup-english-environment) - (set-language-environment-coding-systems "Tibetan") - (setq default-input-method "tibetan-wylie")) + (set-language-environment "Tibetan")) ;;; This function makes a transcription string for ;;; re-composing a character. @@ -106,7 +104,7 @@ ;;; ;;; Here are examples of the words "bsgrubs" and "h'uM" ;;; -;;; $(7"72%q`"U1"7"G(B 2$(7"H`#A`"U0"_1(B +;;; $(7"7(B2$(7%q`"U(B1$(7"7"G(B 2$(7"H`#A`"U0"_(B1 ;;; ;;; M ;;; b s b s h
--- a/lisp/language/viet-util.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/viet-util.el Mon Aug 10 06:42:41 1998 +0000 @@ -45,7 +45,7 @@ (defun setup-vietnamese-environment () "Setup multilingual environment (MULE) for Vietnamese VISCII users." (interactive) - (setup-8-bit-environment "Vietnamese" nil "vietnamese-viqr")) + (set-language-environment "Vietnamese")) ;; VIQR is a menmonic encoding specification for Vietnamese. ;; It represents diacritical marks by ASCII characters as follows: