leim/quail/ipa.el

   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,
   4 ;;   2006, 2007, 2008
   5 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   6 ;;   Registration Number H14PRO021
   7
   8 ;; Keywords: multilingual, input method, IPA
   9
  10 ;; This file is part of GNU Emacs.
  11
  12 ;; GNU Emacs is free software; you can redistribute it and/or modify
  13 ;; it under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation; either version 3, or (at your option)
  15 ;; any later version.
  16
  17 ;; GNU Emacs is distributed in the hope that it will be useful,
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;; GNU General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  25 ;; Boston, MA 02110-1301, USA.
  26
  27 ;;; Commentary:
  28
  29 ;;; Code:
  30
  31 (require 'quail)
  32
  33 (quail-define-package
  34  "ipa" "IPA" "IPA" t
  35  "International Phonetic Alphabet for English, French, German and Italian
  36
  37 Upside-down characters are obtained by a preceding slash (/)."
  38  nil t nil nil nil nil nil nil nil nil t)
  39
  40 (quail-define-rules
  41  ("i" ?\e,0 \e(B)
  42  ("I" ?\e,0!\e(B)
  43  ("e" ?\e,0"\e(B)
  44  ("/3" ?\e,0#\e(B)
  45  ("E" ?\e,0#\e(B)
  46  ("ae" ?\e,0$\e(B)
  47  ("a" ?\e,0%\e(B)
  48  ("i-" ?\e,0&\e(B)
  49  ("/e" ?\e,0'\e(B)
  50  ("/a" ?\e,0(\e(B)
  51  ("/m" ?\e,0)\e(B)
  52  ("&" ?\e,0*\e(B)
  53  ("/v" ?\e,0+\e(B)
  54  ("A" ?\e,0,\e(B)
  55  ("o|" ?\e,0,\e(B)
  56  ("y" ?\e,0-\e(B)
  57  ("Y" ?\e,0.\e(B)
  58  ("o/" ?\e,0/\e(B)
  59  ("oe" ?\e,00\e(B)
  60  ("OE" ?\e,01\e(B)
  61  ("u-" ?\e,02\e(B)
  62  ("o-" ?\e,03\e(B)
  63  ("u" ?\e,04\e(B)
  64  ("U" ?\e,05\e(B)
  65  ("o" ?\e,06\e(B)
  66  ("/c" ?\e,07\e(B)
  67  ("/A" ?\e,08\e(B)
  68  ("|o" ?\e,08\e(B)
  69  ("e-" ?\e,0:\e(B)
  70  ("e|" ?\e,0:\e(B)
  71  ("/3~" ?\e,0;\e(B)
  72  ("E~" ?\e,0;\e(B)
  73  ("A~" ?\e,0<\e(B)
  74  ("oe~" ?\e,0=\e(B)
  75  ("/c~" ?\e,0>\e(B)
  76  ("p" ?\e,0@\e(B)
  77  ("b" ?\e,0A\e(B)
  78  ("t" ?\e,0B\e(B)
  79  ("d" ?\e,0C\e(B)
  80  ("k" ?\e,0D\e(B)
  81  ("g" ?\e,0E\e(B)
  82  ("f" ?\e,0F\e(B)
  83  ("v" ?\e,0G\e(B)
  84  ("th" ?\e,0H\e(B)
  85  ("dh" ?\e,0I\e(B)
  86  ("s" ?\e,0J\e(B)
  87  ("z" ?\e,0K\e(B)
  88  ("sh" ?\e,0L\e(B)
  89  ("zh" ?\e,0M\e(B)
  90  ("3" ?\e,0M\e(B)
  91  ("c," ?\e,0N\e(B)
  92  ("x" ?\e,0O\e(B)
  93  ("/R" ?\e,0P\e(B)
  94  ("h" ?\e,0Q\e(B)
  95  ("m" ?\e,0R\e(B)
  96  ("n" ?\e,0S\e(B)
  97  ("gn" ?\e,0T\e(B)
  98  ("ng" ?\e,0U\e(B)
  99  ("r" ?\e,0V\e(B)
 100  ("R" ?\e,0W\e(B)
 101  ("/r" ?\e,0X\e(B)
 102  ("j" ?\e,0Y\e(B)
 103  ("l" ?\e,0Z\e(B)
 104  ("/y" ?\e,0[\e(B)
 105  ("L" ?\e,0\\e(B)
 106  ("/h" ?\e,0]\e(B)
 107  ("w" ?\e,0^\e(B)
 108  ("M" ?\e,0_\e(B)
 109  ("'" ?\e,0p\e(B)
 110  ("`" ?\e,0q\e(B)
 111  (":" ?\e,0r\e(B))
 112
 113 ;;; arch-tag: cf2614cc-ecce-4ef5-ba51-37faeed41691
 114 ;;; ipa.el ends here