Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
1 ;;; misc-lang.el --- support for miscellaneous languages (characters) 1 ;;; misc-lang.el --- support for miscellaneous languages (characters)
2 2
3 ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 1997 MORIOKA Tomohiko 5 ;; Copyright (C) 1997 MORIOKA Tomohiko
6 6
7 ;; Keywords: multilingual, character set, coding system 7 ;; Keywords: multilingual, character set, coding system
8 8
38 )) ; for XEmacs 38 )) ; for XEmacs
39 39
40 (defun setup-ipa-environment () 40 (defun setup-ipa-environment ()
41 "Setup multilingual environment (MULE) for IPA." 41 "Setup multilingual environment (MULE) for IPA."
42 (interactive) 42 (interactive)
43 (set-language-environment "IPA")) 43 (setup-english-environment))
44 44
45 (set-language-info-alist 45 (set-language-info-alist
46 "IPA" '((charset . (ipa)) 46 "IPA" '((setup-function . setup-ipa-environment)
47 (coding-priority iso-2022-7bit) 47 (charset . (ipa))
48 (coding-system iso-2022-7bit)
49 (input-method . "ipa")
50 (documentation . "\ 48 (documentation . "\
51 IPA is International Phonetic Alphabet for English, French, German 49 IPA is International Phonetic Alphabet for English, French, German
52 and Italian."))) 50 and Italian.")))
53 51
54 ;;; misc-lang.el ends here 52 ;;; misc-lang.el ends here