setup-8-bit-environment.
"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))
\f
(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.
(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 '((?\e(1!\e(B consonant "LETTER KOR KAI'" "CHICKEN")
(?\e(1"\e(B consonant "LETTER KHOR KHAI'" "EGG")
(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.