Mercurial > hg > xemacs-beta

comparison lisp/language/misc-lang.el @ 197:acd284d43ca1 r20-3b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents 3bb7ccffb0c0
children
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
1 ;;; misc-lang.el --- support for miscellaneous languages (characters) 1 ;;; misc-lang.el --- support for miscellaneous languages (characters)
2 2
3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
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
9 ;; This file is part of XEmacs. 9 ;; This file is part of XEmacs.
35 chars 96 35 chars 96
36 final ?0 36 final ?0
37 graphic 1 37 graphic 1
38 )) ; for XEmacs 38 )) ; for XEmacs
39 39
40 (register-input-method 40 (defun setup-ipa-environment ()
41 "IPA" '("quail-ipa" quail-use-package "quail/ipa")) 41 "Setup multilingual environment (MULE) for IPA."
42 (interactive)
43 (setup-english-environment))
44
45 (set-language-info-alist
46 "IPA" '((setup-function . setup-ipa-environment)
47 (charset . (ipa))
48 (documentation . "\
49 IPA is International Phonetic Alphabet for English, French, German
50 and Italian.")))
42 51
43 ;;; misc-lang.el ends here 52 ;;; misc-lang.el ends here