Mercurial > hg > xemacs-beta
diff lisp/quail/quail-greek.el @ 70:131b0175ea99 r20-0b30
Import from CVS: tag r20-0b30
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:02:59 +0200 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/quail/quail-greek.el Mon Aug 13 09:02:59 2007 +0200 @@ -0,0 +1,246 @@ +;;; 92.8.8 created for Mule Ver.0.9.5 by T.Matsuzawa <mzw_t@yhp.hp.com> +;;; 92.12.28 modified for Mule ver.0.9.7 by Takahashi N. <ntakahas@etl.go.jp> +;;; 93.4.22 modified by Takahashi N. <ntakahas@etl.go.jp" +;;; added "jis-greek". +(require 'quail) + +(quail-define-package "jis-greek" "$B&%&K&K&G&M&I&J&A(B" nil + "JIS X0208.1983 encoding. +The layout is same as greek, but uses JIS characters. +Sorry, accents and terminal sigma are not supported in JIS." nil t t t t) + +(quail-defrule "1" ?$B#1(B) +(quail-defrule "2" ?$B#2(B) +(quail-defrule "3" ?$B#3(B) +(quail-defrule "4" ?$B#4(B) +(quail-defrule "5" ?$B#5(B) +(quail-defrule "6" ?$B#6(B) +(quail-defrule "7" ?$B#7(B) +(quail-defrule "8" ?$B#8(B) +(quail-defrule "9" ?$B#9(B) +(quail-defrule "0" ?$B#0(B) +(quail-defrule "-" ?$B!](B) +(quail-defrule "=" ?$B!a(B) +(quail-defrule "`" ?$B!F(B) +(quail-defrule "q" ?$B!&(B) +(quail-defrule "w" ?$B&R(B) +(quail-defrule "e" ?$B&E(B) +(quail-defrule "r" ?$B&Q(B) +(quail-defrule "t" ?$B&S(B) +(quail-defrule "y" ?$B&T(B) +(quail-defrule "u" ?$B&H(B) +(quail-defrule "i" ?$B&I(B) +(quail-defrule "o" ?$B&O(B) +(quail-defrule "p" ?$B&P(B) +(quail-defrule "[" ?$B!N(B) +(quail-defrule "]" ?$B!O(B) +(quail-defrule "a" ?$B&A(B) +(quail-defrule "s" ?$B&R(B) +(quail-defrule "d" ?$B&D(B) +(quail-defrule "f" ?$B&U(B) +(quail-defrule "g" ?$B&C(B) +(quail-defrule "h" ?$B&G(B) +(quail-defrule "j" ?$B&N(B) +(quail-defrule "k" ?$B&J(B) +(quail-defrule "l" ?$B&K(B) +(quail-defrule ";" ?$B!G(B) +(quail-defrule "'" ?$B!G(B) +(quail-defrule "\\" ?$B!@(B) +(quail-defrule "z" ?$B&F(B) +(quail-defrule "x" ?$B&V(B) +(quail-defrule "c" ?$B&W(B) +(quail-defrule "v" ?$B&X(B) +(quail-defrule "b" ?$B&B(B) +(quail-defrule "n" ?$B&M(B) +(quail-defrule "m" ?$B&L(B) +(quail-defrule "," ?, ) +(quail-defrule "." ?. ) +(quail-defrule "/" ?$B!?(B) + +(quail-defrule "!" ?$B!*(B) +(quail-defrule "@" ?$B!w(B) +(quail-defrule "#" ?$B!t(B) +(quail-defrule "$" ?$B!t(B) +(quail-defrule "%" ?$B!s(B) +(quail-defrule "^" ?$B!0(B) +(quail-defrule "&" ?$B!u(B) +(quail-defrule "*" ?$B!v(B) +(quail-defrule "(" ?$B!J(B) +(quail-defrule ")" ?$B!K(B) +(quail-defrule "_" ?$B!2(B) +(quail-defrule "+" ?$B!\(B) +(quail-defrule "~" ?$B!1(B) +(quail-defrule "Q" ?$B!](B) +(quail-defrule "W" ?$B&2(B) +(quail-defrule "E" ?$B&%(B) +(quail-defrule "R" ?$B&1(B) +(quail-defrule "T" ?$B&3(B) +(quail-defrule "Y" ?$B&4(B) +(quail-defrule "U" ?$B&((B) +(quail-defrule "I" ?$B&)(B) +(quail-defrule "O" ?$B&/(B) +(quail-defrule "P" ?$B&1(B) +(quail-defrule "{" ?$B!P(B) +(quail-defrule "}" ?$B!Q(B) +(quail-defrule "A" ?$B&!(B) +(quail-defrule "S" ?$B&2(B) +(quail-defrule "D" ?$B&$(B) +(quail-defrule "F" ?$B&5(B) +(quail-defrule "G" ?$B&#(B) +(quail-defrule "H" ?$B&'(B) +(quail-defrule "J" ?$B&.(B) +(quail-defrule "K" ?$B&*(B) +(quail-defrule "L" ?$B&+(B) +(quail-defrule ":" ?$B!I(B) +(quail-defrule "\"" ?$B!I(B) +(quail-defrule "|" ?$B!C(B) +(quail-defrule "Z" ?$B&&(B) +(quail-defrule "X" ?$B&6(B) +(quail-defrule "C" ?$B&7(B) +(quail-defrule "V" ?$B&8(B) +(quail-defrule "B" ?$B&"(B) +(quail-defrule "N" ?$B&-(B) +(quail-defrule "M" ?$B&,(B) +(quail-defrule "<" ?$B!((B) +(quail-defrule ">" ?$B!'(B) +(quail-defrule "?" ?$B!)(B) + +(quail-setup-current-package) +;;; + +(quail-define-package "greek" ",FEkkgmij\(B" nil "Greek Keyboard +-------------- + +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) + +;; 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-defrule "1" ?1) +(quail-defrule "2" ?2) +(quail-defrule "3" ?3) +(quail-defrule "4" ?4) +(quail-defrule "5" ?5) +(quail-defrule "6" ?6) +(quail-defrule "7" ?7) +(quail-defrule "8" ?8) +(quail-defrule "9" ?9) +(quail-defrule "0" ?0) +(quail-defrule "-" ?-) +(quail-defrule "=" ?=) +(quail-defrule "`" ?`) +(quail-defrule "q" ?,F7(B) +(quail-defrule "w" ?,Fr(B) +(quail-defrule "e" ?,Fe(B) +(quail-defrule "r" ?,Fq(B) +(quail-defrule "t" ?,Ft(B) +(quail-defrule "y" ?,Fu(B) +(quail-defrule "u" ?,Fh(B) +(quail-defrule "i" ?,Fi(B) +(quail-defrule "o" ?,Fo(B) +(quail-defrule "p" ?,Fp(B) +(quail-defrule "[" ?[) +(quail-defrule "]" ?]) +(quail-defrule "a" ?,Fa(B) +(quail-defrule "s" ?,Fs(B) +(quail-defrule "d" ?,Fd(B) +(quail-defrule "f" ?,Fv(B) +(quail-defrule "g" ?,Fc(B) +(quail-defrule "h" ?,Fg(B) +(quail-defrule "j" ?,Fn(B) +(quail-defrule "k" ?,Fj(B) +(quail-defrule "l" ?,Fk(B) +(quail-defrule ";" ?,F4(B) +(quail-defrule "'" ?') +(quail-defrule "\\" ?\\) +(quail-defrule "z" ?,Ff(B) +(quail-defrule "x" ?,Fw(B) +(quail-defrule "c" ?,Fx(B) +(quail-defrule "v" ?,Fy(B) +(quail-defrule "b" ?,Fb(B) +(quail-defrule "n" ?,Fm(B) +(quail-defrule "m" ?,Fl(B) +(quail-defrule "," ?,) +(quail-defrule "." ?.) +(quail-defrule "/" ?/) + +(quail-defrule "!" ?!) +(quail-defrule "@" ?@) +(quail-defrule "#" ?#) +(quail-defrule "$" ?$) +(quail-defrule "%" ?%) +(quail-defrule "^" ?^) +(quail-defrule "&" ?&) +(quail-defrule "*" ?*) +(quail-defrule "(" ?() +(quail-defrule ")" ?)) +(quail-defrule "_" ?_) +(quail-defrule "+" ?+) +(quail-defrule "~" ?~) +(quail-defrule "Q" ?,F/(B) +(quail-defrule "W" ?,FS(B) +(quail-defrule "E" ?,FE(B) +(quail-defrule "R" ?,FQ(B) +(quail-defrule "T" ?,FT(B) +(quail-defrule "Y" ?,FU(B) +(quail-defrule "U" ?,FH(B) +(quail-defrule "I" ?,FI(B) +(quail-defrule "O" ?,FO(B) +(quail-defrule "P" ?,FP(B) +(quail-defrule "{" ?{) +(quail-defrule "}" ?}) +(quail-defrule "A" ?,FA(B) +(quail-defrule "S" ?,FS(B) +(quail-defrule "D" ?,FD(B) +(quail-defrule "F" ?,FV(B) +(quail-defrule "G" ?,FC(B) +(quail-defrule "H" ?,FG(B) +(quail-defrule "J" ?,FN(B) +(quail-defrule "K" ?,FJ(B) +(quail-defrule "L" ?,FK(B) +(quail-defrule ":" ?,F((B) +(quail-defrule "\"" ?\") +(quail-defrule "|" ?|) +(quail-defrule "Z" ?,FF(B) +(quail-defrule "X" ?,FW(B) +(quail-defrule "C" ?,FX(B) +(quail-defrule "V" ?,FY(B) +(quail-defrule "B" ?,FB(B) +(quail-defrule "N" ?,FM(B) +(quail-defrule "M" ?,FL(B) +(quail-defrule "<" ?;) +(quail-defrule ">" ?:) +(quail-defrule "?" ??) + +(quail-defrule "a;" ?,F\(B) +(quail-defrule "e;" ?,F](B) +(quail-defrule "h;" ?,F^(B) +(quail-defrule "i;" ?,F_(B) +(quail-defrule "o;" ?,F|(B) +(quail-defrule "y;" ?,F}(B) +(quail-defrule "v;" ?,F~(B) +(quail-defrule "A;" ?,F6(B) +(quail-defrule "E;" ?,F8(B) +(quail-defrule "H;" ?,F9(B) +(quail-defrule "I;" ?,F:(B) +(quail-defrule "O;" ?,F<(B) +(quail-defrule "Y;" ?,F>(B) +(quail-defrule "V;" ?,F?(B) +(quail-defrule "i:" ?,Fz(B) +(quail-defrule "y:" ?,F{(B) +(quail-defrule "I:" ?,FZ(B) +(quail-defrule "Y:" ?,F[(B) +(quail-defrule "i:;" ?,F@(B) +(quail-defrule "y:;" ?,F`(B) + +(quail-setup-current-package)