# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1010654808 0
# Node ID 57bd6e9aaff5a7f2c51066c5b1c4bd72e0dcec1e
# Parent  bdf1f3b7fc54023af7deac4e668e850ac26c19e8
Changed the behavior of the "greek" input
method, to consider the "accent" and "diaeresis" as prefix
keys.  A new method (named "greek-postfix") was added which
implements the old behavior.  Also changed the mapping of the
"Q/q" key to produce the ":/;" characters, as is customary in
greek keyboards.

diff -r bdf1f3b7fc54 -r 57bd6e9aaff5 leim/quail/greek.el
--- a/leim/quail/greek.el	Thu Jan 10 01:57:38 2002 +0000
+++ b/leim/quail/greek.el	Thu Jan 10 09:26:48 2002 +0000
@@ -1041,15 +1041,15 @@
  ,F((B diaresis
 
 e.g.
- ,Fa(B + ,F4(B -> ,F\(B
- ,Fi(B + ,F((B -> ,Fz(B
- ,Fi(B + ,F((B + ,F4(B -> ,F@(B"
+ ,F4(B + ,Fa(B -> ,F\(B
+ ,F((B + ,Fi(B -> ,Fz(B
+ ,F((B + ,F4(B + ,Fi(B -> ,F@(B"
  nil t t t t nil nil nil nil nil t)
 
 ;; 1!  2@  3#  4$  5%  6^  7&  8*  9(  0)  -_  =+  `~
-;;  ,F7/(B  ,FrS(B  ,FeE(B  ,FqQ(B  ,FtT(B  ,FuU(B  ,FhH(B  ,FiI(B  ,FoO(B  ,FpP(B  [{  ]}
+;;  ;:  ,FrS(B  ,FeE(B  ,FqQ(B  ,FtT(B  ,FuU(B  ,FhH(B  ,FiI(B  ,FoO(B  ,FpP(B  [{  ]}
 ;;   ,FaA(B  ,FsS(B  ,FdD(B  ,FvV(B  ,FcC(B  ,FgG(B  ,FnN(B  ,FjJ(B  ,FkK(B  ,F4((B  '"  \|
-;;    ,FfF(B  ,FwW(B  ,FxX(B  ,FyY(B  ,FbB(B  ,FmM(B  ,FlL(B  ,;  .:  /?  
+;;    ,FfF(B  ,FwW(B  ,FxX(B  ,FyY(B  ,FbB(B  ,FmM(B  ,FlL(B  ,<  .>  /?  
 
 (quail-define-rules
  ("1" ?1)
@@ -1065,7 +1065,7 @@
  ("-" ?-)
  ("=" ?=)
  ("`" ?`)
- ("q" ?,F7(B)
+ ("q" ?\;)
  ("w" ?,Fr(B)
  ("e" ?,Fe(B)
  ("r" ?,Fq(B)
@@ -1113,7 +1113,7 @@
  ("_" ?_)
  ("+" ?+)
  ("~" ?~)
- ("Q" ?,F/(B)
+ ("Q" ?:)
  ("W" ?,FS(B)
  ("E" ?,FE(B)
  ("R" ?,FQ(B)
@@ -1144,8 +1144,148 @@
  ("B" ?,FB(B)
  ("N" ?,FM(B)
  ("M" ?,FL(B)
- ("<" ?\;)
- (">" ?:)
+ ("<" ?<)
+ (">" ?>)
+ ("?" ??)
+ 
+ (";a" ?,F\(B)
+ (";e" ?,F](B)
+ (";h" ?,F^(B)
+ (";i" ?,F_(B)
+ (";o" ?,F|(B)
+ (";y" ?,F}(B)
+ (";v" ?,F~(B)
+ (";A" ?,F6(B)
+ (";E" ?,F8(B)
+ (";H" ?,F9(B)
+ (";I" ?,F:(B)
+ (";O" ?,F<(B)
+ (";Y" ?,F>(B)
+ (";V" ?,F?(B)
+ (":i" ?,Fz(B)
+ (":y" ?,F{(B)
+ (":I" ?,FZ(B)
+ (":Y" ?,F[(B)
+ (";:i" ?,F@(B)
+ (":;i" ?,F@(B)
+ (";:y" ?,F`(B)
+ (":;y" ?,F`(B))
+
+(quail-define-package
+ "greek-postfix" "GreekPost" ",FX(B" nil
+ ",FEkkgmij\(B: Greek keyboard layout with postfix accents (ISO 8859-7)
+--------------
+
+In the right of ,Fk(B key is a combination key, where
+ ,F4(B acute
+ ,F((B diaresis
+
+e.g.
+ ,Fa(B + ,F4(B -> ,F\(B
+ ,Fi(B + ,F((B -> ,Fz(B
+ ,Fi(B + ,F((B + ,F4(B -> ,F@(B"
+ nil t t t t nil nil nil nil nil t)
+
+;; 1!  2@  3#  4$  5%  6^  7&  8*  9(  0)  -_  =+  `~
+;;  ,F7/(B  ,FrS(B  ,FeE(B  ,FqQ(B  ,FtT(B  ,FuU(B  ,FhH(B  ,FiI(B  ,FoO(B  ,FpP(B  [{  ]}
+;;   ,FaA(B  ,FsS(B  ,FdD(B  ,FvV(B  ,FcC(B  ,FgG(B  ,FnN(B  ,FjJ(B  ,FkK(B  ,F4((B  '"  \|
+;;    ,FfF(B  ,FwW(B  ,FxX(B  ,FyY(B  ,FbB(B  ,FmM(B  ,FlL(B  ,;  .:  /?  
+
+(quail-define-rules
+ ("1" ?1)
+ ("2" ?2)
+ ("3" ?3)
+ ("4" ?4)
+ ("5" ?5)
+ ("6" ?6)
+ ("7" ?7)
+ ("8" ?8)
+ ("9" ?9)
+ ("0" ?0)
+ ("-" ?-)
+ ("=" ?=)
+ ("`" ?`)
+ ("q" ?\;)
+ ("w" ?,Fr(B)
+ ("e" ?,Fe(B)
+ ("r" ?,Fq(B)
+ ("t" ?,Ft(B)
+ ("y" ?,Fu(B)
+ ("u" ?,Fh(B)
+ ("i" ?,Fi(B)
+ ("o" ?,Fo(B)
+ ("p" ?,Fp(B)
+ ("[" ?\[)
+ ("]" ?\])
+ ("a" ?,Fa(B)
+ ("s" ?,Fs(B)
+ ("d" ?,Fd(B)
+ ("f" ?,Fv(B)
+ ("g" ?,Fc(B)
+ ("h" ?,Fg(B)
+ ("j" ?,Fn(B)
+ ("k" ?,Fj(B)
+ ("l" ?,Fk(B)
+ (";" ?,F4(B)
+ ("'" ?')
+ ("\\" ?\\)
+ ("z" ?,Ff(B)
+ ("x" ?,Fw(B)
+ ("c" ?,Fx(B)
+ ("v" ?,Fy(B)
+ ("b" ?,Fb(B)
+ ("n" ?,Fm(B)
+ ("m" ?,Fl(B)
+ ("," ?,)
+ ("." ?.)
+ ("/" ?/)
+ 
+ ("!" ?!)
+ ("@" ?@)
+ ("#" ?#)
+ ("$" ?$)
+ ("%" ?%)
+ ("^" ?^)
+ ("&" ?&)
+ ("*" ?*)
+ ("(" ?\()
+ (")" ?\))
+ ("_" ?_)
+ ("+" ?+)
+ ("~" ?~)
+ ("Q" ?:)
+ ("W" ?,FS(B)
+ ("E" ?,FE(B)
+ ("R" ?,FQ(B)
+ ("T" ?,FT(B)
+ ("Y" ?,FU(B)
+ ("U" ?,FH(B)
+ ("I" ?,FI(B)
+ ("O" ?,FO(B)
+ ("P" ?,FP(B)
+ ("{" ?{)
+ ("}" ?})
+ ("A" ?,FA(B)
+ ("S" ?,FS(B)
+ ("D" ?,FD(B)
+ ("F" ?,FV(B)
+ ("G" ?,FC(B)
+ ("H" ?,FG(B)
+ ("J" ?,FN(B)
+ ("K" ?,FJ(B)
+ ("L" ?,FK(B)
+ (":" ?,F((B)
+ ("\"" ?\")
+ ("|" ?|)
+ ("Z" ?,FF(B)
+ ("X" ?,FW(B)
+ ("C" ?,FX(B)
+ ("V" ?,FY(B)
+ ("B" ?,FB(B)
+ ("N" ?,FM(B)
+ ("M" ?,FL(B)
+ ("<" ?<)
+ (">" ?>)
  ("?" ??)
  
  ("a;" ?,F\(B)
@@ -1167,6 +1307,9 @@
  ("I:" ?,FZ(B)
  ("Y:" ?,F[(B)
  ("i:;" ?,F@(B)
- ("y:;" ?,F`(B))
+ ("i;:" ?,F@(B)
+ ("y:;" ?,F`(B)
+ ("y;:" ?,F`(B))
+
 
 ;;; greek.el ends here