From 8f76845d7eef977f60ef1e95d9bdeccb8249638c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 10 Aug 1998 06:29:02 +0000 Subject: (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. ("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change the value to setup-XXX-environment-internal. Add properties nonascii-translation, input-method, features, unibyte-syntax, and unibyte-display. --- lisp/language/misc-lang.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lisp/language/misc-lang.el') diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el index 53b1399bba..9fe1580a4a 100644 --- a/lisp/language/misc-lang.el +++ b/lisp/language/misc-lang.el @@ -29,13 +29,15 @@ (defun setup-ipa-environment () "Setup multilingual environment (MULE) for IPA." (interactive) - (setup-english-environment)) + (set-language-environment "IPA")) (set-language-info-alist - "IPA" '((setup-function . setup-ipa-environment) - (charset . (ipa)) + "IPA" '((charset . (ipa)) (coding-priority iso-2022-7bit) (coding-system iso-2022-7bit) + (input-method . "ipa") + (nonascii-translation . ipa) + (unibyte-display . iso-2022-7bit) (documentation . "\ IPA is International Phonetic Alphabet for English, French, German and Italian."))) -- cgit v1.2.3