From 625088623c53102f90b991182ed9324fc74b6095 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Wed, 12 Jul 2006 00:33:19 +0000
Subject: [PATCH] Change iota subscriptum transliteration in Ibycus4 encoding's
 capitals from "i" to "|".

---
 leim/ChangeLog      |  5 +++++
 leim/quail/greek.el | 54 ++++++++++++++++++++++-----------------------
 2 files changed, 32 insertions(+), 27 deletions(-)

diff --git a/leim/ChangeLog b/leim/ChangeLog
index e792141aff7..9b35715b5db 100644
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,8 @@
+2006-07-12  David Kastrup  <dak@gnu.org>
+
+	* quail/greek.el: Change iota subscriptum transliteration in
+	Ibycus4 encoding's capitals from "i" to "|".
+
 2006-03-03  Claudio Fontana  <claudio@gnu.org>
 
 	* Makefile.in (install): Add DESTDIR variable to support staged
diff --git a/leim/quail/greek.el b/leim/quail/greek.el
index 3ab09c63b37..78a788009dc 100644
--- a/leim/quail/greek.el
+++ b/leim/quail/greek.el
@@ -1016,14 +1016,14 @@ nil t t nil nil nil nil nil nil nil t)
  ("a)=|" ?$,1qF(B)
  ("a(=|" ?$,1qG(B)
 
- (")Ai" ?$,1qH(B)
- ("(Ai" ?$,1qI(B)
- (")`Ai" ?$,1qJ(B)
- ("(`Ai" ?$,1qK(B)
- (")'Ai" ?$,1qL(B)
- ("('Ai" ?$,1qM(B)
- (")=Ai" ?$,1qN(B)
- ("(=Ai" ?$,1qO(B)
+ (")A|" ?$,1qH(B)
+ ("(A|" ?$,1qI(B)
+ (")`A|" ?$,1qJ(B)
+ ("(`A|" ?$,1qK(B)
+ (")'A|" ?$,1qL(B)
+ ("('A|" ?$,1qM(B)
+ (")=A|" ?$,1qN(B)
+ ("(=A|" ?$,1qO(B)
 
  ("h)|" ?$,1qP(B)
  ("h(|" ?$,1qQ(B)
@@ -1034,14 +1034,14 @@ nil t t nil nil nil nil nil nil nil t)
  ("h)=|" ?$,1qV(B)
  ("h(=|" ?$,1qW(B)
 
- (")Hi" ?$,1qX(B)
- ("(Hi" ?$,1qY(B)
- (")`Hi" ?$,1qZ(B)
- ("(`Hi" ?$,1q[(B)
- (")'Hi" ?$,1q\(B)
- ("('Hi" ?$,1q](B)
- (")=Hi" ?$,1q^(B)
- ("(=Hi" ?$,1q_(B)
+ (")H|" ?$,1qX(B)
+ ("(H|" ?$,1qY(B)
+ (")`H|" ?$,1qZ(B)
+ ("(`H|" ?$,1q[(B)
+ (")'H|" ?$,1q\(B)
+ ("('H|" ?$,1q](B)
+ (")=H|" ?$,1q^(B)
+ ("(=H|" ?$,1q_(B)
 
  ("w)|" ?$,1q`(B)
  ("w(|" ?$,1qa(B)
@@ -1052,14 +1052,14 @@ nil t t nil nil nil nil nil nil nil t)
  ("w)=|" ?$,1qf(B)
  ("w(=|" ?$,1qg(B)
 
- (")Wi" ?$,1qh(B)
- ("(Wi" ?$,1qi(B)
- (")`Wi" ?$,1qj(B)
- ("(`Wi" ?$,1qk(B)
- (")'Wi" ?$,1ql(B)
- ("('Wi" ?$,1qm(B)
- (")=Wi" ?$,1qn(B)
- ("(=Wi" ?$,1qo(B)
+ (")W|" ?$,1qh(B)
+ ("(W|" ?$,1qi(B)
+ (")`W|" ?$,1qj(B)
+ ("(`W|" ?$,1qk(B)
+ (")'W|" ?$,1ql(B)
+ ("('W|" ?$,1qm(B)
+ (")=W|" ?$,1qn(B)
+ ("(=W|" ?$,1qo(B)
 
  ("a`|" ?$,1qr(B)
  ("a|" ?$,1qs(B)
@@ -1069,7 +1069,7 @@ nil t t nil nil nil nil nil nil nil t)
 
  ("`A" ?$,1qz(B)
  ("'A" ?$,1q{(B)
- ("Ai" ?$,1q|(B)
+ ("A|" ?$,1q|(B)
 
  (")" ?$,1q(B) ; #x1fbf ; psili
  ("=" ?$,1r (B) ; #x1fc0 ; perispomeni
@@ -1086,7 +1086,7 @@ nil t t nil nil nil nil nil nil nil t)
 
  ("`H" ?$,1r*(B)
  ("'H" ?$,1r+(B)
- ("Hi" ?$,1r,(B)
+ ("H|" ?$,1r,(B)
 
  (")`" ?$,1r-(B) ; #x1fcd
  (")'" ?$,1r.(B) ; #x1fce
@@ -1133,7 +1133,7 @@ nil t t nil nil nil nil nil nil nil t)
 
  ("`W" ?$,1rZ(B)
  ("'W" ?$,1r[(B)
- ("Wi" ?$,1r\(B)
+ ("W|" ?$,1r\(B)
 
  ("'" ?$,1r](B) ; #x1ffd ; oxia
  ("(" ?$,1r^(B) ;  #x1ffe ; dasia
-- 
2.39.2