From: tomo <tomo>
Date: Tue, 29 Jun 1999 16:02:22 +0000 (+0000)
Subject: (setup-ipa-environment): Just call `set-language-environment'.
X-Git-Tag: r21-2-17-tomo-3~21
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cb13b8f3baf6bea0e3978f4e24c849dea20da326;p=chise%2Fxemacs-chise.git-

(setup-ipa-environment): Just call `set-language-environment'.

- Specify `coding-priority' and `input-method' properties of each
  language environment.
---

diff --git a/lisp/mule/misc-lang.el b/lisp/mule/misc-lang.el
index 236f9b0..b0f9ff3 100644
--- a/lisp/mule/misc-lang.el
+++ b/lisp/mule/misc-lang.el
@@ -1,6 +1,6 @@
 ;;; misc-lang.el --- support for miscellaneous languages (characters)
 
-;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
+;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
 ;; Copyright (C) 1997 MORIOKA Tomohiko
 
@@ -40,11 +40,13 @@
 (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")
 	 (documentation . "\
 IPA is International Phonetic Alphabet for English, French, German
 and Italian.")))