Mercurial > emacs
annotate leim/quail/czech.el @ 104889:18c2aea5083c
2009-09-09 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-util.el (gnus-float-time): Alias to float-time if it exists.
* ecomplete.el (with-no-warnings): Define it for old Emacsen.
(ecomplete-add-item): Don't use (featurep 'xemacs) to check if
float-time is available; suppress compile warning for time-to-seconds.
2009-09-07 Katsumi Yamaoka <yamaoka@jpl.org>
* mm-encode.el (mm-encode-buffer): Don't force 7bit encoding since MTA
may break data. Suggested by Dmitri Paduchikh <dpaduch@k66.ru>.
Add the optional argument `encoding' that overrides the default.
* mml.el (mml-generate-mime-1): Pass encoding defined by a user to
mm-encode-buffer.
2009-09-02 Karl Kleinpaste <karl@kleinpaste.org>
* gnus-art.el (gnus-article-read-summary-keys):
Fix gnus-buffer-configuration's value temporarily used.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Wed, 09 Sep 2009 09:28:43 +0000 |
parents | 0d2e4142fb60 |
children | 1d1d5d9bd884 |
rev | line source |
---|---|
48309 | 1 ;;; czech.el --- Quail package for inputting Czech -*-coding: iso-2022-7bit;-*- |
21196 | 2 |
100963 | 3 ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 |
75253
f5f322eb227f
Update copyright for years from Emacs 21 to present.
Glenn Morris <rgm@gnu.org>
parents:
70123
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
21196 | 5 |
37767
9cea2faa6fb8
Set guidance to t for czech and
Gerd Moellmann <gerd@gnu.org>
parents:
31426
diff
changeset
|
6 ;; Author: Milan Zamazal <pdm@zamazal.org> |
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
37767
diff
changeset
|
7 ;; Maintainer: Pavel Jan,Bm(Bk <Pavel@Janik.cz> |
44409
34da8d9e5ea2
Add i18 keyword to get listed in package finder.
Pavel Janík <Pavel@Janik.cz>
parents:
38453
diff
changeset
|
8 ;; Keywords: i18n, multilingual, input method, Czech |
21196 | 9 |
21422 | 10 ;; This file is part of GNU Emacs. |
11 | |
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
21422 | 13 ;; it under the terms of the GNU General Public License as published by |
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
15 ;; (at your option) any later version. |
21422 | 16 |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
21196 | 24 |
25 ;;; Commentary: | |
26 | |
27 ;; This file defines the following Czech keyboards: | |
28 ;; - "standard" Czech keyboard in the Windoze NT 105 keys version (both | |
29 ;; "QWERTZ" and "QWERTY" versions) | |
30 ;; - three non-standard Czech keyboards for programmers | |
31 | |
32 ;;; Code: | |
33 | |
34 (require 'quail) | |
35 | |
36 | |
37 (quail-define-package | |
37767
9cea2faa6fb8
Set guidance to t for czech and
Gerd Moellmann <gerd@gnu.org>
parents:
31426
diff
changeset
|
38 "czech" "Czech" "CZ" t |
21196 | 39 "\"Standard\" Czech keyboard in the Windoze NT 105 keys version." |
23045
a1cc2b12fdef
("czech"): Make this input method deterministic,
Kenichi Handa <handa@m17n.org>
parents:
23005
diff
changeset
|
40 nil t t t t nil nil nil nil nil t) |
21196 | 41 |
42 (quail-define-rules | |
43 ("1" ?+) | |
44 ("2" ?,Bl(B) | |
45 ("3" ?,B9(B) | |
46 ("4" ?,Bh(B) | |
47 ("5" ?,Bx(B) | |
48 ("6" ?,B>(B) | |
49 ("7" ?,B}(B) | |
50 ("8" ?,Ba(B) | |
51 ("9" ?,Bm(B) | |
52 ("0" ?,Bi(B) | |
53 ("!" ?1) | |
54 ("@" ?2) | |
55 ("#" ?3) | |
56 ("$" ?4) | |
57 ("%" ?5) | |
58 ("^" ?6) | |
59 ("&" ?7) | |
60 ("*" ?8) | |
61 ("(" ?9) | |
62 (")" ?0) | |
63 ("-" ?=) | |
64 ("_" ?%) | |
65 ("[" ?,Bz(B) | |
66 ("{" ?/) | |
67 ("]" ?\)) | |
68 ("}" ?\() | |
69 ("|" ?`) | |
70 (";" ?,By(B) | |
71 (":" ?\") | |
72 ("'" ?,B'(B) | |
73 ("\"" ?!) | |
74 ("<" ??) | |
75 (">" ?:) | |
76 ("/" ?-) | |
77 ("?" ?_) | |
78 ("`" ?\;) | |
79 ("y" ?z) | |
80 ("z" ?y) | |
81 ("Y" ?Z) | |
82 ("Z" ?Y) | |
83 ("\\a" ?,Bd(B) | |
84 ("\\o" ?,Bv(B) | |
85 ("\\s" ?,B_(B) | |
86 ("\\u" ?,B|(B) | |
87 ("\\A" ?,BD(B) | |
88 ("\\O" ?,BV(B) | |
89 ("\\S" ?,B_(B) | |
90 ("\\U" ?,B\(B) | |
91 ("~u" ?,By(B) | |
92 ("~U" ?,BY(B) | |
93 ("=a" ?,Ba(B) | |
94 ("+c" ?,Bh(B) | |
95 ("+d" ?,Bo(B) | |
96 ("=e" ?,Bi(B) | |
97 ("+e" ?,Bl(B) | |
98 ("=i" ?,Bm(B) | |
99 ("+n" ?,Br(B) | |
100 ("=o" ?,Bs(B) | |
101 ("+r" ?,Bx(B) | |
102 ("+s" ?,B9(B) | |
103 ("+t" ?,B;(B) | |
104 ("=u" ?,Bz(B) | |
105 ("=z" ?,B}(B) | |
106 ("+y" ?,B>(B) | |
107 ("=A" ?,BA(B) | |
108 ("+C" ?,BH(B) | |
109 ("+D" ?,BO(B) | |
110 ("=E" ?,BI(B) | |
111 ("+E" ?,BL(B) | |
112 ("=I" ?,BM(B) | |
113 ("+N" ?,BR(B) | |
114 ("=O" ?,BS(B) | |
115 ("+R" ?,BX(B) | |
116 ("+S" ?,B)(B) | |
117 ("+T" ?,B+(B) | |
118 ("=U" ?,BZ(B) | |
119 ("=Z" ?,B](B) | |
120 ("+Y" ?,B.(B) | |
121 ("=1" ?!) | |
122 ("=2" ?@) | |
123 ("=3" ?#) | |
124 ("=4" ?$) | |
125 ("=5" ?%) | |
126 ("=6" ?^) | |
127 ("=7" ?&) | |
128 ("=8" ?*) | |
129 ("=9" ?\() | |
130 ("=0" ?\)) | |
131 ("+1" ?!) | |
132 ("+2" ?@) | |
133 ("+3" ?#) | |
134 ("+4" ?$) | |
135 ("+5" ?%) | |
136 ("+6" ?^) | |
137 ("+7" ?&) | |
138 ("+8" ?*) | |
139 ("+9" ?\() | |
140 ("+0" ?\)) | |
23005
3d67e77643dd
Few key sequences added to some keyboards.
Richard M. Stallman <rms@gnu.org>
parents:
21422
diff
changeset
|
141 ("=<" ?<) |
3d67e77643dd
Few key sequences added to some keyboards.
Richard M. Stallman <rms@gnu.org>
parents:
21422
diff
changeset
|
142 ("=>" ?>) |
3d67e77643dd
Few key sequences added to some keyboards.
Richard M. Stallman <rms@gnu.org>
parents:
21422
diff
changeset
|
143 ("=[" ?\[) |
3d67e77643dd
Few key sequences added to some keyboards.
Richard M. Stallman <rms@gnu.org>
parents:
21422
diff
changeset
|
144 ("=]" ?\]) |
3d67e77643dd
Few key sequences added to some keyboards.
Richard M. Stallman <rms@gnu.org>
parents:
21422
diff
changeset
|
145 ("={" ?{) |
3d67e77643dd
Few key sequences added to some keyboards.
Richard M. Stallman <rms@gnu.org>
parents:
21422
diff
changeset
|
146 ("=}" ?}) |
21196 | 147 ([kp-1] ?1) |
148 ([kp-2] ?2) | |
149 ([kp-3] ?3) | |
150 ([kp-4] ?4) | |
151 ([kp-5] ?5) | |
152 ([kp-6] ?6) | |
153 ([kp-7] ?7) | |
154 ([kp-8] ?8) | |
155 ([kp-9] ?9) | |
156 ([kp-0] ?0) | |
157 ([kp-add] ?+)) | |
158 | |
159 (quail-define-package | |
37767
9cea2faa6fb8
Set guidance to t for czech and
Gerd Moellmann <gerd@gnu.org>
parents:
31426
diff
changeset
|
160 "czech-qwerty" "Czech" "CZ" t |
21196 | 161 "\"Standard\" Czech keyboard in the Windoze NT 105 keys version, QWERTY layout." |
31426
62b4382a5ad6
("czech-qwerty"): Changed to show keyboard layout
Kenichi Handa <handa@m17n.org>
parents:
23045
diff
changeset
|
162 nil t nil nil t nil nil nil nil nil t) |
21196 | 163 |
164 (quail-define-rules | |
165 ("1" ?+) | |
166 ("2" ?,Bl(B) | |
167 ("3" ?,B9(B) | |
168 ("4" ?,Bh(B) | |
169 ("5" ?,Bx(B) | |
170 ("6" ?,B>(B) | |
171 ("7" ?,B}(B) | |
172 ("8" ?,Ba(B) | |
173 ("9" ?,Bm(B) | |
174 ("0" ?,Bi(B) | |
175 ("!" ?1) | |
176 ("@" ?2) | |
177 ("#" ?3) | |
178 ("$" ?4) | |
179 ("%" ?5) | |
180 ("^" ?6) | |
181 ("&" ?7) | |
182 ("*" ?8) | |
183 ("(" ?9) | |
184 (")" ?0) | |
185 ("-" ?=) | |
186 ("_" ?%) | |
187 ("[" ?,Bz(B) | |
188 ("{" ?/) | |
189 ("]" ?\)) | |
190 ("}" ?\() | |
191 ("|" ?`) | |
192 (";" ?,By(B) | |
193 (":" ?\") | |
194 ("'" ?,B'(B) | |
195 ("\"" ?!) | |
196 ("<" ??) | |
197 (">" ?:) | |
198 ("/" ?-) | |
199 ("?" ?_) | |
200 ("`" ?\;) | |
201 ("\\a" ?,Bd(B) | |
202 ("\\o" ?,Bv(B) | |
203 ("\\s" ?,B_(B) | |
204 ("\\u" ?,B|(B) | |
205 ("\\A" ?,BD(B) | |
206 ("\\O" ?,BV(B) | |
207 ("\\S" ?,B_(B) | |
208 ("\\U" ?,B\(B) | |
209 ("~u" ?,By(B) | |
210 ("~U" ?,BY(B) | |
211 ("=a" ?,Ba(B) | |
212 ("+c" ?,Bh(B) | |
213 ("+d" ?,Bo(B) | |
214 ("=e" ?,Bi(B) | |
215 ("+e" ?,Bl(B) | |
216 ("=i" ?,Bm(B) | |
217 ("+n" ?,Br(B) | |
218 ("=o" ?,Bs(B) | |
219 ("+r" ?,Bx(B) | |
220 ("+s" ?,B9(B) | |
221 ("+t" ?,B;(B) | |
222 ("=u" ?,Bz(B) | |
223 ("=y" ?,B}(B) | |
224 ("+z" ?,B>(B) | |
225 ("=A" ?,BA(B) | |
226 ("+C" ?,BH(B) | |
227 ("+D" ?,BO(B) | |
228 ("=E" ?,BI(B) | |
229 ("+E" ?,BL(B) | |
230 ("=I" ?,BM(B) | |
231 ("+N" ?,BR(B) | |
232 ("=O" ?,BS(B) | |
233 ("+R" ?,BX(B) | |
234 ("+S" ?,B)(B) | |
235 ("+T" ?,B+(B) | |
236 ("=Y" ?,B](B) | |
237 ("+Z" ?,B.(B) | |
238 ("=U" ?,BZ(B) | |
239 ("=1" ?!) | |
240 ("=2" ?@) | |
241 ("=3" ?#) | |
242 ("=4" ?$) | |
243 ("=5" ?%) | |
244 ("=6" ?^) | |
245 ("=7" ?&) | |
246 ("=8" ?*) | |
247 ("=9" ?\() | |
248 ("=0" ?\)) | |
249 ("+1" ?!) | |
250 ("+2" ?@) | |
251 ("+3" ?#) | |
252 ("+4" ?$) | |
253 ("+5" ?%) | |
254 ("+6" ?^) | |
255 ("+7" ?&) | |
256 ("+8" ?*) | |
257 ("+9" ?\() | |
258 ("+0" ?\)) | |
23005
3d67e77643dd
Few key sequences added to some keyboards.
Richard M. Stallman <rms@gnu.org>
parents:
21422
diff
changeset
|
259 ("=<" ?<) |
3d67e77643dd
Few key sequences added to some keyboards.
Richard M. Stallman <rms@gnu.org>
parents:
21422
diff
changeset
|
260 ("=>" ?>) |
3d67e77643dd
Few key sequences added to some keyboards.
Richard M. Stallman <rms@gnu.org>
parents:
21422
diff
changeset
|
261 ("=[" ?\[) |
3d67e77643dd
Few key sequences added to some keyboards.
Richard M. Stallman <rms@gnu.org>
parents:
21422
diff
changeset
|
262 ("=]" ?\]) |
3d67e77643dd
Few key sequences added to some keyboards.
Richard M. Stallman <rms@gnu.org>
parents:
21422
diff
changeset
|
263 ("={" ?{) |
3d67e77643dd
Few key sequences added to some keyboards.
Richard M. Stallman <rms@gnu.org>
parents:
21422
diff
changeset
|
264 ("=}" ?}) |
21196 | 265 ([kp-1] ?1) |
266 ([kp-2] ?2) | |
267 ([kp-3] ?3) | |
268 ([kp-4] ?4) | |
269 ([kp-5] ?5) | |
270 ([kp-6] ?6) | |
271 ([kp-7] ?7) | |
272 ([kp-8] ?8) | |
273 ([kp-9] ?9) | |
274 ([kp-0] ?0) | |
275 ([kp-add] ?+)) | |
276 | |
277 (quail-define-package | |
37767
9cea2faa6fb8
Set guidance to t for czech and
Gerd Moellmann <gerd@gnu.org>
parents:
31426
diff
changeset
|
278 "czech-prog-1" "Czech" "CZ" t |
21196 | 279 "Czech (non-standard) keyboard for programmers #1. |
280 | |
281 All digits except of `1' are replaced by Czech characters as on the standard | |
282 Czech keyboard. | |
283 `1' is replaced by `+'. | |
284 `+' is a dead key. Multiple presses of the dead key generate various accents. | |
285 All other keys are the same as on standard US keyboard." | |
31426
62b4382a5ad6
("czech-qwerty"): Changed to show keyboard layout
Kenichi Handa <handa@m17n.org>
parents:
23045
diff
changeset
|
286 nil t nil nil t nil nil nil nil nil t) |
21196 | 287 |
288 (quail-define-rules | |
289 ("1" ?+) | |
290 ("2" ?,Bl(B) | |
291 ("3" ?,B9(B) | |
292 ("4" ?,Bh(B) | |
293 ("5" ?,Bx(B) | |
294 ("6" ?,B>(B) | |
295 ("7" ?,B}(B) | |
296 ("8" ?,Ba(B) | |
297 ("9" ?,Bm(B) | |
298 ("0" ?,Bi(B) | |
299 ("+1" ?1) | |
300 ("+2" ?2) | |
301 ("+3" ?3) | |
302 ("+4" ?4) | |
303 ("+5" ?5) | |
304 ("+6" ?6) | |
305 ("+7" ?7) | |
306 ("+8" ?8) | |
307 ("+9" ?9) | |
308 ("+0" ?0) | |
309 ("+a" ?,Ba(B) | |
310 ("++a" ?,Bd(B) | |
311 ("+c" ?,Bh(B) | |
312 ("+d" ?,Bo(B) | |
313 ("+e" ?,Bi(B) | |
314 ("++e" ?,Bl(B) | |
315 ("+i" ?,Bm(B) | |
316 ("+l" ?,Be(B) | |
317 ("++l" ?,B5(B) | |
318 ("+n" ?,Br(B) | |
319 ("+o" ?,Bs(B) | |
320 ("++o" ?,Bv(B) | |
321 ("+++o" ?,Bt(B) | |
322 ("+r" ?,Bx(B) | |
323 ("++r" ?,B`(B) | |
324 ("+s" ?,B9(B) | |
325 ("++s" ?,B_(B) | |
326 ("+t" ?,B;(B) | |
327 ("+u" ?,Bz(B) | |
328 ("++u" ?,By(B) | |
329 ("+++u" ?,B|(B) | |
330 ("+y" ?,B}(B) | |
331 ("+z" ?,B>(B) | |
332 ("+A" ?,BA(B) | |
333 ("++A" ?,BD(B) | |
334 ("+C" ?,BH(B) | |
335 ("+D" ?,BO(B) | |
336 ("+E" ?,BI(B) | |
337 ("++E" ?,BL(B) | |
338 ("+I" ?,BM(B) | |
339 ("+L" ?,BE(B) | |
340 ("++L" ?,B%(B) | |
341 ("+N" ?,BR(B) | |
342 ("+O" ?,BS(B) | |
343 ("++O" ?,BV(B) | |
344 ("+++O" ?,BT(B) | |
345 ("+R" ?,BX(B) | |
346 ("++R" ?,B@(B) | |
347 ("+S" ?,B)(B) | |
348 ("++S" ?,B_(B) | |
349 ("+T" ?,B+(B) | |
350 ("+U" ?,BZ(B) | |
351 ("++U" ?,BY(B) | |
352 ("+++U" ?,B\(B) | |
353 ("+Y" ?,B](B) | |
354 ("+Z" ?,B.(B) | |
355 ([kp-1] ?1) | |
356 ([kp-2] ?2) | |
357 ([kp-3] ?3) | |
358 ([kp-4] ?4) | |
359 ([kp-5] ?5) | |
360 ([kp-6] ?6) | |
361 ([kp-7] ?7) | |
362 ([kp-8] ?8) | |
363 ([kp-9] ?9) | |
364 ([kp-0] ?0) | |
365 ([kp-add] ?+)) | |
366 | |
367 (quail-define-package | |
37767
9cea2faa6fb8
Set guidance to t for czech and
Gerd Moellmann <gerd@gnu.org>
parents:
31426
diff
changeset
|
368 "czech-prog-2" "Czech" "CZ" t |
21196 | 369 "Czech (non-standard) keyboard for programmers #2. |
370 | |
371 All digits except of `1' are replaced by Czech characters as on the standard | |
372 Czech keyboard. | |
373 `1' is replaced by `,By(B'. | |
374 `+' is a dead key. Multiple presses of the dead key generate various accents. | |
375 All other keys are the same as on standard US keyboard." | |
31426
62b4382a5ad6
("czech-qwerty"): Changed to show keyboard layout
Kenichi Handa <handa@m17n.org>
parents:
23045
diff
changeset
|
376 nil t nil nil t nil nil nil nil nil t) |
21196 | 377 |
378 (quail-define-rules | |
379 ("1" ?,By(B) | |
380 ("2" ?,Bl(B) | |
381 ("3" ?,B9(B) | |
382 ("4" ?,Bh(B) | |
383 ("5" ?,Bx(B) | |
384 ("6" ?,B>(B) | |
385 ("7" ?,B}(B) | |
386 ("8" ?,Ba(B) | |
387 ("9" ?,Bm(B) | |
388 ("0" ?,Bi(B) | |
389 ("+1" ?1) | |
390 ("+2" ?2) | |
391 ("+3" ?3) | |
392 ("+4" ?4) | |
393 ("+5" ?5) | |
394 ("+6" ?6) | |
395 ("+7" ?7) | |
396 ("+8" ?8) | |
397 ("+9" ?9) | |
398 ("+0" ?0) | |
399 ("+a" ?,Ba(B) | |
400 ("++a" ?,Bd(B) | |
401 ("+c" ?,Bh(B) | |
402 ("+d" ?,Bo(B) | |
403 ("+e" ?,Bi(B) | |
404 ("++e" ?,Bl(B) | |
405 ("+i" ?,Bm(B) | |
406 ("+l" ?,Be(B) | |
407 ("++l" ?,B5(B) | |
408 ("+n" ?,Br(B) | |
409 ("+o" ?,Bs(B) | |
410 ("++o" ?,Bv(B) | |
411 ("+++o" ?,Bt(B) | |
412 ("+r" ?,Bx(B) | |
413 ("++r" ?,B`(B) | |
414 ("+s" ?,B9(B) | |
415 ("++s" ?,B_(B) | |
416 ("+t" ?,B;(B) | |
417 ("+u" ?,Bz(B) | |
418 ("++u" ?,By(B) | |
419 ("+++u" ?,B|(B) | |
420 ("+y" ?,B}(B) | |
421 ("+z" ?,B>(B) | |
422 ("+A" ?,BA(B) | |
423 ("++A" ?,BD(B) | |
424 ("+C" ?,BH(B) | |
425 ("+D" ?,BO(B) | |
426 ("+E" ?,BI(B) | |
427 ("++E" ?,BL(B) | |
428 ("+I" ?,BM(B) | |
429 ("+L" ?,BE(B) | |
430 ("++L" ?,B%(B) | |
431 ("+N" ?,BR(B) | |
432 ("+O" ?,BS(B) | |
433 ("++O" ?,BV(B) | |
434 ("+++O" ?,BT(B) | |
435 ("+R" ?,BX(B) | |
436 ("++R" ?,B@(B) | |
437 ("+S" ?,B)(B) | |
438 ("++S" ?,B_(B) | |
439 ("+T" ?,B+(B) | |
440 ("+U" ?,BZ(B) | |
441 ("++U" ?,BY(B) | |
442 ("+++U" ?,B\(B) | |
443 ("+Y" ?,B](B) | |
444 ("+Z" ?,B.(B) | |
445 ([kp-1] ?1) | |
446 ([kp-2] ?2) | |
447 ([kp-3] ?3) | |
448 ([kp-4] ?4) | |
449 ([kp-5] ?5) | |
450 ([kp-6] ?6) | |
451 ([kp-7] ?7) | |
452 ([kp-8] ?8) | |
453 ([kp-9] ?9) | |
454 ([kp-0] ?0) | |
455 ([kp-add] ?+)) | |
456 | |
457 (quail-define-package | |
37767
9cea2faa6fb8
Set guidance to t for czech and
Gerd Moellmann <gerd@gnu.org>
parents:
31426
diff
changeset
|
458 "czech-prog-3" "Czech" "CZ" t |
21196 | 459 "Czech (non-standard) keyboard for programmers compatible with the default |
460 keyboard from the obsolete `emacs-czech' package. | |
461 | |
462 All digits except of `1' are replaced by Czech characters as on the standard | |
463 Czech keyboard. | |
464 `[' and `]' are replaced with `,Bz(B' and `,By(B', respectively. | |
465 There are two dead keys on `=' and `+'. Characters with diaresis are | |
466 accessible through `+='. | |
467 All other keys are the same as on standard US keyboard." | |
31426
62b4382a5ad6
("czech-qwerty"): Changed to show keyboard layout
Kenichi Handa <handa@m17n.org>
parents:
23045
diff
changeset
|
468 nil t nil nil t nil nil nil nil nil t) |
21196 | 469 |
470 (quail-define-rules | |
471 ("2" ?,Bl(B) | |
472 ("3" ?,B9(B) | |
473 ("4" ?,Bh(B) | |
474 ("5" ?,Bx(B) | |
475 ("6" ?,B>(B) | |
476 ("7" ?,B}(B) | |
477 ("8" ?,Ba(B) | |
478 ("9" ?,Bm(B) | |
479 ("0" ?,Bi(B) | |
480 ("[" ?,Bz(B) | |
481 ("]" ?,By(B) | |
482 ("==" ?=) | |
483 ("++" ?+) | |
484 ("=+" ?+) | |
485 ("=[" ?\[) | |
486 ("=]" ?\]) | |
487 ("+[" ?\[) | |
488 ("+]" ?\]) | |
489 ("=1" ?1) | |
490 ("=2" ?2) | |
491 ("=3" ?3) | |
492 ("=4" ?4) | |
493 ("=5" ?5) | |
494 ("=6" ?6) | |
495 ("=7" ?7) | |
496 ("=8" ?8) | |
497 ("=9" ?9) | |
498 ("=0" ?0) | |
499 ("+1" ?1) | |
500 ("+2" ?2) | |
501 ("+3" ?3) | |
502 ("+4" ?4) | |
503 ("+5" ?5) | |
504 ("+6" ?6) | |
505 ("+7" ?7) | |
506 ("+8" ?8) | |
507 ("+9" ?9) | |
508 ("+0" ?0) | |
509 ("=A" ?,BA(B) | |
510 ("+A" ?,BD(B) | |
511 ("+=A" ?,BD(B) | |
512 ("+C" ?,BH(B) | |
513 ("+D" ?,BO(B) | |
514 ("=E" ?,BI(B) | |
515 ("+E" ?,BL(B) | |
516 ("=I" ?,BM(B) | |
517 ("=L" ?,B%(B) | |
518 ("+L" ?,BE(B) | |
519 ("+N" ?,BR(B) | |
520 ("=O" ?,BS(B) | |
521 ("+O" ?,BT(B) | |
522 ("+=O" ?,BV(B) | |
523 ("=R" ?,B@(B) | |
524 ("+R" ?,BX(B) | |
525 ("+S" ?,B)(B) | |
526 ("=S" ?,B_(B) | |
527 ("+T" ?,B+(B) | |
528 ("=U" ?,BZ(B) | |
529 ("+U" ?,BY(B) | |
530 ("+=U" ?,B\(B) | |
531 ("=Y" ?,B](B) | |
532 ("+Z" ?,B.(B) | |
533 ("=a" ?,Ba(B) | |
534 ("+a" ?,Bd(B) | |
535 ("+=a" ?,Bd(B) | |
536 ("+c" ?,Bh(B) | |
537 ("+d" ?,Bo(B) | |
538 ("=e" ?,Bi(B) | |
539 ("+e" ?,Bl(B) | |
540 ("=i" ?,Bm(B) | |
541 ("=l" ?,B5(B) | |
542 ("+l" ?,Be(B) | |
543 ("+n" ?,Br(B) | |
544 ("=o" ?,Bs(B) | |
545 ("+o" ?,Bt(B) | |
546 ("+=o" ?,Bv(B) | |
547 ("=r" ?,B`(B) | |
548 ("+r" ?,Bx(B) | |
549 ("+s" ?,B9(B) | |
550 ("=s" ?,B_(B) | |
551 ("+t" ?,B;(B) | |
552 ("=u" ?,Bz(B) | |
553 ("+u" ?,By(B) | |
554 ("+=u" ?,B|(B) | |
555 ("=y" ?,B}(B) | |
556 ("+z" ?,B>(B) | |
557 ([kp-1] ?1) | |
558 ([kp-2] ?2) | |
559 ([kp-3] ?3) | |
560 ([kp-4] ?4) | |
561 ([kp-5] ?5) | |
562 ([kp-6] ?6) | |
563 ([kp-7] ?7) | |
564 ([kp-8] ?8) | |
565 ([kp-9] ?9) | |
566 ([kp-0] ?0) | |
567 ([kp-add] ?+)) | |
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
37767
diff
changeset
|
568 |
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
569 ;; arch-tag: 0a27dffc-a5e1-479f-9da2-a9eb91b34d8a |
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
37767
diff
changeset
|
570 ;;; czech.el ends here |