;; greek-polytonic.el --- Greek input method
;; $Id: greek-polytonic.el,v 1.4 2009/11/01 07:30:51 isao Exp $

;; Copyright (C) 2004 by Free Software Foundation, Inc.

;; Author: Isao YASUDA (Hitachi, Ltd.) <i-yasuda@ceres.dti.ne.jp>
;; Keywords: Greek Polytonic Classical Coptic UNICODE

;; This file 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.

;; This file 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., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Generic input method for Greek, Polytonic Greek
;;;  - Apr. 17 2004, initial.
;;;  - June 16 2006, help.

;;; Code:

(require 'quail)

(quail-define-package
 "greek-polytonic" "Greek-polytonic" "$,1' &s(B" t "
 Classical Polytonic Greek (UNICODE) 

- Keyboard Layout:
  $,1&^(B(Q) $,1&g(B(W) $,1&u(B(E) $,1'!(B(R) $,1'$(B(T) $,1'%(B(Y) $,1&x(B(U) $,1&y(B(I) $,1&(B(O) $,1' (B(P)
    $,1&q(B(A) $,1'#(B(S) $,1&t(B(D) $,1'&(B(F) $,1&s(B(G) $,1&w(B(H) $,1&~(B(J) $,1&z(B(K) $,1&{(B(L) 
       $,1&v(B(Z) $,1''(B(X) $,1'((B(C) $,1')(B(V) $,1&r(B(B) $,1&}(B(N) $,1&|(B(M)
  $,1'C(B -> s  $,1'B(B -> s.

- Combination keys which follow main characters:
  '   OXIA            $,1q1(B -> a + '
  `   VARIA           $,1q0(B -> a + `
  ~   PERISPOMENI     $,1qv(B -> a + ~    $,1r7(B -> i + \" + ~
  >   PSILI           $,1p (B -> a + >    $,1qF(B -> a + > + ~ + ,
  <   DASIA           $,1p!(B -> a + <    $,1qG(B -> a + < + ~ + ,
  \"   DIALYTIKA       $,1'J(B -> i + \"    $,1r3(B -> i + \" + '
  ^   VRACHY          $,1qp(B -> a + ^
  -   MACRON          $,1qq(B -> a + -
  ,   YROGEGRAMMENI   $,1qs(B -> a + ,

- Accents
  $,1q(B (PSILI U+1FBF) -> />        $,1q}(B (KORONIS U+1FBD) -> />/
  $,1r^(B (DASIA U+1FFE) -> /<        $,1r (B (PERISPOMENI) -> /~
  $,1&g(B (ANO TELEIA) -> /; or w     $,1&^(B (GREEK QUESTION MARK) -> /? or q
  $,1q~(B (PROSGEGRAMMENI) -> /,      
  $,1r](B (OXIA) -> /'                $,1rO(B (VARIA) -> /`
  $,1r.(B (PSILI AND OXIA) -> />'     $,1r-(B (PSILI AND VARIA) -> />`
  $,1r/(B (PSILI AND PERISPOMENI) -> />~
  $,1r>(B (DASIA AND OXIA) -> /<'     $,1r=(B (DASIA AND VARIA) -> /<`
  $,1r?(B (DASIA AND PERISPOMENI) -> /<~
  $,1rM(B (DIALYTIKA AND VARIA) -> /\"`
  $,1rN(B (DIALYTIKA AND OXIA) -> /\"' $,1r!(B (DIALYTIKA AND PERISPOMENI) -> /\"~

- Special characters
  $,1'a(B (SAMPI) -> s|       $,1'](B (DIGAMMA) -> d/
  $,1'U(B (PHI SYMBOL) -> f/  $,1'V(B (PI SYMBOL) -> p/    $,1'W(B (KAI SYMBOL) -> k/
  $,1'q(B (RHO SYMBOL)-> r/   $,1'Q(B (THETA SYMBOL)-> U/  $,1'[(B (STIGMA) -> s/
  $,1'_(B (KOPPA) -> k|       $,1'Y(B (ARCHAIC KOPPA) -> k\\
  ,A+(B (L-QUOTE) -> /<<    ,A;(B (R-QUOTE) -> />>

 "
nil t t nil nil nil nil nil nil nil t)

(quail-define-rules
 ("1" ?1)
 ("2" ?2)
 ("3" ?3)
 ("4" ?4)
 ("5" ?5)
 ("6" ?6)
 ("7" ?7)
 ("8" ?8)
 ("9" ?9)
 ("0" ?0)
 ("!" ?!)
 ("#" ?#)
 ("$" ?$)
 ("%" ?%)
 ("&" ?&)
 ("(" ?\()
 (")" ?\))
 ("*" ?*)
 ("+" ?+)
 ("," ?,)
 ("-" ?-)
 ("/-" ?$,1ru(B)    ;; 2015 HORIZONTAL BAR
 ("." ?.)
 ("=" ?=)
 ("?" ??)
 ("@" ?@)
 ("[" ?\[)
 ("'" ?\')     ;; 0027 APOSTROPHE
 ("\"" ?\")
 ("\\" ?\\)
 ("]" ?\])
 ("^" ?^)
 ("_" ?_)
 (":" ?:)
 ("//" ?/)
 (";" ?\;)    ;; 003B SEMICOLON
 ("`" ?`)     ;; 0060 GRAVE ACCENT
 ("/''/" ?$,1&T(B)  ;; 0374 GREEK NUMERAL SIGN
 ("/,/" ?$,1&U(B)   ;; 0375 GREEK LOWER NUMERAL SIGN
 ("/?" ?$,1&^(B)    ;; 037E QUESTION MARK
 ("q" ?\$,1&^(B)    ;; 037E QUESTION MARK
 ("Q" ?\$,1&^(B)    ;; 037E QUESTION MARK
 ("/'/" ?$,1&d(B)   ;; 0384 TONOS
 ("/\"'/" ?$,1&e(B) ;; 0385 DIALYTIKA TONOS
 (";\\" ?$,1&g(B)   ;; 0387 ANO TELEIA
 ("w" ?$,1&g(B)     ;; 0387 ANO TELEIA
 ("W" ?$,1&g(B)     ;; 0387 ANO TELEIA
 ("/,\\" ?$,1&Z(B)  ;; 037A YPOGEGRAMMENI
 ("/>/" ?$,1q}(B)   ;; 1FBD KORONIS
 ("/," ?$,1q~(B)    ;; 1FBE PROSGEGRAMMENI
 ("/>" ?$,1q(B)    ;; 1FBF PSILI
 ("/~" ?$,1r (B)    ;; 1FC0 PERISPOMENI
 ("/\"~" ?$,1r!(B)  ;; 1FC1 DIALYTIKA AND PERISPOMENI
 ("/>'" ?$,1r.(B)   ;; 1FCE PSILI AND OXIA
 ("/>`" ?$,1r-(B)   ;; 1FCD PSILI AND VARIA
 ("/>~" ?$,1r/(B)   ;; 1FCF PSILI AND PERISPOMENI
 ("/<`" ?$,1r=(B)   ;; 1FDD DASIA AND VARIA
 ("/<'" ?$,1r>(B)   ;; 1FDE DASIA AND OXIA
 ("/<~" ?$,1r?(B)   ;; 1FDF DASIA AND PERISPOMENI
 ("/\"`" ?$,1rM(B)  ;; 1FED DIALYTIKA AND VARIA
 ("/\"'" ?$,1rN(B)  ;; 1FEE DIALYTIKA AND OXIA
 ("/'" ?$,1r](B)    ;; 1FFD OXIA
 ("/<" ?$,1r^(B)    ;; 1FFE DASIA
 ("/`" ?$,1rO(B)    ;; 1FEF VARIA
 ("/<<" ?,A+(B)   ;; 00AB LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
 ("/>>" ?,A;(B)   ;; 00BB RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
 ("/\"" ?,A((B)   ;; 00A8 DIAERESIS
 ("A" ?$,1&q(B)     ;; 0391
 ("A'" ?$,1q{(B)    ;; 1FBB ALPHA WITH OXIA
 ("A'/" ?$,1&f(B)   ;; 0386 ALPHA WITH TONOS
 ("A," ?$,1q|(B)    ;; 1FBC
 ("A-" ?$,1qy(B)    ;; 1FB9
 ("A<" ?$,1p)(B)    ;; 1F09
 ("A<'" ?$,1p-(B)   ;; 1F0D
 ("A<'," ?$,1qM(B)  ;; 1F8D
 ("A<," ?$,1qI(B)   ;; 1F89
 ("A<`" ?$,1p+(B)   ;; 1F0B
 ("A<`," ?$,1qK(B)  ;; 1F8B
 ("A<~" ?$,1p/(B)   ;; 1F0F
 ("A<~," ?$,1qO(B)  ;; 1F8F
 ("A>" ?$,1p((B)    ;; 1F08
 ("A>'" ?$,1p,(B)   ;; 1F0C
 ("A>'," ?$,1qL(B)  ;; 1F8C
 ("A>," ?$,1qH(B)   ;; 1F88
 ("A>`" ?$,1p*(B)   ;; 1F0A
 ("A>`," ?$,1qJ(B)  ;; 1F8A
 ("A>~" ?$,1p.(B)   ;; 1F0E
 ("A>~," ?$,1qN(B)  ;; 1F8E
 ("A^" ?$,1qx(B)    ;; 1FB8
 ("A`" ?$,1qz(B)    ;; 1FBA
 ("B" ?$,1&r(B)     ;; 0392
 ("B/" ?$,1'P(B)    ;; 03D0 BETA SYMBOL
 ("C" ?$,1'((B)     ;; 03A8
 ("D" ?$,1&t(B)     ;; 0394
 ("D/" ?$,1'\(B)    ;; 03DC DIGAMMA
 ("D1" ?$,1'n(B)    ;; 03EE COPTIC DEI
 ("E" ?$,1&u(B)     ;; 0395
 ("E'" ?$,1r)(B)    ;; 1FC9 EPSILON WITH OXIA
 ("E'/" ?$,1&h(B)   ;; 0388 EPSILON WITH TONOS
 ("E<" ?$,1p9(B)    ;; 1F19
 ("E<'" ?$,1p=(B)   ;; 1F1D
 ("E<`" ?$,1p;(B)   ;; 1F1B
 ("E>" ?$,1p8(B)    ;; 1F18
 ("E>'" ?$,1p<(B)   ;; 1F1C
 ("E>`" ?$,1p:(B)   ;; 1F1A
 ("E`" ?$,1r((B)    ;; 1FC8
 ("F" ?$,1'&(B)     ;; 03A6 PHI
 ("f/" ?$,1'U(B)    ;; 03D5 PHI SYMBOL
 ("F1" ?$,1'd(B)    ;; 03E4 COPTIC FEI 
 ("G" ?$,1&s(B)     ;; 0393
 ("G1" ?$,1'j(B)    ;; 03EA COPTIC GANGIA
 ("H" ?$,1&w(B)     ;; 0397
 ("H'" ?$,1r+(B)    ;; 1FCB ETA WITH OXIA
 ("H'/" ?$,1&i(B)   ;; 0389 ETA WITH TONOS
 ("H," ?$,1r,(B)    ;; 1FCC
 ("H1" ?$,1'h(B)    ;; 03E8 COPTIC HORI
 ("H<" ?$,1pI(B)    ;; 1F29
 ("H<'" ?$,1pM(B)   ;; 1F2D
 ("H<'," ?$,1q](B)  ;; 1F9D
 ("H<," ?$,1qY(B)   ;; 1F99
 ("H<`" ?$,1pK(B)   ;; 1F2B
 ("H<`," ?$,1q[(B)  ;; 1F9B
 ("H<~" ?$,1pO(B)   ;; 1F2F
 ("H<~," ?$,1q_(B)  ;; 1F9F
 ("H>" ?$,1pH(B)    ;; 1F28
 ("H>'" ?$,1pL(B)   ;; 1F2C
 ("H>'," ?$,1q\(B)  ;; 1F9C
 ("H>," ?$,1qX(B)   ;; 1F98
 ("H>`" ?$,1pJ(B)   ;; 1F2A
 ("H>`," ?$,1qZ(B)  ;; 1F9A
 ("H>~" ?$,1pN(B)   ;; 1F2E
 ("H>~," ?$,1q^(B)  ;; 1F9E
 ("H`" ?$,1r*(B)    ;; 1FCA
 ("I" ?$,1&y(B)     ;; 0399
 ("I'" ?$,1r;(B)    ;; 1FDB IOTA WITH OXIA
 ("I'/" ?$,1&j(B)   ;; 038A IOTA WITH TONOS
 ("I-" ?$,1r9(B)    ;; 1FD9
 ("I<" ?$,1pY(B)    ;; 1F39
 ("I<'" ?$,1p](B)   ;; 1F3D
 ("I<`" ?$,1p[(B)   ;; 1F3B
 ("I<~" ?$,1p_(B)   ;; 1F3F
 ("I>" ?$,1pX(B)    ;; 1F38
 ("I>'" ?$,1p\(B)   ;; 1F3C
 ("I>`" ?$,1pZ(B)   ;; 1F3A
 ("I>~" ?$,1p^(B)   ;; 1F3E
 ("I\"" ?$,1'*(B)   ;; 03AA 
 ("I^" ?$,1r8(B)    ;; 1FD8
 ("I`" ?$,1r:(B)    ;; 1FDA
 ("J" ?$,1&~(B)     ;; 039E XI 
 ("K" ?$,1&z(B)     ;; 039A KAPPA
 ("K1" ?$,1'f(B)    ;; 03E6 COPTIC KHEI
 ("K\\" ?$,1'X(B)   ;; 03D8 ARCHAIC KOPPA
 ("K|" ?$,1'^(B)    ;; 03DE KOPPA
 ("L" ?$,1&{(B)     ;; 039B
 ("M" ?$,1&|(B)     ;; 039C
 ("N" ?$,1&}(B)     ;; 039D
 ("O" ?$,1&(B)     ;; 039F
 ("O'" ?$,1rY(B)    ;; 1FF9 OMICRON WITH OXIA
 ("O'/" ?$,1&l(B)   ;; 038C OMICRON WITH TONOS
 ("O<" ?$,1pi(B)    ;; 1F49
 ("O<'" ?$,1pm(B)   ;; 1F4D
 ("O<`" ?$,1pk(B)   ;; 1F4B
 ("O>" ?$,1ph(B)    ;; 1F48
 ("O>'" ?$,1pl(B)   ;; 1F4C
 ("O>`" ?$,1pj(B)   ;; 1F4A
 ("O`" ?$,1rX(B)    ;; 1FF8
 ("P" ?$,1' (B)     ;; 03A0
 ("R" ?$,1'!(B)     ;; 03A1
 ("R`" ?$,1rL(B)    ;; 1FEC
 ("S" ?$,1'#(B)     ;; 03A3
 ("S/" ?$,1'Z(B)    ;; 03DA STIGMA
 ("S1" ?$,1'b(B)    ;; 03E2 COPTIC SHEI
 ("S2" ?$,1'l(B)    ;; 03EC COPTIC SHIMA
 ("S|" ?$,1'`(B)    ;; 03E0 SAMPI
 ("T" ?$,1'$(B)     ;; 03A4
 ("U" ?$,1&x(B)     ;; 0398 
 ("U/" ?$,1'Q(B)    ;; 03D1 THETA
 ("U_" ?$,1't(B)    ;; 03F4 CAPITAL THETA
 ("V" ?$,1')(B)     ;; 03A9
 ("V'" ?$,1r[(B)    ;; 1FFB OMEGA WITH OXIA
 ("V'/" ?$,1&o(B)   ;; 038F OMEGA WITH TONOS
 ("V," ?$,1r\(B)    ;; 1FFC
 ("V<" ?$,1q)(B)    ;; 1F69
 ("V<'" ?$,1q-(B)   ;; 1F6D
 ("V<'," ?$,1qm(B)  ;; 1FAD
 ("V<," ?$,1qi(B)   ;; 1FA9
 ("V<`" ?$,1q+(B)   ;; 1F6B
 ("V<`," ?$,1qk(B)  ;; 1FAB
 ("V<~" ?$,1q/(B)   ;; 1F6F
 ("V<~," ?$,1qo(B)  ;; 1FAF
 ("V>" ?$,1q((B)    ;; 1F68
 ("V>'" ?$,1q,(B)   ;; 1F6C
 ("V>'," ?$,1ql(B)  ;; 1FAC
 ("V>," ?$,1qh(B)   ;; 1FA8
 ("V>`" ?$,1q*(B)   ;; 1F6A
 ("V>`," ?$,1qj(B)  ;; 1FAA
 ("V>~" ?$,1q.(B)   ;; 1F6E
 ("V>~," ?$,1qn(B)  ;; 1FAE
 ("V`" ?$,1rZ(B)    ;; 1FFA
 ("X" ?$,1''(B)     ;; 03A7
 ("Y" ?$,1'%(B)     ;; 03A5 UPSILON
 ("Y'" ?$,1rK(B)    ;; 1FEB UPSILON WITH OXIA
 ("Y'/" ?$,1&n(B)   ;; 038E UPSILON WITH TONOS
 ("Y'\\" ?$,1'S(B)  ;; 03D3 UPSILON WITH ACUTE AND HOOK
 ("Y-" ?$,1rI(B)    ;; 1FE9 UPSILON WITH MACRON
 ("Y/" ?$,1'R(B)    ;; 03D2 UPSILON WITH HOOK
 ("Y/\"" ?$,1'T(B)  ;; 03D4 UPSILON WITH DIARESIS AND HOOK
 ("Y<" ?$,1py(B)    ;; 1F59 UPSILON WITH DASIA
 ("Y<'" ?$,1p}(B)   ;; 1F5D
 ("Y<`" ?$,1p{(B)   ;; 1F5B
 ("Y<~" ?$,1p(B)   ;; 1F5F
 ("Y\"" ?$,1'+(B)   ;; 03AB
 ("Y^" ?$,1rH(B)    ;; 1FE8
 ("Y`" ?$,1rJ(B)    ;; 1FEA
 ("Z" ?$,1&v(B)     ;; 0396
 ("a" ?$,1'1(B)     ;; 03B1
 ("a'" ?$,1q1(B)    ;; 1F71 ALPHA WITH OXIA
 ("a'/" ?$,1',(B)   ;; 03AC ALPHA WITH TONOS
 ("a'," ?$,1qt(B)   ;; 1FB4
 ("a," ?$,1qs(B)    ;; 1FB3
 ("a-" ?$,1qq(B)    ;; 1FB1
 ("a<" ?$,1p!(B)    ;; 1F01
 ("a<'" ?$,1p%(B)   ;; 1F05
 ("a<'," ?$,1qE(B)  ;; 1F85
 ("a<," ?$,1qA(B)   ;; 1F81
 ("a<`" ?$,1p#(B)   ;; 1F03
 ("a<`," ?$,1qC(B)  ;; 1F83
 ("a<~" ?$,1p'(B)   ;; 1F07
 ("a<~," ?$,1qG(B)  ;; 1F87
 ("a>" ?$,1p (B)    ;; 1F00
 ("a>'" ?$,1p$(B)   ;; 1F04
 ("a>'," ?$,1qD(B)  ;; 1F84
 ("a>," ?$,1q@(B)   ;; 1F80
 ("a>`" ?$,1p"(B)   ;; 1F02
 ("a>`," ?$,1qB(B)  ;; 1F82
 ("a>~" ?$,1p&(B)   ;; 1F06
 ("a>~," ?$,1qF(B)  ;; 1F86
 ("a^" ?$,1qp(B)    ;; 1FB0
 ("a`" ?$,1q0(B)    ;; 1F70
 ("a`," ?$,1qr(B)   ;; 1FB2
 ("a~" ?$,1qv(B)    ;; 1FB6
 ("a~," ?$,1qw(B)   ;; 1FB7
 ("b" ?$,1'2(B)     ;; 03B2
 ("c" ?$,1'H(B)     ;; 03C8 PSI S
 ("d" ?$,1'4(B)     ;; 03B4
 ("d/" ?$,1'](B)    ;; 03DD DIGAMMA S
 ("d1" ?$,1'o(B)    ;; 03EF COPTIC DEI S
 ("e" ?$,1'5(B)     ;; 03B5
 ("e'" ?$,1q3(B)    ;; 1F73 EPSILON WITH OXIA
 ("e'/" ?$,1'-(B)   ;; 03AD EPSILON WITH TONOS
 ("e<" ?$,1p1(B)    ;; 1F11
 ("e<'" ?$,1p5(B)   ;; 1F15
 ("e<`" ?$,1p3(B)   ;; 1F13
 ("e>" ?$,1p0(B)    ;; 1F10
 ("e>'" ?$,1p4(B)   ;; 1F14
 ("e>`" ?$,1p2(B)   ;; 1F12
 ("e_" ?$,1'u(B)    ;; 03F5 LUNATE EPSILON
 ("e`" ?$,1q2(B)    ;; 1F72
 ("e|" ?$,1'v(B)    ;; 03F6 REVERSED LUNATE EPSILON
 ("f" ?$,1'F(B)     ;; 03C6
 ("p/" ?$,1'V(B)    ;; 03D6 PI S
 ("f1" ?$,1'e(B)    ;; 03E5 COPTIC FEI S
 ("g" ?$,1'3(B)     ;; 03B3
 ("g1" ?$,1'k(B)    ;; 03EB COPTIC GANGIA S
 ("h" ?$,1'7(B)     ;; 03B7
 ("h'" ?$,1q5(B)    ;; 1F75 ETA WITH OXIA
 ("h'/" ?$,1'.(B)   ;; 03AE ETA WITH TONOS
 ("h'," ?$,1r$(B)   ;; 1FC4
 ("h," ?$,1r#(B)    ;; 1FC3
 ("h1" ?$,1'i(B)    ;; 03E9 COPTIC HORI S
 ("h<" ?$,1pA(B)    ;; 1F21
 ("h<'" ?$,1pE(B)   ;; 1F25
 ("h<'," ?$,1qU(B)  ;; 1F95
 ("h<," ?$,1qQ(B)   ;; 1F91
 ("h<`" ?$,1pC(B)   ;; 1F23
 ("h<`," ?$,1qS(B)  ;; 1F93
 ("h<~" ?$,1pG(B)   ;; 1F27
 ("h<~," ?$,1qW(B)  ;; 1F97
 ("h>" ?$,1p@(B)    ;; 1F20
 ("h>'" ?$,1pD(B)   ;; 1F24
 ("h>'," ?$,1qT(B)  ;; 1F94
 ("h>," ?$,1qP(B)   ;; 1F90
 ("h>`" ?$,1pB(B)   ;; 1F22
 ("h>`," ?$,1qR(B)  ;; 1F92
 ("h>~" ?$,1pF(B)   ;; 1F26
 ("h>~," ?$,1qV(B)  ;; 1F96
 ("h`" ?$,1q4(B)    ;; 1F74
 ("h`," ?$,1r"(B)   ;; 1FC2
 ("h~" ?$,1r&(B)    ;; 1FC6
 ("h~," ?$,1r'(B)   ;; 1FC7
 ("i" ?$,1'9(B)     ;; 03B9
 ("i`" ?$,1q6(B)    ;; 1F76
 ("i'" ?$,1q7(B)    ;; 1F77 IOTA WITH OXIA
 ("i'/" ?$,1'/(B)   ;; 03AF IOTA WITH TONOS
 ("i-" ?$,1r1(B)    ;; 1FD1
 ("i<" ?$,1pQ(B)    ;; 1F31
 ("i<'" ?$,1pU(B)   ;; 1F35
 ("i<`" ?$,1pS(B)   ;; 1F33
 ("i<~" ?$,1pW(B)   ;; 1F37
 ("i>" ?$,1pP(B)    ;; 1F30
 ("i>'" ?$,1pT(B)   ;; 1F34
 ("i>`" ?$,1pR(B)   ;; 1F32
 ("i>~" ?$,1pV(B)   ;; 1F36
 ("i\"" ?$,1'J(B)   ;; 03CA
 ("i\"'" ?$,1r3(B)  ;; 1FD3 IOTA WITH DIALYTIKA AND OXIA
 ("i\"'/" ?$,1&p(B) ;; 0390 IOTA WITH DIALYTIKA AND TONOS
 ("i\"`" ?$,1r2(B)  ;; 1FD2
 ("i\"~" ?$,1r7(B)  ;; 1FD7
 ("i^" ?$,1r0(B)    ;; 1FD0
 ("i~" ?$,1r6(B)    ;; 1FD6
 ("j" ?$,1'>(B)     ;; 03BE
 ("j_" ?$,1's(B)    ;; 03F3 YOT
 ("k" ?$,1':(B)     ;; 03BA
 ("k1" ?$,1'g(B)    ;; 03E7 COPTIC HKEI S
 ("k/" ?$,1'W(B)    ;; 03D7 KAI SYMBOL
 ("k\\" ?$,1'Y(B)   ;; 03D9 ARCHAIC KOPPA S
 ("k_" ?$,1'p(B)    ;; 03F0 KAPPA
 ("k|" ?$,1'_(B)    ;; 03DF KOPPA S
 ("l" ?$,1';(B)     ;; 03BB
 ("m" ?$,1'<(B)     ;; 03BC
 ("n" ?$,1'=(B)     ;; 03BD
 ("o" ?$,1'?(B)     ;; 03BF
 ("o'" ?$,1q9(B)    ;; 1F79 OMICRON WITH OXIA
 ("o'/" ?$,1'L(B)   ;; 03CC OMICRON WITH TONOS
 ("o<" ?$,1pa(B)    ;; 1F41
 ("o<'" ?$,1pe(B)   ;; 1F45
 ("o<`" ?$,1pc(B)   ;; 1F43
 ("o>" ?$,1p`(B)    ;; 1F40
 ("o>'" ?$,1pd(B)   ;; 1F44
 ("o>`" ?$,1pb(B)   ;; 1F42
 ("o`" ?$,1q8(B)    ;; 1F78
 ("p" ?$,1'@(B)     ;; 03C0
 ("r" ?$,1'A(B)     ;; 03C1
 ("r<" ?$,1rE(B)    ;; 1FE5
 ("r>" ?$,1rD(B)    ;; 1FE4
 ("r/" ?$,1'q(B)    ;; 03F1 RHO
 ("s" ?$,1'C(B)     ;; 03C3
 ("s/" ?$,1'[(B)    ;; 03DB STIGMA S
 ("s1" ?$,1'c(B)    ;; 03E3 COPTIC SHEI S
 ("s2" ?$,1'm(B)    ;; 03ED COPTIC SHIMA S
 ("s." ?$,1'B(B)    ;; 03C2 FINAL SIGMA
 ("s_" ?$,1'r(B)    ;; 03F2 LUNATE SIGMA
 ("s|" ?$,1'a(B)    ;; 03E1 SAMPI S
 ("t" ?$,1'D(B)     ;; 03C4
 ("u" ?$,1'8(B)     ;; 03B8
 ("v" ?$,1'I(B)     ;; 03C9
 ("v'" ?$,1q=(B)    ;; 1F7D OMEGA WITH OXIA
 ("v'/" ?$,1'N(B)   ;; 03CE OMEGA WITH TONOS
 ("v'," ?$,1rT(B)   ;; 1FF4
 ("v," ?$,1rS(B)    ;; 1FF3
 ("v<" ?$,1q!(B)    ;; 1F61
 ("v<'" ?$,1q%(B)   ;; 1F65
 ("v<'," ?$,1qe(B)  ;; 1FA5
 ("v<," ?$,1qa(B)   ;; 1FA1
 ("v<`" ?$,1q#(B)   ;; 1F63
 ("v<`," ?$,1qc(B)  ;; 1FA3
 ("v<~" ?$,1q'(B)   ;; 1F67
 ("v<~," ?$,1qg(B)  ;; 1FA7
 ("v>" ?$,1q (B)    ;; 1F60
 ("v>'" ?$,1q$(B)   ;; 1F64
 ("v>'," ?$,1qd(B)  ;; 1FA4
 ("v>," ?$,1q`(B)   ;; 1FA0
 ("v>`" ?$,1q"(B)   ;; 1F62
 ("v>`," ?$,1qb(B)  ;; 1FA2
 ("v>~" ?$,1q&(B)   ;; 1F66
 ("v>~," ?$,1qf(B)  ;; 1FA6
 ("v`" ?$,1q<(B)    ;; 1F7C
 ("v`," ?$,1rR(B)   ;; 1FF2
 ("v~" ?$,1rV(B)    ;; 1FF6
 ("v~," ?$,1rW(B)   ;; 1FF7
 ("x" ?$,1'G(B)     ;; 03C7
 ("y" ?$,1'E(B)     ;; 03C5
 ("y'" ?$,1q;(B)    ;; 1F7B UPSILON WITH OXIA
 ("y'/" ?$,1'M(B)   ;; 03CD UPSILON WITH TONOS
 ("y-" ?$,1rA(B)    ;; 1FE1
 ("y<" ?$,1pq(B)    ;; 1F51
 ("y<'" ?$,1pu(B)   ;; 1F55
 ("y<`" ?$,1ps(B)   ;; 1F53
 ("y<~" ?$,1pw(B)   ;; 1F57
 ("y>" ?$,1pp(B)    ;; 1F50
 ("y>'" ?$,1pt(B)   ;; 1F54
 ("y>`" ?$,1pr(B)   ;; 1F52
 ("y>~" ?$,1pv(B)   ;; 1F56
 ("y\"" ?$,1'K(B)   ;; 03CB 
 ("y\"'" ?$,1rC(B)  ;; 1FE3 UPSILON WITH DIALYTIKA AND OXIA
 ("y\"'/" ?$,1'0(B) ;; 03B0 UPSILON WITH DIALYTIKA AND TONOS
 ("y\"`" ?$,1rB(B)  ;; 1FE2
 ("y\"~" ?$,1rG(B)  ;; 1FE7
 ("y^" ?$,1r@(B)    ;; 1FE0
 ("y`" ?$,1q:(B)    ;; 1F7A
 ("y~" ?$,1rF(B)    ;; 1FE6
 ("z" ?$,1'6(B)     ;; 03B6
 ("{" ?{)
 ("|" ?|)
 ("}" ?})
 ("~" ?~)
)

;; Local Variables:
;; buffer-file-coding-system: iso-2022-7bit
;; End:

;;; greek-polytonic.el ends here