From: Kenichi Handa <handa@m17n.org>
Date: Wed, 2 Jul 1997 12:58:31 +0000 (+0000)
Subject: Call set-language-info-alist for IPA.
X-Git-Tag: emacs-20.1~1392
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c606ef462459f22abcaddf302b66f9e2ce1b977;p=emacs.git

Call set-language-info-alist for IPA.
(setup-ipa-environment): New function.
---

diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el
index 1768fec8a31..0e9526a0420 100644
--- a/lisp/language/misc-lang.el
+++ b/lisp/language/misc-lang.el
@@ -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
+