XEmacs 21.2.19 "Shinjuku".

[chise/xemacs-chise.git.1] / lisp / mule / misc-lang.el

diff --git a/lisp/mule/misc-lang.el b/lisp/mule/misc-lang.el
index 236f9b0..b0f9ff3 100644 (file)
--- 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.")))