cgit.sxemacs.org Git - sxemacs/blob - lisp/mule/misc-lang.el

   1 ;;; misc-lang.el --- support for miscellaneous languages (characters)
   2
   3 ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5 ;; Copyright (C) 1997 MORIOKA Tomohiko
   6
   7 ;; Keywords: multilingual, character set, coding system
   8
   9 ;; This file is part of SXEmacs.
  10
  11 ;; SXEmacs is free software: you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation, either version 3 of the License, or
  14 ;; (at your option) any later version.
  15
  16 ;; SXEmacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 ;;; Code:
  25
  26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  27 ;;; IPA (International Phonetic Alphabet)
  28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  29
  30 (make-charset 'ipa "International Phonetic Alphabet"
  31               '(registry "MuleIPA"
  32                 dimension 1
  33                 chars 96
  34                 final ?0
  35                 graphic 1
  36                 ))              ; for XEmacs
  37
  38 (defun setup-ipa-environment ()
  39   "Setup multilingual environment (MULE) for IPA."
  40   (interactive)
  41   (set-language-environment "IPA"))
  42
  43 (set-language-info-alist
  44  "IPA" '((charset . (ipa))
  45          (coding-priority iso-2022-7bit)
  46          (coding-system iso-2022-7bit)
  47          (input-method . "ipa")
  48          (documentation . "IPA is International Phonetic Alphabet for English, French, German
  49 and Italian.")))
  50
  51 ;;; misc-lang.el ends here