Mercurial > hg > xemacs-beta

diff lisp/mule/misc-lang.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 74fd4e045ea6
children 95016f13131a
line wrap: on
line diff
--- a/lisp/mule/misc-lang.el	Mon Aug 13 11:19:22 2007 +0200
+++ b/lisp/mule/misc-lang.el	Mon Aug 13 11:20:41 2007 +0200
@@ -1,6 +1,6 @@
 ;;; misc-lang.el --- support for miscellaneous languages (characters)
 
-;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN.
+;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
 ;; Copyright (C) 1997 MORIOKA Tomohiko
 
@@ -40,13 +40,11 @@
 (defun setup-ipa-environment ()
   "Setup multilingual environment (MULE) for IPA."
   (interactive)
-  (set-language-environment "IPA"))
+  (setup-english-environment))
 
 (set-language-info-alist
- "IPA" '((charset . (ipa))
-	 (coding-priority iso-2022-7bit)
-	 (coding-system iso-2022-7bit)
-	 (input-method . "ipa")
+ "IPA" '((setup-function . setup-ipa-environment)
+	 (charset . (ipa))
 	 (documentation . "\
 IPA is International Phonetic Alphabet for English, French, German
 and Italian.")))