Mercurial > hg > xemacs-beta

comparison lisp/leim/quail/greek.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents
children acd284d43ca1
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
1 ;;; quail/greek.el -- Quail package for inputting Greek
2
3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
5
6 ;; Keywords: multilingual, input method, Greek
7
8 ;; This file is part of GNU Emacs.
9
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
14
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
19
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
23
24 ;;; Code:
25
26 (require 'quail)
27
28 (quail-define-package "quail-jis-greek" "Greek" "$B&%&K&K&G&M&I&J&A(B" nil
29 "JIS X0208.1983 encoding.
30 The layout is same as greek, but uses JIS characters.
31 Sorry, accents and terminal sigma are not supported in JIS."
32 nil t t t t)
33
34 (quail-define-rules
35 ("1" ?$B#1(B)
36 ("2" ?$B#2(B)
37 ("3" ?$B#3(B)
38 ("4" ?$B#4(B)
39 ("5" ?$B#5(B)
40 ("6" ?$B#6(B)
41 ("7" ?$B#7(B)
42 ("8" ?$B#8(B)
43 ("9" ?$B#9(B)
44 ("0" ?$B#0(B)
45 ("-" ?$B!](B)
46 ("=" ?$B!a(B)
47 ("`" ?$B!F(B)
48 ("q" ?$B!&(B)
49 ("w" ?$B&R(B)
50 ("e" ?$B&E(B)
51 ("r" ?$B&Q(B)
52 ("t" ?$B&S(B)
53 ("y" ?$B&T(B)
54 ("u" ?$B&H(B)
55 ("i" ?$B&I(B)
56 ("o" ?$B&O(B)
57 ("p" ?$B&P(B)
58 ("[" ?\$B!N(B)
59 ("]" ?\$B!O(B)
60 ("a" ?$B&A(B)
61 ("s" ?$B&R(B)
62 ("d" ?$B&D(B)
63 ("f" ?$B&U(B)
64 ("g" ?$B&C(B)
65 ("h" ?$B&G(B)
66 ("j" ?$B&N(B)
67 ("k" ?$B&J(B)
68 ("l" ?$B&K(B)
69 (";" ?$B!G(B)
70 ("'" ?$B!G(B)
71 ("\\" ?$B!@(B)
72 ("z" ?$B&F(B)
73 ("x" ?$B&V(B)
74 ("c" ?$B&W(B)
75 ("v" ?$B&X(B)
76 ("b" ?$B&B(B)
77 ("n" ?$B&M(B)
78 ("m" ?$B&L(B)
79 ("," ?, )
80 ("." ?. )
81 ("/" ?$B!?(B)
82
83 ("!" ?$B!*(B)
84 ("@" ?$B!w(B)
85 ("#" ?$B!t(B)
86 ("$" ?$B!t(B)
87 ("%" ?$B!s(B)
88 ("^" ?$B!0(B)
89 ("&" ?$B!u(B)
90 ("*" ?$B!v(B)
91 ("(" ?\$B!J(B)
92 (")" ?\$B!K(B)
93 ("_" ?$B!2(B)
94 ("+" ?$B!\(B)
95 ("~" ?$B!1(B)
96 ("Q" ?$B!](B)
97 ("W" ?$B&2(B)
98 ("E" ?$B&%(B)
99 ("R" ?$B&1(B)
100 ("T" ?$B&3(B)
101 ("Y" ?$B&4(B)
102 ("U" ?$B&((B)
103 ("I" ?$B&)(B)
104 ("O" ?$B&/(B)
105 ("P" ?$B&1(B)
106 ("{" ?\$B!P(B)
107 ("}" ?\$B!Q(B)
108 ("A" ?$B&!(B)
109 ("S" ?$B&2(B)
110 ("D" ?$B&$(B)
111 ("F" ?$B&5(B)
112 ("G" ?$B&#(B)
113 ("H" ?$B&'(B)
114 ("J" ?$B&.(B)
115 ("K" ?$B&*(B)
116 ("L" ?$B&+(B)
117 (":" ?$B!I(B)
118 ("\"" ?$B!I(B)
119 ("|" ?$B!C(B)
120 ("Z" ?$B&&(B)
121 ("X" ?$B&6(B)
122 ("C" ?$B&7(B)
123 ("V" ?$B&8(B)
124 ("B" ?$B&"(B)
125 ("N" ?$B&-(B)
126 ("M" ?$B&,(B)
127 ("<" ?$B!((B)
128 (">" ?$B!'(B)
129 ("?" ?$B!)(B))
130
131 ;;
132
133 (quail-define-package "quail-greek" "Greek" ",FEkkgmij\(B" nil
134 "Greek Keyboard
135 --------------
136
137 In the right of ,Fk(B key is a combination key, where
138 ,F4(B acute
139 ,F((B diaresis
140
141 e.g.
142 ,Fa(B + ,F4(B -> ,F\(B
143 ,Fi(B + ,F((B -> ,Fz(B
144 ,Fi(B + ,F((B + ,F4(B -> ,F@(B"
145 nil t t t t)
146
147 ;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~
148 ;; ,F7/(B ,FrS(B ,FeE(B ,FqQ(B ,FtT(B ,FuU(B ,FhH(B ,FiI(B ,FoO(B ,FpP(B [{ ]}
149 ;; ,FaA(B ,FsS(B ,FdD(B ,FvV(B ,FcC(B ,FgG(B ,FnN(B ,FjJ(B ,FkK(B ,F4((B '" \|
150 ;; ,FfF(B ,FwW(B ,FxX(B ,FyY(B ,FbB(B ,FmM(B ,FlL(B ,; .: /?
151
152 (quail-define-rules
153 ("1" ?1)
154 ("2" ?2)
155 ("3" ?3)
156 ("4" ?4)
157 ("5" ?5)
158 ("6" ?6)
159 ("7" ?7)
160 ("8" ?8)
161 ("9" ?9)
162 ("0" ?0)
163 ("-" ?-)
164 ("=" ?=)
165 ("`" ?`)
166 ("q" ?,F7(B)
167 ("w" ?,Fr(B)
168 ("e" ?,Fe(B)
169 ("r" ?,Fq(B)
170 ("t" ?,Ft(B)
171 ("y" ?,Fu(B)
172 ("u" ?,Fh(B)
173 ("i" ?,Fi(B)
174 ("o" ?,Fo(B)
175 ("p" ?,Fp(B)
176 ("[" ?\[)
177 ("]" ?\])
178 ("a" ?,Fa(B)
179 ("s" ?,Fs(B)
180 ("d" ?,Fd(B)
181 ("f" ?,Fv(B)
182 ("g" ?,Fc(B)
183 ("h" ?,Fg(B)
184 ("j" ?,Fn(B)
185 ("k" ?,Fj(B)
186 ("l" ?,Fk(B)
187 (";" ?,F4(B)
188 ("'" ?')
189 ("\\" ?\\)
190 ("z" ?,Ff(B)
191 ("x" ?,Fw(B)
192 ("c" ?,Fx(B)
193 ("v" ?,Fy(B)
194 ("b" ?,Fb(B)
195 ("n" ?,Fm(B)
196 ("m" ?,Fl(B)
197 ("," ?,)
198 ("." ?.)
199 ("/" ?/)
200
201 ("!" ?!)
202 ("@" ?@)
203 ("#" ?#)
204 ("$" ?$)
205 ("%" ?%)
206 ("^" ?^)
207 ("&" ?&)
208 ("*" ?*)
209 ("(" ?\()
210 (")" ?\))
211 ("_" ?_)
212 ("+" ?+)
213 ("~" ?~)
214 ("Q" ?,F/(B)
215 ("W" ?,FS(B)
216 ("E" ?,FE(B)
217 ("R" ?,FQ(B)
218 ("T" ?,FT(B)
219 ("Y" ?,FU(B)
220 ("U" ?,FH(B)
221 ("I" ?,FI(B)
222 ("O" ?,FO(B)
223 ("P" ?,FP(B)
224 ("{" ?{)
225 ("}" ?})
226 ("A" ?,FA(B)
227 ("S" ?,FS(B)
228 ("D" ?,FD(B)
229 ("F" ?,FV(B)
230 ("G" ?,FC(B)
231 ("H" ?,FG(B)
232 ("J" ?,FN(B)
233 ("K" ?,FJ(B)
234 ("L" ?,FK(B)
235 (":" ?,F((B)
236 ("\"" ?\")
237 ("|" ?|)
238 ("Z" ?,FF(B)
239 ("X" ?,FW(B)
240 ("C" ?,FX(B)
241 ("V" ?,FY(B)
242 ("B" ?,FB(B)
243 ("N" ?,FM(B)
244 ("M" ?,FL(B)
245 ("<" ?\;)
246 (">" ?:)
247 ("?" ??)
248
249 ("a;" ?,F\(B)
250 ("e;" ?,F](B)
251 ("h;" ?,F^(B)
252 ("i;" ?,F_(B)
253 ("o;" ?,F|(B)
254 ("y;" ?,F}(B)
255 ("v;" ?,F~(B)
256 ("A;" ?,F6(B)
257 ("E;" ?,F8(B)
258 ("H;" ?,F9(B)
259 ("I;" ?,F:(B)
260 ("O;" ?,F<(B)
261 ("Y;" ?,F>(B)
262 ("V;" ?,F?(B)
263 ("i:" ?,Fz(B)
264 ("y:" ?,F{(B)
265 ("I:" ?,FZ(B)
266 ("Y:" ?,F[(B)
267 ("i:;" ?,F@(B)
268 ("y:;" ?,F`(B))