Mercurial > emacs

comparison leim/quail/cyrillic.el @ 88730:e8a87739b67a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Doc fixes. ("cyrillic-beylorussian"): Commented-out. ("cyrillic-translit-bulgarian"): Deleted. ("cyrillic-ukrainian"): Fix `q', `Q', `W', `w' bindings. ("ukrainian-computer", "belarusian", "bulgarian-standard"): New. ("bulgarian-pho"): Add ?, ,Lp(B, ,LN(B.
author Dave Love <fx@gnu.org>
date Mon, 10 Jun 2002 15:28:47 +0000
parents ff836e215e48
children 51e1b1356d0f
comparison
equal deleted inserted replaced
88729:70e6af3ff639 88730:e8a87739b67a
1 ;;; cyrillic.el --- Quail package for inputting Cyrillic characters 1 ;;; cyrillic.el --- Quail package for inputting Cyrillic characters
2 2
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 2001 Free Software Foundation, Inc. 5 ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
6 6
7 ;; Keywords: multilingual, input method, Cyrillic 7 ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
8 ;; Keywords: multilingual, input method, Cyrillic, i18n
8 9
9 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
10 11
11 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
27 28
28 ;;; Code: 29 ;;; Code:
29 30
30 (require 'quail) 31 (require 'quail)
31 32
33 ;; This was `cyrillic-jcuken'. Alexander Mikhailian
34 ;; <mikhailian@altern.org> says: "cyrillic-jcuken" is actually
35 ;; russian. It is ok but a bit outdated. This layout has been used
36 ;; in typewriters for ages but it has been superceeded on desktops by
37 ;; a variation of this layout, implemented in M$ Windows software.
38 ;; The Windows layout is greatly preferred because of the comma and
39 ;; period being placed more conviniently and, of course, because of
40 ;; the popularity of Windows software. This layout is a common option
41 ;; in X Windows and console layouts for GNU/Linux. [See
42 ;; `russian-computer' below.]
32 (quail-define-package 43 (quail-define-package
33 "cyrillic-jcuken" "Cyrillic" ",L69(B" nil 44 "cyrillic-typewriter" "Russian" ",L69(B" nil
34 ",L9FC:5=(B keyboard layout widely used in Russia (ISO 8859-5 encoding)" 45 ",L9FC:5=(B Russian typewriter layout."
35 nil t t t t nil nil nil nil nil t) 46 nil t t t t nil nil nil nil nil t)
36 47
37 ;; 1! 2" 3' 4* 5: 6, 7. 8; 9( 0) -_ =+ ,L!(B 48 ;; 1! 2" 3' 4* 5: 6, 7. 8; 9( 0) -_ =+ ,L!(B
38 ;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B 49 ;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B
39 ;; ,LD(B ,LK(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,LM(B 50 ;; ,LD(B ,LK(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,LM(B
94 ("$" ?*) 105 ("$" ?*)
95 ("%" ?:) 106 ("%" ?:)
96 ("^" ?,) 107 ("^" ?,)
97 ("&" ?.) 108 ("&" ?.)
98 ("*" ?\;) 109 ("*" ?\;)
99 ("(" ?() 110 ("(" ?\()
100 (")" ?)) 111 (")" ?\))
101 ("_" ?_) 112 ("_" ?_)
102 ("+" ?+) 113 ("+" ?+)
103 ("~" ?,L!(B) 114 ("~" ?,L!(B)
104 ("Q" ?,L9(B) 115 ("Q" ?,L9(B)
105 ("W" ?,LF(B) 116 ("W" ?,LF(B)
132 ("B" ?,L8(B) 143 ("B" ?,L8(B)
133 ("N" ?,LB(B) 144 ("N" ?,LB(B)
134 ("M" ?,LL(B) 145 ("M" ?,LL(B)
135 ("<" ?,L1(B) 146 ("<" ?,L1(B)
136 (">" ?,LN(B) 147 (">" ?,LN(B)
137 ("?" ??)) 148 ("?" ?,))
138 149
139 ;; 150 ;; Mikhailian couldn't check the next two.
140 151
152 ;; This seems to have the same layout for letters as mk in XKB, but at
153 ;; least the top row is different.
141 (quail-define-package 154 (quail-define-package
142 "cyrillic-macedonian" "Cyrillic" ",L6(BM" nil 155 "cyrillic-macedonian" "Cyrillic" ",L6(BM" nil
143 ",L)*5@B7(B-,L#,(B keyboard layout based on JUS.I.K1.004 (ISO 8859-5 encoding)" 156 ",L)*5@B7(B-,L#,(B keyboard layout based on JUS.I.K1.004"
144 nil t t t t nil nil nil nil nil t) 157 nil t t t t nil nil nil nil nil t)
145 158
146 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> 159 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
147 ;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L#(B 160 ;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L#(B
148 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L,(B ,L6(B 161 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L,(B ,L6(B
247 260
248 ;; 261 ;;
249 262
250 (quail-define-package 263 (quail-define-package
251 "cyrillic-serbian" "Cyrillic" ",L6(BS" nil 264 "cyrillic-serbian" "Cyrillic" ",L6(BS" nil
252 ",L)*5@B7(B-,L"+(B keyboard layout based on JUS.I.K1.005 (ISO 8859-5 encoding)" 265 ",L)*5@B7(B-,L"+(B keyboard layout based on JUS.I.K1.005"
253 nil t t t t nil nil nil nil nil t) 266 nil t t t t nil nil nil nil nil t)
254 267
255 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> 268 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
256 ;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L"(B 269 ;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L"(B
257 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L+(B ,L6(B 270 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L+(B ,L6(B
354 (">" ?:) 367 (">" ?:)
355 ("?" ?_)) 368 ("?" ?_))
356 369
357 ;; 370 ;;
358 371
359 (quail-define-package 372 ;; Alexander Mikhailian comments:
360 "cyrillic-beylorussian" "Belarussian" ",L6(BB" nil 373 ;; Having worked for several years as a Belarusian linguist, I still
361 ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (ISO 8859-5 encoding)" 374 ;; can not find the origin of this layout which BTW does include
362 nil t t t t nil nil nil nil nil t) 375 ;; several characters that are not present in Belarusian and does not
363 376 ;; include a few ones that do exist in Belarusian. Besides, the typo
364 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> 377 ;; in the name of this layout speaks for itself since Belarusian has
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 378 ;; an outdated version of spelling which is "Byelorussian" and not
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 379 ;; "beylorussian". I suggest that you just remove this layout.
367 ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_ 380
368 381 ;; [`derived from JUS.I.K1' according to an old Mule note -- fx]
369 (quail-define-rules 382
370 ("1" ?1) 383 ;; (quail-define-package
371 ("2" ?2) 384 ;; "cyrillic-beylorussian" "Belarussian" ",L6(BB" nil
372 ("3" ?3) 385 ;; ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (ISO 8859-5 encoding)"
373 ("4" ?4) 386 ;; nil t t t t nil nil nil nil nil t)
374 ("5" ?5) 387
375 ("6" ?6) 388 ;; ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
376 ("7" ?7) 389 ;; ;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L&(B
377 ("8" ?8) 390 ;; ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L.(B ,L6(B
378 ("9" ?9) 391 ;; ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
379 ("0" ?0) 392
380 ("-" ?/) 393 ;; (quail-define-rules
381 ("=" ?+) 394 ;; ("-" ?/)
382 ("`" ?<) 395 ;; ("=" ?+)
383 ("q" ?,Ly(B) 396 ;; ("`" ?<)
384 ("w" ?,Lz(B) 397 ;; ("q" ?,Ly(B)
385 ("e" ?,LU(B) 398 ;; ("w" ?,Lz(B)
386 ("r" ?,L`(B) 399 ;; ("e" ?,LU(B)
387 ("t" ?,Lb(B) 400 ;; ("r" ?,L`(B)
388 ("y" ?,LW(B) 401 ;; ("t" ?,Lb(B)
389 ("u" ?,Lc(B) 402 ;; ("y" ?,LW(B)
390 ("i" ?,LX(B) 403 ;; ("u" ?,Lc(B)
391 ("o" ?,L^(B) 404 ;; ("i" ?,LX(B)
392 ("p" ?,L_(B) 405 ;; ("o" ?,L^(B)
393 ("[" ?,Lh(B) 406 ;; ("p" ?,L_(B)
394 ("]" ?,Lv(B) 407 ;; ("[" ?,Lh(B)
395 ("a" ?,LP(B) 408 ;; ("]" ?,Lv(B)
396 ("s" ?,La(B) 409 ;; ("a" ?,LP(B)
397 ("d" ?,LT(B) 410 ;; ("s" ?,La(B)
398 ("f" ?,Ld(B) 411 ;; ("d" ?,LT(B)
399 ("g" ?,LS(B) 412 ;; ("f" ?,Ld(B)
400 ("h" ?,Le(B) 413 ;; ("g" ?,LS(B)
401 ("j" ?,Lx(B) 414 ;; ("h" ?,Le(B)
402 ("k" ?,LZ(B) 415 ;; ("j" ?,Lx(B)
403 ("l" ?,L[(B) 416 ;; ("k" ?,LZ(B)
404 (";" ?,Lg(B) 417 ;; ("l" ?,L[(B)
405 ("'" ?,L~(B) 418 ;; (";" ?,Lg(B)
406 ("\\" ?,LV(B) 419 ;; ("'" ?,L~(B)
407 ("z" ?,Lu(B) 420 ;; ("\\" ?,LV(B)
408 ("x" ?,L(B) 421 ;; ("z" ?,Lu(B)
409 ("c" ?,Lf(B) 422 ;; ("x" ?,L(B)
410 ("v" ?,LR(B) 423 ;; ("c" ?,Lf(B)
411 ("b" ?,LQ(B) 424 ;; ("v" ?,LR(B)
412 ("n" ?,L](B) 425 ;; ("b" ?,LQ(B)
413 ("m" ?,L\(B) 426 ;; ("n" ?,L](B)
414 ("," ?,) 427 ;; ("m" ?,L\(B)
415 ("." ?.) 428 ;; ("/" ?-)
416 ("/" ?-)
417 429
418 ("!" ?!) 430 ;; ("@" ?\")
419 ("@" ?\") 431 ;; ("^" ?&)
420 ("#" ?#) 432 ;; ("&" ?')
421 ("$" ?$) 433 ;; ("*" ?\()
422 ("%" ?%) 434 ;; ("(" ?\))
423 ("^" ?&) 435 ;; (")" ?=)
424 ("&" ?') 436 ;; ("_" ??)
425 ("*" ?\() 437 ;; ("+" ?*)
426 ("(" ?\)) 438 ;; ("~" ?>)
427 (")" ?=) 439 ;; ("Q" ?,L)(B)
428 ("_" ??) 440 ;; ("W" ?,L*(B)
429 ("+" ?*) 441 ;; ("E" ?,L5(B)
430 ("~" ?>) 442 ;; ("R" ?,L@(B)
431 ("Q" ?,L)(B) 443 ;; ("T" ?,LB(B)
432 ("W" ?,L*(B) 444 ;; ("Y" ?,L7(B)
433 ("E" ?,L5(B) 445 ;; ("U" ?,LC(B)
434 ("R" ?,L@(B) 446 ;; ("I" ?,L8(B)
435 ("T" ?,LB(B) 447 ;; ("O" ?,L>(B)
436 ("Y" ?,L7(B) 448 ;; ("P" ?,L?(B)
437 ("U" ?,LC(B) 449 ;; ("{" ?,LH(B)
438 ("I" ?,L8(B) 450 ;; ("}" ?,L&(B)
439 ("O" ?,L>(B) 451 ;; ("A" ?,L0(B)
440 ("P" ?,L?(B) 452 ;; ("S" ?,LA(B)
441 ("{" ?,LH(B) 453 ;; ("D" ?,L4(B)
442 ("}" ?,L&(B) 454 ;; ("F" ?,LD(B)
443 ("A" ?,L0(B) 455 ;; ("G" ?,L3(B)
444 ("S" ?,LA(B) 456 ;; ("H" ?,LE(B)
445 ("D" ?,L4(B) 457 ;; ("J" ?,L((B)
446 ("F" ?,LD(B) 458 ;; ("K" ?,L:(B)
447 ("G" ?,L3(B) 459 ;; ("L" ?,L;(B)
448 ("H" ?,LE(B) 460 ;; (":" ?,LG(B)
449 ("J" ?,L((B) 461 ;; ("\"" ?,L.(B)
450 ("K" ?,L:(B) 462 ;; ("|" ?,L6(B)
451 ("L" ?,L;(B) 463 ;; ("Z" ?,L%(B)
452 (":" ?,LG(B) 464 ;; ("X" ?,L/(B)
453 ("\"" ?,L.(B) 465 ;; ("C" ?,LF(B)
454 ("|" ?,L6(B) 466 ;; ("V" ?,L2(B)
455 ("Z" ?,L%(B) 467 ;; ("B" ?,L1(B)
456 ("X" ?,L/(B) 468 ;; ("N" ?,L=(B)
457 ("C" ?,LF(B) 469 ;; ("M" ?,L<(B)
458 ("V" ?,L2(B) 470 ;; ("<" ?\;)
459 ("B" ?,L1(B) 471 ;; (">" ?:)
460 ("N" ?,L=(B) 472 ;; ("?" ?_))
461 ("M" ?,L<(B)
462 ("<" ?\;)
463 (">" ?:)
464 ("?" ?_))
465 473
466 ;; 474 ;;
467 475
476 ;; Alexander Mikhailian reports the opinion of fellow Ukrainian
477 ;; linguist Bogdan Babych <babych@altern.org>:
478 ;; He had seen this layout on some oldish systems but that the vast
479 ;; majority of the population uses a modified version of the M$ Windows
480 ;; layout. In fact, Microsoft shipped for a while a layout that was lacking
481 ;; two characters, precisely the "GHE_WITH_UPTURN" and the apostrophe. The
482 ;; latest versions of Windows software do have the "GHE_WITH_UPTURN" in the
483 ;; ukrainian keyborad layout but the apostrophe is still not there, whereas
484 ;; there is one letter, "Cyrillic_YO", not used in ukrainian. Ukrainians
485 ;; normally replace the "Cyrillic_YO" by the apostrophe sign and live
486 ;; happily with this little change. [See "ukrainian-computer" below.]
487
488 ;; Fixme: add GHE_WITH_UPTURN.
468 (quail-define-package 489 (quail-define-package
469 "cyrillic-ukrainian" "Ukrainian" ",L6(BU" nil 490 "cyrillic-ukrainian" "Ukrainian" ",L6(BU" nil
470 ",L$'5@B7(B-,L&.(B UKRAINIAN (ISO 8859-5 encoding) 491 ",L$'5@B7(B-,L&.(B UKRAINIAN"
471
472 Sorry, but 'ghe with upturn' is not included in ISO 8859-5"
473 nil t t t t nil nil nil nil nil t) 492 nil t t t t nil nil nil nil nil t)
474 493
475 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> 494 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
476 ;; ,L$(B ,L'(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L&(B 495 ;; ,L$(B ,L'(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L&(B
477 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L.(B ,L6(B 496 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L.(B ,L6(B
572 ("M" ?,L<(B) 591 ("M" ?,L<(B)
573 ("<" ?\;) 592 ("<" ?\;)
574 (">" ?:) 593 (">" ?:)
575 ("?" ?_)) 594 ("?" ?_))
576 595
596
597 (quail-define-package
598 "ukrainian-computer" "Ukrainian" "UK" nil
599 ",L9FC:5=(B Ukrainian."
600 nil t t t t nil nil nil nil nil t)
601
602 ;; ' 1! 2" 3,Lp(B 4; 5% 6: 7? 8* 9( 0) -_ =+
603 ;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,L'(B
604 ;; ,LD(B ,L&(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,L$(B $,1)P(B
605 ;; ,LO(B ,LG(B ,LA(B ,L<(B ,L8(B ,LB(B ,LL(B ,L1(B ,LN(B .,
606
607 (quail-define-rules
608 ("1" ?1)
609 ("2" ?2)
610 ("3" ?3)
611 ("4" ?4)
612 ("5" ?5)
613 ("6" ?6)
614 ("7" ?7)
615 ("8" ?8)
616 ("9" ?9)
617 ("0" ?0)
618 ("-" ?-)
619 ("=" ?=)
620 ("`" ?')
621 ("q" ?,LY(B)
622 ("w" ?,Lf(B)
623 ("e" ?,Lc(B)
624 ("r" ?,LZ(B)
625 ("t" ?,LU(B)
626 ("y" ?,L](B)
627 ("u" ?,LS(B)
628 ("i" ?,Lh(B)
629 ("o" ?,Li(B)
630 ("p" ?,LW(B)
631 ("[" ?,Le(B)
632 ("]" ?,Lw(B)
633 ("a" ?,Ld(B)
634 ("s" ?,Lv(B)
635 ("d" ?,LR(B)
636 ("f" ?,LP(B)
637 ("g" ?,L_(B)
638 ("h" ?,L`(B)
639 ("j" ?,L^(B)
640 ("k" ?,L[(B)
641 ("l" ?,LT(B)
642 (";" ?,LV(B)
643 ("'" ?,Lt(B)
644 ;; ("\\" ?\\)
645 ("z" ?,Lo(B)
646 ("x" ?,Lg(B)
647 ("c" ?,La(B)
648 ("v" ?,L\(B)
649 ("b" ?,LX(B)
650 ("n" ?,Lb(B)
651 ("m" ?,Ll(B)
652 ("," ?,LQ(B)
653 ("." ?,Ln(B)
654 ("/" ?.)
655 ;; ("!" ?!)
656 ("@" ?\")
657 ("#" ?,Lp(B)
658 ("$" ?\;)
659 ;; ("%" ?%)
660 ("^" ?:)
661 ("&" ??)
662 ;; ("*" ?*)
663 ;; ("(" ?()
664 ;; (")" ?))
665 ;; ("_" ?_)
666 ;; ("+" ?+)
667 ("~" ?')
668 ("Q" ?,L9(B)
669 ("W" ?,LF(B)
670 ("E" ?,LC(B)
671 ("R" ?,L:(B)
672 ("T" ?,L5(B)
673 ("Y" ?,L=(B)
674 ("U" ?,L3(B)
675 ("I" ?,LH(B)
676 ("O" ?,LI(B)
677 ("P" ?,L7(B)
678 ("{" ?,LE(B)
679 ("}" ?,L'(B)
680 ("A" ?,LD(B)
681 ("S" ?,L&(B)
682 ("D" ?,L2(B)
683 ("F" ?,L0(B)
684 ("G" ?,L?(B)
685 ("H" ?,L@(B)
686 ("J" ?,L>(B)
687 ("K" ?,L;(B)
688 ("L" ?,L4(B)
689 (":" ?,L6(B)
690 ("\"" ?,L$(B)
691 ("Z" ?,LO(B)
692 ("X" ?,LG(B)
693 ("C" ?,LA(B)
694 ("V" ?,L<(B)
695 ("B" ?,L8(B)
696 ("N" ?,LB(B)
697 ("M" ?,LL(B)
698 ("<" ?,L1(B)
699 (">" ?,LN(B)
700 ("?" ?,)
701 ("\\" ?$,1)Q(B)
702 ("|" ?$,1)P(B))
577 ;; 703 ;;
578 704
705 ;; Alexander Mikhailian says this is of limited use. It has been
706 ;; popular among emigrants or foreigners who have to type in Cyrillic
707 ;; (mostly Russian) from time to time.
579 (quail-define-package 708 (quail-define-package
580 "cyrillic-yawerty" "Cyrillic" ",L6O(B" nil 709 "cyrillic-yawerty" "Cyrillic" ",L6O(B" nil
581 ",LO25@BK(B Roman transcription (ISO 8859-5 encoding) 710 ",LO25@BK(B Roman transcription.
582 711
583 This layout is based on Roman transcription. 712 This layout is based on Roman transcription by phonemic resemblance.
584 When preceded by a '/', the second and the third rows (number key row) change 713 When preceded by a '/', the second and the third rows (number key row) change
585 as follows. 714 as follows.
586 715
587 keytop | Q W E R T Y U I O P A S D 716 keytop | Q W E R T Y U I O P A S D
588 --------+--------------------------------------- 717 --------+---------------------------------------
724 ("/S" ?,L.(B) 853 ("/S" ?,L.(B)
725 ("/D" ?,L/(B)) 854 ("/D" ?,L/(B))
726 855
727 ;; This was provided by Valery Alexeev <valery@domovoy.math.uga.edu>. 856 ;; This was provided by Valery Alexeev <valery@domovoy.math.uga.edu>.
728 857
858 ;; Ognyan Kulev <ogi@fmi.uni-sofia.bg> wrote:
859
860 ;; I would suggest future `cyrillic-translit' to be with the
861 ;; modification of `cyrillic-translit-bulgarian' applied and the
862 ;; latter to disappear. It could be used by people who write
863 ;; bulgarian e-mails with latin letters for kick start (phonetic input
864 ;; method is not so obvious as translit input method but each letter
865 ;; is one keypress and a *lot* of people know it).
866
729 (quail-define-package 867 (quail-define-package
730 "cyrillic-translit" "Cyrillic" ",L6(Bt" nil 868 "cyrillic-translit" "Cyrillic" ",L6(Bt" nil
731 "Intuitively transliterated keyboard layout. 869 "Intuitively transliterated keyboard layout.
732 Most convenient for entering Russian but all cyrillic characters are included. 870 Most convenient for entering Russian but all Cyrillic characters are included.
733 Should handle most cases. However: 871 Should handle most cases. However:
734 for ,Lf(B (TSE) use \"c\", never \"ts\" 872 for ,Lf(B (TSE) use \"c\", never \"ts\"
735 ,Li(B (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"/sht\" or \"/t\", 873 ,Li(B (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"/sht\" or \"/t\",
736 ,Lm(B (REVERSE ROUNDED E) = \"e'\" or \"e`\" 874 ,Lm(B (REVERSE ROUNDED E) = \"e'\" or \"e`\"
737 ,Le(B (KHA) when after ,La(B (S) = \"x\" or \"kh\" 875 ,Le(B (KHA) when after ,La(B (S) = \"x\" or \"kh\"
741 879
742 Russian alphabet: a b v=w g d e yo=jo zh z i j=j' k l m n o p r s t 880 Russian alphabet: a b v=w g d e yo=jo zh z i j=j' k l m n o p r s t
743 u f h=kh=x c ch sh shch=sj=/s=/sht ~ y ' e' yu=ju ya=ja=q 881 u f h=kh=x c ch sh shch=sj=/s=/sht ~ y ' e' yu=ju ya=ja=q
744 882
745 Also included are Ukrainian ,Lt(B (YE) = \"/e\" and ,Lw(B (YI) = \"yi\", 883 Also included are Ukrainian ,Lt(B (YE) = \"/e\" and ,Lw(B (YI) = \"yi\",
746 Belorussian ,L~(B (SHORT U) = \"u'\", 884 Belarusian ,L~(B (SHORT U) = \"u'\",
747 Serbo-Croatian ,Lr(B (DJE) = \"/d\", ,L{(B (CHJE)= \"/ch\", 885 Serbo-Croatian ,Lr(B (DJE) = \"/d\", ,L{(B (CHJE)= \"/ch\",
748 Macedonian ,Ls(B (GJE) = \"/g\", ,Lu(B (DZE) = \"/s\", ,L|(B (KJE) = \"/k\", 886 Macedonian ,Ls(B (GJE) = \"/g\", ,Lu(B (DZE) = \"/s\", ,L|(B (KJE) = \"/k\",
749 cyrillic ,Lv(B (I DECIMAL) = \"/i\", ,Lx(B (JE) = \"/j\", 887 cyrillic ,Lv(B (I DECIMAL) = \"/i\", ,Lx(B (JE) = \"/j\",
750 ,Ly(B (LJE) = \"/l\", ,Lz(B (NJE) = \"/n\" and ,L(B (DZE) =\"/z\"." 888 ,Ly(B (LJE) = \"/l\", ,Lz(B (NJE) = \"/n\" and ,L(B (DZE) =\"/z\"."
751 nil t t t t nil nil nil nil nil t) 889 nil t t t t nil nil nil nil nil t)
790 ("/D" ?,L"(B) ("/Ch" ?,L+(B) ("/CH" ?,L+(B) 928 ("/D" ?,L"(B) ("/Ch" ?,L+(B) ("/CH" ?,L+(B)
791 ("/G" ?,L#(B) ("/S" ?,L%(B) ("/K" ?,L,(B) 929 ("/G" ?,L#(B) ("/S" ?,L%(B) ("/K" ?,L,(B)
792 ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B) 930 ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B)
793 ) 931 )
794 932
933 ;; Originally from Yudit's `Belarusian input table according to
934 ;; STB955-94 belarusian standard' by Alexander Mikhailian
935 ;; <mikhailian@altern.org>, subsequently amended by AM.
795 (quail-define-package 936 (quail-define-package
796 "cyrillic-translit-bulgarian" "Bulgarian" ",L6(Btb" nil 937 "belarusian" "Belarusian" "BE" nil
797 "Intuitively transliterated keyboard layout optimized for Bulgarian. 938 ",L9FC:5=(B keyboard layout registered as STB955-94 Belarusian standard."
798 The only difference with cyrillic-translit is that \"sht\" translates as
799 ,Li(B (SHCHA = Bulgarian SHT) insteat of ,Lhb(B (SH+T)."
800 nil t t t t nil nil nil nil nil t) 939 nil t t t t nil nil nil nil nil t)
801 940
941 ;; ,Lq!(B 1! 2" 3N 4; 5% 6: 7? 8* 9( 0) -_ =+
942 ;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,L.(B ,L7(B ,LE(B '
943 ;; ,LD(B ,LK(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,LM(B
944 ;; ,LO(B ,LG(B ,LA(B ,L<(B ,L&(B ,LB(B ,LL(B ,L1(B ,LN(B .,
945
802 (quail-define-rules 946 (quail-define-rules
803 ("a" ?,LP(B)("b" ?,LQ(B) ("v" ?,LR(B) ("w" ?,LR(B) ("g" ?,LS(B) ("d" ?,LT(B) 947 ("~" ?,L!(B)
804 ("e" ?,LU(B) ("je" ?,LU(B)
805 ("yo" ?,Lq(B) ("jo" ?,Lq(B)
806 ("zh" ?,LV(B) ("z" ?,LW(B) ("i" ?,LX(B)
807 ("j" ?,LY(B) ("j'" ?,LY(B) ("j`" ?,LY(B) ("k" ?,LZ(B) ("l" ?,L[(B)
808 ("m" ?,L\(B) ("n" ?,L](B) ("o" ?,L^(B) ("p" ?,L_(B) ("r" ?,L`(B) ("s" ?,La(B) ("t" ?,Lb(B) ("u" ?,Lc(B)
809 ("f" ?,Ld(B) ("x" ?,Le(B) ("h" ?,Le(B) ("kh" ?,Le(B)
810 ("c" ?,Lf(B) ("ch" ?,Lg(B)
811 ("sh" ?,Lh(B)
812 ("shch" ?,Li(B) ("sj" ?,Li(B)
813 ("/sht" ?,Li(B) ("/t" ?,Li(B) ("sht" ?,Li(B)
814 ("~" ?,Lj(B) ("y" ?,Lk(B) ("'" ?,Ll(B) ("`" ?,Ll(B)
815 ("e'" ?,Lm(B) ("e`" ?,Lm(B) ("@" ?,Lm(B)
816 ("yu" ?,Ln(B) ("ju" ?,Ln(B)
817 ("ya" ?,Lo(B) ("ja" ?,Lo(B) ("q" ?,Lo(B)
818
819 ("A" ?,L0(B) ("B" ?,L1(B) ("V" ?,L2(B) ("W" ?,L2(B) ("G" ?,L3(B) ("D" ?,L4(B)
820 ("E" ?,L5(B) ("Je" ?,L5(B) ("JE" ?,L5(B)
821 ("Yo" ?,L!(B) ("YO" ?,L!(B) ("Jo" ?,L!(B) ("JO" ?,L!(B)
822 ("Zh" ?,L6(B) ("ZH" ?,L6(B) ("Z" ?,L7(B) ("I" ?,L8(B)
823 ("J" ?,L9(B) ("J'" ?,L9(B) ("J`" ?,L9(B) ("K" ?,L:(B) ("L" ?,L;(B)
824 ("M" ?,L<(B) ("N" ?,L=(B) ("O" ?,L>(B) ("P" ?,L?(B) ("R" ?,L@(B) ("S" ?,LA(B) ("T" ?,LB(B) ("U" ?,LC(B)
825 ("F" ?,LD(B) ("X" ?,LE(B) ("H" ?,LE(B) ("Kh" ?,LE(B) ("KH" ?,LE(B)
826 ("C" ?,LF(B) ("Ch" ?,LG(B) ("CH" ?,LG(B)
827 ("Sh" ?,LH(B) ("SH" ?,LH(B)
828 ("Shch" ?,LI(B) ("SHCH" ?,LI(B) ("Sj" ?,LI(B) ("SJ" ?,LI(B)
829 ("/Sht" ?,LI(B) ("/SHT" ?,LI(B) ("/T" ?,LI(B) ("Sht" ?,LI(B) ("SHT" ?,LI(B)
830 ("~~" ",LJ(B") ("Y" ?,LK(B) ("''" ",LL(B") ("E'" ?,LM(B) ("E`" ?,LM(B)
831 ("Yu" ?,LN(B) ("YU" ?,LN(B) ("Ju" ?,LN(B) ("JU" ?,LN(B)
832 ("Ya" ?,LO(B) ("YA" ?,LO(B) ("Ja" ?,LO(B) ("JA" ?,LO(B) ("Q" ?,LO(B)
833
834 ("/e" ?,Lt(B) ("yi" ?,Lw(B) ("u'" ?,L~(B)
835 ("/d" ?,Lr(B) ("/ch" ?,L{(B)
836 ("/g" ?,Ls(B) ("/s" ?,Lu(B) ("/k" ?,L|(B)
837 ("/i" ?,Lv(B) ("/j" ?,Lx(B) ("/l" ?,Ly(B) ("/n" ?,Lz(B) ("/z" ?,L(B)
838 ("/E" ?,L$(B) ("YE" ?,L$(B) ("Yi" ?,L'(B) ("YI" ?,L'(B) ("U'" ?,L.(B)
839 ("/D" ?,L"(B) ("/Ch" ?,L+(B) ("/CH" ?,L+(B)
840 ("/G" ?,L#(B) ("/S" ?,L%(B) ("/K" ?,L,(B)
841 ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B)
842 )
843
844 ;; From Yudit's `Belarusian input table according to STB955-94
845 ;; belarusian standard'. Alexander Mikhailian <mikhailian@altern.org>
846 (quail-define-package
847 "belarusian" "Belarusian" "$,1(v(B" ; fixme
848 nil
849 "Belarusian STB955-94 input, producing Unicode"
850 nil t t t t nil nil nil nil nil t)
851
852 (quail-define-rules
853 ("<<" ?,A+(B)
854 (">>" ?,A;(B)
855 (",," ?$,1r}(B)
856 ("``" ?$,1r|(B)
857 ("C)" ?,A)(B)
858 ("x)" ?$,1s"(B)
859 (":)" ?$,2#:(B)
860 (":(" ?$,2#9(B)
861 ("C-" ?,A$(B)
862 ("E-" ?$,1tL(B)
863 ("L-" ?,A#(B)
864
865 ("~" ?$,1(!(B)
866 ("!" ?!)
867 ("@" ?\") 948 ("@" ?\")
868 ("#" ?$,1uV(B) 949 ("#" ?,Lp(B)
869 ("$" ?\;) 950 ("$" ?\;)
870 ("%" ?%) 951 ("%" ?%)
871 ("^" ?:) 952 ("^" ?:)
872 ("&" ??) 953 ("&" ??)
873 ("*" ?*) 954 ("Q" ?,L9(B)
874 ("(" ?\() 955 ("W" ?,LF(B)
875 (")" ?\)) 956 ("E" ?,LC(B)
876 ("_" ?_) 957 ("R" ?,L:(B)
877 ("+" ?+) 958 ("T" ?,L5(B)
878 ("Q" ?$,1(9(B) 959 ("Y" ?,L=(B)
879 ("W" ?$,1(F(B) 960 ("U" ?,L3(B)
880 ("E" ?$,1(C(B) 961 ("I" ?,LH(B)
881 ("R" ?$,1(:(B) 962 ("O" ?,L.(B)
882 ("T" ?$,1(5(B) 963 ("P" ?,L7(B)
883 ("Y" ?$,1(=(B) 964 ("{" ?,LE(B)
884 ("U" ?$,1(3(B)
885 ("I" ?$,1(H(B)
886 ("O" ?$,1(.(B)
887 ("P" ?$,1(7(B)
888 ("{" ?$,1(E(B)
889 ("}" ?') 965 ("}" ?')
890 ("A" ?$,1(D(B) 966 ("A" ?,LD(B)
891 ("S" ?$,1(K(B) 967 ("S" ?,LK(B)
892 ("D" ?$,1(2(B) 968 ("D" ?,L2(B)
893 ("F" ?$,1(0(B) 969 ("F" ?,L0(B)
894 ("G" ?$,1(?(B) 970 ("G" ?,L?(B)
895 ("H" ?$,1(@(B) 971 ("H" ?,L@(B)
896 ("J" ?$,1(>(B) 972 ("J" ?,L>(B)
897 ("K" ?$,1(;(B) 973 ("K" ?,L;(B)
898 ("L" ?$,1(4(B) 974 ("L" ?,L4(B)
899 (":" ?$,1(6(B) 975 (":" ?,L6(B)
900 ("\"" ?$,1(M(B) 976 ("\"" ?,LM(B)
901 ("|" ?/) 977 ("|" ?|)
902 ("Z" ?$,1(O(B) 978 ("Z" ?,LO(B)
903 ("X" ?$,1(G(B) 979 ("X" ?,LG(B)
904 ("C" ?$,1(A(B) 980 ("C" ?,LA(B)
905 ("V" ?$,1(<(B) 981 ("V" ?,L<(B)
906 ("B" ?$,1(&(B) 982 ("B" ?,L&(B)
907 ("N" ?$,1(B(B) 983 ("N" ?,LB(B)
908 ("M" ?$,1(L(B) 984 ("M" ?,LL(B)
909 ("<" ?$,1(1(B) 985 ("<" ?,L1(B)
910 (">" ?$,1(N(B) 986 (">" ?,LN(B)
911 ("?" ?,) 987 ("?" ?,)
912 988
913 ("`" ?$,1(q(B) 989 ("`" ?,Lq(B)
914 ("1" ?1) 990 ("1" ?1)
915 ("2" ?2) 991 ("2" ?2)
916 ("3" ?3) 992 ("3" ?3)
917 ("4" ?4) 993 ("4" ?4)
918 ("5" ?5) 994 ("5" ?5)
921 ("8" ?8) 997 ("8" ?8)
922 ("9" ?9) 998 ("9" ?9)
923 ("0" ?0) 999 ("0" ?0)
924 ("-" ?-) 1000 ("-" ?-)
925 ("=" ?=) 1001 ("=" ?=)
926 ("q" ?$,1(Y(B) 1002 ("q" ?,LY(B)
927 ("w" ?$,1(f(B) 1003 ("w" ?,Lf(B)
928 ("e" ?$,1(c(B) 1004 ("e" ?,Lc(B)
929 ("r" ?$,1(Z(B) 1005 ("r" ?,LZ(B)
930 ("t" ?$,1(U(B) 1006 ("t" ?,LU(B)
931 ("y" ?$,1(](B) 1007 ("y" ?,L](B)
932 ("u" ?$,1(S(B) 1008 ("u" ?,LS(B)
933 ("i" ?$,1(h(B) 1009 ("i" ?,Lh(B)
934 ("o" ?$,1(~(B) 1010 ("o" ?,L~(B)
935 ("p" ?$,1(W(B) 1011 ("p" ?,LW(B)
936 ("[" ?$,1(e(B) 1012 ("[" ?,Le(B)
937 ("]" ?') 1013 ("]" ?')
938 ("a" ?$,1(d(B) 1014 ("a" ?,Ld(B)
939 ("s" ?$,1(k(B) 1015 ("s" ?,Lk(B)
940 ("d" ?$,1(R(B) 1016 ("d" ?,LR(B)
941 ("f" ?$,1(P(B) 1017 ("f" ?,LP(B)
942 ("g" ?$,1(_(B) 1018 ("g" ?,L_(B)
943 ("h" ?$,1(`(B) 1019 ("h" ?,L`(B)
944 ("j" ?$,1(^(B) 1020 ("j" ?,L^(B)
945 ("k" ?$,1([(B) 1021 ("k" ?,L[(B)
946 ("l" ?$,1(T(B) 1022 ("l" ?,LT(B)
947 (";" ?$,1(V(B) 1023 (";" ?,LV(B)
948 ("'" ?$,1(m(B) 1024 ("'" ?,Lm(B)
949 ("\\" ?\\) 1025 ("\\" ?\\)
950 ("z" ?$,1(o(B) 1026 ("z" ?,Lo(B)
951 ("x" ?$,1(g(B) 1027 ("x" ?,Lg(B)
952 ("c" ?$,1(a(B) 1028 ("c" ?,La(B)
953 ("v" ?$,1(\(B) 1029 ("v" ?,L\(B)
954 ("b" ?$,1(v(B) 1030 ("b" ?,Lv(B)
955 ("n" ?$,1(b(B) 1031 ("n" ?,Lb(B)
956 ("m" ?$,1(l(B) 1032 ("m" ?,Ll(B)
957 ("," ?$,1(Q(B) 1033 ("," ?,LQ(B)
958 ("." ?$,1(n(B) 1034 ("." ?,Ln(B)
959 ("/" ?.) 1035 ("/" ?.))
960
961 ("D-" ?$,1("(B)
962 ("G'" ?$,1(#(B)
963 ("E>" ?$,1($(B)
964 ("Z>" ?$,1(%(B)
965 ("I/ " ?$,1(8(B)
966 ("I:" ?$,1('(B)
967 ("J<" ?$,1(((B)
968 ("L>" ?$,1()(B)
969 ("N>" ?$,1(*(B)
970 ("C'" ?$,1(+(B)
971 ("K'" ?$,1(,(B)
972 ("D>" ?$,1(/(B)
973
974 ("d-" ?$,1(r(B)
975 ("g'" ?$,1(s(B)
976 ("e>" ?$,1(t(B)
977 ("z>" ?$,1(u(B)
978 ("i/ " ?$,1(X(B)
979 ("i:" ?$,1(w(B)
980 ("j<" ?$,1(x(B)
981 ("l>" ?$,1(y(B)
982 ("c'" ?$,1({(B)
983 ("k'" ?$,1(|(B)
984 ("d>" ?$,1((B)
985
986 ("G`" ?$,1)P(B)
987 ("g`" ?$,1)Q(B)
988 ("E<" ?$,1)"(B)
989 ("e<" ?$,1)#(B)
990 ("A<" ?$,1)*(B)
991 ("a<" ?$,1)+(B)
992 ("F`" ?$,1)2(B)
993 ("f`" ?$,1)3(B)
994 ("Y`" ?$,1)4(B)
995 ("y`" ?$,1)5(B))
996 1036
997 ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov 1037 ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov
998 ;; <al_shopov@web.bg>. 1038 ;; <al_shopov@web.bg>.
999 1039
1000 ;; Extra commentary and the indicator from an independent 1040 ;; Extra commentary and the indicator from an independent
1001 ;; (cyrillic-iso8859-5) implementation by Ognyan Kulev 1041 ;; (cyrillic-iso8859-5) implementation by Ognyan Kulev
1002 ;; <ogi@fmi.uni-sofia.bg>. 1042 ;; <ogi@fmi.uni-sofia.bg>.
1003 (quail-define-package 1043 (quail-define-package
1004 "bulgarian-pho" "Bulgarian" "$,1(6(1(D(B" 1044 "bulgarian-pho" "Bulgarian" ",L61D(B"
1005 nil 1045 nil
1006 "Bulgarian Phonetic keyboard layout, producing Unicode 1046 "Bulgarian Phonetic keyboard layout.
1007 1047
1008 The layout is similar to `cyrillic-translit', but all Bulgarian 1048 The layout is similar to `cyrillic-translit', but all Bulgarian
1009 characters are typed with a single key." 1049 characters are typed with a single key.
1050
1051 Use /& for ,A'(B (Cyrillic paragraph) and /# for ,Lp(B."
1010 nil t t t t nil nil nil nil nil t) 1052 nil t t t t nil nil nil nil nil t)
1011 1053
1012 ;; $,1(O(B $,1(2(B $,1(5(B $,1(@(B $,1(B(B $,1(J(B $,1(C(B $,1(8(B $,1(>(B $,1(?(B $,1(H(B $,1(I(B 1054 ;; ,LO(B ,L2(B ,L5(B ,L@(B ,LB(B ,LJ(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,LI(B
1013 ;; $,1(0(B $,1(A(B $,1(4(B $,1(D(B $,1(3(B $,1(E(B $,1(9(B $,1(:(B $,1(;(B $,1(G(B 1055 ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L9(B ,L:(B ,L;(B ,LG(B
1014 ;; $,1(N(B $,1(7(B $,1(L(B $,1(F(B $,1(6(B $,1(1(B $,1(=(B $,1(<(B 1056 ;; ,LN(B ,L7(B ,LL(B ,LF(B ,L6(B ,L1(B ,L=(B ,L<(B
1015 1057
1016 (quail-define-rules 1058 (quail-define-rules
1017 ("A" ?$,1(0(B) 1059 ("/&" ?,A'(B)
1018 ("B" ?$,1(1(B) 1060 ("/#" ?,Lp(B)
1019 ("W" ?$,1(2(B) 1061 ("A" ?,L0(B)
1020 ("G" ?$,1(3(B) 1062 ("B" ?,L1(B)
1021 ("D" ?$,1(4(B) 1063 ("W" ?,L2(B)
1022 ("E" ?$,1(5(B) 1064 ("G" ?,L3(B)
1023 ("V" ?$,1(6(B) 1065 ("D" ?,L4(B)
1024 ("Z" ?$,1(7(B) 1066 ("E" ?,L5(B)
1025 ("I" ?$,1(8(B) 1067 ("V" ?,L6(B)
1026 ("J" ?$,1(9(B) 1068 ("Z" ?,L7(B)
1027 ("K" ?$,1(:(B) 1069 ("I" ?,L8(B)
1028 ("L" ?$,1(;(B) 1070 ("J" ?,L9(B)
1029 ("M" ?$,1(<(B) 1071 ("K" ?,L:(B)
1030 ("N" ?$,1(=(B) 1072 ("L" ?,L;(B)
1031 ("O" ?$,1(>(B) 1073 ("M" ?,L<(B)
1032 ("P" ?$,1(?(B) 1074 ("N" ?,L=(B)
1033 ("R" ?$,1(@(B) 1075 ("O" ?,L>(B)
1034 ("S" ?$,1(A(B) 1076 ("P" ?,L?(B)
1035 ("T" ?$,1(B(B) 1077 ("R" ?,L@(B)
1036 ("U" ?$,1(C(B) 1078 ("S" ?,LA(B)
1037 ("F" ?$,1(D(B) 1079 ("T" ?,LB(B)
1038 ("H" ?$,1(E(B) 1080 ("U" ?,LC(B)
1039 ("C" ?$,1(F(B) 1081 ("F" ?,LD(B)
1040 ("~" ?$,1(G(B) 1082 ("H" ?,LE(B)
1041 ("{" ?$,1(H(B) 1083 ("C" ?,LF(B)
1042 ("}" ?$,1(I(B) 1084 ("~" ?,LG(B)
1043 ("Y" ?$,1(J(B) 1085 ("{" ?,LH(B)
1044 ("X" ?$,1(L(B) 1086 ("}" ?,LI(B)
1045 ("|" ?$,1(N(B) 1087 ("Y" ?,LJ(B)
1046 ("Q" ?$,1(O(B) 1088 ("X" ?,LL(B)
1047 ("a" ?$,1(P(B) 1089 ("|" ?,LN(B)
1048 ("b" ?$,1(Q(B) 1090 ("Q" ?,LO(B)
1049 ("w" ?$,1(R(B) 1091 ("a" ?,LP(B)
1050 ("g" ?$,1(S(B) 1092 ("b" ?,LQ(B)
1051 ("d" ?$,1(T(B) 1093 ("w" ?,LR(B)
1052 ("e" ?$,1(U(B) 1094 ("g" ?,LS(B)
1053 ("v" ?$,1(V(B) 1095 ("d" ?,LT(B)
1054 ("z" ?$,1(W(B) 1096 ("e" ?,LU(B)
1055 ("i" ?$,1(X(B) 1097 ("v" ?,LV(B)
1056 ("j" ?$,1(Y(B) 1098 ("z" ?,LW(B)
1057 ("k" ?$,1(Z(B) 1099 ("i" ?,LX(B)
1058 ("l" ?$,1([(B) 1100 ("j" ?,LY(B)
1059 ("m" ?$,1(\(B) 1101 ("k" ?,LZ(B)
1060 ("n" ?$,1(](B) 1102 ("l" ?,L[(B)
1061 ("o" ?$,1(^(B) 1103 ("m" ?,L\(B)
1062 ("p" ?$,1(_(B) 1104 ("n" ?,L](B)
1063 ("r" ?$,1(`(B) 1105 ("o" ?,L^(B)
1064 ("s" ?$,1(a(B) 1106 ("p" ?,L_(B)
1065 ("t" ?$,1(b(B) 1107 ("r" ?,L`(B)
1066 ("u" ?$,1(c(B) 1108 ("s" ?,La(B)
1067 ("f" ?$,1(d(B) 1109 ("t" ?,Lb(B)
1068 ("h" ?$,1(e(B) 1110 ("u" ?,Lc(B)
1069 ("c" ?$,1(f(B) 1111 ("f" ?,Ld(B)
1070 ("`" ?$,1(g(B) 1112 ("h" ?,Le(B)
1071 ("[" ?$,1(h(B) 1113 ("c" ?,Lf(B)
1072 ("]" ?$,1(i(B) 1114 ("`" ?,Lg(B)
1073 ("y" ?$,1(j(B) 1115 ("[" ?,Lh(B)
1074 ("x" ?$,1(l(B) 1116 ("]" ?,Li(B)
1075 ("\\" ?$,1(n(B) 1117 ("y" ?,Lj(B)
1076 ("q" ?$,1(o(B)) 1118 ("x" ?,Ll(B)
1119 ("\\" ?,Ln(B)
1120 ("|" ?,LN(B)
1121 ("q" ?,Lo(B))
1122
1123 ;; Based on an implementation by Ognyan Kulev <ogi@fmi.uni-sofia.bg>.
1124 ;; This follows XKB bg.
1125
1126 (quail-define-package
1127 "bulgarian-standard" "Bulgarian" ",L14A(B" nil
1128 "Bulgarian standard keyboard layout (BDS)
1129
1130 This keyboard layout is standard for Bulgarian typewriters."
1131 nil t t t t nil nil nil nil nil t)
1132
1133 ;; 1! 2? 3+ 4" 5% 6= 7: 8/ 9_ 0,Lp(B -I .V
1134 ;; ,,Lk(B ,LC(B ,L5(B ,L8(B ,LH(B ,LI(B ,L:(B ,LA(B ,L4(B ,L7(B ,LF(B ;,A'(B
1135 ;; ,Ll(B ,LO(B ,L0(B ,L>(B ,L6(B ,L3(B ,LB(B ,L=(B ,L2(B ,L<(B ,LG(B ()
1136 ;; ,LN(B ,L9(B ,LJ(B ,LM(B ,LD(B ,LE(B ,L?(B ,L@(B ,L;(B ,L1(B
1137
1138 (quail-define-rules
1139
1140 ("1" ?1) ("!" ?!)
1141 ("2" ?2)
1142 ("@" ??)
1143 ("3" ?3)
1144 ("#" ?+)
1145 ("4" ?4)
1146 ("$" ?\")
1147 ("5" ?5) ("%" ?%)
1148 ("6" ?6)
1149 ("^" ?=)
1150 ("7" ?7)
1151 ("&" ?:)
1152 ("8" ?8)
1153 ("*" ?/)
1154 ("9" ?9)
1155 ("(" ?_)
1156 ("0" ?0)
1157 (")" ?,Lp(B)
1158 ("-" ?-)
1159 ("_" ?I)
1160 ("=" ?.) ("+" ?V)
1161
1162 ("q" ?,) ("Q" ?,Lk(B)
1163 ("w" ?,Lc(B) ("W" ?,LC(B)
1164 ("e" ?,LU(B) ("E" ?,L5(B)
1165 ("r" ?,LX(B) ("R" ?,L8(B)
1166 ("t" ?,Lh(B) ("T" ?,LH(B)
1167 ("y" ?,Li(B) ("Y" ?,LI(B)
1168 ("u" ?,LZ(B) ("U" ?,L:(B)
1169 ("i" ?,La(B) ("I" ?,LA(B)
1170 ("o" ?,LT(B) ("O" ?,L4(B)
1171 ("p" ?,LW(B) ("P" ?,L7(B)
1172 ("[" ?,Lf(B) ("{" ?,LF(B)
1173 ("]" ?\;)
1174 ("}" ?,A'(B) ;; not in XKB's bg
1175
1176 ("a" ?,Ll(B) ("A" ?,LL(B)
1177 ("s" ?,Lo(B) ("S" ?,LO(B)
1178 ("d" ?,LP(B) ("D" ?,L0(B)
1179 ("f" ?,L^(B) ("F" ?,L>(B)
1180 ("g" ?,LV(B) ("G" ?,L6(B)
1181 ("h" ?,LS(B) ("H" ?,L3(B)
1182 ("j" ?,Lb(B) ("J" ?,LB(B)
1183 ("k" ?,L](B) ("K" ?,L=(B)
1184 ("l" ?,LR(B) ("L" ?,L2(B)
1185 (";" ?,L\(B) (":" ?,L<(B)
1186 ("'" ?,Lg(B) ("\"" ?,LG(B)
1187 ("`" ?\() ("~" ?\))
1188
1189 ("z" ?,Ln(B) ("Z" ?,LN(B)
1190 ("x" ?,LY(B) ("X" ?,L9(B)
1191 ("c" ?,Lj(B) ("C" ?,LJ(B)
1192 ("v" ?,Lm(B) ("V" ?,LM(B)
1193 ("b" ?,Ld(B) ("B" ?,LD(B)
1194 ("n" ?,Le(B) ("N" ?,LE(B)
1195 ("m" ?,L_(B) ("M" ?,L?(B)
1196 ("," ?,L`(B) ("<" ?,L@(B)
1197 ("." ?,L[(B) (">" ?,L;(B)
1198 ("/" ?,LQ(B) ("?" ?,L1(B)
1199 ("\\" ?') ("|" ?,LK(B))
1077 1200
1078 ;; Local Variables: 1201 ;; Local Variables:
1079 ;; coding: iso-2022-7bit 1202 ;; coding: iso-2022-7bit
1080 ;; End: 1203 ;; End:
1081 1204