Index: leim/quail/greek.el
===================================================================
RCS file: /cvsroot/emacs/emacs/leim/quail/greek.el,v
retrieving revision 1.11
diff -u -r1.11 greek.el
--- leim/quail/greek.el	27 Feb 2003 19:25:12 -0000	1.11
+++ leim/quail/greek.el	5 Apr 2003 21:20:21 -0000
@@ -534,7 +534,7 @@
  ("p" ?π)
  ("q" ?χ)
  ("r" ?ρ)
- ("s" ?σ)
+ ("s" ?σ) ("s " ["ς "]) ("s," ["ς,"]) ("s." ["ς."]) ("s?" ["ς;"]) ("s;" ["ς·"])
  ("t" ?τ)
  ("u" ?υ)
  ("w" ?ω)
@@ -558,6 +558,15 @@
  ("\"'i" ?ΐ)
  ("\"`i" ?ῒ)
 
+ (">I" ?Ἰ)
+ ("<I" ?Ἱ)
+ (">`I" ?Ἲ)
+ ("<`I" ?Ἳ)
+ (">'I" ?Ἴ)
+ ("<'I" ?Ἵ)
+ (">~I" ?Ἶ)
+ ("<~I" ?Ἷ)
+
  ("<~"  ?῟)
  (">~"  ?῏)
  ("<'" ?῞)
@@ -576,6 +585,13 @@
  ("<`e" ?ἓ)
  (">`e" ?ἒ)
 
+ (">E" ?Ἐ)
+ ("<E" ?Ἑ)
+ (">`E" ?Ἒ)
+ ("<`E" ?Ἓ)
+ (">'E" ?Ἔ)
+ ("<'E" ?Ἕ)
+ 
  ("<a" ?ἁ)
  (">a" ?ἀ)
  ("'a" ?ά)
@@ -600,6 +616,24 @@
  ("<~a|"  ?ᾇ)
  (">~a|"  ?ᾆ)
 
+ (">A" ?Ἀ)
+ ("<A" ?Ἁ)
+ (">`A" ?Ἂ)
+ ("<`A" ?Ἃ)
+ (">'A" ?Ἄ)
+ ("<'A" ?Ἅ)
+ (">~A" ?Ἆ)
+ ("<~A" ?Ἇ)
+
+ (">A|" ?ᾈ)
+ ("<A|" ?ᾉ)
+ (">`A|" ?ᾊ)
+ ("<`A|" ?ᾋ)
+ (">'A|" ?ᾌ)
+ ("<'A|" ?ᾍ)
+ (">~A|" ?ᾎ)
+ ("<~A|" ?ᾏ)
+
  ("<r" ?ῥ)
  (">r" ?ῤ)
 
@@ -629,6 +663,25 @@
  ("<~h|"  ?ᾗ)
  (">~h|"  ?ᾖ)
 
+ (">H" ?Ἠ)
+ ("<H" ?Ἡ)
+ (">`H" ?Ἢ)
+ ("<`H" ?Ἣ)
+ (">'H" ?Ἤ)
+ ("<'H" ?Ἥ)
+ (">~H" ?Ἦ)
+ ("<~H" ?Ἧ)
+
+ (">H|" ?ᾘ)
+ ("<H|" ?ᾙ)
+ (">`H|" ?ᾚ)
+ ("<`H|" ?ᾛ)
+ (">'H|" ?ᾜ)
+ ("<'H|" ?ᾝ)
+ (">~H|" ?ᾞ)
+ ("<~H|" ?ᾟ)
+
+
  ("<o" ?ὁ)
  (">o" ?ὀ)
  ("'o" ?ό)
@@ -638,6 +691,14 @@
  ("<`o" ?ὃ)
  (">`o" ?ὂ)
 
+ (">O" ?Ὀ)
+ ("<O" ?Ὁ)
+ (">`O" ?Ὂ)
+ ("<`O" ?Ὃ)
+ (">'O" ?Ὄ)
+ ("<'O" ?Ὅ)
+
+
  ("<u"   ?ὑ)
  (">u"   ?ὐ)
  ("'u"   ?ύ)
@@ -653,6 +714,11 @@
  ("\"'u" ?ΰ)
  ("`\"u" ?ῢ)
 
+ ("<U" ?Ὑ)
+ ("<`U" ?Ὓ)
+ ("<'U" ?Ὕ)
+ ("<~U" ?Ὗ)
+
  ("<w"  ?ὡ)
  (">w"  ?ὠ)
  ("'w"  ?ώ)
@@ -676,6 +742,24 @@
  ("~w|"	 ?ῷ)
  ("<~w|" ?ᾧ)
  (">~w|" ?ᾦ)
+
+ (">W" ?Ὠ)
+ ("<W" ?Ὡ)
+ (">`W" ?Ὢ)
+ ("<`W" ?Ὣ)
+ (">'W" ?Ὤ)
+ ("<'W" ?Ὥ)
+ (">~W" ?Ὦ)
+ ("<~W" ?Ὧ)
+
+ (">W|" ?ᾨ)
+ ("<W|" ?ᾩ)
+ (">`W|" ?ᾪ)
+ ("<`W|" ?ᾫ)
+ (">'W|" ?ᾬ)
+ ("<'W|" ?ᾭ)
+ (">~W|" ?ᾮ)
+ ("<~W|" ?ᾯ)
  )
 
 ;;