Mercurial > emacs
changeset 20737:df8fab27273f
In setup-LANGUAGE-environment functions, adjust for the change of
setup-8-bit-environment.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 22 Jan 1998 01:45:17 +0000 |
| parents | 60bf060b9ab1 |
| children | f510736ce3d1 |
| files | lisp/language/cyril-util.el lisp/language/devan-util.el lisp/language/lao-util.el lisp/language/thai-util.el |
| diffstat | 4 files changed, 7 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/cyril-util.el Thu Jan 22 01:42:20 1998 +0000 +++ b/lisp/language/cyril-util.el Thu Jan 22 01:45:17 1998 +0000 @@ -28,21 +28,21 @@ "Setup multilingual environment (MULE) for Cyrillic ISO-8859-5 users." (interactive) (setup-8-bit-environment "Cyrillic-ISO" 'cyrillic-iso8859-5 - 'cyrillic-iso-8bit "cyrillic-yawerty")) + "cyrillic-yawerty")) ;;;###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-koi8 + (setup-8-bit-environment "Cyrillic-KOI8" 'cyrillic-iso8859-5 "cyrillic-yawerty")) ;;;###autoload (defun setup-cyrillic-alternativnyj-environment () "Setup multilingual environment (MULE) for Cyrillic ALTERNATIVNYJ users." (interactive) - (setup-8-bit-environment "Cyrillic" 'cyrillic-iso8859-5 - 'cyrillic-alternativnyj "cyrillic-yawerty") + (setup-8-bit-environment "Cyrillic-ALT" 'cyrillic-iso8859-5 + "cyrillic-yawerty") (setq coding-category-raw-text 'cyrillic-alternativnyj))
--- a/lisp/language/devan-util.el Thu Jan 22 01:42:20 1998 +0000 +++ b/lisp/language/devan-util.el Thu Jan 22 01:45:17 1998 +0000 @@ -48,8 +48,7 @@ (defun setup-devanagari-environment () "Setup multilingual environment (MULE) for languages using Devanagari." (interactive) - (setup-8-bit-environment "Devanagari" nil 'devanagari - "devanagari-itrans")) + (setup-8-bit-environment "Devanagari" nil "devanagari-itrans")) ;;; Basic functions.
--- a/lisp/language/lao-util.el Thu Jan 22 01:42:20 1998 +0000 +++ b/lisp/language/lao-util.el Thu Jan 22 01:45:17 1998 +0000 @@ -28,8 +28,7 @@ (defun setup-lao-environment () "Setup multilingual environment (MULE) for Lao." (interactive) - (setup-8-bit-environment "Lao" 'lao 'iso-2022-7bit - "lao")) + (setup-8-bit-environment "Lao" 'lao "lao")) (let ((l '((?(1!(B consonant "LETTER KOR KAI'" "CHICKEN") (?(1"(B consonant "LETTER KHOR KHAI'" "EGG")
--- a/lisp/language/thai-util.el Thu Jan 22 01:42:20 1998 +0000 +++ b/lisp/language/thai-util.el Thu Jan 22 01:45:17 1998 +0000 @@ -28,8 +28,7 @@ (defun setup-thai-environment () "Setup multilingual environment (MULE) for Thai." (interactive) - (setup-8-bit-environment "Thai" 'thai-tis620 'thai-tis620 - "thai-kesmanee")) + (setup-8-bit-environment "Thai" 'thai-tis620 "thai-kesmanee")) ;; Setting information of Thai characters.