leim/quail/ipa.el

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