From 15203bb79fc6f8de4ae25c220b9e28cf5093ccfb Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Sat, 21 Aug 2004 21:55:00 +0000
Subject: [PATCH] ("greek-babel"): Add accent/breathing/uppercase combinations.

---
 leim/ChangeLog      |   9 +++-
 leim/quail/greek.el | 104 ++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 111 insertions(+), 2 deletions(-)

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 3074b183f6..19ffc23dc3 100644
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,8 @@
+2004-08-21  David Kastrup  <dak@gnu.org>
+
+	* quail/greek.el ("greek-babel"): Add accent/breathing/uppercase
+	combinations.
+
 2004-08-16  Kenichi Handa  <handa@m17n.org>
 
 	* quail/georgian.el ("georgian"): Call quail-define-package with
@@ -104,7 +109,7 @@
 	(clean, mostlyclean): Don't delete *.elc distributed with tarball.
 	(maintainer-clean): Delete files that are not in CVS repository.
 
-2004-02-16  J,bi(Br,bt(Bme Marant  <jmarant@nerim.net>  (tiny change)
+2004-02-16  J,Ai(Br,At(Bme Marant  <jmarant@nerim.net>  (tiny change)
 
 	* Makefile.in (distclean maintainer-clean): Depend on clean.
 
@@ -242,7 +247,7 @@
 	("cyrillic-ukrainian"): Fix `q', `Q', `W', `w' bindings.
 	("ukrainian-computer", "belarusian", "bulgarian-bds")
 	("russian-computer"): New.
-	("bulgarian-phonetic"): Rename from bulgarian-pho.  Add ,A'(B, $,1uV(B, ,LN(B.
+	("bulgarian-phonetic"): Rename from bulgarian-pho.  Add ,A'(B, $,1uV(B, $,1(N(B.
 	("russian-typewriter"): Rename from cyrillic-jcuken.
 
 2002-06-20  Dave Love  <fx@gnu.org>
diff --git a/leim/quail/greek.el b/leim/quail/greek.el
index 2055962c72..1b26930795 100644
--- a/leim/quail/greek.el
+++ b/leim/quail/greek.el
@@ -489,12 +489,14 @@ nil t t nil nil nil nil nil nil nil t)
  ("))" ?,A;(B) ; #x00bb
 
  ("A" ?$,1&q(B)
+ ("A|" ?$,1q|(B)
  ("B" ?$,1&r(B)
  ("D" ?$,1&t(B)
  ("E" ?$,1&u(B)
  ("F" ?$,1'&(B)
  ("G" ?$,1&s(B)
  ("H" ?$,1&w(B)
+ ("H|" ?$,1r,(B)
  ("I" ?$,1&y(B)
  ("J" ?$,1&x(B)
  ("K" ?$,1&z(B)
@@ -509,6 +511,7 @@ nil t t nil nil nil nil nil nil nil t)
  ("T" ?$,1'$(B)
  ("U" ?$,1'%(B)
  ("W" ?$,1')(B)
+ ("W|" ?$,1r\(B)
  ("X" ?$,1&~(B)
  ("Y" ?$,1'((B)
  ("Z" ?$,1&v(B)
@@ -560,6 +563,18 @@ nil t t nil nil nil nil nil nil nil t)
  ("\"'i" ?$,1r3(B)
  ("\"`i" ?$,1r2(B)
 
+ ("<I" ?$,1pY(B)
+ (">I" ?$,1pX(B)
+ ("'I" ?$,1r;(B)
+ ("<'I" ?$,1p](B)
+ (">'I" ?$,1p\(B)
+ ("`I" ?$,1r:(B)
+ ("<`I" ?$,1p[(B)
+ (">`I" ?$,1pZ(B)
+ ("<~I"  ?$,1p_(B)
+ (">~I"  ?$,1p^(B)
+ ("\"I" ?$,1'*(B)
+
  ("<~"  ?$,1r?(B)
  (">~"  ?$,1r/(B)
  ("<'" ?$,1r>(B)
@@ -578,6 +593,15 @@ nil t t nil nil nil nil nil nil nil t)
  ("<`e" ?$,1p3(B)
  (">`e" ?$,1p2(B)
 
+ ("<E" ?$,1p9(B)
+ (">E" ?$,1p8(B)
+ ("'E" ?$,1r)(B)
+ ("<'E" ?$,1p=(B)
+ (">'E" ?$,1p<(B)
+ ("`E" ?$,1r((B)
+ ("<`E" ?$,1p;(B)
+ (">`E" ?$,1p:(B)
+
  ("<a" ?$,1p!(B)
  (">a" ?$,1p (B)
  ("'a" ?$,1q1(B)
@@ -590,6 +614,17 @@ nil t t nil nil nil nil nil nil nil t)
  ("<~a"  ?$,1p'(B)
  (">~a"  ?$,1p&(B)
 
+ ("<A" ?$,1p)(B)
+ (">A" ?$,1p((B)
+ ("'A" ?$,1q{(B)
+ ("<'A" ?$,1p-(B)
+ (">'A" ?$,1p,(B)
+ ("`A" ?$,1qz(B)
+ ("<`A" ?$,1p+(B)
+ (">`A" ?$,1p*(B)
+ ("<~A"  ?$,1p/(B)
+ (">~A"  ?$,1p.(B)
+
  ("<a|" ?$,1qA(B)
  (">a|" ?$,1q@(B)
  ("'a|" ?$,1qt(B)
@@ -602,9 +637,20 @@ nil t t nil nil nil nil nil nil nil t)
  ("<~a|"  ?$,1qG(B)
  (">~a|"  ?$,1qF(B)
 
+ ("<A|" ?$,1qI(B)
+ (">A|" ?$,1qH(B)
+ ("<'A|" ?$,1qM(B)
+ (">'A|" ?$,1qL(B)
+ ("<`A|" ?$,1qK(B)
+ (">`A|" ?$,1qJ(B)
+ ("<~A|"  ?$,1qO(B)
+ (">~A|"  ?$,1qN(B)
+
  ("<r" ?$,1rE(B)
  (">r" ?$,1rD(B)
 
+ ("<R" ?$,1rL(B)
+
  ("<h" ?$,1pA(B)
  (">h" ?$,1p@(B)
  ("'h" ?$,1q5(B)
@@ -617,6 +663,17 @@ nil t t nil nil nil nil nil nil nil t)
  ("<~h"  ?$,1pG(B)
  (">~h"  ?$,1pF(B)
 
+ ("<H" ?$,1pI(B)
+ (">H" ?$,1pH(B)
+ ("'H" ?$,1r+(B)
+ ("<'H" ?$,1pM(B)
+ (">'H" ?$,1pL(B)
+ ("`H" ?$,1r*(B)
+ ("<`H" ?$,1pK(B)
+ (">`H" ?$,1pJ(B)
+ ("<~H"  ?$,1pO(B)
+ (">~H"  ?$,1pN(B)
+
  ("|" ?$,1&Z(B) ; ypogegrammeni
 
  ("<h|" ?$,1qQ(B)
@@ -631,6 +688,15 @@ nil t t nil nil nil nil nil nil nil t)
  ("<~h|"  ?$,1qW(B)
  (">~h|"  ?$,1qV(B)
 
+ ("<H|" ?$,1qY(B)
+ (">H|" ?$,1qX(B)
+ ("<'H|" ?$,1q](B)
+ (">'H|" ?$,1q\(B)
+ ("<`H|" ?$,1q[(B)
+ (">`H|" ?$,1qZ(B)
+ ("<~H|"  ?$,1q_(B)
+ (">~H|"  ?$,1q^(B)
+
  ("<o" ?$,1pa(B)
  (">o" ?$,1p`(B)
  ("'o" ?$,1q9(B)
@@ -640,6 +706,15 @@ nil t t nil nil nil nil nil nil nil t)
  ("<`o" ?$,1pc(B)
  (">`o" ?$,1pb(B)
 
+ ("<O" ?$,1pi(B)
+ (">O" ?$,1ph(B)
+ ("'O" ?$,1rY(B)
+ ("<'O" ?$,1pm(B)
+ (">'O" ?$,1pl(B)
+ ("`O" ?$,1rX(B)
+ ("<`O" ?$,1pk(B)
+ (">`O" ?$,1pj(B)
+
  ("<u"   ?$,1pq(B)
  (">u"   ?$,1pp(B)
  ("'u"   ?$,1q;(B)
@@ -655,6 +730,14 @@ nil t t nil nil nil nil nil nil nil t)
  ("\"'u" ?$,1rC(B)
  ("`\"u" ?$,1rB(B)
 
+ ("<U"   ?$,1py(B)
+ ("'U"   ?$,1rK(B)
+ ("<'U"  ?$,1p}(B)
+ ("`U"   ?$,1rJ(B)
+ ("<`U"  ?$,1p{(B)
+ ("<~U"  ?$,1p(B)
+ ("\"U"  ?$,1'+(B)
+
  ("<w"  ?$,1q!(B)
  (">w"  ?$,1q (B)
  ("'w"  ?$,1q=(B)
@@ -667,6 +750,17 @@ nil t t nil nil nil nil nil nil nil t)
  ("<~w" ?$,1q'(B)
  (">~w" ?$,1q&(B)
 
+ ("<W"  ?$,1q)(B)
+ (">W"  ?$,1q((B)
+ ("'W"  ?$,1r[(B)
+ ("<'W" ?$,1q-(B)
+ (">'W" ?$,1q,(B)
+ ("`W"  ?$,1rZ(B)
+ ("<`W" ?$,1q+(B)
+ (">`W" ?$,1q*(B)
+ ("<~W" ?$,1q/(B)
+ (">~W" ?$,1q.(B)
+
  ("<w|"	 ?$,1qa(B)
  (">w|"	 ?$,1q`(B)
  ("'w|"	 ?$,1rT(B)
@@ -678,6 +772,16 @@ nil t t nil nil nil nil nil nil nil t)
  ("~w|"	 ?$,1rW(B)
  ("<~w|" ?$,1qg(B)
  (">~w|" ?$,1qf(B)
+
+ ("<W|"	 ?$,1qi(B)
+ (">W|"	 ?$,1qh(B)
+ ("'W|"	 ?$,1rT(B)
+ ("<'W|" ?$,1qm(B)
+ (">'W|" ?$,1ql(B)
+ ("<`W|" ?$,1qk(B)
+ (">`W|" ?$,1qj(B)
+ ("<~W|" ?$,1qo(B)
+ (">~W|" ?$,1qn(B)
  )
 
 ;;
-- 
2.20.1