--- a/lisp/language/misc-lang.el	Mon Aug 13 09:59:07 2007 +0200
+++ b/lisp/language/misc-lang.el	Mon Aug 13 10:00:02 2007 +0200
@@ -1,7 +1,7 @@
 ;;; misc-lang.el --- support for miscellaneous languages (characters)
 
-;; Copyright (C) 1995 Free Software Foundation, Inc.
 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
+;; Licensed to the Free Software Foundation.
 ;; Copyright (C) 1997 MORIOKA Tomohiko
 
 ;; Keywords: multilingual, character set, coding system
@@ -37,7 +37,16 @@
 		graphic 1
 		))		; for XEmacs
 
-(register-input-method
- "IPA" '("quail-ipa" quail-use-package "quail/ipa"))
+(defun setup-ipa-environment ()
+  "Setup multilingual environment (MULE) for IPA."
+  (interactive)
+  (setup-english-environment))
+
+(set-language-info-alist
+ "IPA" '((setup-function . setup-ipa-environment)
+	 (charset . (ipa))
+	 (documentation . "\
+IPA is International Phonetic Alphabet for English, French, German
+and Italian.")))
 
 ;;; misc-lang.el ends here