| 1 | ;;; ipa.el --- Quail package for inputting IPA characters -*-coding: iso-2022-7bit;-*- |
| 2 | |
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H14PRO021 |
| 6 | |
| 7 | ;; Keywords: multilingual, input method, IPA |
| 8 | |
| 9 | ;; This file is part of GNU Emacs. |
| 10 | |
| 11 | ;; GNU Emacs 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 2, or (at your option) |
| 14 | ;; any later version. |
| 15 | |
| 16 | ;; GNU Emacs 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 GNU Emacs; see the file COPYING. If not, write to the |
| 23 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
| 24 | ;; Boston, MA 02110-1301, USA. |
| 25 | |
| 26 | ;;; Commentary: |
| 27 | |
| 28 | ;;; Code: |
| 29 | |
| 30 | (require 'quail) |
| 31 | |
| 32 | (quail-define-package |
| 33 | "ipa" "IPA" "IPA" t |
| 34 | "International Phonetic Alphabet for English, French, German and Italian |
| 35 | |
| 36 | Upside-down characters are obtained by a preceding slash (/)." |
| 37 | nil t nil nil nil nil nil nil nil nil t) |
| 38 | |
| 39 | (quail-define-rules |
| 40 | ("i" ?\e,0 \e(B) |
| 41 | ("I" ?\e,0!\e(B) |
| 42 | ("e" ?\e,0"\e(B) |
| 43 | ("/3" ?\e,0#\e(B) |
| 44 | ("E" ?\e,0#\e(B) |
| 45 | ("ae" ?\e,0$\e(B) |
| 46 | ("a" ?\e,0%\e(B) |
| 47 | ("i-" ?\e,0&\e(B) |
| 48 | ("/e" ?\e,0'\e(B) |
| 49 | ("/a" ?\e,0(\e(B) |
| 50 | ("/m" ?\e,0)\e(B) |
| 51 | ("&" ?\e,0*\e(B) |
| 52 | ("/v" ?\e,0+\e(B) |
| 53 | ("A" ?\e,0,\e(B) |
| 54 | ("o|" ?\e,0,\e(B) |
| 55 | ("y" ?\e,0-\e(B) |
| 56 | ("Y" ?\e,0.\e(B) |
| 57 | ("o/" ?\e,0/\e(B) |
| 58 | ("oe" ?\e,00\e(B) |
| 59 | ("OE" ?\e,01\e(B) |
| 60 | ("u-" ?\e,02\e(B) |
| 61 | ("o-" ?\e,03\e(B) |
| 62 | ("u" ?\e,04\e(B) |
| 63 | ("U" ?\e,05\e(B) |
| 64 | ("o" ?\e,06\e(B) |
| 65 | ("/c" ?\e,07\e(B) |
| 66 | ("/A" ?\e,08\e(B) |
| 67 | ("|o" ?\e,08\e(B) |
| 68 | ("e-" ?\e,0:\e(B) |
| 69 | ("e|" ?\e,0:\e(B) |
| 70 | ("/3~" ?\e,0;\e(B) |
| 71 | ("E~" ?\e,0;\e(B) |
| 72 | ("A~" ?\e,0<\e(B) |
| 73 | ("oe~" ?\e,0=\e(B) |
| 74 | ("/c~" ?\e,0>\e(B) |
| 75 | ("p" ?\e,0@\e(B) |
| 76 | ("b" ?\e,0A\e(B) |
| 77 | ("t" ?\e,0B\e(B) |
| 78 | ("d" ?\e,0C\e(B) |
| 79 | ("k" ?\e,0D\e(B) |
| 80 | ("g" ?\e,0E\e(B) |
| 81 | ("f" ?\e,0F\e(B) |
| 82 | ("v" ?\e,0G\e(B) |
| 83 | ("th" ?\e,0H\e(B) |
| 84 | ("dh" ?\e,0I\e(B) |
| 85 | ("s" ?\e,0J\e(B) |
| 86 | ("z" ?\e,0K\e(B) |
| 87 | ("sh" ?\e,0L\e(B) |
| 88 | ("zh" ?\e,0M\e(B) |
| 89 | ("3" ?\e,0M\e(B) |
| 90 | ("c," ?\e,0N\e(B) |
| 91 | ("x" ?\e,0O\e(B) |
| 92 | ("/R" ?\e,0P\e(B) |
| 93 | ("h" ?\e,0Q\e(B) |
| 94 | ("m" ?\e,0R\e(B) |
| 95 | ("n" ?\e,0S\e(B) |
| 96 | ("gn" ?\e,0T\e(B) |
| 97 | ("ng" ?\e,0U\e(B) |
| 98 | ("r" ?\e,0V\e(B) |
| 99 | ("R" ?\e,0W\e(B) |
| 100 | ("/r" ?\e,0X\e(B) |
| 101 | ("j" ?\e,0Y\e(B) |
| 102 | ("l" ?\e,0Z\e(B) |
| 103 | ("/y" ?\e,0[\e(B) |
| 104 | ("L" ?\e,0\\e(B) |
| 105 | ("/h" ?\e,0]\e(B) |
| 106 | ("w" ?\e,0^\e(B) |
| 107 | ("M" ?\e,0_\e(B) |
| 108 | ("'" ?\e,0p\e(B) |
| 109 | ("`" ?\e,0q\e(B) |
| 110 | (":" ?\e,0r\e(B)) |
| 111 | |
| 112 | ;;; arch-tag: cf2614cc-ecce-4ef5-ba51-37faeed41691 |
| 113 | ;;; ipa.el ends here |