Mercurial > emacs
annotate leim/quail/slovak.el @ 87253:6df659d50dc9
Add declare-function compatibility definition.
Require gnus-sum not just when compiling.
(nnvirtual-find-group-art): Declare as a function.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 11 Dec 2007 05:47:37 +0000 |
parents | 2904684117d6 |
children | 3ca83a726835 f55f9811f5d7 |
rev | line source |
---|---|
48309 | 1 ;;; slovak.el --- Quail package for inputting Slovak -*-coding: iso-2022-7bit;-*- |
21196 | 2 |
75253
f5f322eb227f
Update copyright for years from Emacs 21 to present.
Glenn Morris <rgm@gnu.org>
parents:
70125
diff
changeset
|
3 ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007 |
f5f322eb227f
Update copyright for years from Emacs 21 to present.
Glenn Morris <rgm@gnu.org>
parents:
70125
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
21196 | 5 |
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
37767
diff
changeset
|
6 ;; Authors: Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk> |
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
37767
diff
changeset
|
7 ;; Milan Zamazal <pdm@zamazal.org> |
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
37767
diff
changeset
|
8 ;; Maintainer: Pavel Jan,Bm(Bk <Pavel@Janik.cz> |
48309 | 9 ;; Keywords: i18n, multilingual, input method, Slovak |
21196 | 10 |
21422 | 11 ;; This file is part of GNU Emacs. |
12 | |
13 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
14 ;; it under the terms of the GNU General Public License as published by | |
78275
2904684117d6
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75253
diff
changeset
|
15 ;; the Free Software Foundation; either version 3, or (at your option) |
21422 | 16 ;; any later version. |
17 | |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
64083 | 25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
26 ;; Boston, MA 02110-1301, USA. | |
21196 | 27 |
28 ;;; Commentary: | |
29 | |
44410
f1c0aa406cb0
Add i18n keyword to get listed in package finder.
Pavel Janík <Pavel@Janik.cz>
parents:
38453
diff
changeset
|
30 ;; This file defines the following Slovak keyboards: |
21196 | 31 ;; - standard Slovak keyboard |
32 ;; - three Slovak keyboards for programmers | |
33 | |
34 ;;; Code: | |
35 | |
36 (require 'quail) | |
37 | |
44410
f1c0aa406cb0
Add i18n keyword to get listed in package finder.
Pavel Janík <Pavel@Janik.cz>
parents:
38453
diff
changeset
|
38 |
21196 | 39 (quail-define-package |
37767
9cea2faa6fb8
Set guidance to t for czech and
Gerd Moellmann <gerd@gnu.org>
parents:
36915
diff
changeset
|
40 "slovak" "Slovak" "SK" t |
21196 | 41 "Standard Slovak keyboard." |
36794
794197ce5401
("slovak"): Give t to the arg SHOW-LAYOUT.
Kenichi Handa <handa@m17n.org>
parents:
23006
diff
changeset
|
42 nil t nil nil t nil nil nil nil nil t) |
21196 | 43 |
44 (quail-define-rules | |
45 ("1" ?+) | |
46 ("2" ?,B5(B) | |
47 ("3" ?,B9(B) | |
48 ("4" ?,Bh(B) | |
49 ("5" ?,B;(B) | |
50 ("6" ?,B>(B) | |
51 ("7" ?,B}(B) | |
52 ("8" ?,Ba(B) | |
53 ("9" ?,Bm(B) | |
54 ("0" ?,Bi(B) | |
55 ("!" ?1) | |
56 ("@" ?2) | |
57 ("#" ?3) | |
58 ("$" ?4) | |
59 ("%" ?5) | |
60 ("^" ?6) | |
61 ("&" ?7) | |
62 ("*" ?8) | |
63 ("(" ?9) | |
64 (")" ?0) | |
65 ("-" ?=) | |
66 ("_" ?%) | |
67 ("=" ?') | |
68 ("[" ?,Bz(B) | |
69 ("{" ?/) | |
70 ("]" ?,Bd(B) | |
71 ("}" ?\() | |
72 ("\\" ?,Br(B) | |
73 ("|" ?\)) | |
74 (";" ?,Bt(B) | |
75 (":" ?\") | |
76 ("'" ?,B'(B) | |
77 ("\"" ?!) | |
78 ("<" ??) | |
79 (">" ?:) | |
80 ("/" ?-) | |
81 ("?" ?_) | |
82 ("`" ?\;) | |
83 ("~" ?^) | |
84 ("y" ?z) | |
85 ("z" ?y) | |
86 ("Y" ?Z) | |
87 ("Z" ?Y) | |
88 ("=a" ?,Ba(B) | |
89 ("+a" ?,Bd(B) | |
90 ("+=a" ?,Bd(B) | |
91 ("+c" ?,Bh(B) | |
92 ("+d" ?,Bo(B) | |
93 ("=e" ?,Bi(B) | |
94 ("+e" ?,Bl(B) | |
95 ("=i" ?,Bm(B) | |
96 ("=l" ?,Be(B) | |
97 ("+l" ?,B5(B) | |
98 ("+n" ?,Br(B) | |
99 ("=o" ?,Bs(B) | |
100 ("+o" ?,Bt(B) | |
101 ("~o" ?,Bt(B) | |
102 ("+=o" ?,Bv(B) | |
103 ("=r" ?,B`(B) | |
104 ("+r" ?,Bx(B) | |
105 ("=s" ?,B_(B) | |
106 ("+s" ?,B9(B) | |
107 ("+t" ?,B;(B) | |
108 ("=u" ?,Bz(B) | |
109 ("+u" ?,By(B) | |
110 ("+=u" ?,B|(B) | |
111 ("=z" ?,B}(B) | |
112 ("+y" ?,B>(B) | |
113 ("=A" ?,BA(B) | |
114 ("+A" ?,BD(B) | |
115 ("+=A" ?,BD(B) | |
116 ("+C" ?,BH(B) | |
117 ("+D" ?,BO(B) | |
118 ("=E" ?,BI(B) | |
119 ("+E" ?,BL(B) | |
120 ("=I" ?,BM(B) | |
121 ("=L" ?,BE(B) | |
122 ("+L" ?,B%(B) | |
123 ("+N" ?,BR(B) | |
124 ("=O" ?,BS(B) | |
125 ("+O" ?,BT(B) | |
126 ("~O" ?,BT(B) | |
127 ("+=O" ?,BV(B) | |
128 ("=R" ?,B@(B) | |
129 ("+R" ?,BX(B) | |
130 ("=S" ?,B_(B) | |
131 ("+S" ?,B)(B) | |
132 ("+T" ?,B+(B) | |
133 ("=U" ?,BZ(B) | |
134 ("+U" ?,BY(B) | |
135 ("+=U" ?,B\(B) | |
136 ("=Z" ?,B](B) | |
137 ("+Y" ?,B.(B) | |
36915
fa4b8046aa0d
("slovak"): Translate "=q" to "`".
Kenichi Handa <handa@m17n.org>
parents:
36844
diff
changeset
|
138 ("=q" ?`) |
21196 | 139 ("=2" ?@) |
140 ("=3" ?#) | |
141 ("=4" ?$) | |
142 ("=5" ?%) | |
143 ("=6" ?^) | |
144 ("=7" ?&) | |
145 ("=8" ?*) | |
146 ("=9" ?\() | |
147 ("=0" ?\)) | |
148 ("+1" ?!) | |
149 ("+2" ?@) | |
150 ("+3" ?#) | |
151 ("+4" ?$) | |
152 ("+5" ?%) | |
153 ("+6" ?^) | |
154 ("+7" ?&) | |
155 ("+8" ?*) | |
156 ("+9" ?\() | |
157 ("+0" ?\)) | |
158 ([kp-1] ?1) | |
159 ([kp-2] ?2) | |
160 ([kp-3] ?3) | |
161 ([kp-4] ?4) | |
162 ([kp-5] ?5) | |
163 ([kp-6] ?6) | |
164 ([kp-7] ?7) | |
165 ([kp-8] ?8) | |
166 ([kp-9] ?9) | |
167 ([kp-0] ?0) | |
168 ([kp-add] ?+)) | |
169 | |
170 | |
171 (quail-define-package | |
37767
9cea2faa6fb8
Set guidance to t for czech and
Gerd Moellmann <gerd@gnu.org>
parents:
36915
diff
changeset
|
172 "slovak-prog-1" "Slovak" "SK" t |
21196 | 173 "Slovak (non-standard) keyboard for programmers #1. |
174 | |
175 All digits except of `1' are replaced by Slovak characters as on the standard | |
176 Slovak keyboard. | |
177 Dead keys are on `[', `[[', and `[[['. | |
178 All other keys are the same as on standard US keyboard." | |
36844
669dfa81f7e4
("slovak"): Delete translations of "q", "Q", "=q", "+q", "=Q", and "+Q".
Kenichi Handa <handa@m17n.org>
parents:
36794
diff
changeset
|
179 nil t nil nil t nil nil nil nil nil t) |
21196 | 180 |
181 (quail-define-rules | |
182 ("[[[[" ?\[) | |
183 ("2" ?,B5(B) | |
184 ("3" ?,B9(B) | |
185 ("4" ?,Bh(B) | |
186 ("5" ?,B;(B) | |
187 ("6" ?,B>(B) | |
188 ("7" ?,B}(B) | |
189 ("8" ?,Ba(B) | |
190 ("9" ?,Bm(B) | |
191 ("0" ?,Bi(B) | |
192 ("[a" ?,Ba(B) | |
193 ("[[a" ?,Bd(B) | |
194 ("[[[a" ?,Bd(B) | |
195 ("[c" ?,Bh(B) | |
196 ("[[c" ?,Bh(B) | |
197 ("[d" ?,Bo(B) | |
198 ("[[d" ?,Bo(B) | |
199 ("[e" ?,Bi(B) | |
200 ("[[e" ?,Bl(B) | |
201 ("[i" ?,Bm(B) | |
202 ("[l" ?,Be(B) | |
203 ("[[l" ?,B5(B) | |
204 ("[n" ?,Br(B) | |
205 ("[[n" ?,Br(B) | |
206 ("[o" ?,Bs(B) | |
207 ("[[o" ?,Bt(B) | |
208 ("[[[o" ?,Bv(B) | |
209 ("[r" ?,B`(B) | |
210 ("[[r" ?,Bx(B) | |
211 ("[s" ?,B9(B) | |
212 ("[[s" ?,B9(B) | |
213 ("[[[s" ?,B_(B) | |
214 ("[t" ?,B;(B) | |
215 ("[[t" ?,B;(B) | |
216 ("[u" ?,Bz(B) | |
217 ("[[u" ?,By(B) | |
218 ("[[[u" ?,B|(B) | |
219 ("[y" ?,B}(B) | |
220 ("[z" ?,B>(B) | |
221 ("[[z" ?,B>(B) | |
222 ("[A" ?,BA(B) | |
223 ("[[A" ?,BD(B) | |
224 ("[[[A" ?,BD(B) | |
225 ("[C" ?,BH(B) | |
226 ("[[C" ?,BH(B) | |
227 ("[D" ?,BO(B) | |
228 ("[[D" ?,BO(B) | |
229 ("[E" ?,BI(B) | |
230 ("[[E" ?,BL(B) | |
231 ("[I" ?,BM(B) | |
232 ("[L" ?,BE(B) | |
233 ("[[L" ?,B%(B) | |
234 ("[N" ?,BR(B) | |
235 ("[[N" ?,BR(B) | |
236 ("[O" ?,BS(B) | |
237 ("[[O" ?,BT(B) | |
238 ("[[[O" ?,BV(B) | |
239 ("[R" ?,B@(B) | |
240 ("[[R" ?,BX(B) | |
241 ("[S" ?,B)(B) | |
242 ("[[S" ?,B)(B) | |
243 ("[[[S" ?,B_(B) | |
244 ("[T" ?,B+(B) | |
245 ("[[T" ?,B+(B) | |
246 ("[U" ?,BZ(B) | |
247 ("[[U" ?,BY(B) | |
248 ("[[[U" ?,B\(B) | |
249 ("[Y" ?,B](B) | |
250 ("[Z" ?,B.(B) | |
251 ("[[Z" ?,B.(B) | |
252 ([kp-1] ?1) | |
253 ([kp-2] ?2) | |
254 ([kp-3] ?3) | |
255 ([kp-4] ?4) | |
256 ([kp-5] ?5) | |
257 ([kp-6] ?6) | |
258 ([kp-7] ?7) | |
259 ([kp-8] ?8) | |
260 ([kp-9] ?9) | |
261 ([kp-0] ?0) | |
262 ([kp-add] ?+)) | |
263 | |
264 | |
265 (quail-define-package | |
37767
9cea2faa6fb8
Set guidance to t for czech and
Gerd Moellmann <gerd@gnu.org>
parents:
36915
diff
changeset
|
266 "slovak-prog-2" "Slovak" "SK" t |
21196 | 267 "Slovak (non-standard) keyboard for programmers #2. |
268 | |
269 All digits except of `1' are replaced by Slovak characters as on the standard | |
270 Slovak keyboard. | |
271 Dead keys are on `=' and `+'. | |
272 All other keys are the same as on standard US keyboard." | |
36844
669dfa81f7e4
("slovak"): Delete translations of "q", "Q", "=q", "+q", "=Q", and "+Q".
Kenichi Handa <handa@m17n.org>
parents:
36794
diff
changeset
|
273 nil t nil nil t nil nil nil nil nil t) |
21196 | 274 |
275 (quail-define-rules | |
276 ("2" ?,B5(B) | |
277 ("3" ?,B9(B) | |
278 ("4" ?,Bh(B) | |
279 ("5" ?,B;(B) | |
280 ("6" ?,B>(B) | |
281 ("7" ?,B}(B) | |
282 ("8" ?,Ba(B) | |
283 ("9" ?,Bm(B) | |
284 ("0" ?,Bi(B) | |
285 ("==" ?=) | |
286 ("++" ?+) | |
287 ("=+" ?+) | |
288 ("=2" ?2) | |
289 ("=3" ?3) | |
290 ("=4" ?4) | |
291 ("=5" ?5) | |
292 ("=6" ?6) | |
293 ("=7" ?7) | |
294 ("=8" ?8) | |
295 ("=9" ?9) | |
296 ("=0" ?0) | |
297 ("+2" ?2) | |
298 ("+3" ?3) | |
299 ("+4" ?4) | |
300 ("+5" ?5) | |
301 ("+6" ?6) | |
302 ("+7" ?7) | |
303 ("+8" ?8) | |
304 ("+9" ?9) | |
305 ("+0" ?0) | |
306 ("=a" ?,Ba(B) | |
307 ("+a" ?,Bd(B) | |
308 ("+=a" ?,Bd(B) | |
309 ("+c" ?,Bh(B) | |
310 ("+d" ?,Bo(B) | |
311 ("=e" ?,Bi(B) | |
312 ("+e" ?,Bl(B) | |
313 ("=i" ?,Bm(B) | |
314 ("=l" ?,Be(B) | |
315 ("+l" ?,B5(B) | |
316 ("+n" ?,Br(B) | |
317 ("=o" ?,Bs(B) | |
318 ("+o" ?,Bt(B) | |
319 ("+=o" ?,Bv(B) | |
320 ("=r" ?,B`(B) | |
321 ("+r" ?,Bx(B) | |
322 ("=s" ?,B_(B) | |
323 ("+s" ?,B9(B) | |
324 ("+t" ?,B;(B) | |
325 ("=u" ?,Bz(B) | |
326 ("+u" ?,By(B) | |
327 ("+=u" ?,B|(B) | |
328 ("=y" ?,B}(B) | |
329 ("+z" ?,B>(B) | |
330 ("=A" ?,BA(B) | |
331 ("+A" ?,BD(B) | |
332 ("+=A" ?,BD(B) | |
333 ("+C" ?,BH(B) | |
334 ("+D" ?,BO(B) | |
335 ("=E" ?,BI(B) | |
336 ("+E" ?,BL(B) | |
337 ("=I" ?,BM(B) | |
338 ("=L" ?,BE(B) | |
339 ("+L" ?,B%(B) | |
340 ("+N" ?,BR(B) | |
341 ("=O" ?,BS(B) | |
342 ("+O" ?,BT(B) | |
343 ("+=O" ?,BV(B) | |
344 ("=R" ?,B@(B) | |
345 ("+R" ?,BX(B) | |
346 ("=S" ?,B_(B) | |
347 ("+S" ?,B)(B) | |
348 ("+T" ?,B+(B) | |
349 ("=U" ?,BZ(B) | |
350 ("+U" ?,BY(B) | |
351 ("+=U" ?,B\(B) | |
352 ("=Y" ?,B](B) | |
353 ("+Z" ?,B.(B) | |
354 ([kp-1] ?1) | |
355 ([kp-2] ?2) | |
356 ([kp-3] ?3) | |
357 ([kp-4] ?4) | |
358 ([kp-5] ?5) | |
359 ([kp-6] ?6) | |
360 ([kp-7] ?7) | |
361 ([kp-8] ?8) | |
362 ([kp-9] ?9) | |
363 ([kp-0] ?0) | |
364 ([kp-add] ?+)) | |
365 | |
366 | |
367 (quail-define-package | |
37767
9cea2faa6fb8
Set guidance to t for czech and
Gerd Moellmann <gerd@gnu.org>
parents:
36915
diff
changeset
|
368 "slovak-prog-3" "Slovak" "SK" t |
21196 | 369 "Slovak (non-standard) keyboard for programmers #3. |
370 | |
371 Dead keys are on `[', `[[', `[[[', and `]'. | |
372 All other keys are the same as on standard US keyboard." | |
36844
669dfa81f7e4
("slovak"): Delete translations of "q", "Q", "=q", "+q", "=Q", and "+Q".
Kenichi Handa <handa@m17n.org>
parents:
36794
diff
changeset
|
373 nil t nil nil t nil nil nil nil nil t) |
21196 | 374 |
375 (quail-define-rules | |
376 ("[[[[" ?\[) | |
377 ("[]" ?\]) | |
378 ("][" ?\[) | |
379 ("]]" ?\]) | |
380 ("[a" ?,Ba(B) | |
381 ("[[a" ?,Bd(B) | |
382 ("[[[a" ?,Bd(B) | |
383 ("]a" ?,Bd(B) | |
384 ("][a" ?,Bd(B) | |
385 ("[c" ?,Bh(B) | |
386 ("[[c" ?,Bh(B) | |
387 ("]c" ?,Bh(B) | |
388 ("[d" ?,Bo(B) | |
389 ("[[d" ?,Bo(B) | |
390 ("]d" ?,Bo(B) | |
391 ("[e" ?,Bi(B) | |
392 ("[[e" ?,Bl(B) | |
393 ("]e" ?,Bl(B) | |
394 ("[i" ?,Bm(B) | |
395 ("[l" ?,Be(B) | |
396 ("[[l" ?,B5(B) | |
397 ("]l" ?,B5(B) | |
398 ("[n" ?,Br(B) | |
399 ("[[n" ?,Br(B) | |
400 ("]n" ?,Br(B) | |
401 ("[[o" ?,Bt(B) | |
402 ("[[[o" ?,Bv(B) | |
403 ("[o" ?,Bs(B) | |
404 ("]o" ?,Bt(B) | |
405 ("][o" ?,Bv(B) | |
406 ("[r" ?,B`(B) | |
407 ("[[r" ?,Bx(B) | |
408 ("]r" ?,Bx(B) | |
409 ("[s" ?,B9(B) | |
410 ("[[s" ?,B9(B) | |
411 ("[[[s" ?,B_(B) | |
412 ("]s" ?,B9(B) | |
413 ("[t" ?,B;(B) | |
414 ("[[t" ?,B;(B) | |
415 ("]t" ?,B;(B) | |
416 ("[u" ?,Bz(B) | |
417 ("[[u" ?,By(B) | |
418 ("[[[u" ?,B|(B) | |
419 ("]u" ?,By(B) | |
420 ("][u" ?,B|(B) | |
421 ("[y" ?,B}(B) | |
422 ("[z" ?,B>(B) | |
423 ("[[z" ?,B>(B) | |
424 ("]z" ?,B>(B) | |
425 ("[A" ?,BA(B) | |
426 ("[[A" ?,BD(B) | |
427 ("[[[A" ?,BD(B) | |
428 ("]A" ?,BD(B) | |
429 ("][A" ?,BD(B) | |
430 ("[C" ?,BH(B) | |
431 ("[[C" ?,BH(B) | |
432 ("]C" ?,BH(B) | |
433 ("[D" ?,BO(B) | |
434 ("[[D" ?,BO(B) | |
435 ("]D" ?,BO(B) | |
436 ("[E" ?,BI(B) | |
437 ("[[E" ?,BL(B) | |
438 ("]E" ?,BL(B) | |
439 ("[I" ?,BM(B) | |
440 ("[L" ?,BE(B) | |
441 ("[[L" ?,B%(B) | |
442 ("]L" ?,B%(B) | |
443 ("[N" ?,BR(B) | |
444 ("[[N" ?,BR(B) | |
445 ("]N" ?,BR(B) | |
446 ("[O" ?,BS(B) | |
447 ("[[O" ?,BT(B) | |
448 ("[[[O" ?,BV(B) | |
449 ("]O" ?,BT(B) | |
450 ("][O" ?,BV(B) | |
451 ("[R" ?,B@(B) | |
452 ("[[R" ?,BX(B) | |
453 ("]R" ?,BX(B) | |
454 ("[S" ?,B)(B) | |
455 ("[[S" ?,B)(B) | |
456 ("[[[S" ?,B_(B) | |
457 ("]S" ?,B)(B) | |
458 ("[T" ?,B+(B) | |
459 ("[[T" ?,B+(B) | |
460 ("]T" ?,B+(B) | |
461 ("[U" ?,BZ(B) | |
462 ("[[U" ?,BY(B) | |
463 ("[[[U" ?,B\(B) | |
464 ("]U" ?,BY(B) | |
465 ("][U" ?,B\(B) | |
466 ("[Y" ?,B](B) | |
467 ("[Z" ?,B.(B) | |
468 ("[[Z" ?,B.(B) | |
469 ("]Z" ?,B.(B) | |
470 ([kp-1] ?1) | |
471 ([kp-2] ?2) | |
472 ([kp-3] ?3) | |
473 ([kp-4] ?4) | |
474 ([kp-5] ?5) | |
475 ([kp-6] ?6) | |
476 ([kp-7] ?7) | |
477 ([kp-8] ?8) | |
478 ([kp-9] ?9) | |
479 ([kp-0] ?0) | |
480 ([kp-add] ?+)) | |
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
37767
diff
changeset
|
481 |
52401 | 482 ;;; arch-tag: 8aedb992-e191-4eec-ad0d-71a352e02a3d |
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
37767
diff
changeset
|
483 ;;; slovak.el ends here |