("greek-babel"): Add accent/breathing/uppercase

combinations.

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 3074b183f6bf00cfc3f9801294070d1f9e929537..19ffc23dc3a13f83d8298ded7a5f46f755fdef51 100644 (file)
--- 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\e,bi\e(Br\e,bt\e(Bme Marant  <jmarant@nerim.net>  (tiny change)
+2004-02-16  J\e,Ai\e(Br\e,At\e(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 \e,A'\e(B, \e$,1uV\e(B, \e,LN\e(B.
+       ("bulgarian-phonetic"): Rename from bulgarian-pho.  Add \e,A'\e(B, \e$,1uV\e(B, \e$,1(N\e(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 2055962c7227dd48b7ad714a252e013e4486a3f7..1b269307950b75bd3fe5c84b2dd287f8b187e00a 100644 (file)
--- 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)
  ("))" ?\e,A;\e(B) ; #x00bb
 
  ("A" ?\e$,1&q\e(B)
+ ("A|" ?\e$,1q|\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)
+ ("H|" ?\e$,1r,\e(B)
  ("I" ?\e$,1&y\e(B)
  ("J" ?\e$,1&x\e(B)
  ("K" ?\e$,1&z\e(B)
@@ -509,6 +511,7 @@ nil t t nil nil nil nil nil nil nil t)
  ("T" ?\e$,1'$\e(B)
  ("U" ?\e$,1'%\e(B)
  ("W" ?\e$,1')\e(B)
+ ("W|" ?\e$,1r\\e(B)
  ("X" ?\e$,1&~\e(B)
  ("Y" ?\e$,1'(\e(B)
  ("Z" ?\e$,1&v\e(B)
@@ -560,6 +563,18 @@ nil t t nil nil nil nil nil nil nil t)
  ("\"'i" ?\e$,1r3\e(B)
  ("\"`i" ?\e$,1r2\e(B)
 
+ ("<I" ?\e$,1pY\e(B)
+ (">I" ?\e$,1pX\e(B)
+ ("'I" ?\e$,1r;\e(B)
+ ("<'I" ?\e$,1p]\e(B)
+ (">'I" ?\e$,1p\\e(B)
+ ("`I" ?\e$,1r:\e(B)
+ ("<`I" ?\e$,1p[\e(B)
+ (">`I" ?\e$,1pZ\e(B)
+ ("<~I"  ?\e$,1p_\e(B)
+ (">~I"  ?\e$,1p^\e(B)
+ ("\"I" ?\e$,1'*\e(B)
+
  ("<~"  ?\e$,1r?\e(B)
  (">~"  ?\e$,1r/\e(B)
  ("<'" ?\e$,1r>\e(B)
@@ -578,6 +593,15 @@ nil t t nil nil nil nil nil nil nil t)
  ("<`e" ?\e$,1p3\e(B)
  (">`e" ?\e$,1p2\e(B)
 
+ ("<E" ?\e$,1p9\e(B)
+ (">E" ?\e$,1p8\e(B)
+ ("'E" ?\e$,1r)\e(B)
+ ("<'E" ?\e$,1p=\e(B)
+ (">'E" ?\e$,1p<\e(B)
+ ("`E" ?\e$,1r(\e(B)
+ ("<`E" ?\e$,1p;\e(B)
+ (">`E" ?\e$,1p:\e(B)
+
  ("<a" ?\e$,1p!\e(B)
  (">a" ?\e$,1p \e(B)
  ("'a" ?\e$,1q1\e(B)
@@ -590,6 +614,17 @@ nil t t nil nil nil nil nil nil nil t)
  ("<~a"  ?\e$,1p'\e(B)
  (">~a"  ?\e$,1p&\e(B)
 
+ ("<A" ?\e$,1p)\e(B)
+ (">A" ?\e$,1p(\e(B)
+ ("'A" ?\e$,1q{\e(B)
+ ("<'A" ?\e$,1p-\e(B)
+ (">'A" ?\e$,1p,\e(B)
+ ("`A" ?\e$,1qz\e(B)
+ ("<`A" ?\e$,1p+\e(B)
+ (">`A" ?\e$,1p*\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)
@@ -602,9 +637,20 @@ nil t t nil nil nil nil nil nil nil t)
  ("<~a|"  ?\e$,1qG\e(B)
  (">~a|"  ?\e$,1qF\e(B)
 
+ ("<A|" ?\e$,1qI\e(B)
+ (">A|" ?\e$,1qH\e(B)
+ ("<'A|" ?\e$,1qM\e(B)
+ (">'A|" ?\e$,1qL\e(B)
+ ("<`A|" ?\e$,1qK\e(B)
+ (">`A|" ?\e$,1qJ\e(B)
+ ("<~A|"  ?\e$,1qO\e(B)
+ (">~A|"  ?\e$,1qN\e(B)
+
  ("<r" ?\e$,1rE\e(B)
  (">r" ?\e$,1rD\e(B)
 
+ ("<R" ?\e$,1rL\e(B)
+
  ("<h" ?\e$,1pA\e(B)
  (">h" ?\e$,1p@\e(B)
  ("'h" ?\e$,1q5\e(B)
@@ -617,6 +663,17 @@ nil t t nil nil nil nil nil nil nil t)
  ("<~h"  ?\e$,1pG\e(B)
  (">~h"  ?\e$,1pF\e(B)
 
+ ("<H" ?\e$,1pI\e(B)
+ (">H" ?\e$,1pH\e(B)
+ ("'H" ?\e$,1r+\e(B)
+ ("<'H" ?\e$,1pM\e(B)
+ (">'H" ?\e$,1pL\e(B)
+ ("`H" ?\e$,1r*\e(B)
+ ("<`H" ?\e$,1pK\e(B)
+ (">`H" ?\e$,1pJ\e(B)
+ ("<~H"  ?\e$,1pO\e(B)
+ (">~H"  ?\e$,1pN\e(B)
+
  ("|" ?\e$,1&Z\e(B) ; ypogegrammeni
 
  ("<h|" ?\e$,1qQ\e(B)
@@ -631,6 +688,15 @@ nil t t nil nil nil nil nil nil nil t)
  ("<~h|"  ?\e$,1qW\e(B)
  (">~h|"  ?\e$,1qV\e(B)
 
+ ("<H|" ?\e$,1qY\e(B)
+ (">H|" ?\e$,1qX\e(B)
+ ("<'H|" ?\e$,1q]\e(B)
+ (">'H|" ?\e$,1q\\e(B)
+ ("<`H|" ?\e$,1q[\e(B)
+ (">`H|" ?\e$,1qZ\e(B)
+ ("<~H|"  ?\e$,1q_\e(B)
+ (">~H|"  ?\e$,1q^\e(B)
+
  ("<o" ?\e$,1pa\e(B)
  (">o" ?\e$,1p`\e(B)
  ("'o" ?\e$,1q9\e(B)
@@ -640,6 +706,15 @@ nil t t nil nil nil nil nil nil nil t)
  ("<`o" ?\e$,1pc\e(B)
  (">`o" ?\e$,1pb\e(B)
 
+ ("<O" ?\e$,1pi\e(B)
+ (">O" ?\e$,1ph\e(B)
+ ("'O" ?\e$,1rY\e(B)
+ ("<'O" ?\e$,1pm\e(B)
+ (">'O" ?\e$,1pl\e(B)
+ ("`O" ?\e$,1rX\e(B)
+ ("<`O" ?\e$,1pk\e(B)
+ (">`O" ?\e$,1pj\e(B)
+
  ("<u"   ?\e$,1pq\e(B)
  (">u"   ?\e$,1pp\e(B)
  ("'u"   ?\e$,1q;\e(B)
@@ -655,6 +730,14 @@ nil t t nil nil nil nil nil nil nil t)
  ("\"'u" ?\e$,1rC\e(B)
  ("`\"u" ?\e$,1rB\e(B)
 
+ ("<U"   ?\e$,1py\e(B)
+ ("'U"   ?\e$,1rK\e(B)
+ ("<'U"  ?\e$,1p}\e(B)
+ ("`U"   ?\e$,1rJ\e(B)
+ ("<`U"  ?\e$,1p{\e(B)
+ ("<~U"  ?\e$,1p\7f\e(B)
+ ("\"U"  ?\e$,1'+\e(B)
+
  ("<w"  ?\e$,1q!\e(B)
  (">w"  ?\e$,1q \e(B)
  ("'w"  ?\e$,1q=\e(B)
@@ -667,6 +750,17 @@ nil t t nil nil nil nil nil nil nil t)
  ("<~w" ?\e$,1q'\e(B)
  (">~w" ?\e$,1q&\e(B)
 
+ ("<W"  ?\e$,1q)\e(B)
+ (">W"  ?\e$,1q(\e(B)
+ ("'W"  ?\e$,1r[\e(B)
+ ("<'W" ?\e$,1q-\e(B)
+ (">'W" ?\e$,1q,\e(B)
+ ("`W"  ?\e$,1rZ\e(B)
+ ("<`W" ?\e$,1q+\e(B)
+ (">`W" ?\e$,1q*\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)
@@ -678,6 +772,16 @@ nil t t nil nil nil nil nil nil nil t)
  ("~w|"         ?\e$,1rW\e(B)
  ("<~w|" ?\e$,1qg\e(B)
  (">~w|" ?\e$,1qf\e(B)
+
+ ("<W|"         ?\e$,1qi\e(B)
+ (">W|"         ?\e$,1qh\e(B)
+ ("'W|"         ?\e$,1rT\e(B)
+ ("<'W|" ?\e$,1qm\e(B)
+ (">'W|" ?\e$,1ql\e(B)
+ ("<`W|" ?\e$,1qk\e(B)
+ (">`W|" ?\e$,1qj\e(B)
+ ("<~W|" ?\e$,1qo\e(B)
+ (">~W|" ?\e$,1qn\e(B)
  )
 
 ;;