X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fmule%2Fmisc-lang.el;h=481691d42e3fee99d306623badbdd87f8e9ba5c6;hp=236f9b07bfea0e68952d16467a7c0cb442f4210e;hb=a5812bf2ff9a9cf40f4ff78dcb83f5b4c295bd18;hpb=ccce6217f84987dff10ed3d2b60b9f0f65d8f25a

diff --git a/lisp/mule/misc-lang.el b/lisp/mule/misc-lang.el
index 236f9b0..481691d 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
 
@@ -25,26 +25,16 @@
 
 ;;; Code:
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; IPA (International Phonetic Alphabet)
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(make-charset 'ipa "International Phonetic Alphabet"
-	      '(registry "MuleIPA"
-		dimension 1
-		chars 96
-		final ?0
-		graphic 1
-		))		; for XEmacs
-
 (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.")))