(current_column_1, Fmove_to_column): Separate the code
[bpt/emacs.git] / leim / quail / greek.el
index 9e6e119..526e611 100644 (file)
@@ -1,6 +1,6 @@
-;;; quail/greek.el -- Quail package for inputting Greek
+;;; greek.el --- Quail package for inputting Greek -*-coding: iso-2022-7bit-*-
 
-;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
+;; Copyright (C) 1997, 2001 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
 
 ;; Keywords: multilingual, input method, Greek
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'quail)
@@ -133,6 +135,902 @@ Sorry, accents and terminal sigma are not supported in JIS."
 
 ;;
 
+(quail-define-package "greek-mizuochi" "Greek" "CG" t "
+The Mizuochi input method for Classical Greek using mule-unicode-0100-24ff.
+
+-------------------------------------
+character     capital        small
+-------------------------------------
+alpha          A               a
+beta           B               b
+gamma          G               g
+delta          D               d
+epsilon                E               e
+zeta           Z               z
+eta            H               h
+theta          Q               q
+iota           I               i
+kappa          K               k
+lamda          L               l
+mu             M               m
+nu             N               n
+xi             X               x
+omicron                O               o
+pi             P               p
+rho            R               r
+sigma          S               s
+final sigma                    j
+tau            T               t
+upsilon                U               u
+phi            F               f
+chi            C               c
+psi            Y               y
+omega          W               w
+-------------------------------------
+sampi                          !
+digamma                #
+stigma                         $
+koppa          &               %
+-------------------------------------
+
+------------------------
+mark           key
+------------------------
+ypogegrammeni  J
+psili          '  or  v
+dasia          `  or  V
+oxia           /
+varia          ?
+perispomeni    \\  or  ^
+dialytika      \"
+ano teleia     :
+erotimatiko    ;
+----------------------
+"
+nil t t nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+
+ ("!" ?\e$,1'a\e(B) ; sampi
+ ("#" ?\e$,1'\\e(B) ; DIGAMMA
+ ("$" ?\e$,1'[\e(B) ; stigma
+ ("%" ?\e$,1'_\e(B) ; koppa
+ ("&" ?\e$,1'^\e(B) ; KOPPA
+ ("'" ?\e$,1q\7f\e(B) ("v" ?\e$,1q\7f\e(B) ; psili
+ ("/" ?\e$,1r]\e(B) ; oxia
+ (":" ?\e$,1&g\e(B) ; ano teleia
+ (";" ?\e$,1&^\e(B) ; erotimatiko
+ ("\"" ?\e,A(\e(B) ; dialytika
+
+ ("A" ?\e$,1&q\e(B)
+ ("B" ?\e$,1&r\e(B)
+ ("C" ?\e$,1''\e(B)
+ ("D" ?\e$,1&t\e(B)
+ ("E" ?\e$,1&u\e(B)
+ ("F" ?\e$,1'&\e(B)
+ ("G" ?\e$,1&s\e(B)
+ ("H" ?\e$,1&w\e(B)
+ ("I" ?\e$,1&y\e(B)
+ ("wJ" ?\e$,1rS\e(B)
+ ("K" ?\e$,1&z\e(B)
+ ("L" ?\e$,1&{\e(B)
+ ("M" ?\e$,1&|\e(B)
+ ("N" ?\e$,1&}\e(B)
+ ("O" ?\e$,1&\7f\e(B)
+
+ ("P" ?\e$,1' \e(B)
+ ("Q" ?\e$,1&x\e(B)
+ ("R" ?\e$,1'!\e(B)
+ ("S" ?\e$,1'#\e(B)
+ ("T" ?\e$,1'$\e(B)
+ ("U" ?\e$,1'%\e(B)
+ ("hJ" ?\e$,1r#\e(B)
+ ("W" ?\e$,1')\e(B)
+ ("X" ?\e$,1&~\e(B)
+ ("Y" ?\e$,1'(\e(B)
+ ("Z" ?\e$,1&v\e(B)
+ ("?" ?\e$,1rO\e(B) ; varia
+ ("\\" ?\e$,1r \e(B) ("^" ?\e$,1r \e(B) ; perispomeni
+
+ ("`" ?\e$,1r^\e(B) ("V" ?\e$,1r^\e(B) ; dasia
+ ("a" ?\e$,1'1\e(B)
+ ("b" ?\e$,1'2\e(B)
+ ("c" ?\e$,1'G\e(B)
+ ("d" ?\e$,1'4\e(B)
+ ("e" ?\e$,1'5\e(B)
+ ("f" ?\e$,1'F\e(B)
+ ("g" ?\e$,1'3\e(B)
+ ("h" ?\e$,1'7\e(B)
+ ("i" ?\e$,1'9\e(B)
+ ("j" ?\e$,1'B\e(B)
+ ("k" ?\e$,1':\e(B)
+ ("l" ?\e$,1';\e(B)
+ ("m" ?\e$,1'<\e(B)
+ ("n" ?\e$,1'=\e(B)
+ ("o" ?\e$,1'?\e(B)
+ ("p" ?\e$,1'@\e(B)
+ ("q" ?\e$,1'8\e(B)
+ ("r" ?\e$,1'A\e(B)
+ ("s" ?\e$,1'C\e(B)
+ ("t" ?\e$,1'D\e(B)
+ ("u" ?\e$,1'E\e(B)
+ ("aJ" ?\e$,1qs\e(B)
+ ("w" ?\e$,1'I\e(B)
+ ("x" ?\e$,1'>\e(B)
+ ("y" ?\e$,1'H\e(B)
+ ("z" ?\e$,1'6\e(B)
+
+ ("i`" ?\e$,1pQ\e(B) ("iV" ?\e$,1pQ\e(B)
+ ("i'" ?\e$,1pP\e(B) ("iv" ?\e$,1pP\e(B)
+ ("i/" ?\e$,1q7\e(B)
+ ("i`/" ?\e$,1pU\e(B) ("iV/" ?\e$,1pU\e(B) ("i/`" ?\e$,1pU\e(B) ("i/V" ?\e$,1pU\e(B)
+ ("i'/" ?\e$,1pT\e(B) ("iv/" ?\e$,1pT\e(B) ("i/'" ?\e$,1pT\e(B) ("i/v" ?\e$,1pT\e(B)
+ ("i?" ?\e$,1q6\e(B)
+ ("i`?" ?\e$,1pS\e(B) ("iV?" ?\e$,1pS\e(B) ("i?`" ?\e$,1pS\e(B) ("i?V" ?\e$,1pS\e(B)
+ ("i'?" ?\e$,1pR\e(B) ("iv?" ?\e$,1pR\e(B) ("i?'" ?\e$,1pR\e(B) ("i?v" ?\e$,1pR\e(B)
+ ("i^"  ?\e$,1r6\e(B) ("i\\" ?\e$,1r6\e(B)
+ ("i`^"  ?\e$,1pW\e(B) ("i`\\" ?\e$,1pW\e(B) ("iV^"  ?\e$,1pW\e(B) ("iV\\" ?\e$,1pW\e(B)
+ ("i^`"  ?\e$,1pW\e(B) ("i\\`" ?\e$,1pW\e(B) ("i^V"  ?\e$,1pW\e(B) ("i\\V" ?\e$,1pW\e(B)
+ ("i'^"  ?\e$,1pV\e(B) ("i'\\" ?\e$,1pV\e(B) ("iv^"  ?\e$,1pV\e(B) ("iv\\" ?\e$,1pV\e(B)
+ ("i^'"  ?\e$,1pV\e(B) ("i\\'" ?\e$,1pV\e(B) ("i^v"  ?\e$,1pV\e(B) ("i\\v" ?\e$,1pV\e(B)
+ ("i\"" ?\e$,1'J\e(B)
+ ("i/\"" ?\e$,1r3\e(B) ("i\"/" ?\e$,1r3\e(B)
+ ("i?\"" ?\e$,1r2\e(B) ("i\"?" ?\e$,1r2\e(B)
+
+ ("^`"  ?\e$,1r?\e(B) ("^V"  ?\e$,1r?\e(B) ("\\`" ?\e$,1r?\e(B) ("\\V" ?\e$,1r?\e(B)
+ ("`^"  ?\e$,1r?\e(B) ("V^"  ?\e$,1r?\e(B) ("`\\" ?\e$,1r?\e(B) ("V\\" ?\e$,1r?\e(B)
+ ("^'"  ?\e$,1r/\e(B) ("^v"  ?\e$,1r/\e(B) ("\\'" ?\e$,1r/\e(B) ("\\v" ?\e$,1r/\e(B)
+ ("'^"  ?\e$,1r/\e(B) ("v^"  ?\e$,1r/\e(B) ("'\\" ?\e$,1r/\e(B) ("v\\" ?\e$,1r/\e(B)
+ ("/`" ?\e$,1r>\e(B) ("/V" ?\e$,1r>\e(B) ("`/" ?\e$,1r>\e(B) ("V/" ?\e$,1r>\e(B)
+ ("/'" ?\e$,1r.\e(B) ("/v" ?\e$,1r.\e(B) ("'/" ?\e$,1r.\e(B) ("v/" ?\e$,1r.\e(B)
+ ("?`" ?\e$,1r=\e(B) ("?V" ?\e$,1r=\e(B) ("`?" ?\e$,1r=\e(B) ("V?" ?\e$,1r=\e(B)
+ ("?'" ?\e$,1r-\e(B) ("?v" ?\e$,1r-\e(B) ("'?" ?\e$,1r-\e(B) ("v?" ?\e$,1r-\e(B)
+ ("\"/" ?\e$,1rN\e(B) ("/\"" ?\e$,1rN\e(B)
+ ("\"?" ?\e$,1rM\e(B) ("?\"" ?\e$,1rM\e(B)
+
+ ("e`" ?\e$,1p1\e(B) ("eV" ?\e$,1p1\e(B)
+ ("e'" ?\e$,1p0\e(B) ("ev" ?\e$,1p0\e(B)
+ ("e/" ?\e$,1q3\e(B)
+ ("e/`" ?\e$,1p5\e(B) ("e/V" ?\e$,1p5\e(B) ("e`/" ?\e$,1p5\e(B) ("eV/" ?\e$,1p5\e(B)
+ ("e/'" ?\e$,1p4\e(B) ("e/v" ?\e$,1p4\e(B) ("e'/" ?\e$,1p4\e(B) ("ev/" ?\e$,1p4\e(B)
+ ("e?" ?\e$,1q2\e(B)
+ ("e?`" ?\e$,1p3\e(B) ("e?V" ?\e$,1p3\e(B) ("e`?" ?\e$,1p3\e(B) ("eV?" ?\e$,1p3\e(B)
+ ("e?'" ?\e$,1p2\e(B) ("e?v" ?\e$,1p2\e(B) ("e'?" ?\e$,1p2\e(B) ("ev?" ?\e$,1p2\e(B)
+
+ ("a`" ?\e$,1p!\e(B) ("aV" ?\e$,1p!\e(B)
+ ("a'" ?\e$,1p \e(B) ("av" ?\e$,1p \e(B)
+ ("a/" ?\e$,1q1\e(B)
+ ("a/`" ?\e$,1p%\e(B) ("a/V" ?\e$,1p%\e(B) ("a`/" ?\e$,1p%\e(B) ("aV/" ?\e$,1p%\e(B)
+ ("a/'" ?\e$,1p$\e(B) ("a/v" ?\e$,1p$\e(B) ("a'/" ?\e$,1p$\e(B) ("av/" ?\e$,1p$\e(B)
+ ("a?" ?\e$,1q0\e(B)
+ ("a?`" ?\e$,1p#\e(B) ("a?V" ?\e$,1p#\e(B) ("a`?" ?\e$,1p#\e(B) ("aV?" ?\e$,1p#\e(B)
+ ("a?'" ?\e$,1p"\e(B) ("a?v" ?\e$,1p"\e(B) ("a'?" ?\e$,1p"\e(B) ("av?" ?\e$,1p"\e(B)
+ ("a^"  ?\e$,1qv\e(B) ("a\\" ?\e$,1qv\e(B)
+ ("a^`"  ?\e$,1p'\e(B) ("a^V"  ?\e$,1p'\e(B) ("a\\`" ?\e$,1p'\e(B) ("a\\V" ?\e$,1p'\e(B)
+ ("a`^"  ?\e$,1p'\e(B) ("aV^"  ?\e$,1p'\e(B) ("a`\\" ?\e$,1p'\e(B) ("aV\\" ?\e$,1p'\e(B)
+ ("a^'"  ?\e$,1p&\e(B) ("a^v"  ?\e$,1p&\e(B) ("a\\'" ?\e$,1p&\e(B) ("a\\v" ?\e$,1p&\e(B)
+ ("a'^"  ?\e$,1p&\e(B) ("av^"  ?\e$,1p&\e(B) ("a'\\" ?\e$,1p&\e(B) ("av\\" ?\e$,1p&\e(B)
+
+ ("aJ`" ?\e$,1qA\e(B) ("aJV" ?\e$,1qA\e(B)
+ ("aJ'" ?\e$,1q@\e(B) ("aJv" ?\e$,1q@\e(B)
+ ("aJ/" ?\e$,1qt\e(B)
+ ("aJ/`" ?\e$,1qE\e(B) ("aJ/V" ?\e$,1qE\e(B) ("aJ`/" ?\e$,1qE\e(B) ("aJV/" ?\e$,1qE\e(B)
+ ("aJ/'" ?\e$,1qD\e(B) ("aJ/v" ?\e$,1qD\e(B) ("aJ'/" ?\e$,1qD\e(B) ("aJv/" ?\e$,1qD\e(B)
+ ("aJ?" ?\e$,1qr\e(B)
+ ("aJ?`" ?\e$,1qC\e(B) ("aJ?V" ?\e$,1qC\e(B) ("aJ`?" ?\e$,1qC\e(B) ("aJV?" ?\e$,1qC\e(B)
+ ("aJ?'" ?\e$,1qB\e(B) ("aJ?v" ?\e$,1qB\e(B) ("aJ'?" ?\e$,1qB\e(B) ("aJv?" ?\e$,1qB\e(B)
+ ("aJ^"  ?\e$,1qw\e(B) ("aJ\\" ?\e$,1qw\e(B)
+ ("aJ^`"  ?\e$,1qG\e(B) ("aJ^V"  ?\e$,1qG\e(B) ("aJ\\`" ?\e$,1qG\e(B) ("aJ\\V" ?\e$,1qG\e(B)
+ ("aJ`^"  ?\e$,1qG\e(B) ("aJV^"  ?\e$,1qG\e(B) ("aJ`\\" ?\e$,1qG\e(B) ("aJV\\" ?\e$,1qG\e(B)
+ ("aJ^'"  ?\e$,1qF\e(B) ("aJ^v"  ?\e$,1qF\e(B) ("aJ\\'" ?\e$,1qF\e(B) ("aJ\\v" ?\e$,1qF\e(B)
+ ("aJ'^"  ?\e$,1qF\e(B) ("aJv^"  ?\e$,1qF\e(B) ("aJ'\\" ?\e$,1qF\e(B) ("aJv\\" ?\e$,1qF\e(B)
+
+ ("r`" ?\e$,1rE\e(B) ("rV" ?\e$,1rE\e(B)
+ ("r'" ?\e$,1rD\e(B) ("rv" ?\e$,1rD\e(B)
+
+ ("h`" ?\e$,1pA\e(B) ("hV" ?\e$,1pA\e(B)
+ ("h'" ?\e$,1p@\e(B) ("hv" ?\e$,1p@\e(B)
+ ("h/" ?\e$,1q5\e(B)
+ ("h/`" ?\e$,1pE\e(B) ("h/V" ?\e$,1pE\e(B) ("h`/" ?\e$,1pE\e(B) ("hV/" ?\e$,1pE\e(B)
+ ("h/'" ?\e$,1pD\e(B) ("h/v" ?\e$,1pD\e(B) ("h'/" ?\e$,1pD\e(B) ("hv/" ?\e$,1pD\e(B)
+ ("h?" ?\e$,1q4\e(B)
+ ("h?`" ?\e$,1pC\e(B) ("h?V" ?\e$,1pC\e(B) ("h`?" ?\e$,1pC\e(B) ("hV?" ?\e$,1pC\e(B)
+ ("h?'" ?\e$,1pB\e(B) ("h?v" ?\e$,1pB\e(B) ("h'?" ?\e$,1pB\e(B) ("hv?" ?\e$,1pB\e(B)
+ ("h^"  ?\e$,1r&\e(B) ("h\\" ?\e$,1r&\e(B)
+ ("h^`"  ?\e$,1pG\e(B) ("h^V"  ?\e$,1pG\e(B) ("h\\`" ?\e$,1pG\e(B) ("h\\V" ?\e$,1pG\e(B)
+ ("h`^"  ?\e$,1pG\e(B) ("h`\\" ?\e$,1pG\e(B) ("hV^"  ?\e$,1pG\e(B) ("hV\\" ?\e$,1pG\e(B)
+ ("h^'"  ?\e$,1pF\e(B) ("h^v"  ?\e$,1pF\e(B) ("h\\'" ?\e$,1pF\e(B) ("h\\v" ?\e$,1pF\e(B)
+ ("h'^"  ?\e$,1pF\e(B) ("h'\\" ?\e$,1pF\e(B) ("hv^"  ?\e$,1pF\e(B) ("hv\\" ?\e$,1pF\e(B)
+
+ ("J" ?\e$,1&Z\e(B) ; ypogegrammeni
+
+ ("hJ`" ?\e$,1qQ\e(B) ("hJV" ?\e$,1qQ\e(B)
+ ("hJ'" ?\e$,1qP\e(B) ("hJv" ?\e$,1qP\e(B)
+ ("hJ/" ?\e$,1r$\e(B)
+ ("hJ`/" ?\e$,1qU\e(B) ("hJV/" ?\e$,1qU\e(B) ("hJ/`" ?\e$,1qU\e(B) ("hJ/V" ?\e$,1qU\e(B)
+ ("hJ'/" ?\e$,1qT\e(B) ("hJv/" ?\e$,1qT\e(B) ("hJ/'" ?\e$,1qT\e(B) ("hJ/v" ?\e$,1qT\e(B)
+ ("hJ?" ?\e$,1r"\e(B)
+ ("hJ`?" ?\e$,1qS\e(B) ("hJV?" ?\e$,1qS\e(B) ("hJ?`" ?\e$,1qS\e(B) ("hJ?V" ?\e$,1qS\e(B)
+ ("hJ'?" ?\e$,1qR\e(B) ("hJv?" ?\e$,1qR\e(B) ("hJ?'" ?\e$,1qR\e(B) ("hJ?v" ?\e$,1qR\e(B)
+ ("hJ^"  ?\e$,1r'\e(B) ("hJ\\" ?\e$,1r'\e(B)
+ ("hJ`^"  ?\e$,1qW\e(B) ("hJ`\\" ?\e$,1qW\e(B) ("hJV^"  ?\e$,1qW\e(B) ("hJV\\" ?\e$,1qW\e(B)
+ ("hJ^`"  ?\e$,1qW\e(B) ("hJ\\`" ?\e$,1qW\e(B) ("hJ^V"  ?\e$,1qW\e(B) ("hJ\\V" ?\e$,1qW\e(B)
+ ("hJ'^"  ?\e$,1qV\e(B) ("hJ'\\" ?\e$,1qV\e(B) ("hJv^"  ?\e$,1qV\e(B) ("hJv\\" ?\e$,1qV\e(B)
+ ("hJ^'"  ?\e$,1qV\e(B) ("hJ\\'" ?\e$,1qV\e(B) ("hJ^v"  ?\e$,1qV\e(B) ("hJ\\v" ?\e$,1qV\e(B)
+
+ ("o`" ?\e$,1pa\e(B) ("oV" ?\e$,1pa\e(B)
+ ("o'" ?\e$,1p`\e(B) ("ov" ?\e$,1p`\e(B)
+ ("o/" ?\e$,1q9\e(B)
+ ("o/`" ?\e$,1pe\e(B) ("o/V" ?\e$,1pe\e(B) ("o`/" ?\e$,1pe\e(B) ("oV/" ?\e$,1pe\e(B)
+ ("o/'" ?\e$,1pd\e(B) ("o/v" ?\e$,1pd\e(B) ("o'/" ?\e$,1pd\e(B) ("ov/" ?\e$,1pd\e(B)
+ ("o?" ?\e$,1q8\e(B)
+ ("o?`" ?\e$,1pc\e(B) ("o?V" ?\e$,1pc\e(B) ("o`?" ?\e$,1pc\e(B) ("oV?" ?\e$,1pc\e(B)
+ ("o?'" ?\e$,1pb\e(B) ("o?v" ?\e$,1pb\e(B) ("o'?" ?\e$,1pb\e(B) ("ov?" ?\e$,1pb\e(B)
+
+ ("u`" ?\e$,1pq\e(B) ("uV" ?\e$,1pq\e(B)
+ ("u'" ?\e$,1pp\e(B) ("uv" ?\e$,1pp\e(B)
+ ("u/" ?\e$,1q;\e(B)
+ ("u/`" ?\e$,1pu\e(B) ("u/V" ?\e$,1pu\e(B) ("u`/" ?\e$,1pu\e(B) ("uV/" ?\e$,1pu\e(B)
+ ("u/'" ?\e$,1pt\e(B) ("u/v" ?\e$,1pt\e(B) ("u'/" ?\e$,1pt\e(B) ("uv/" ?\e$,1pt\e(B)
+ ("u?" ?\e$,1q:\e(B)
+ ("u?`" ?\e$,1ps\e(B) ("u?V" ?\e$,1ps\e(B) ("u`?" ?\e$,1ps\e(B) ("uV?" ?\e$,1ps\e(B)
+ ("u?'" ?\e$,1pr\e(B) ("u?v" ?\e$,1pr\e(B) ("u'?" ?\e$,1pr\e(B) ("uv?" ?\e$,1pr\e(B)
+ ("u^"  ?\e$,1rF\e(B) ("u\\" ?\e$,1rF\e(B)
+ ("u^`"  ?\e$,1pw\e(B) ("u^V"  ?\e$,1pw\e(B) ("u\\`" ?\e$,1pw\e(B) ("u\\V" ?\e$,1pw\e(B)
+ ("u`^"  ?\e$,1pw\e(B) ("uV^"  ?\e$,1pw\e(B) ("u`\\" ?\e$,1pw\e(B) ("uV\\" ?\e$,1pw\e(B)
+ ("u^'"  ?\e$,1pv\e(B) ("u^v"  ?\e$,1pv\e(B) ("u\\'" ?\e$,1pv\e(B) ("u\\v" ?\e$,1pv\e(B)
+ ("u'^"  ?\e$,1pv\e(B) ("uv^"  ?\e$,1pv\e(B) ("u'\\" ?\e$,1pv\e(B) ("uv\\" ?\e$,1pv\e(B)
+ ("u\"" ?\e$,1'K\e(B)
+ ("u\"/" ?\e$,1rC\e(B) ("u/\"" ?\e$,1rC\e(B)
+ ("u\"?" ?\e$,1rB\e(B) ("u?\"" ?\e$,1rB\e(B)
+
+ ("w`" ?\e$,1q!\e(B) ("wV" ?\e$,1q!\e(B)
+ ("w'" ?\e$,1q \e(B) ("wv" ?\e$,1q \e(B)
+ ("w/" ?\e$,1q=\e(B)
+ ("w/`" ?\e$,1q%\e(B) ("w/V" ?\e$,1q%\e(B) ("w`/" ?\e$,1q%\e(B) ("wV/" ?\e$,1q%\e(B)
+ ("w/'" ?\e$,1q$\e(B) ("w/v" ?\e$,1q$\e(B) ("w'/" ?\e$,1q$\e(B) ("wv/" ?\e$,1q$\e(B)
+ ("w?" ?\e$,1q<\e(B)
+ ("w?`" ?\e$,1q#\e(B) ("w?V" ?\e$,1q#\e(B) ("w`?" ?\e$,1q#\e(B) ("wV?" ?\e$,1q#\e(B)
+ ("w?'" ?\e$,1q"\e(B) ("w?v" ?\e$,1q"\e(B) ("w'?" ?\e$,1q"\e(B) ("wv?" ?\e$,1q"\e(B)
+ ("w^"  ?\e$,1rV\e(B) ("w\\" ?\e$,1rV\e(B)
+ ("w^`"  ?\e$,1q'\e(B) ("w^V"  ?\e$,1q'\e(B) ("w\\`" ?\e$,1q'\e(B) ("w\\V" ?\e$,1q'\e(B)
+ ("w`^"  ?\e$,1q'\e(B) ("wV^"  ?\e$,1q'\e(B) ("w`\\" ?\e$,1q'\e(B) ("wV\\" ?\e$,1q'\e(B)
+ ("w^'"  ?\e$,1q&\e(B) ("w^v"  ?\e$,1q&\e(B) ("w\\'" ?\e$,1q&\e(B) ("w\\v" ?\e$,1q&\e(B)
+ ("w'^"  ?\e$,1q&\e(B) ("wv^"  ?\e$,1q&\e(B) ("w'\\" ?\e$,1q&\e(B) ("wv\\" ?\e$,1q&\e(B)
+
+ ("wJ`" ?\e$,1qa\e(B) ("wJV" ?\e$,1qa\e(B)
+ ("wJ'" ?\e$,1q`\e(B) ("wJv" ?\e$,1q`\e(B)
+ ("wJ/" ?\e$,1rT\e(B)
+ ("wJ/`" ?\e$,1qe\e(B) ("wJ/V" ?\e$,1qe\e(B) ("wJ`/" ?\e$,1qe\e(B) ("wJV/" ?\e$,1qe\e(B)
+ ("wJ/'" ?\e$,1qd\e(B) ("wJ/v" ?\e$,1qd\e(B) ("wJ'/" ?\e$,1qd\e(B) ("wJv/" ?\e$,1qd\e(B)
+ ("wJ?" ?\e$,1rR\e(B)
+ ("wJ?`" ?\e$,1qc\e(B) ("wJ?V" ?\e$,1qc\e(B) ("wJ`?" ?\e$,1qc\e(B) ("wJV?" ?\e$,1qc\e(B)
+ ("wJ?'" ?\e$,1qb\e(B) ("wJ?v" ?\e$,1qb\e(B) ("wJ'?" ?\e$,1qb\e(B) ("wJv?" ?\e$,1qb\e(B)
+ ("wJ^"  ?\e$,1rW\e(B) ("wJ\\" ?\e$,1rW\e(B)
+ ("wJ^`"  ?\e$,1qg\e(B) ("wJ^V"  ?\e$,1qg\e(B) ("wJ\\`" ?\e$,1qg\e(B) ("wJ\\V" ?\e$,1qg\e(B)
+ ("wJ`^"  ?\e$,1qg\e(B) ("wJV^"  ?\e$,1qg\e(B) ("wJ`\\" ?\e$,1qg\e(B) ("wJV\\" ?\e$,1qg\e(B)
+ ("wJ^'"  ?\e$,1qf\e(B) ("wJ^v"  ?\e$,1qf\e(B) ("wJ\\'" ?\e$,1qf\e(B) ("wJ\\v" ?\e$,1qf\e(B)
+ ("wJ'^"  ?\e$,1qf\e(B) ("wJv^"  ?\e$,1qf\e(B) ("wJ'\\" ?\e$,1qf\e(B) ("wJv\\" ?\e$,1qf\e(B)
+ )
+
+;;
+
+(quail-define-package "greek-babel" "Greek" "BG" t
+"The TeX Babel input method for Classical Greek using mule-unicode-0100-24ff.
+
+-------------------------------------
+character     capital        small
+-------------------------------------
+alpha          A               a
+beta           B               b
+gamma          G               g
+delta          D               d
+epsilon                E               e
+zeta           Z               z
+eta            H               h
+theta          J               j
+iota           I               i
+kappa          K               k
+lamda          L               l
+mu             M               m
+nu             N               n
+xi             X               x
+omicron                O               o
+pi             P               p
+rho            R               r
+sigma          S               s
+final sigma                    c
+tau            T               t
+upsilon                U               u
+phi            F               f
+chi            Q               q
+psi            Y               y
+omega          W               w
+-------------------------------------
+sampi                          !
+digamma                #
+stigma                         $
+koppa          &               %
+-------------------------------------
+
+------------------------
+mark           key
+------------------------
+ypogegrammeni  |
+psili          >
+dasia          <
+oxia           '
+varia          `
+perispomeni    ~
+dialytika      \"
+ano teleia     ;
+erotimatiko    ?
+----------------------
+"
+nil t t nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+
+ ("!" ?\e$,1'a\e(B) ; sampi
+ ("#" ?\e$,1'\\e(B) ; DIGAMMA
+ ("$" ?\e$,1'[\e(B) ; stigma
+ ("%" ?\e$,1'_\e(B) ; koppa
+ ("&" ?\e$,1'^\e(B) ; KOPPA
+ (">" ?\e$,1q\7f\e(B) ; psili
+ ("'" ?\e$,1r]\e(B) ; oxia
+ (";" ?\e$,1&g\e(B) ; ano teleia
+ ("?" ?\e$,1&^\e(B) ; erotimatiko
+ ("\"" ?\e,A(\e(B) ; dialytika
+ ("|" ?\e$,1&Z\e(B) ; ypogegrammeni
+
+ ("A" ?\e$,1&q\e(B)
+ ("B" ?\e$,1&r\e(B)
+ ("D" ?\e$,1&t\e(B)
+ ("E" ?\e$,1&u\e(B)
+ ("F" ?\e$,1'&\e(B)
+ ("G" ?\e$,1&s\e(B)
+ ("H" ?\e$,1&w\e(B)
+ ("I" ?\e$,1&y\e(B)
+ ("J" ?\e$,1&x\e(B)
+ ("K" ?\e$,1&z\e(B)
+ ("L" ?\e$,1&{\e(B)
+ ("M" ?\e$,1&|\e(B)
+ ("N" ?\e$,1&}\e(B)
+ ("O" ?\e$,1&\7f\e(B)
+ ("P" ?\e$,1' \e(B)
+ ("Q" ?\e$,1''\e(B)
+ ("R" ?\e$,1'!\e(B)
+ ("S" ?\e$,1'#\e(B)
+ ("T" ?\e$,1'$\e(B)
+ ("U" ?\e$,1'%\e(B)
+ ("W" ?\e$,1')\e(B)
+ ("X" ?\e$,1&~\e(B)
+ ("Y" ?\e$,1'(\e(B)
+ ("Z" ?\e$,1&v\e(B)
+ ("`" ?\e$,1rO\e(B) ; varia
+ ("~" ?\e$,1r \e(B) ; perispomeni
+
+ ("<" ?\e$,1r^\e(B) ; dasia
+ ("a" ?\e$,1'1\e(B)
+ ("a|" ?\e$,1qs\e(B)
+ ("b" ?\e$,1'2\e(B)
+ ("c" ?\e$,1'B\e(B)
+ ("d" ?\e$,1'4\e(B)
+ ("e" ?\e$,1'5\e(B)
+ ("f" ?\e$,1'F\e(B)
+ ("g" ?\e$,1'3\e(B)
+ ("h" ?\e$,1'7\e(B)
+ ("h|" ?\e$,1r#\e(B)
+ ("i" ?\e$,1'9\e(B)
+ ("j" ?\e$,1'8\e(B)
+ ("k" ?\e$,1':\e(B)
+ ("l" ?\e$,1';\e(B)
+ ("m" ?\e$,1'<\e(B)
+ ("n" ?\e$,1'=\e(B)
+ ("o" ?\e$,1'?\e(B)
+ ("p" ?\e$,1'@\e(B)
+ ("q" ?\e$,1'G\e(B)
+ ("r" ?\e$,1'A\e(B)
+ ("s" ?\e$,1'C\e(B)
+ ("t" ?\e$,1'D\e(B)
+ ("u" ?\e$,1'E\e(B)
+ ("w" ?\e$,1'I\e(B)
+ ("w|" ?\e$,1rS\e(B)
+ ("x" ?\e$,1'>\e(B)
+ ("y" ?\e$,1'H\e(B)
+ ("z" ?\e$,1'6\e(B)
+
+ ("<i" ?\e$,1pQ\e(B)
+ (">i" ?\e$,1pP\e(B)
+ ("'i" ?\e$,1q7\e(B)
+ ("<`i" ?\e$,1pU\e(B)
+ (">'i" ?\e$,1pT\e(B)
+ ("`i" ?\e$,1q6\e(B)
+ ("<`i" ?\e$,1pS\e(B)
+ (">'i" ?\e$,1pR\e(B)
+ ("~i"  ?\e$,1r6\e(B)
+ ("<~i"  ?\e$,1pW\e(B)
+ (">'i"  ?\e$,1pV\e(B)
+ ("\"i" ?\e$,1'J\e(B)
+ ("\"'i" ?\e$,1r3\e(B)
+ ("\"`i" ?\e$,1r2\e(B)
+
+ ("<~"  ?\e$,1r?\e(B)
+ (">~"  ?\e$,1r/\e(B)
+ ("<`" ?\e$,1r>\e(B)
+ (">'" ?\e$,1r.\e(B)
+ ("<`" ?\e$,1r=\e(B)
+ (">`" ?\e$,1r-\e(B)
+ ("\"'" ?\e$,1rN\e(B)
+ ("\"`" ?\e$,1rM\e(B)
+
+ ("<e" ?\e$,1p1\e(B)
+ (">e" ?\e$,1p0\e(B)
+ ("'e" ?\e$,1q3\e(B)
+ ("<'e" ?\e$,1p5\e(B)
+ (">'e" ?\e$,1p4\e(B)
+ ("`e" ?\e$,1q2\e(B)
+ ("<`e" ?\e$,1p3\e(B)
+ (">`e" ?\e$,1p2\e(B)
+
+ ("<a" ?\e$,1p!\e(B)
+ (">a" ?\e$,1p \e(B)
+ ("'a" ?\e$,1q1\e(B)
+ ("<'a" ?\e$,1p%\e(B)
+ (">'a" ?\e$,1p$\e(B)
+ ("`a" ?\e$,1q0\e(B)
+ ("<`a" ?\e$,1p#\e(B)
+ (">`a" ?\e$,1p"\e(B)
+ ("~a"  ?\e$,1qv\e(B)
+ ("<~a"  ?\e$,1p'\e(B)
+ (">~a"  ?\e$,1p&\e(B)
+
+ ("<a|" ?\e$,1qA\e(B)
+ (">a|" ?\e$,1q@\e(B)
+ ("'a|" ?\e$,1qt\e(B)
+ ("<'a|" ?\e$,1qE\e(B)
+ (">'a|" ?\e$,1qD\e(B)
+ ("`a|" ?\e$,1qr\e(B)
+ ("<`a|" ?\e$,1qC\e(B)
+ (">`a|" ?\e$,1qB\e(B)
+ ("~a|"  ?\e$,1qw\e(B)
+ ("<~a|"  ?\e$,1qG\e(B)
+ (">~a|"  ?\e$,1qF\e(B)
+
+ ("<r" ?\e$,1rE\e(B)
+ (">r" ?\e$,1rD\e(B)
+
+ ("<h" ?\e$,1pA\e(B)
+ (">h" ?\e$,1p@\e(B)
+ ("'h" ?\e$,1q5\e(B)
+ ("<'h" ?\e$,1pE\e(B)
+ (">'h" ?\e$,1pD\e(B)
+ ("`h" ?\e$,1q4\e(B)
+ ("<`h" ?\e$,1pC\e(B)
+ (">`h" ?\e$,1pB\e(B)
+ ("~h"  ?\e$,1r&\e(B)
+ ("<~h"  ?\e$,1pG\e(B)
+ (">~h"  ?\e$,1pF\e(B)
+
+ ("|" ?\e$,1&Z\e(B) ; ypogegrammeni
+
+ ("<h|" ?\e$,1qQ\e(B)
+ (">h|" ?\e$,1qP\e(B)
+ ("'h|" ?\e$,1r$\e(B)
+ ("<'h|" ?\e$,1qU\e(B)
+ (">'h|" ?\e$,1qT\e(B)
+ ("`h|" ?\e$,1r"\e(B)
+ ("<`h|" ?\e$,1qS\e(B)
+ (">`h|" ?\e$,1qR\e(B)
+ ("~h|"  ?\e$,1r'\e(B)
+ ("<~h|"  ?\e$,1qW\e(B)
+ (">~h|"  ?\e$,1qV\e(B)
+
+ ("<o" ?\e$,1pa\e(B)
+ (">o" ?\e$,1p`\e(B)
+ ("'o" ?\e$,1q9\e(B)
+ ("<'o" ?\e$,1pe\e(B)
+ (">'o" ?\e$,1pd\e(B)
+ ("`o" ?\e$,1q8\e(B)
+ ("<`o" ?\e$,1pc\e(B)
+ (">`o" ?\e$,1pb\e(B)
+
+ ("<u"   ?\e$,1pq\e(B)
+ (">u"   ?\e$,1pp\e(B)
+ ("'u"   ?\e$,1q;\e(B)
+ ("<'u"  ?\e$,1pu\e(B)
+ (">'u"  ?\e$,1pt\e(B)
+ ("`u"   ?\e$,1q:\e(B)
+ ("<`u"  ?\e$,1ps\e(B)
+ (">`u"  ?\e$,1pr\e(B)
+ ("~u"   ?\e$,1rF\e(B)
+ ("<~u"  ?\e$,1pw\e(B)
+ (">~u"  ?\e$,1pv\e(B)
+ ("\"u"  ?\e$,1'K\e(B)
+ ("\"'u" ?\e$,1rC\e(B)
+ ("`\"u" ?\e$,1rB\e(B)
+
+ ("<w"  ?\e$,1q!\e(B)
+ (">w"  ?\e$,1q \e(B)
+ ("'w"  ?\e$,1q=\e(B)
+ ("<'w" ?\e$,1q%\e(B)
+ (">'w" ?\e$,1q$\e(B)
+ ("`w"  ?\e$,1q<\e(B)
+ ("<`w" ?\e$,1q#\e(B)
+ (">`w" ?\e$,1q"\e(B)
+ ("~w"  ?\e$,1rV\e(B)
+ ("<~w" ?\e$,1q'\e(B)
+ (">~w" ?\e$,1q&\e(B)
+
+ ("<w|"         ?\e$,1qa\e(B)
+ (">w|"         ?\e$,1q`\e(B)
+ ("'w|"         ?\e$,1rT\e(B)
+ ("<'w|" ?\e$,1qe\e(B)
+ (">'w|" ?\e$,1qd\e(B)
+ ("`w|"  ?\e$,1rR\e(B)
+ ("<`w|" ?\e$,1qc\e(B)
+ (">`w|" ?\e$,1qb\e(B)
+ ("~w|"         ?\e$,1rW\e(B)
+ ("<~w|" ?\e$,1qg\e(B)
+ (">~w|" ?\e$,1qf\e(B)
+ )
+
+;;
+
+(quail-define-package "greek-ibycus4" "Greek" "IB" t
+"The Ibycus4 input method for Classical Greek using mule-unicode-0100-24ff."
+nil t t nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+
+ ("{((}" ?\() ("((" ?\() ; #x0028
+ ("{))}" ?\)) ("))" ?\)) ; #x0029
+ ("<<" ?\e,A+\e(B) ; #x00ab
+ (">>" ?\e,A;\e(B) ; #x00bb
+
+ ("-" ?\e$,1rp\e(B) ; #x2010
+ ("---" ?\e$,1rt\e(B) ; #x2014
+ ("||" ?\e$,1rv\e(B) ; #x2016
+ ("{`}" ?\e$,1rx\e(B) ("`" ?\e$,1rx\e(B) ; #x2018
+ ("{'}" ?\e$,1ry\e(B) ("'" ?\e$,1ry\e(B) ; #x2019
+ ("{``}" ?\e$,1r|\e(B) ("``" ?\e$,1r|\e(B) ; #x201c
+ ("{''}" ?\e$,1r}\e(B) ("''" ?\e$,1r}\e(B) ; #x201d
+ ("{\\dag}" ?\e$,1s \e(B) ("\\dag" ?\e$,1s \e(B) ; #x2020
+ ("{\\ddag}" ?\e$,1s!\e(B) ("\\ddag" ?\e$,1s!\e(B) ; #x2021
+ ("<" ?\e$,1s9\e(B) ; #x2039
+ (">" ?\e$,1s:\e(B) ; #x203a
+ ("$\\leftarrow$" ?\e$,1vp\e(B) ; #x2190
+ ("$\\rightarrow$" ?\e$,1vr\e(B) ; #x2192
+
+ ("?" ?\e$,1&^\e(B) ; #x037e ; erotimatiko
+ (";" ?\e$,1&g\e(B) ; #x0387 ; ano teleia
+ ("|" ?\e$,1&Z\e(B) ; #x037a ; ypogegrammeni
+
+ ("A" ?\e$,1&q\e(B)
+ ("B" ?\e$,1&r\e(B)
+ ("G" ?\e$,1&s\e(B)
+ ("D" ?\e$,1&t\e(B)
+ ("E" ?\e$,1&u\e(B)
+ ("Z" ?\e$,1&v\e(B)
+ ("H" ?\e$,1&w\e(B)
+ ("Q" ?\e$,1&x\e(B)
+ ("I" ?\e$,1&y\e(B)
+ ("K" ?\e$,1&z\e(B)
+ ("L" ?\e$,1&{\e(B)
+ ("M" ?\e$,1&|\e(B)
+ ("N" ?\e$,1&}\e(B)
+ ("C" ?\e$,1&~\e(B)
+ ("O" ?\e$,1&\7f\e(B)
+ ("P" ?\e$,1' \e(B)
+ ("R" ?\e$,1'!\e(B)
+ ("S" ?\e$,1'#\e(B)
+ ("T" ?\e$,1'$\e(B)
+ ("U" ?\e$,1'%\e(B)
+ ("F" ?\e$,1'&\e(B)
+ ("X" ?\e$,1''\e(B)
+ ("Y" ?\e$,1'(\e(B)
+ ("W" ?\e$,1')\e(B)
+
+ ("a" ?\e$,1'1\e(B)
+ ("b" ?\e$,1'2\e(B)
+ ("g" ?\e$,1'3\e(B)
+ ("d" ?\e$,1'4\e(B)
+ ("e" ?\e$,1'5\e(B)
+ ("z" ?\e$,1'6\e(B)
+ ("h" ?\e$,1'7\e(B)
+ ("q" ?\e$,1'8\e(B)
+ ("i" ?\e$,1'9\e(B)
+ ("k" ?\e$,1':\e(B)
+ ("l" ?\e$,1';\e(B)
+ ("m" ?\e$,1'<\e(B)
+ ("n" ?\e$,1'=\e(B)
+ ("c" ?\e$,1'>\e(B)
+ ("o" ?\e$,1'?\e(B)
+ ("p" ?\e$,1'@\e(B)
+ ("r" ?\e$,1'A\e(B)
+ ("j" ?\e$,1'B\e(B) ("s " ["\e$,1'B\e(B "]) ("s," ["\e$,1'B\e(B,"]) ("s." ["\e$,1'B\e(B."]) ("s?" ["\e$,1'B&^\e(B"]) ("s;" ["\e$,1'B&g\e(B"])
+ ("s|" ?\e$,1'C\e(B) ("s" ?\e$,1'C\e(B)
+ ("t" ?\e$,1'D\e(B)
+ ("u" ?\e$,1'E\e(B)
+ ("f" ?\e$,1'F\e(B)
+ ("x" ?\e$,1'G\e(B)
+ ("y" ?\e$,1'H\e(B)
+ ("w" ?\e$,1'I\e(B)
+
+ ("i+" ?\e$,1'J\e(B)
+ ("u+" ?\e$,1'K\e(B)
+ ("V" ?\e$,1'\\e(B) ; DIGAMMA
+ ("v" ?\e$,1']\e(B) ; digamma
+ ("K+" ?\e$,1'^\e(B) ; KOPPA
+ ("k+" ?\e$,1'_\e(B) ; koppa
+ ("S+" ?\e$,1'`\e(B) ; SAMPI
+ ("s+" ?\e$,1'a\e(B) ; sampi
+ ("c+" ?\e$,1'r\e(B) ; lunate sigma
+
+ ("a)" ?\e$,1p \e(B)
+ ("a(" ?\e$,1p!\e(B)
+ ("a)`" ?\e$,1p"\e(B)
+ ("a(`" ?\e$,1p#\e(B)
+ ("a)'" ?\e$,1p$\e(B)
+ ("a('" ?\e$,1p%\e(B)
+ ("a)=" ?\e$,1p&\e(B)
+ ("a(=" ?\e$,1p'\e(B)
+
+ (")A" ?\e$,1p(\e(B)
+ ("(A" ?\e$,1p)\e(B)
+ (")`A" ?\e$,1p*\e(B)
+ ("(`A" ?\e$,1p+\e(B)
+ (")'A" ?\e$,1p,\e(B)
+ ("('A" ?\e$,1p-\e(B)
+ (")=A" ?\e$,1p.\e(B)
+ ("(=A" ?\e$,1p/\e(B)
+
+ ("e)" ?\e$,1p0\e(B)
+ ("e(" ?\e$,1p1\e(B)
+ ("e)`" ?\e$,1p2\e(B)
+ ("e(`" ?\e$,1p3\e(B)
+ ("e)'" ?\e$,1p4\e(B)
+ ("e('" ?\e$,1p5\e(B)
+
+ (")E" ?\e$,1p8\e(B)
+ ("(E" ?\e$,1p9\e(B)
+ (")`E" ?\e$,1p:\e(B)
+ ("(`E" ?\e$,1p;\e(B)
+ (")'E" ?\e$,1p<\e(B)
+ ("('E" ?\e$,1p=\e(B)
+
+ ("h)" ?\e$,1p@\e(B)
+ ("h(" ?\e$,1pA\e(B)
+ ("h)`" ?\e$,1pB\e(B)
+ ("h(`" ?\e$,1pC\e(B)
+ ("h)'" ?\e$,1pD\e(B)
+ ("h('" ?\e$,1pE\e(B)
+ ("h)=" ?\e$,1pF\e(B)
+ ("h(=" ?\e$,1pG\e(B)
+
+ (")H" ?\e$,1pH\e(B)
+ ("(H" ?\e$,1pI\e(B)
+ (")`H" ?\e$,1pJ\e(B)
+ ("(`H" ?\e$,1pK\e(B)
+ (")'H" ?\e$,1pL\e(B)
+ ("('H" ?\e$,1pM\e(B)
+ (")=H" ?\e$,1pN\e(B)
+ ("(=H" ?\e$,1pO\e(B)
+
+ ("i)" ?\e$,1pP\e(B)
+ ("i(" ?\e$,1pQ\e(B)
+ ("i)`" ?\e$,1pR\e(B)
+ ("i(`" ?\e$,1pS\e(B)
+ ("i)'" ?\e$,1pT\e(B)
+ ("i('" ?\e$,1pU\e(B)
+ ("i)=" ?\e$,1pV\e(B)
+ ("i(=" ?\e$,1pW\e(B)
+
+ (")I" ?\e$,1pX\e(B)
+ ("(I" ?\e$,1pY\e(B)
+ (")`I" ?\e$,1pZ\e(B)
+ ("(`I" ?\e$,1p[\e(B)
+ (")'I" ?\e$,1p\\e(B)
+ ("('I" ?\e$,1p]\e(B)
+ (")=I" ?\e$,1p^\e(B)
+ ("(=I" ?\e$,1p_\e(B)
+
+ ("o)" ?\e$,1p`\e(B)
+ ("o(" ?\e$,1pa\e(B)
+ ("o)`" ?\e$,1pb\e(B)
+ ("o(`" ?\e$,1pc\e(B)
+ ("o)'" ?\e$,1pd\e(B)
+ ("o('" ?\e$,1pe\e(B)
+
+ (")O" ?\e$,1ph\e(B)
+ ("(O" ?\e$,1pi\e(B)
+ (")`O" ?\e$,1pj\e(B)
+ ("(`O" ?\e$,1pk\e(B)
+ (")'O" ?\e$,1pl\e(B)
+ ("('O" ?\e$,1pm\e(B)
+
+ ("u)" ?\e$,1pp\e(B)
+ ("u(" ?\e$,1pq\e(B)
+ ("u)`" ?\e$,1pr\e(B)
+ ("u(`" ?\e$,1ps\e(B)
+ ("u)'" ?\e$,1pt\e(B)
+ ("u('" ?\e$,1pu\e(B)
+ ("u)=" ?\e$,1pv\e(B)
+ ("u(=" ?\e$,1pw\e(B)
+
+ ("(U" ?\e$,1py\e(B)
+ ("(`U" ?\e$,1p{\e(B)
+ ("('U" ?\e$,1p}\e(B)
+ ("(=U" ?\e$,1p\7f\e(B)
+
+ ("w)" ?\e$,1q \e(B)
+ ("w(" ?\e$,1q!\e(B)
+ ("w)`" ?\e$,1q"\e(B)
+ ("w(`" ?\e$,1q#\e(B)
+ ("w)'" ?\e$,1q$\e(B)
+ ("w('" ?\e$,1q%\e(B)
+ ("w)=" ?\e$,1q&\e(B)
+ ("w(=" ?\e$,1q'\e(B)
+
+ (")W" ?\e$,1q(\e(B)
+ ("(W" ?\e$,1q)\e(B)
+ (")`W" ?\e$,1q*\e(B)
+ ("(`W" ?\e$,1q+\e(B)
+ (")'W" ?\e$,1q,\e(B)
+ ("('W" ?\e$,1q-\e(B)
+ (")=W" ?\e$,1q.\e(B)
+ ("(=W" ?\e$,1q/\e(B)
+
+ ("a`" ?\e$,1q0\e(B)
+ ("a'" ?\e$,1q1\e(B)
+ ("e`" ?\e$,1q2\e(B)
+ ("e'" ?\e$,1q3\e(B)
+ ("h`" ?\e$,1q4\e(B)
+ ("h'" ?\e$,1q5\e(B)
+ ("i`" ?\e$,1q6\e(B)
+ ("i'" ?\e$,1q7\e(B)
+ ("o`" ?\e$,1q8\e(B)
+ ("o'" ?\e$,1q9\e(B)
+ ("u`" ?\e$,1q:\e(B)
+ ("u'" ?\e$,1q;\e(B)
+ ("w`" ?\e$,1q<\e(B)
+ ("w'" ?\e$,1q=\e(B)
+
+ ("a)|" ?\e$,1q@\e(B)
+ ("a(|" ?\e$,1qA\e(B)
+ ("a)`|" ?\e$,1qB\e(B)
+ ("a(`|" ?\e$,1qC\e(B)
+ ("a)'|" ?\e$,1qD\e(B)
+ ("a('|" ?\e$,1qE\e(B)
+ ("a)=|" ?\e$,1qF\e(B)
+ ("a(=|" ?\e$,1qG\e(B)
+
+ (")Ai" ?\e$,1qH\e(B)
+ ("(Ai" ?\e$,1qI\e(B)
+ (")`Ai" ?\e$,1qJ\e(B)
+ ("(`Ai" ?\e$,1qK\e(B)
+ (")'Ai" ?\e$,1qL\e(B)
+ ("('Ai" ?\e$,1qM\e(B)
+ (")=Ai" ?\e$,1qN\e(B)
+ ("(=Ai" ?\e$,1qO\e(B)
+
+ ("h)|" ?\e$,1qP\e(B)
+ ("h(|" ?\e$,1qQ\e(B)
+ ("h)`|" ?\e$,1qR\e(B)
+ ("h(`|" ?\e$,1qS\e(B)
+ ("h)'|" ?\e$,1qT\e(B)
+ ("h('|" ?\e$,1qU\e(B)
+ ("h)=|" ?\e$,1qV\e(B)
+ ("h(=|" ?\e$,1qW\e(B)
+
+ (")Hi" ?\e$,1qX\e(B)
+ ("(Hi" ?\e$,1qY\e(B)
+ (")`Hi" ?\e$,1qZ\e(B)
+ ("(`Hi" ?\e$,1q[\e(B)
+ (")'Hi" ?\e$,1q\\e(B)
+ ("('Hi" ?\e$,1q]\e(B)
+ (")=Hi" ?\e$,1q^\e(B)
+ ("(=Hi" ?\e$,1q_\e(B)
+
+ ("w)|" ?\e$,1q`\e(B)
+ ("w(|" ?\e$,1qa\e(B)
+ ("w)`|" ?\e$,1qb\e(B)
+ ("w(`|" ?\e$,1qc\e(B)
+ ("w)'|" ?\e$,1qd\e(B)
+ ("w('|" ?\e$,1qe\e(B)
+ ("w)=|" ?\e$,1qf\e(B)
+ ("w(=|" ?\e$,1qg\e(B)
+
+ (")Wi" ?\e$,1qh\e(B)
+ ("(Wi" ?\e$,1qi\e(B)
+ (")`Wi" ?\e$,1qj\e(B)
+ ("(`Wi" ?\e$,1qk\e(B)
+ (")'Wi" ?\e$,1ql\e(B)
+ ("('Wi" ?\e$,1qm\e(B)
+ (")=Wi" ?\e$,1qn\e(B)
+ ("(=Wi" ?\e$,1qo\e(B)
+
+ ("a`|" ?\e$,1qr\e(B)
+ ("a|" ?\e$,1qs\e(B)
+ ("a'|" ?\e$,1qt\e(B)
+ ("a=" ?\e$,1qv\e(B)
+ ("a=|" ?\e$,1qw\e(B)
+
+ ("`A" ?\e$,1qz\e(B)
+ ("'A" ?\e$,1q{\e(B)
+ ("Ai" ?\e$,1q|\e(B)
+
+ (")" ?\e$,1q\7f\e(B) ; #x1fbf ; psili
+ ("=" ?\e$,1r \e(B) ; #x1fc0 ; perispomeni
+ ("+=" ?\e$,1r!\e(B) ; #x1fc1
+
+ ("h`|" ?\e$,1r"\e(B)
+ ("h|" ?\e$,1r#\e(B)
+ ("h'|" ?\e$,1r$\e(B)
+ ("h=" ?\e$,1r&\e(B)
+ ("h=|" ?\e$,1r'\e(B)
+
+ ("`E" ?\e$,1r(\e(B)
+ ("'E" ?\e$,1r)\e(B)
+
+ ("`H" ?\e$,1r*\e(B)
+ ("'H" ?\e$,1r+\e(B)
+ ("Hi" ?\e$,1r,\e(B)
+
+ (")`" ?\e$,1r-\e(B) ; #x1fcd
+ (")'" ?\e$,1r.\e(B) ; #x1fce
+ (")=" ?\e$,1r/\e(B) ; #x1fcf
+
+ ("i+`" ?\e$,1r2\e(B)
+ ("i+'" ?\e$,1r3\e(B)
+ ("i=" ?\e$,1r6\e(B)
+ ("i+=" ?\e$,1r7\e(B)
+
+ ("`I" ?\e$,1r:\e(B)
+ ("'I" ?\e$,1r;\e(B)
+
+ ("(`" ?\e$,1r=\e(B) ; #x1fdd
+ ("('" ?\e$,1r>\e(B) ; #x1fde
+ ("(=" ?\e$,1r?\e(B) ; #x1fdf
+
+ ("u+`" ?\e$,1rB\e(B)
+ ("u+'" ?\e$,1rC\e(B)
+
+ ("r)" ?\e$,1rD\e(B)
+ ("r(" ?\e$,1rE\e(B)
+
+ ("u=" ?\e$,1rF\e(B)
+ ("u+=" ?\e$,1rG\e(B)
+
+ ("`U" ?\e$,1rJ\e(B)
+ ("'U" ?\e$,1rK\e(B)
+
+ ("`R" ?\e$,1rL\e(B)
+
+ ("+`" ?\e$,1rM\e(B) ; #x1fed
+ ("+'" ?\e$,1rN\e(B) ; #x1fee
+ ("`" ?\e$,1rO\e(B) ; #x1fef ; varia
+
+ ("w`|" ?\e$,1rR\e(B)
+ ("w|" ?\e$,1rS\e(B)
+ ("w'|" ?\e$,1rT\e(B)
+ ("w=" ?\e$,1rV\e(B)
+ ("w=|" ?\e$,1rW\e(B)
+
+ ("`O" ?\e$,1rX\e(B)
+ ("'O" ?\e$,1rY\e(B)
+
+ ("`W" ?\e$,1rZ\e(B)
+ ("'W" ?\e$,1r[\e(B)
+ ("Wi" ?\e$,1r\\e(B)
+
+ ("'" ?\e$,1r]\e(B) ; #x1ffd ; oxia
+ ("(" ?\e$,1r^\e(B) ;  #x1ffe ; dasia
+)
+
+;;
+
 (quail-define-package
  "greek" "Greek" "\e,FY\e(B" nil
  "\e,FEkkgmij\\e(B: Greek keyboard layout (ISO 8859-7)
@@ -270,3 +1168,5 @@ e.g.
  ("Y:" ?\e,F[\e(B)
  ("i:;" ?\e,F@\e(B)
  ("y:;" ?\e,F`\e(B))
+
+;;; greek.el ends here