Mercurial > hg > xemacs-beta

comparison lisp/mule/misc-lang.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 4f79e16b1112
children 697ef44129c6
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
1 ;;; misc-lang.el --- support for miscellaneous languages (characters) 1 ;;; misc-lang.el --- support for miscellaneous languages (characters)
2 2
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1995,1999 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 (setup-english-environment)) 43 (set-language-environment "IPA"))
44 44
45 (set-language-info-alist 45 (set-language-info-alist
46 "IPA" '((setup-function . setup-ipa-environment) 46 "IPA" '((charset . (ipa))
47 (charset . (ipa)) 47 (coding-priority iso-2022-7bit)
48 (coding-system iso-2022-7bit)
49 (input-method . "ipa")
48 (documentation . "\ 50 (documentation . "\
49 IPA is International Phonetic Alphabet for English, French, German 51 IPA is International Phonetic Alphabet for English, French, German
50 and Italian."))) 52 and Italian.")))
51 53
52 ;;; misc-lang.el ends here 54 ;;; misc-lang.el ends here