Update AIST copyright years.

[bpt/emacs.git] / leim / quail / ipa.el

;;; ipa.el --- Quail package for inputting IPA characters  -*-coding: iso-2022-7bit;-*-

;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H14PRO021

;; Keywords: multilingual, input method, IPA

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;;; Code:

(require 'quail)

(quail-define-package
 "ipa" "IPA" "IPA" t
 "International Phonetic Alphabet for English, French, German and Italian

Upside-down characters are obtained by a preceding slash (/)."
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("i" ?\e,0 \e(B)
 ("I" ?\e,0!\e(B)
 ("e" ?\e,0"\e(B)
 ("/3" ?\e,0#\e(B)
 ("E" ?\e,0#\e(B)
 ("ae" ?\e,0$\e(B)
 ("a" ?\e,0%\e(B)
 ("i-" ?\e,0&\e(B)
 ("/e" ?\e,0'\e(B)
 ("/a" ?\e,0(\e(B)
 ("/m" ?\e,0)\e(B)
 ("&" ?\e,0*\e(B)
 ("/v" ?\e,0+\e(B)
 ("A" ?\e,0,\e(B)
 ("o|" ?\e,0,\e(B)
 ("y" ?\e,0-\e(B)
 ("Y" ?\e,0.\e(B)
 ("o/" ?\e,0/\e(B)
 ("oe" ?\e,00\e(B)
 ("OE" ?\e,01\e(B)
 ("u-" ?\e,02\e(B)
 ("o-" ?\e,03\e(B)
 ("u" ?\e,04\e(B)
 ("U" ?\e,05\e(B)
 ("o" ?\e,06\e(B)
 ("/c" ?\e,07\e(B)
 ("/A" ?\e,08\e(B)
 ("|o" ?\e,08\e(B)
 ("e-" ?\e,0:\e(B)
 ("e|" ?\e,0:\e(B)
 ("/3~" ?\e,0;\e(B)
 ("E~" ?\e,0;\e(B)
 ("A~" ?\e,0<\e(B)
 ("oe~" ?\e,0=\e(B)
 ("/c~" ?\e,0>\e(B)
 ("p" ?\e,0@\e(B)
 ("b" ?\e,0A\e(B)
 ("t" ?\e,0B\e(B)
 ("d" ?\e,0C\e(B)
 ("k" ?\e,0D\e(B)
 ("g" ?\e,0E\e(B)
 ("f" ?\e,0F\e(B)
 ("v" ?\e,0G\e(B)
 ("th" ?\e,0H\e(B)
 ("dh" ?\e,0I\e(B)
 ("s" ?\e,0J\e(B)
 ("z" ?\e,0K\e(B)
 ("sh" ?\e,0L\e(B)
 ("zh" ?\e,0M\e(B)
 ("3" ?\e,0M\e(B)
 ("c," ?\e,0N\e(B)
 ("x" ?\e,0O\e(B)
 ("/R" ?\e,0P\e(B)
 ("h" ?\e,0Q\e(B)
 ("m" ?\e,0R\e(B)
 ("n" ?\e,0S\e(B)
 ("gn" ?\e,0T\e(B)
 ("ng" ?\e,0U\e(B)
 ("r" ?\e,0V\e(B)
 ("R" ?\e,0W\e(B)
 ("/r" ?\e,0X\e(B)
 ("j" ?\e,0Y\e(B)
 ("l" ?\e,0Z\e(B)
 ("/y" ?\e,0[\e(B)
 ("L" ?\e,0\\e(B)
 ("/h" ?\e,0]\e(B)
 ("w" ?\e,0^\e(B)
 ("M" ?\e,0_\e(B)
 ("'" ?\e,0p\e(B)
 ("`" ?\e,0q\e(B)
 (":" ?\e,0r\e(B))

;;; arch-tag: cf2614cc-ecce-4ef5-ba51-37faeed41691
;;; ipa.el ends here