summaryrefslogtreecommitdiff
path: root/leim
diff options
context:
space:
mode:
authorDavid Kastrup <dak@gnu.org>2004-08-21 21:55:00 +0000
committerDavid Kastrup <dak@gnu.org>2004-08-21 21:55:00 +0000
commit15203bb79fc6f8de4ae25c220b9e28cf5093ccfb (patch)
treea7a2bb9b4d8b34c52412efd0f7b23a8096a8745e /leim
parent311f32fe0f3eed80d81cead7b935b8f32552df05 (diff)
downloademacs-15203bb79fc6f8de4ae25c220b9e28cf5093ccfb.tar.gz
("greek-babel"): Add accent/breathing/uppercase
combinations.
Diffstat (limited to 'leim')
-rw-r--r--leim/ChangeLog9
-rw-r--r--leim/quail/greek.el104
2 files changed, 111 insertions, 2 deletions
diff --git a/leim/ChangeLog b/leim/ChangeLog
index 3074b183f6b..19ffc23dc3a 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 2055962c722..1b269307950 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)
)
;;