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

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/cyrillic.el -- Quail package for inputting Cyrillic characters
2
3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
5
6 ;; Keywords: multilingual, input method, Cyrillic
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-jcuken" "Cyrillic" ",L9FC:5=(B" nil
29 "Cyrillic (ISO 8859-5) encoding.
30
31 They say this layout is widely used in Russia."
32 nil t t t t)
33
34 ;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ,L!(B
35 ;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B
36 ;; ,LD(B ,LK(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,LM(B
37 ;; ,LO(B ,LG(B ,LA(B ,L<(B ,L8(B ,LB(B ,LL(B ,L1(B ,LN(B /?
38
39 (quail-define-rules
40 ("1" ?1)
41 ("2" ?2)
42 ("3" ?3)
43 ("4" ?4)
44 ("5" ?5)
45 ("6" ?6)
46 ("7" ?7)
47 ("8" ?8)
48 ("9" ?9)
49 ("0" ?0)
50 ("-" ?-)
51 ("=" ?=)
52 ("`" ?,Lq(B)
53 ("q" ?,LY(B)
54 ("w" ?,Lf(B)
55 ("e" ?,Lc(B)
56 ("r" ?,LZ(B)
57 ("t" ?,LU(B)
58 ("y" ?,L](B)
59 ("u" ?,LS(B)
60 ("i" ?,Lh(B)
61 ("o" ?,Li(B)
62 ("p" ?,LW(B)
63 ("[" ?,Le(B)
64 ("]" ?,Lj(B)
65 ("a" ?,Ld(B)
66 ("s" ?,Lk(B)
67 ("d" ?,LR(B)
68 ("f" ?,LP(B)
69 ("g" ?,L_(B)
70 ("h" ?,L`(B)
71 ("j" ?,L^(B)
72 ("k" ?,L[(B)
73 ("l" ?,LT(B)
74 (";" ?,LV(B)
75 ("'" ?,Lm(B)
76 ("\\" ?\\)
77 ("z" ?,Lo(B)
78 ("x" ?,Lg(B)
79 ("c" ?,La(B)
80 ("v" ?,L\(B)
81 ("b" ?,LX(B)
82 ("n" ?,Lb(B)
83 ("m" ?,Ll(B)
84 ("," ?,LQ(B)
85 ("." ?,Ln(B)
86 ("/" ?/)
87
88 ("!" ?!)
89 ("@" ?@)
90 ("#" ?#)
91 ("$" ?\")
92 ("%" ?:)
93 ("^" ?,)
94 ("&" ?.)
95 ("*" ?*)
96 ("(" ?()
97 (")" ?))
98 ("_" ?_)
99 ("+" ?+)
100 ("~" ?,L!(B)
101 ("Q" ?,L9(B)
102 ("W" ?,LF(B)
103 ("E" ?,LC(B)
104 ("R" ?,L:(B)
105 ("T" ?,L5(B)
106 ("Y" ?,L=(B)
107 ("U" ?,L3(B)
108 ("I" ?,LH(B)
109 ("O" ?,LI(B)
110 ("P" ?,L7(B)
111 ("{" ?,LE(B)
112 ("}" ?,LJ(B)
113 ("A" ?,LD(B)
114 ("S" ?,LK(B)
115 ("D" ?,L2(B)
116 ("F" ?,L0(B)
117 ("G" ?,L?(B)
118 ("H" ?,L@(B)
119 ("J" ?,L>(B)
120 ("K" ?,L;(B)
121 ("L" ?,L4(B)
122 (":" ?,L6(B)
123 ("\"" ?,LM(B)
124 ("|" ?|)
125 ("Z" ?,LO(B)
126 ("X" ?,LG(B)
127 ("C" ?,LA(B)
128 ("V" ?,L<(B)
129 ("B" ?,L8(B)
130 ("N" ?,LB(B)
131 ("M" ?,LL(B)
132 ("<" ?,L1(B)
133 (">" ?,LN(B)
134 ("?" ??))
135
136 ;;
137
138 (quail-define-package "quail-jis-russian" "Cyrillic" "$B'+'8'5','&'/(B" nil
139 "JIS X0208.1983 encoding.
140
141 The layout is same as jcuken, but uses JIS characters."
142 nil t t t t)
143
144 ;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ,L!(B
145 ;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B
146 ;; ,LD(B ,LK(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,LM(B
147 ;; ,LO(B ,LG(B ,LA(B ,L<(B ,L8(B ,LB(B ,LL(B ,L1(B ,LN(B /?
148
149 (quail-define-rules
150 ("1" ?$B#1(B)
151 ("2" ?$B#2(B)
152 ("3" ?$B#3(B)
153 ("4" ?$B#4(B)
154 ("5" ?$B#5(B)
155 ("6" ?$B#6(B)
156 ("7" ?$B#7(B)
157 ("8" ?$B#8(B)
158 ("9" ?$B#9(B)
159 ("0" ?$B#0(B)
160 ("-" ?$B!](B)
161 ("=" ?$B!a(B)
162 ("`" ?$B'W(B)
163 ("q" ?$B'[(B)
164 ("w" ?$B'h(B)
165 ("e" ?$B'e(B)
166 ("r" ?$B'\(B)
167 ("t" ?$B'V(B)
168 ("y" ?$B'_(B)
169 ("u" ?$B'T(B)
170 ("i" ?$B'j(B)
171 ("o" ?$B'k(B)
172 ("p" ?$B'Y(B)
173 ("[" ?$B'g(B)
174 ("]" ?$B'l(B)
175 ("a" ?$B'f(B)
176 ("s" ?$B'm(B)
177 ("d" ?$B'S(B)
178 ("f" ?$B'Q(B)
179 ("g" ?$B'a(B)
180 ("h" ?$B'b(B)
181 ("j" ?$B'`(B)
182 ("k" ?$B'](B)
183 ("l" ?$B'U(B)
184 (";" ?$B'X(B)
185 ("'" ?$B'o(B)
186 ("\\" ?$B!@(B)
187 ("z" ?$B'q(B)
188 ("x" ?$B'i(B)
189 ("c" ?$B'c(B)
190 ("v" ?$B'^(B)
191 ("b" ?$B'Z(B)
192 ("n" ?$B'd(B)
193 ("m" ?$B'n(B)
194 ("," ?$B'R(B)
195 ("." ?$B'p(B)
196 ("/" ?$B!?(B)
197
198 ("!" ?$B!*(B)
199 ("@" ?$B!w(B)
200 ("#" ?$B!t(B)
201 ("$" ?$B!I(B)
202 ("%" ?$B!'(B)
203 ("^" ?$B!$(B)
204 ("&" ?$B!%(B)
205 ("*" ?$B!v(B)
206 ("(" ?$B!J(B)
207 (")" ?$B!K(B)
208 ("_" ?$B!2(B)
209 ("+" ?$B!\(B)
210 ("~" ?$B''(B)
211 ("Q" ?$B'+(B)
212 ("W" ?$B'8(B)
213 ("E" ?$B'5(B)
214 ("R" ?$B',(B)
215 ("T" ?$B'&(B)
216 ("Y" ?$B'/(B)
217 ("U" ?$B'$(B)
218 ("I" ?$B':(B)
219 ("O" ?$B';(B)
220 ("P" ?$B')(B)
221 ("{" ?$B'7(B)
222 ("}" ?$B'<(B)
223 ("A" ?$B'6(B)
224 ("S" ?$B'=(B)
225 ("D" ?$B'#(B)
226 ("F" ?$B'!(B)
227 ("G" ?$B'1(B)
228 ("H" ?$B'2(B)
229 ("J" ?$B'0(B)
230 ("K" ?$B'-(B)
231 ("L" ?$B'%(B)
232 (":" ?$B'((B)
233 ("\"" ?$B'?(B)
234 ("|" ?$B!C(B)
235 ("Z" ?$B'A(B)
236 ("X" ?$B'9(B)
237 ("C" ?$B'3(B)
238 ("V" ?$B'.(B)
239 ("B" ?$B'*(B)
240 ("N" ?$B'4(B)
241 ("M" ?$B'>(B)
242 ("<" ?$B'"(B)
243 (">" ?$B'@(B)
244 ("?" ?$B!)(B))
245
246 ;;
247
248 (quail-define-package "quail-macedonian" "Cyrillic" ",L)*5@B7(B-,L#,(B" nil
249 "Cyrillic (ISO 8859-5) encoding.
250
251 This layout is based on JUS.I.K1.004."
252 nil t t t t)
253
254 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
255 ;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L#(B
256 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L,(B ,L6(B
257 ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
258
259 (quail-define-rules
260 ("1" ?1)
261 ("2" ?2)
262 ("3" ?3)
263 ("4" ?4)
264 ("5" ?5)
265 ("6" ?6)
266 ("7" ?7)
267 ("8" ?8)
268 ("9" ?9)
269 ("0" ?0)
270 ("-" ?/)
271 ("=" ?+)
272 ("`" ?<)
273 ("q" ?,Ly(B)
274 ("w" ?,Lz(B)
275 ("e" ?,LU(B)
276 ("r" ?,L`(B)
277 ("t" ?,Lb(B)
278 ("y" ?,LW(B)
279 ("u" ?,Lc(B)
280 ("i" ?,LX(B)
281 ("o" ?,L^(B)
282 ("p" ?,L_(B)
283 ("[" ?,Lh(B)
284 ("]" ?,Ls(B)
285 ("a" ?,LP(B)
286 ("s" ?,La(B)
287 ("d" ?,LT(B)
288 ("f" ?,Ld(B)
289 ("g" ?,LS(B)
290 ("h" ?,Le(B)
291 ("j" ?,Lx(B)
292 ("k" ?,LZ(B)
293 ("l" ?,L[(B)
294 (";" ?,Lg(B)
295 ("'" ?,L|(B)
296 ("\\" ?,LV(B)
297 ("z" ?,Lu(B)
298 ("x" ?,L(B)
299 ("c" ?,Lf(B)
300 ("v" ?,LR(B)
301 ("b" ?,LQ(B)
302 ("n" ?,L](B)
303 ("m" ?,L\(B)
304 ("," ?,)
305 ("." ?.)
306 ("/" ?-)
307
308 ("!" ?!)
309 ("@" ?\")
310 ("#" ?#)
311 ("$" ?$)
312 ("%" ?%)
313 ("^" ?&)
314 ("&" ?')
315 ("*" ?\()
316 ("(" ?\))
317 (")" ?=)
318 ("_" ??)
319 ("+" ?*)
320 ("~" ?>)
321 ("Q" ?,L)(B)
322 ("W" ?,L*(B)
323 ("E" ?,L5(B)
324 ("R" ?,L@(B)
325 ("T" ?,LB(B)
326 ("Y" ?,L7(B)
327 ("U" ?,LC(B)
328 ("I" ?,L8(B)
329 ("O" ?,L>(B)
330 ("P" ?,L?(B)
331 ("{" ?,LH(B)
332 ("}" ?,L#(B)
333 ("A" ?,L0(B)
334 ("S" ?,LA(B)
335 ("D" ?,L4(B)
336 ("F" ?,LD(B)
337 ("G" ?,L3(B)
338 ("H" ?,LE(B)
339 ("J" ?,L((B)
340 ("K" ?,L:(B)
341 ("L" ?,L;(B)
342 (":" ?,LG(B)
343 ("\"" ?,L,(B)
344 ("|" ?,L6(B)
345 ("Z" ?,L%(B)
346 ("X" ?,L/(B)
347 ("C" ?,LF(B)
348 ("V" ?,L2(B)
349 ("B" ?,L1(B)
350 ("N" ?,L=(B)
351 ("M" ?,L<(B)
352 ("<" ?\;)
353 (">" ?:)
354 ("?" ?_))
355
356 ;;
357
358 (quail-define-package "quail-serbian" "Cyrillic" ",L)*5@B7(B-,L"+(B" nil
359 "Cyrillic (ISO 8859-5) encoding.
360
361 This layout is based on JUS.I.K1.005."
362 nil t t t t)
363
364 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
365 ;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L"(B
366 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L+(B ,L6(B
367 ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
368
369 (quail-define-rules
370 ("1" ?1)
371 ("2" ?2)
372 ("3" ?3)
373 ("4" ?4)
374 ("5" ?5)
375 ("6" ?6)
376 ("7" ?7)
377 ("8" ?8)
378 ("9" ?9)
379 ("0" ?0)
380 ("-" ?/)
381 ("=" ?+)
382 ("`" ?<)
383 ("q" ?,Ly(B)
384 ("w" ?,Lz(B)
385 ("e" ?,LU(B)
386 ("r" ?,L`(B)
387 ("t" ?,Lb(B)
388 ("y" ?,LW(B)
389 ("u" ?,Lc(B)
390 ("i" ?,LX(B)
391 ("o" ?,L^(B)
392 ("p" ?,L_(B)
393 ("[" ?,Lh(B)
394 ("]" ?,Lr(B)
395 ("a" ?,LP(B)
396 ("s" ?,La(B)
397 ("d" ?,LT(B)
398 ("f" ?,Ld(B)
399 ("g" ?,LS(B)
400 ("h" ?,Le(B)
401 ("j" ?,Lx(B)
402 ("k" ?,LZ(B)
403 ("l" ?,L[(B)
404 (";" ?,Lg(B)
405 ("'" ?,L{(B)
406 ("\\" ?,LV(B)
407 ("z" ?,Lu(B)
408 ("x" ?,L(B)
409 ("c" ?,Lf(B)
410 ("v" ?,LR(B)
411 ("b" ?,LQ(B)
412 ("n" ?,L](B)
413 ("m" ?,L\(B)
414 ("," ?,)
415 ("." ?.)
416 ("/" ?-)
417
418 ("!" ?!)
419 ("@" ?\")
420 ("#" ?#)
421 ("$" ?$)
422 ("%" ?%)
423 ("^" ?&)
424 ("&" ?')
425 ("*" ?\()
426 ("(" ?\))
427 (")" ?=)
428 ("_" ??)
429 ("+" ?*)
430 ("~" ?>)
431 ("Q" ?,L)(B)
432 ("W" ?,L*(B)
433 ("E" ?,L5(B)
434 ("R" ?,L@(B)
435 ("T" ?,LB(B)
436 ("Y" ?,L7(B)
437 ("U" ?,LC(B)
438 ("I" ?,L8(B)
439 ("O" ?,L>(B)
440 ("P" ?,L?(B)
441 ("{" ?,LH(B)
442 ("}" ?,L"(B)
443 ("A" ?,L0(B)
444 ("S" ?,LA(B)
445 ("D" ?,L4(B)
446 ("F" ?,LD(B)
447 ("G" ?,L3(B)
448 ("H" ?,LE(B)
449 ("J" ?,L((B)
450 ("K" ?,L:(B)
451 ("L" ?,L;(B)
452 (":" ?,LG(B)
453 ("\"" ?,L+(B)
454 ("|" ?,L6(B)
455 ("Z" ?,L%(B)
456 ("X" ?,L/(B)
457 ("C" ?,LF(B)
458 ("V" ?,L2(B)
459 ("B" ?,L1(B)
460 ("N" ?,L=(B)
461 ("M" ?,L<(B)
462 ("<" ?\;)
463 (">" ?:)
464 ("?" ?_))
465
466 ;;
467
468 (quail-define-package "quail-beylorussian" "Cyrillic" ",L)*5@B7(B-,L&.(B" nil
469 "Cyrillic (ISO 8859-5) encoding."
470 nil t t t t)
471
472 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
473 ;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L&(B
474 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L.(B ,L6(B
475 ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
476
477 (quail-define-rules
478 ("1" ?1)
479 ("2" ?2)
480 ("3" ?3)
481 ("4" ?4)
482 ("5" ?5)
483 ("6" ?6)
484 ("7" ?7)
485 ("8" ?8)
486 ("9" ?9)
487 ("0" ?0)
488 ("-" ?/)
489 ("=" ?+)
490 ("`" ?<)
491 ("q" ?,Ly(B)
492 ("w" ?,Lz(B)
493 ("e" ?,LU(B)
494 ("r" ?,L`(B)
495 ("t" ?,Lb(B)
496 ("y" ?,LW(B)
497 ("u" ?,Lc(B)
498 ("i" ?,LX(B)
499 ("o" ?,L^(B)
500 ("p" ?,L_(B)
501 ("[" ?,Lh(B)
502 ("]" ?,Lv(B)
503 ("a" ?,LP(B)
504 ("s" ?,La(B)
505 ("d" ?,LT(B)
506 ("f" ?,Ld(B)
507 ("g" ?,LS(B)
508 ("h" ?,Le(B)
509 ("j" ?,Lx(B)
510 ("k" ?,LZ(B)
511 ("l" ?,L[(B)
512 (";" ?,Lg(B)
513 ("'" ?,L~(B)
514 ("\\" ?,LV(B)
515 ("z" ?,Lu(B)
516 ("x" ?,L(B)
517 ("c" ?,Lf(B)
518 ("v" ?,LR(B)
519 ("b" ?,LQ(B)
520 ("n" ?,L](B)
521 ("m" ?,L\(B)
522 ("," ?,)
523 ("." ?.)
524 ("/" ?-)
525
526 ("!" ?!)
527 ("@" ?\")
528 ("#" ?#)
529 ("$" ?$)
530 ("%" ?%)
531 ("^" ?&)
532 ("&" ?')
533 ("*" ?\()
534 ("(" ?\))
535 (")" ?=)
536 ("_" ??)
537 ("+" ?*)
538 ("~" ?>)
539 ("Q" ?,L)(B)
540 ("W" ?,L*(B)
541 ("E" ?,L5(B)
542 ("R" ?,L@(B)
543 ("T" ?,LB(B)
544 ("Y" ?,L7(B)
545 ("U" ?,LC(B)
546 ("I" ?,L8(B)
547 ("O" ?,L>(B)
548 ("P" ?,L?(B)
549 ("{" ?,LH(B)
550 ("}" ?,L&(B)
551 ("A" ?,L0(B)
552 ("S" ?,LA(B)
553 ("D" ?,L4(B)
554 ("F" ?,LD(B)
555 ("G" ?,L3(B)
556 ("H" ?,LE(B)
557 ("J" ?,L((B)
558 ("K" ?,L:(B)
559 ("L" ?,L;(B)
560 (":" ?,LG(B)
561 ("\"" ?,L.(B)
562 ("|" ?,L6(B)
563 ("Z" ?,L%(B)
564 ("X" ?,L/(B)
565 ("C" ?,LF(B)
566 ("V" ?,L2(B)
567 ("B" ?,L1(B)
568 ("N" ?,L=(B)
569 ("M" ?,L<(B)
570 ("<" ?\;)
571 (">" ?:)
572 ("?" ?_))
573
574 ;;
575
576 (quail-define-package "quail-ukrainian" "Cyrillic" ",L$'5@B7(B-,L&.(B" nil
577 "Cyrillic (ISO 8859-5) encoding.
578
579 Sorry, but 'ghe with upturn' is not included in ISO 8859-5"
580 nil t t t t)
581
582 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
583 ;; ,L$(B ,L'(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L&(B
584 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L.(B ,L6(B
585 ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
586
587 (quail-define-rules
588 ("1" ?1)
589 ("2" ?2)
590 ("3" ?3)
591 ("4" ?4)
592 ("5" ?5)
593 ("6" ?6)
594 ("7" ?7)
595 ("8" ?8)
596 ("9" ?9)
597 ("0" ?0)
598 ("-" ?/)
599 ("=" ?+)
600 ("`" ?<)
601 ("q" ?,Lt(B)
602 ("w" ?,Lw(B)
603 ("e" ?,LU(B)
604 ("r" ?,L`(B)
605 ("t" ?,Lb(B)
606 ("y" ?,LW(B)
607 ("u" ?,Lc(B)
608 ("i" ?,LX(B)
609 ("o" ?,L^(B)
610 ("p" ?,L_(B)
611 ("[" ?,Lh(B)
612 ("]" ?,Lv(B)
613 ("a" ?,LP(B)
614 ("s" ?,La(B)
615 ("d" ?,LT(B)
616 ("f" ?,Ld(B)
617 ("g" ?,LS(B)
618 ("h" ?,Le(B)
619 ("j" ?,Lx(B)
620 ("k" ?,LZ(B)
621 ("l" ?,L[(B)
622 (";" ?,Lg(B)
623 ("'" ?,L~(B)
624 ("\\" ?,LV(B)
625 ("z" ?,Lu(B)
626 ("x" ?,L(B)
627 ("c" ?,Lf(B)
628 ("v" ?,LR(B)
629 ("b" ?,LQ(B)
630 ("n" ?,L](B)
631 ("m" ?,L\(B)
632 ("," ?,)
633 ("." ?.)
634 ("/" ?-)
635
636 ("!" ?!)
637 ("@" ?\")
638 ("#" ?#)
639 ("$" ?$)
640 ("%" ?%)
641 ("^" ?&)
642 ("&" ?')
643 ("*" ?\()
644 ("(" ?\))
645 (")" ?=)
646 ("_" ??)
647 ("+" ?*)
648 ("~" ?>)
649 ("Q" ?,L$(B)
650 ("W" ?,L'(B)
651 ("E" ?,L5(B)
652 ("R" ?,L@(B)
653 ("T" ?,LB(B)
654 ("Y" ?,L7(B)
655 ("U" ?,LC(B)
656 ("I" ?,L8(B)
657 ("O" ?,L>(B)
658 ("P" ?,L?(B)
659 ("{" ?,LH(B)
660 ("}" ?,L&(B)
661 ("A" ?,L0(B)
662 ("S" ?,LA(B)
663 ("D" ?,L4(B)
664 ("F" ?,LD(B)
665 ("G" ?,L3(B)
666 ("H" ?,LE(B)
667 ("J" ?,L((B)
668 ("K" ?,L:(B)
669 ("L" ?,L;(B)
670 (":" ?,LG(B)
671 ("\"" ?,L.(B)
672 ("|" ?,L6(B)
673 ("Z" ?,L%(B)
674 ("X" ?,L/(B)
675 ("C" ?,LF(B)
676 ("V" ?,L2(B)
677 ("B" ?,L1(B)
678 ("N" ?,L=(B)
679 ("M" ?,L<(B)
680 ("<" ?\;)
681 (">" ?:)
682 ("?" ?_))
683
684 ;;
685
686 (quail-define-package "quail-yawerty" "Cyrillic" ",LO25@BK(B" nil
687 "Cyrillic (ISO 8859-5) encoding.
688
689 This layout is based on Roman transcription.
690 When preceded by a '/', the second and the third rows (number key row) change
691 as follows.
692
693 keytop | Q W E R T Y U I O P A S D
694 --------+---------------------------------------
695 input | ,L"(B ,L#(B ,L$(B ,L%(B ,L&(B ,L'(B ,L((B ,L)(B ,L*(B ,L+(B ,L,(B ,L.(B ,L/(B"
696 nil t t t t)
697
698 ;; 1! 2,Lq(B 3,Lj(B 4,L!(B 5% 6^ 7& 8* 9( 0) -_ ,LG(B ,LN(B
699 ;; ,LO(B ,L2(B ,L5(B ,L@(B ,LB(B ,LK(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,LI(B
700 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L9(B ,L:(B ,L;(B ;: '" ,LM(B
701 ;; ,L7(B ,LL(B ,LF(B ,L6(B ,L1(B ,L=(B ,L<(B ,< .> /?
702
703 ;; 1! 2,Lq(B 3,Lj(B 4,L!(B 5% 6^ 7& 8* 9( 0) -_ ,LG(B ,LN(B
704 ;; ,L"(B ,L#(B ,L$(B ,L%(B ,L&(B ,L'(B ,L((B ,L)(B ,L*(B ,L+(B ,LH(B ,LI(B
705 ;; ,L,(B ,L.(B ,L/(B ,LD(B ,L3(B ,LE(B ,L9(B ,L:(B ,L;(B ;: '" ,LM(B
706 ;; ,L7(B ,LL(B ,LF(B ,L6(B ,L1(B ,L=(B ,L<(B ,< .> /?
707
708 (quail-define-rules
709 ("1" ?1)
710 ("2" ?2)
711 ("3" ?3)
712 ("4" ?4)
713 ("5" ?5)
714 ("6" ?6)
715 ("7" ?7)
716 ("8" ?8)
717 ("9" ?9)
718 ("0" ?0)
719 ("-" ?-)
720 ("=" ?,Lg(B)
721 ("`" ?,Ln(B)
722 ("q" ?,Lo(B)
723 ("w" ?,LR(B)
724 ("e" ?,LU(B)
725 ("r" ?,L`(B)
726 ("t" ?,Lb(B)
727 ("y" ?,Lk(B)
728 ("u" ?,Lc(B)
729 ("i" ?,LX(B)
730 ("o" ?,L^(B)
731 ("p" ?,L_(B)
732 ("[" ?,Lh(B)
733 ("]" ?,Li(B)
734 ("a" ?,LP(B)
735 ("s" ?,La(B)
736 ("d" ?,LT(B)
737 ("f" ?,Ld(B)
738 ("g" ?,LS(B)
739 ("h" ?,Le(B)
740 ("j" ?,LY(B)
741 ("k" ?,LZ(B)
742 ("l" ?,L[(B)
743 (";" ?\;)
744 ("'" ?')
745 ("\\" ?,Lm(B)
746 ("z" ?,LW(B)
747 ("x" ?,Ll(B)
748 ("c" ?,Lf(B)
749 ("v" ?,LV(B)
750 ("b" ?,LQ(B)
751 ("n" ?,L](B)
752 ("m" ?,L\(B)
753 ("," ?,)
754 ("." ?.)
755 ("/" ?/)
756
757 ("!" ?!)
758 ("@" ?,Lq(B)
759 ("#" ?,Lj(B)
760 ("$" ?,L!(B)
761 ("%" ?%)
762 ("^" ?^)
763 ("&" ?&)
764 ("*" ?*)
765 ("(" ?\()
766 (")" ?\))
767 ("_" ?_)
768 ("+" ?,LG(B)
769 ("~" ?,LN(B)
770 ("Q" ?,LO(B)
771 ("W" ?,L2(B)
772 ("E" ?,L5(B)
773 ("R" ?,L@(B)
774 ("T" ?,LB(B)
775 ("Y" ?,LK(B)
776 ("U" ?,LC(B)
777 ("I" ?,L8(B)
778 ("O" ?,L>(B)
779 ("P" ?,L?(B)
780 ("{" ?,LH(B)
781 ("}" ?,LI(B)
782 ("A" ?,L0(B)
783 ("S" ?,LA(B)
784 ("D" ?,L4(B)
785 ("F" ?,LD(B)
786 ("G" ?,L3(B)
787 ("H" ?,LE(B)
788 ("J" ?,L9(B)
789 ("K" ?,L:(B)
790 ("L" ?,L;(B)
791 (":" ?:)
792 ("\"" ?\")
793 ("|" ?,LM(B)
794 ("Z" ?,L7(B)
795 ("X" ?,LL(B)
796 ("C" ?,LF(B)
797 ("V" ?,L6(B)
798 ("B" ?,L1(B)
799 ("N" ?,L=(B)
800 ("M" ?,L<(B)
801 ("<" ?<)
802 (">" ?>)
803 ("?" ??)
804
805 ("/q" ?,Lr(B)
806 ("/w" ?,Ls(B)
807 ("/e" ?,Lt(B)
808 ("/r" ?,Lu(B)
809 ("/t" ?,Lv(B)
810 ("/y" ?,Lw(B)
811 ("/u" ?,Lx(B)
812 ("/i" ?,Ly(B)
813 ("/o" ?,Lz(B)
814 ("/p" ?,L{(B)
815 ("/a" ?,L|(B)
816 ("/s" ?,L~(B)
817 ("/d" ?,L(B)
818
819 ("/Q" ?,L"(B)
820 ("/W" ?,L#(B)
821 ("/E" ?,L$(B)
822 ("/R" ?,L%(B)
823 ("/T" ?,L&(B)
824 ("/Y" ?,L'(B)
825 ("/U" ?,L((B)
826 ("/I" ?,L)(B)
827 ("/O" ?,L*(B)
828 ("/P" ?,L+(B)
829 ("/A" ?,L,(B)
830 ("/S" ?,L.(B)
831 ("/D" ?,L/(B))