# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 867848311 0
# Node ID 179c8135c9b1844c53c41038b3daebeb19d8b3e8
# Parent  62e17ab4e33e7ab7316a23b6047b0392814dbc2e
Call set-language-info-alist for IPA.
(setup-ipa-environment): New function.

diff -r 62e17ab4e33e -r 179c8135c9b1 lisp/language/misc-lang.el
--- a/lisp/language/misc-lang.el	Wed Jul 02 12:58:30 1997 +0000
+++ b/lisp/language/misc-lang.el	Wed Jul 02 12:58:31 1997 +0000
@@ -26,4 +26,17 @@
 ;;; IPA (International Phonetic Alphabet)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+(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
+