procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changed the behavior of the "greek" input

Browse source 
method, to consider the "accent" and "diaeresis" as prefix
keys.  A new method (named "greek-postfix") was added which
implements the old behavior.  Also changed the mapping of the
"Q/q" key to produce the ":/;" characters, as is customary in
greek keyboards.
This commit is contained in:
Eli Zaretskii 2002-01-10 09:27:14 +00:00
parent 7dd0c7506f
commit 417f4d3a6b
2 changed files with 162 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
leim/ChangeLog
View file

@ -1,3 +1,12 @@
2002-01-10 Nick Patavalis <npat@inaccessnetworks.com>
* quail/greek.el: Changed the behavior of the "greek" input
method, to consider the "accent" and "diaeresis" as prefix
keys. A new method (named "greek-postfix") was added which
implements the old behavior. Also changed the mapping of the
"Q/q" key to produce the ":/;" characters, as is customary in
greek keyboards.
2002-01-07 Jaeyoun Chung <jay@kldp.org>
* quail/hangul.el: removed key sequence mapping for O[rsfaqtTd].

163
leim/quail/greek.el
View file

@ -1041,15 +1041,15 @@ In the right of ,Fk(B key is a combination key, where
,F((B diaresis
e.g.
,Fa(B + ,F4(B -> ,F\(B
,Fi(B + ,F((B -> ,Fz(B
,Fi(B + ,F((B + ,F4(B -> ,F@(B"
,F4(B + ,Fa(B -> ,F\(B
,F((B + ,Fi(B -> ,Fz(B
,F((B + ,F4(B + ,Fi(B -> ,F@(B"
nil t t t t nil nil nil nil nil t)
;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~
;; ,F7/(B ,FrS(B ,FeE(B ,FqQ(B ,FtT(B ,FuU(B ,FhH(B ,FiI(B ,FoO(B ,FpP(B [{ ]}
;; ;: ,FrS(B ,FeE(B ,FqQ(B ,FtT(B ,FuU(B ,FhH(B ,FiI(B ,FoO(B ,FpP(B [{ ]}
;; ,FaA(B ,FsS(B ,FdD(B ,FvV(B ,FcC(B ,FgG(B ,FnN(B ,FjJ(B ,FkK(B ,F4((B '" \|
;; ,FfF(B ,FwW(B ,FxX(B ,FyY(B ,FbB(B ,FmM(B ,FlL(B ,; .: /?
;; ,FfF(B ,FwW(B ,FxX(B ,FyY(B ,FbB(B ,FmM(B ,FlL(B ,< .> /?
(quail-define-rules
("1" ?1)
@ -1065,7 +1065,7 @@ e.g.
("-" ?-)
("=" ?=)
("`" ?`)
("q" ?,F7(B)
("q" ?\;)
("w" ?,Fr(B)
("e" ?,Fe(B)
("r" ?,Fq(B)
@ -1113,7 +1113,7 @@ e.g.
("_" ?_)
("+" ?+)
("~" ?~)
("Q" ?,F/(B)
("Q" ?:)
("W" ?,FS(B)
("E" ?,FE(B)
("R" ?,FQ(B)
@ -1144,8 +1144,148 @@ e.g.
("B" ?,FB(B)
("N" ?,FM(B)
("M" ?,FL(B)
("<" ?\;)
(">" ?:)
("<" ?<)
(">" ?>)
("?" ??)
(";a" ?,F\(B)
(";e" ?,F](B)
(";h" ?,F^(B)
(";i" ?,F_(B)
(";o" ?,F|(B)
(";y" ?,F}(B)
(";v" ?,F~(B)
(";A" ?,F6(B)
(";E" ?,F8(B)
(";H" ?,F9(B)
(";I" ?,F:(B)
(";O" ?,F<(B)
(";Y" ?,F>(B)
(";V" ?,F?(B)
(":i" ?,Fz(B)
(":y" ?,F{(B)
(":I" ?,FZ(B)
(":Y" ?,F[(B)
(";:i" ?,F@(B)
(":;i" ?,F@(B)
(";:y" ?,F`(B)
(":;y" ?,F`(B))
(quail-define-package
"greek-postfix" "GreekPost" ",FX(B" nil
",FEkkgmij\(B: Greek keyboard layout with postfix accents (ISO 8859-7)
--------------
In the right of ,Fk(B key is a combination key, where
,F4(B acute
,F((B diaresis
e.g.
,Fa(B + ,F4(B -> ,F\(B
,Fi(B + ,F((B -> ,Fz(B
,Fi(B + ,F((B + ,F4(B -> ,F@(B"
nil t t t t nil nil nil nil nil t)
;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~
;; ,F7/(B ,FrS(B ,FeE(B ,FqQ(B ,FtT(B ,FuU(B ,FhH(B ,FiI(B ,FoO(B ,FpP(B [{ ]}
;; ,FaA(B ,FsS(B ,FdD(B ,FvV(B ,FcC(B ,FgG(B ,FnN(B ,FjJ(B ,FkK(B ,F4((B '" \|
;; ,FfF(B ,FwW(B ,FxX(B ,FyY(B ,FbB(B ,FmM(B ,FlL(B ,; .: /?
(quail-define-rules
("1" ?1)
("2" ?2)
("3" ?3)
("4" ?4)
("5" ?5)
("6" ?6)
("7" ?7)
("8" ?8)
("9" ?9)
("0" ?0)
("-" ?-)
("=" ?=)
("`" ?`)
("q" ?\;)
("w" ?,Fr(B)
("e" ?,Fe(B)
("r" ?,Fq(B)
("t" ?,Ft(B)
("y" ?,Fu(B)
("u" ?,Fh(B)
("i" ?,Fi(B)
("o" ?,Fo(B)
("p" ?,Fp(B)
("[" ?\[)
("]" ?\])
("a" ?,Fa(B)
("s" ?,Fs(B)
("d" ?,Fd(B)
("f" ?,Fv(B)
("g" ?,Fc(B)
("h" ?,Fg(B)
("j" ?,Fn(B)
("k" ?,Fj(B)
("l" ?,Fk(B)
(";" ?,F4(B)
("'" ?')
("\\" ?\\)
("z" ?,Ff(B)
("x" ?,Fw(B)
("c" ?,Fx(B)
("v" ?,Fy(B)
("b" ?,Fb(B)
("n" ?,Fm(B)
("m" ?,Fl(B)
("," ?,)
("." ?.)
("/" ?/)
("!" ?!)
("@" ?@)
("#" ?#)
("$" ?$)
("%" ?%)
("^" ?^)
("&" ?&)
("*" ?*)
("(" ?\()
(")" ?\))
("_" ?_)
("+" ?+)
("~" ?~)
("Q" ?:)
("W" ?,FS(B)
("E" ?,FE(B)
("R" ?,FQ(B)
("T" ?,FT(B)
("Y" ?,FU(B)
("U" ?,FH(B)
("I" ?,FI(B)
("O" ?,FO(B)
("P" ?,FP(B)
("{" ?{)
("}" ?})
("A" ?,FA(B)
("S" ?,FS(B)
("D" ?,FD(B)
("F" ?,FV(B)
("G" ?,FC(B)
("H" ?,FG(B)
("J" ?,FN(B)
("K" ?,FJ(B)
("L" ?,FK(B)
(":" ?,F((B)
("\"" ?\")
("|" ?|)
("Z" ?,FF(B)
("X" ?,FW(B)
("C" ?,FX(B)
("V" ?,FY(B)
("B" ?,FB(B)
("N" ?,FM(B)
("M" ?,FL(B)
("<" ?<)
(">" ?>)
("?" ??)
("a;" ?,F\(B)
@ -1167,6 +1307,9 @@ e.g.
("I:" ?,FZ(B)
("Y:" ?,F[(B)
("i:;" ?,F@(B)
("y:;" ?,F`(B))
("i;:" ?,F@(B)
("y:;" ?,F`(B)
("y;:" ?,F`(B))
;;; greek.el ends here