Mercurial > emacs

comparison leim/quail/cyrillic.el @ 46499:c97319502b83

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-bds") ("russian-computer"): New. ("bulgarian-phonetic"): Renamed from bulgarian-pho. Add ?, ,Lp(B, ,LN(B. ("russian-typewriter"): Renamed from cyrillic-jcuken.
author Dave Love <fx@gnu.org>
date Wed, 17 Jul 2002 18:19:44 +0000
parents ff836e215e48
children 23a1cea22d13
comparison
equal deleted inserted replaced
46498:065bbf082910 46499:c97319502b83
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
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA. 25 ;; Boston, MA 02111-1307, USA.
25 26
26 ;;; Commentary: 27 ;;; Commentary:
27 28
29 ;; These methods use a mixture of 8859-5 and Unicode. Quail, used
30 ;; with ucs-tables provides suport for translating on the fly to
31 ;; what's appropriate for aa buffer's file coding system, so the
32 ;; encoding shouldn't matter too much provided it supports the
33 ;; necessary characters.
34
28 ;;; Code: 35 ;;; Code:
29 36
30 (require 'quail) 37 (require 'quail)
31 38
39 ;; This was `cyrillic-jcuken'. Alexander Mikhailian
40 ;; <mikhailian@altern.org> says: "cyrillic-jcuken" is actually
41 ;; russian. It is ok but a bit outdated. This layout has been used
42 ;; in typewriters for ages but it has been superceeded on desktops by
43 ;; a variation of this layout, implemented in M$ Windows software.
44 ;; The Windows layout is greatly preferred because of the comma and
45 ;; period being placed more conviniently and, of course, because of
46 ;; the popularity of Windows software. This layout is a common option
47 ;; in X Windows and console layouts for GNU/Linux. [See
48 ;; `russian-computer' below.]
32 (quail-define-package 49 (quail-define-package
33 "cyrillic-jcuken" "Cyrillic" ",L69(B" nil 50 "russian-typewriter" "Russian" ",L69(B" nil
34 ",L9FC:5=(B keyboard layout widely used in Russia (ISO 8859-5 encoding)" 51 ",L9FC:5=(B Russian typewriter layout (ISO 8859-5 encoding)."
35 nil t t t t nil nil nil nil nil t) 52 nil t t t t nil nil nil nil nil t)
36 53
37 ;; 1! 2" 3' 4* 5: 6, 7. 8; 9( 0) -_ =+ ,L!(B 54 ;; 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 55 ;; ,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 56 ;; ,LD(B ,LK(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,LM(B
94 ("$" ?*) 111 ("$" ?*)
95 ("%" ?:) 112 ("%" ?:)
96 ("^" ?,) 113 ("^" ?,)
97 ("&" ?.) 114 ("&" ?.)
98 ("*" ?\;) 115 ("*" ?\;)
99 ("(" ?() 116 ("(" ?\()
100 (")" ?)) 117 (")" ?\))
101 ("_" ?_) 118 ("_" ?_)
102 ("+" ?+) 119 ("+" ?+)
103 ("~" ?,L!(B) 120 ("~" ?,L!(B)
104 ("Q" ?,L9(B) 121 ("Q" ?,L9(B)
105 ("W" ?,LF(B) 122 ("W" ?,LF(B)
132 ("B" ?,L8(B) 149 ("B" ?,L8(B)
133 ("N" ?,LB(B) 150 ("N" ?,LB(B)
134 ("M" ?,LL(B) 151 ("M" ?,LL(B)
135 ("<" ?,L1(B) 152 ("<" ?,L1(B)
136 (">" ?,LN(B) 153 (">" ?,LN(B)
137 ("?" ??)) 154 ("?" ??)
138 155 )
139 ;; 156
140 157 ;; Maintain the obsolete name for now.
158 (push (cons "cyrillic-jcuken"
159 (cdr (assoc "russian-typewriter" input-method-alist)))
160 input-method-alist)
161
162 ;; See comment above. This is the variant `winkeys' from `ru' in XKB.
163 (quail-define-package
164 "russian-computer" "Russian" "RU" nil
165 ",L9FC:5=(B Russian computer layout"
166 nil t t t t nil nil nil nil nil t)
167
168 ;; 1! 2" 3,Lp(B 4; 5% 6: 7? 8* 9( 0) -_ =+ ,Lq!(B
169 ;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B
170 ;; ,LD(B ,LK(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,LM(B
171 ;; ,LO(B ,LG(B ,LA(B ,L<(B ,L8(B ,LB(B ,LL(B ,L1(B ,LN(B .,
172
173 (quail-define-rules
174 ("1" ?1)
175 ("2" ?2)
176 ("3" ?3)
177 ("4" ?4)
178 ("5" ?5)
179 ("6" ?6)
180 ("7" ?7)
181 ("8" ?8)
182 ("9" ?9)
183 ("0" ?0)
184 ("-" ?-)
185 ("=" ?=)
186 ("`" ?,Lq(B)
187 ("q" ?,LY(B)
188 ("w" ?,Lf(B)
189 ("e" ?,Lc(B)
190 ("r" ?,LZ(B)
191 ("t" ?,LU(B)
192 ("y" ?,L](B)
193 ("u" ?,LS(B)
194 ("i" ?,Lh(B)
195 ("o" ?,Li(B)
196 ("p" ?,LW(B)
197 ("[" ?,Le(B)
198 ("]" ?,Lj(B)
199 ("a" ?,Ld(B)
200 ("s" ?,Lk(B)
201 ("d" ?,LR(B)
202 ("f" ?,LP(B)
203 ("g" ?,L_(B)
204 ("h" ?,L`(B)
205 ("j" ?,L^(B)
206 ("k" ?,L[(B)
207 ("l" ?,LT(B)
208 (";" ?,LV(B)
209 ("'" ?,Lm(B)
210 ("\\" ?\\)
211 ("z" ?,Lo(B)
212 ("x" ?,Lg(B)
213 ("c" ?,La(B)
214 ("v" ?,L\(B)
215 ("b" ?,LX(B)
216 ("n" ?,Lb(B)
217 ("m" ?,Ll(B)
218 ("," ?,LQ(B)
219 ("." ?,Ln(B)
220 ("/" ?.)
221 ("!" ?!)
222 ("@" ?\")
223 ("#" ?,Lp(B)
224 ("$" ?\;)
225 ("%" ?%)
226 ("^" ?:)
227 ("&" ??)
228 ("*" ?*)
229 ("(" ?()
230 (")" ?))
231 ("_" ?_)
232 ("+" ?+)
233 ("~" ?,L!(B)
234 ("Q" ?,L9(B)
235 ("W" ?,LF(B)
236 ("E" ?,LC(B)
237 ("R" ?,L:(B)
238 ("T" ?,L5(B)
239 ("Y" ?,L=(B)
240 ("U" ?,L3(B)
241 ("I" ?,LH(B)
242 ("O" ?,LI(B)
243 ("P" ?,L7(B)
244 ("{" ?,LE(B)
245 ("}" ?,LJ(B)
246 ("A" ?,LD(B)
247 ("S" ?,LK(B)
248 ("D" ?,L2(B)
249 ("F" ?,L0(B)
250 ("G" ?,L?(B)
251 ("H" ?,L@(B)
252 ("J" ?,L>(B)
253 ("K" ?,L;(B)
254 ("L" ?,L4(B)
255 (":" ?,L6(B)
256 ("\"" ?,LM(B)
257 ("|" ?|)
258 ("Z" ?,LO(B)
259 ("X" ?,LG(B)
260 ("C" ?,LA(B)
261 ("V" ?,L<(B)
262 ("B" ?,L8(B)
263 ("N" ?,LB(B)
264 ("M" ?,LL(B)
265 ("<" ?,L1(B)
266 (">" ?,LN(B)
267 ("?" ?,))
268
269 ;; Mikhailian couldn't check the next two.
270
271 ;; This seems to have the same layout for letters as mk in XKB, but at
272 ;; least the top row is different.
141 (quail-define-package 273 (quail-define-package
142 "cyrillic-macedonian" "Cyrillic" ",L6(BM" nil 274 "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)" 275 ",L)*5@B7(B-,L#,(B keyboard layout based on JUS.I.K1.004 (ISO 8859-5 encoding)"
144 nil t t t t nil nil nil nil nil t) 276 nil t t t t nil nil nil nil nil t)
145 277
354 (">" ?:) 486 (">" ?:)
355 ("?" ?_)) 487 ("?" ?_))
356 488
357 ;; 489 ;;
358 490
359 (quail-define-package 491 ;; Alexander Mikhailian comments:
360 "cyrillic-beylorussian" "Belarussian" ",L6(BB" nil 492 ;; Having worked for several years as a Belarusian linguist, I still
361 ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (ISO 8859-5 encoding)" 493 ;; can not find the origin of this layout which BTW does include
362 nil t t t t nil nil nil nil nil t) 494 ;; several characters that are not present in Belarusian and does not
363 495 ;; include a few ones that do exist in Belarusian. Besides, the typo
364 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> 496 ;; 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 497 ;; 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 498 ;; "beylorussian". I suggest that you just remove this layout.
367 ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_ 499
368 500 ;; [`derived from JUS.I.K1' according to an old Mule note -- fx]
369 (quail-define-rules 501
370 ("1" ?1) 502 ;; (quail-define-package
371 ("2" ?2) 503 ;; "cyrillic-beylorussian" "Belarussian" ",L6(BB" nil
372 ("3" ?3) 504 ;; ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (ISO 8859-5 encoding)"
373 ("4" ?4) 505 ;; nil t t t t nil nil nil nil nil t)
374 ("5" ?5) 506
375 ("6" ?6) 507 ;; ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
376 ("7" ?7) 508 ;; ;; ,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) 509 ;; ;; ,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) 510 ;; ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
379 ("0" ?0) 511
380 ("-" ?/) 512 ;; (quail-define-rules
381 ("=" ?+) 513 ;; ("-" ?/)
382 ("`" ?<) 514 ;; ("=" ?+)
383 ("q" ?,Ly(B) 515 ;; ("`" ?<)
384 ("w" ?,Lz(B) 516 ;; ("q" ?,Ly(B)
385 ("e" ?,LU(B) 517 ;; ("w" ?,Lz(B)
386 ("r" ?,L`(B) 518 ;; ("e" ?,LU(B)
387 ("t" ?,Lb(B) 519 ;; ("r" ?,L`(B)
388 ("y" ?,LW(B) 520 ;; ("t" ?,Lb(B)
389 ("u" ?,Lc(B) 521 ;; ("y" ?,LW(B)
390 ("i" ?,LX(B) 522 ;; ("u" ?,Lc(B)
391 ("o" ?,L^(B) 523 ;; ("i" ?,LX(B)
392 ("p" ?,L_(B) 524 ;; ("o" ?,L^(B)
393 ("[" ?,Lh(B) 525 ;; ("p" ?,L_(B)
394 ("]" ?,Lv(B) 526 ;; ("[" ?,Lh(B)
395 ("a" ?,LP(B) 527 ;; ("]" ?,Lv(B)
396 ("s" ?,La(B) 528 ;; ("a" ?,LP(B)
397 ("d" ?,LT(B) 529 ;; ("s" ?,La(B)
398 ("f" ?,Ld(B) 530 ;; ("d" ?,LT(B)
399 ("g" ?,LS(B) 531 ;; ("f" ?,Ld(B)
400 ("h" ?,Le(B) 532 ;; ("g" ?,LS(B)
401 ("j" ?,Lx(B) 533 ;; ("h" ?,Le(B)
402 ("k" ?,LZ(B) 534 ;; ("j" ?,Lx(B)
403 ("l" ?,L[(B) 535 ;; ("k" ?,LZ(B)
404 (";" ?,Lg(B) 536 ;; ("l" ?,L[(B)
405 ("'" ?,L~(B) 537 ;; (";" ?,Lg(B)
406 ("\\" ?,LV(B) 538 ;; ("'" ?,L~(B)
407 ("z" ?,Lu(B) 539 ;; ("\\" ?,LV(B)
408 ("x" ?,L(B) 540 ;; ("z" ?,Lu(B)
409 ("c" ?,Lf(B) 541 ;; ("x" ?,L(B)
410 ("v" ?,LR(B) 542 ;; ("c" ?,Lf(B)
411 ("b" ?,LQ(B) 543 ;; ("v" ?,LR(B)
412 ("n" ?,L](B) 544 ;; ("b" ?,LQ(B)
413 ("m" ?,L\(B) 545 ;; ("n" ?,L](B)
414 ("," ?,) 546 ;; ("m" ?,L\(B)
415 ("." ?.) 547 ;; ("/" ?-)
416 ("/" ?-)
417 548
418 ("!" ?!) 549 ;; ("@" ?\")
419 ("@" ?\") 550 ;; ("^" ?&)
420 ("#" ?#) 551 ;; ("&" ?')
421 ("$" ?$) 552 ;; ("*" ?\()
422 ("%" ?%) 553 ;; ("(" ?\))
423 ("^" ?&) 554 ;; (")" ?=)
424 ("&" ?') 555 ;; ("_" ??)
425 ("*" ?\() 556 ;; ("+" ?*)
426 ("(" ?\)) 557 ;; ("~" ?>)
427 (")" ?=) 558 ;; ("Q" ?,L)(B)
428 ("_" ??) 559 ;; ("W" ?,L*(B)
429 ("+" ?*) 560 ;; ("E" ?,L5(B)
430 ("~" ?>) 561 ;; ("R" ?,L@(B)
431 ("Q" ?,L)(B) 562 ;; ("T" ?,LB(B)
432 ("W" ?,L*(B) 563 ;; ("Y" ?,L7(B)
433 ("E" ?,L5(B) 564 ;; ("U" ?,LC(B)
434 ("R" ?,L@(B) 565 ;; ("I" ?,L8(B)
435 ("T" ?,LB(B) 566 ;; ("O" ?,L>(B)
436 ("Y" ?,L7(B) 567 ;; ("P" ?,L?(B)
437 ("U" ?,LC(B) 568 ;; ("{" ?,LH(B)
438 ("I" ?,L8(B) 569 ;; ("}" ?,L&(B)
439 ("O" ?,L>(B) 570 ;; ("A" ?,L0(B)
440 ("P" ?,L?(B) 571 ;; ("S" ?,LA(B)
441 ("{" ?,LH(B) 572 ;; ("D" ?,L4(B)
442 ("}" ?,L&(B) 573 ;; ("F" ?,LD(B)
443 ("A" ?,L0(B) 574 ;; ("G" ?,L3(B)
444 ("S" ?,LA(B) 575 ;; ("H" ?,LE(B)
445 ("D" ?,L4(B) 576 ;; ("J" ?,L((B)
446 ("F" ?,LD(B) 577 ;; ("K" ?,L:(B)
447 ("G" ?,L3(B) 578 ;; ("L" ?,L;(B)
448 ("H" ?,LE(B) 579 ;; (":" ?,LG(B)
449 ("J" ?,L((B) 580 ;; ("\"" ?,L.(B)
450 ("K" ?,L:(B) 581 ;; ("|" ?,L6(B)
451 ("L" ?,L;(B) 582 ;; ("Z" ?,L%(B)
452 (":" ?,LG(B) 583 ;; ("X" ?,L/(B)
453 ("\"" ?,L.(B) 584 ;; ("C" ?,LF(B)
454 ("|" ?,L6(B) 585 ;; ("V" ?,L2(B)
455 ("Z" ?,L%(B) 586 ;; ("B" ?,L1(B)
456 ("X" ?,L/(B) 587 ;; ("N" ?,L=(B)
457 ("C" ?,LF(B) 588 ;; ("M" ?,L<(B)
458 ("V" ?,L2(B) 589 ;; ("<" ?\;)
459 ("B" ?,L1(B) 590 ;; (">" ?:)
460 ("N" ?,L=(B) 591 ;; ("?" ?_))
461 ("M" ?,L<(B)
462 ("<" ?\;)
463 (">" ?:)
464 ("?" ?_))
465 592
466 ;; 593 ;;
467 594
595 ;; Alexander Mikhailian reports the opinion of fellow Ukrainian
596 ;; linguist Bogdan Babych <babych@altern.org>:
597 ;; He had seen this layout on some oldish systems but that the vast
598 ;; majority of the population uses a modified version of the M$ Windows
599 ;; layout. In fact, Microsoft shipped for a while a layout that was lacking
600 ;; two characters, precisely the "GHE_WITH_UPTURN" and the apostrophe. The
601 ;; latest versions of Windows software do have the "GHE_WITH_UPTURN" in the
602 ;; ukrainian keyborad layout but the apostrophe is still not there, whereas
603 ;; there is one letter, "Cyrillic_YO", not used in ukrainian. Ukrainians
604 ;; normally replace the "Cyrillic_YO" by the apostrophe sign and live
605 ;; happily with this little change. [See "ukrainian-computer" below.]
606
607 ;; Fixme: add GHE_WITH_UPTURN.
468 (quail-define-package 608 (quail-define-package
469 "cyrillic-ukrainian" "Ukrainian" ",L6(BU" nil 609 "cyrillic-ukrainian" "Ukrainian" ",L6(BU" nil
470 ",L$'5@B7(B-,L&.(B UKRAINIAN (ISO 8859-5 encoding) 610 ",L$'5@B7(B-,L&.(B UKRAINIAN (ISO 8859-5 encoding)
471 611
472 Sorry, but 'ghe with upturn' is not included in ISO 8859-5" 612 Sorry, but 'ghe with upturn' is not included in ISO 8859-5."
473 nil t t t t nil nil nil nil nil t) 613 nil t t t t nil nil nil nil nil t)
474 614
475 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> 615 ;; 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 616 ;; ,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 617 ;; ,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) 712 ("M" ?,L<(B)
573 ("<" ?\;) 713 ("<" ?\;)
574 (">" ?:) 714 (">" ?:)
575 ("?" ?_)) 715 ("?" ?_))
576 716
717
718 (quail-define-package
719 "ukrainian-computer" "Ukrainian" "UK" nil
720 "$,1(9(F(C(:(5(=(B Ukrainian (Unicode-based for use with KOI8-U encoding)."
721 nil t t t t nil nil nil nil nil t)
722
723 ;; ' 1! 2" 3$,1uV(B 4; 5% 6: 7? 8* 9( 0) -_ =+
724 ;; $,1(9(B $,1(F(B $,1(C(B $,1(:(B $,1(5(B $,1(=(B $,1(3(B $,1(H(B $,1(I(B $,1(7(B $,1(E(B $,1('(B
725 ;; $,1(D(B $,1(&(B $,1(2(B $,1(0(B $,1(?(B $,1(@(B $,1(>(B $,1(;(B $,1(4(B $,1(6(B $,1($(B $,1)P(B
726 ;; $,1(O(B $,1(G(B $,1(A(B $,1(<(B $,1(8(B $,1(B(B $,1(L(B $,1(1(B $,1(N(B .,
727
728 (quail-define-rules
729 ("1" ?1)
730 ("2" ?2)
731 ("3" ?3)
732 ("4" ?4)
733 ("5" ?5)
734 ("6" ?6)
735 ("7" ?7)
736 ("8" ?8)
737 ("9" ?9)
738 ("0" ?0)
739 ("-" ?-)
740 ("=" ?=)
741 ("`" ?')
742 ("q" ?$,1(Y(B)
743 ("w" ?$,1(f(B)
744 ("e" ?$,1(c(B)
745 ("r" ?$,1(Z(B)
746 ("t" ?$,1(U(B)
747 ("y" ?$,1(](B)
748 ("u" ?$,1(S(B)
749 ("i" ?$,1(h(B)
750 ("o" ?$,1(i(B)
751 ("p" ?$,1(W(B)
752 ("[" ?$,1(e(B)
753 ("]" ?$,1(w(B)
754 ("a" ?$,1(d(B)
755 ("s" ?$,1(v(B)
756 ("d" ?$,1(R(B)
757 ("f" ?$,1(P(B)
758 ("g" ?$,1(_(B)
759 ("h" ?$,1(`(B)
760 ("j" ?$,1(^(B)
761 ("k" ?$,1([(B)
762 ("l" ?$,1(T(B)
763 (";" ?$,1(V(B)
764 ("'" ?$,1(t(B)
765 ("\\" ?\\)
766 ("z" ?$,1(o(B)
767 ("x" ?$,1(g(B)
768 ("c" ?$,1(a(B)
769 ("v" ?$,1(\(B)
770 ("b" ?$,1(X(B)
771 ("n" ?$,1(b(B)
772 ("m" ?$,1(l(B)
773 ("," ?$,1(Q(B)
774 ("." ?$,1(n(B)
775 ("/" ?.)
776 ("!" ?!)
777 ("@" ?\")
778 ("#" ?$,1uV(B)
779 ("$" ?\;)
780 ("%" ?%)
781 ("^" ?:)
782 ("&" ??)
783 ("*" ?*)
784 ("(" ?()
785 (")" ?))
786 ("_" ?_)
787 ("+" ?+)
788 ("~" ?')
789 ("Q" ?$,1(9(B)
790 ("W" ?$,1(F(B)
791 ("E" ?$,1(C(B)
792 ("R" ?$,1(:(B)
793 ("T" ?$,1(5(B)
794 ("Y" ?$,1(=(B)
795 ("U" ?$,1(3(B)
796 ("I" ?$,1(H(B)
797 ("O" ?$,1(I(B)
798 ("P" ?$,1(7(B)
799 ("{" ?$,1(E(B)
800 ("}" ?$,1('(B)
801 ("A" ?$,1(D(B)
802 ("S" ?$,1(&(B)
803 ("D" ?$,1(2(B)
804 ("F" ?$,1(0(B)
805 ("G" ?$,1(?(B)
806 ("H" ?$,1(@(B)
807 ("J" ?$,1(>(B)
808 ("K" ?$,1(;(B)
809 ("L" ?$,1(4(B)
810 (":" ?$,1(6(B)
811 ("\"" ?$,1($(B)
812 ("Z" ?$,1(O(B)
813 ("X" ?$,1(G(B)
814 ("C" ?$,1(A(B)
815 ("V" ?$,1(<(B)
816 ("B" ?$,1(8(B)
817 ("N" ?$,1(B(B)
818 ("M" ?$,1(L(B)
819 ("<" ?$,1(1(B)
820 (">" ?$,1(N(B)
821 ("?" ?,)
822 ("\\" ?$,1)Q(B)
823 ("|" ?$,1)P(B))
577 ;; 824 ;;
578 825
826 ;; Alexander Mikhailian says this is of limited use. It has been
827 ;; popular among emigrants or foreigners who have to type in Cyrillic
828 ;; (mostly Russian) from time to time.
579 (quail-define-package 829 (quail-define-package
580 "cyrillic-yawerty" "Cyrillic" ",L6O(B" nil 830 "cyrillic-yawerty" "Cyrillic" ",L6O(B" nil
581 ",LO25@BK(B Roman transcription (ISO 8859-5 encoding) 831 ",LO25@BK(B Roman transcription (ISO 8859-5 encoding)
582 832
583 This layout is based on Roman transcription. 833 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 834 When preceded by a '/', the second and the third rows (number key row) change
585 as follows. 835 as follows.
586 836
587 keytop | Q W E R T Y U I O P A S D 837 keytop | Q W E R T Y U I O P A S D
588 --------+--------------------------------------- 838 --------+---------------------------------------
724 ("/S" ?,L.(B) 974 ("/S" ?,L.(B)
725 ("/D" ?,L/(B)) 975 ("/D" ?,L/(B))
726 976
727 ;; This was provided by Valery Alexeev <valery@domovoy.math.uga.edu>. 977 ;; This was provided by Valery Alexeev <valery@domovoy.math.uga.edu>.
728 978
979 ;; Ognyan Kulev <ogi@fmi.uni-sofia.bg> wrote:
980
981 ;; I would suggest future `cyrillic-translit' to be with the
982 ;; modification of `cyrillic-translit-bulgarian' applied and the
983 ;; latter to disappear. It could be used by people who write
984 ;; bulgarian e-mails with latin letters for kick start (phonetic input
985 ;; method is not so obvious as translit input method but each letter
986 ;; is one keypress and a *lot* of people know it).
987
988 ;; Anton Zinoviev <anton@lml.bas.bg> wrote:
989 ;; I would say that the main idea for cyrillic-translit is to be
990 ;; language-independent and universal. It should be able to generate all
991 ;; Cyrillic symbols.
729 (quail-define-package 992 (quail-define-package
730 "cyrillic-translit" "Cyrillic" ",L6(Bt" nil 993 "cyrillic-translit" "Cyrillic" ",L6(Bt" nil
731 "Intuitively transliterated keyboard layout. 994 "Intuitively transliterated keyboard layout.
732 Most convenient for entering Russian but all cyrillic characters are included. 995 Most convenient for entering Russian but all Cyrillic characters are included.
733 Should handle most cases. However: 996 Should handle most cases. However:
734 for ,Lf(B (TSE) use \"c\", never \"ts\" 997 for ,Lf(B (TSE) use \"c\", never \"ts\"
735 ,Li(B (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"/sht\" or \"/t\", 998 ,Li(B (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"/sht\" or \"/t\",
736 ,Lm(B (REVERSE ROUNDED E) = \"e'\" or \"e`\" 999 ,Lm(B (REVERSE ROUNDED E) = \"e'\" or \"e`\"
737 ,Le(B (KHA) when after ,La(B (S) = \"x\" or \"kh\" 1000 ,Le(B (KHA) when after ,La(B (S) = \"x\" or \"kh\"
741 1004
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 1005 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 1006 u f h=kh=x c ch sh shch=sj=/s=/sht ~ y ' e' yu=ju ya=ja=q
744 1007
745 Also included are Ukrainian ,Lt(B (YE) = \"/e\" and ,Lw(B (YI) = \"yi\", 1008 Also included are Ukrainian ,Lt(B (YE) = \"/e\" and ,Lw(B (YI) = \"yi\",
746 Belorussian ,L~(B (SHORT U) = \"u'\", 1009 Belarusian ,L~(B (SHORT U) = \"u'\",
747 Serbo-Croatian ,Lr(B (DJE) = \"/d\", ,L{(B (CHJE)= \"/ch\", 1010 Serbo-Croatian ,Lr(B (DJE) = \"/d\", ,L{(B (CHJE)= \"/ch\",
748 Macedonian ,Ls(B (GJE) = \"/g\", ,Lu(B (DZE) = \"/s\", ,L|(B (KJE) = \"/k\", 1011 Macedonian ,Ls(B (GJE) = \"/g\", ,Lu(B (DZE) = \"/s\", ,L|(B (KJE) = \"/k\",
749 cyrillic ,Lv(B (I DECIMAL) = \"/i\", ,Lx(B (JE) = \"/j\", 1012 cyrillic ,Lv(B (I DECIMAL) = \"/i\", ,Lx(B (JE) = \"/j\",
750 ,Ly(B (LJE) = \"/l\", ,Lz(B (NJE) = \"/n\" and ,L(B (DZE) =\"/z\"." 1013 ,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) 1014 nil t t t t nil nil nil nil nil t)
790 ("/D" ?,L"(B) ("/Ch" ?,L+(B) ("/CH" ?,L+(B) 1053 ("/D" ?,L"(B) ("/Ch" ?,L+(B) ("/CH" ?,L+(B)
791 ("/G" ?,L#(B) ("/S" ?,L%(B) ("/K" ?,L,(B) 1054 ("/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) 1055 ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B)
793 ) 1056 )
794 1057
1058 ;; Originally from Yudit's `Belarusian input table according to
1059 ;; STB955-94 belarusian standard' (not all) by Alexander Mikhailian
1060 ;; <mikhailian@altern.org>, subsequently amended by AM.
795 (quail-define-package 1061 (quail-define-package
796 "cyrillic-translit-bulgarian" "Bulgarian" ",L6(Btb" nil 1062 "belarusian" "Belarusian" "BE" nil
797 "Intuitively transliterated keyboard layout optimized for Bulgarian. 1063 "$,1(9(F(C(:(5(=(B keyboard layout registered as STB955-94 Belarusian standard.
798 The only difference with cyrillic-translit is that \"sht\" translates as 1064 Unicode based."
799 ,Li(B (SHCHA = Bulgarian SHT) insteat of ,Lhb(B (SH+T)."
800 nil t t t t nil nil nil nil nil t) 1065 nil t t t t nil nil nil nil nil t)
801 1066
1067 ;; $,1(q(!(B 1! 2" 3N 4; 5% 6: 7? 8* 9( 0) -_ =+
1068 ;; $,1(9(B $,1(F(B $,1(C(B $,1(:(B $,1(5(B $,1(=(B $,1(3(B $,1(H(B $,1(.(B $,1(7(B $,1(E(B '
1069 ;; $,1(D(B $,1(K(B $,1(2(B $,1(0(B $,1(?(B $,1(@(B $,1(>(B $,1(;(B $,1(4(B $,1(6(B $,1(M(B
1070 ;; $,1(O(B $,1(G(B $,1(A(B $,1(<(B $,1(&(B $,1(B(B $,1(L(B $,1(1(B $,1(N(B .,
1071
802 (quail-define-rules 1072 (quail-define-rules
803 ("a" ?,LP(B)("b" ?,LQ(B) ("v" ?,LR(B) ("w" ?,LR(B) ("g" ?,LS(B) ("d" ?,LT(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) 1073 ("~" ?$,1(!(B)
866 ("!" ?!)
867 ("@" ?\") 1074 ("@" ?\")
868 ("#" ?$,1uV(B) 1075 ("#" ?$,1uV(B)
869 ("$" ?\;) 1076 ("$" ?\;)
870 ("%" ?%) 1077 ("%" ?%)
871 ("^" ?:) 1078 ("^" ?:)
872 ("&" ??) 1079 ("&" ??)
873 ("*" ?*)
874 ("(" ?\()
875 (")" ?\))
876 ("_" ?_)
877 ("+" ?+)
878 ("Q" ?$,1(9(B) 1080 ("Q" ?$,1(9(B)
879 ("W" ?$,1(F(B) 1081 ("W" ?$,1(F(B)
880 ("E" ?$,1(C(B) 1082 ("E" ?$,1(C(B)
881 ("R" ?$,1(:(B) 1083 ("R" ?$,1(:(B)
882 ("T" ?$,1(5(B) 1084 ("T" ?$,1(5(B)
896 ("J" ?$,1(>(B) 1098 ("J" ?$,1(>(B)
897 ("K" ?$,1(;(B) 1099 ("K" ?$,1(;(B)
898 ("L" ?$,1(4(B) 1100 ("L" ?$,1(4(B)
899 (":" ?$,1(6(B) 1101 (":" ?$,1(6(B)
900 ("\"" ?$,1(M(B) 1102 ("\"" ?$,1(M(B)
901 ("|" ?/) 1103 ("|" ?|)
902 ("Z" ?$,1(O(B) 1104 ("Z" ?$,1(O(B)
903 ("X" ?$,1(G(B) 1105 ("X" ?$,1(G(B)
904 ("C" ?$,1(A(B) 1106 ("C" ?$,1(A(B)
905 ("V" ?$,1(<(B) 1107 ("V" ?$,1(<(B)
906 ("B" ?$,1(&(B) 1108 ("B" ?$,1(&(B)
909 ("<" ?$,1(1(B) 1111 ("<" ?$,1(1(B)
910 (">" ?$,1(N(B) 1112 (">" ?$,1(N(B)
911 ("?" ?,) 1113 ("?" ?,)
912 1114
913 ("`" ?$,1(q(B) 1115 ("`" ?$,1(q(B)
914 ("1" ?1)
915 ("2" ?2)
916 ("3" ?3)
917 ("4" ?4)
918 ("5" ?5)
919 ("6" ?6)
920 ("7" ?7)
921 ("8" ?8)
922 ("9" ?9)
923 ("0" ?0)
924 ("-" ?-)
925 ("=" ?=)
926 ("q" ?$,1(Y(B) 1116 ("q" ?$,1(Y(B)
927 ("w" ?$,1(f(B) 1117 ("w" ?$,1(f(B)
928 ("e" ?$,1(c(B) 1118 ("e" ?$,1(c(B)
929 ("r" ?$,1(Z(B) 1119 ("r" ?$,1(Z(B)
930 ("t" ?$,1(U(B) 1120 ("t" ?$,1(U(B)
944 ("j" ?$,1(^(B) 1134 ("j" ?$,1(^(B)
945 ("k" ?$,1([(B) 1135 ("k" ?$,1([(B)
946 ("l" ?$,1(T(B) 1136 ("l" ?$,1(T(B)
947 (";" ?$,1(V(B) 1137 (";" ?$,1(V(B)
948 ("'" ?$,1(m(B) 1138 ("'" ?$,1(m(B)
949 ("\\" ?\\)
950 ("z" ?$,1(o(B) 1139 ("z" ?$,1(o(B)
951 ("x" ?$,1(g(B) 1140 ("x" ?$,1(g(B)
952 ("c" ?$,1(a(B) 1141 ("c" ?$,1(a(B)
953 ("v" ?$,1(\(B) 1142 ("v" ?$,1(\(B)
954 ("b" ?$,1(v(B) 1143 ("b" ?$,1(v(B)
955 ("n" ?$,1(b(B) 1144 ("n" ?$,1(b(B)
956 ("m" ?$,1(l(B) 1145 ("m" ?$,1(l(B)
957 ("," ?$,1(Q(B) 1146 ("," ?$,1(Q(B)
958 ("." ?$,1(n(B) 1147 ("." ?$,1(n(B)
959 ("/" ?.) 1148 ("/" ?.))
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 1149
997 ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov 1150 ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov
998 ;; <al_shopov@web.bg>. 1151 ;; <al_shopov@web.bg>.
999 1152
1000 ;; Extra commentary and the indicator from an independent 1153 ;; Extra commentary and the indicator from an independent
1001 ;; (cyrillic-iso8859-5) implementation by Ognyan Kulev 1154 ;; (cyrillic-iso8859-5) implementation by Ognyan Kulev
1002 ;; <ogi@fmi.uni-sofia.bg>. 1155 ;; <ogi@fmi.uni-sofia.bg> and name changes from Anton Zinoviev
1156 ;; <anton@lml.bas.bg>.
1003 (quail-define-package 1157 (quail-define-package
1004 "bulgarian-pho" "Bulgarian" "$,1(6(1(D(B" 1158 "bulgarian-phonetic" "Bulgarian" "$,1(6(1(D(B"
1005 nil 1159 nil
1006 "Bulgarian Phonetic keyboard layout, producing Unicode 1160 "Bulgarian Phonetic keyboard layout, producing Unicode.
1007 1161
1008 The layout is similar to `cyrillic-translit', but all Bulgarian 1162 The layout is similar to `cyrillic-translit', but all Bulgarian
1009 characters are typed with a single key." 1163 characters are typed with a single key.
1164
1165 Use /& for ,A'(B (Cyrillic paragraph) and /# for $,1uV(B."
1010 nil t t t t nil nil nil nil nil t) 1166 nil t t t t nil nil nil nil nil t)
1011 1167
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 1168 ;; $,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
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 1169 ;; $,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
1014 ;; $,1(N(B $,1(7(B $,1(L(B $,1(F(B $,1(6(B $,1(1(B $,1(=(B $,1(<(B 1170 ;; $,1(N(B $,1(7(B $,1(L(B $,1(F(B $,1(6(B $,1(1(B $,1(=(B $,1(<(B
1015 1171
1016 (quail-define-rules 1172 (quail-define-rules
1173 ("/&" ?,A'(B)
1174 ("/#" ?$,1uV(B)
1017 ("A" ?$,1(0(B) 1175 ("A" ?$,1(0(B)
1018 ("B" ?$,1(1(B) 1176 ("B" ?$,1(1(B)
1019 ("W" ?$,1(2(B) 1177 ("W" ?$,1(2(B)
1020 ("G" ?$,1(3(B) 1178 ("G" ?$,1(3(B)
1021 ("D" ?$,1(4(B) 1179 ("D" ?$,1(4(B)
1071 ("[" ?$,1(h(B) 1229 ("[" ?$,1(h(B)
1072 ("]" ?$,1(i(B) 1230 ("]" ?$,1(i(B)
1073 ("y" ?$,1(j(B) 1231 ("y" ?$,1(j(B)
1074 ("x" ?$,1(l(B) 1232 ("x" ?$,1(l(B)
1075 ("\\" ?$,1(n(B) 1233 ("\\" ?$,1(n(B)
1234 ("|" ?$,1(N(B)
1076 ("q" ?$,1(o(B)) 1235 ("q" ?$,1(o(B))
1236
1237 ;; Based on an implementation by Ognyan Kulev <ogi@fmi.uni-sofia.bg>.
1238 ;; This follows XKB bg.
1239
1240 (quail-define-package
1241 "bulgarian-bds" "Bulgarian" "$,1(1(4(A(B" nil
1242 "Bulgarian standard keyboard layout (BDS)
1243
1244 This keyboard layout is standard for Bulgarian typewriters."
1245 nil t t t t nil nil nil nil nil t)
1246
1247 ;; 1! 2? 3+ 4" 5% 6= 7: 8/ 9_ 0$,1uV(B -I .V
1248 ;; ,$,1(k(B $,1(C(B $,1(5(B $,1(8(B $,1(H(B $,1(I(B $,1(:(B $,1(A(B $,1(4(B $,1(7(B $,1(F(B ;,A'(B
1249 ;; $,1(l(B $,1(O(B $,1(0(B $,1(>(B $,1(6(B $,1(3(B $,1(B(B $,1(=(B $,1(2(B $,1(<(B $,1(G(B ()
1250 ;; $,1(N(B $,1(9(B $,1(J(B $,1(M(B $,1(D(B $,1(E(B $,1(?(B $,1(@(B $,1(;(B $,1(1(B
1251
1252 (quail-define-rules
1253
1254 ("1" ?1) ("!" ?!)
1255 ("2" ?2)
1256 ("@" ??)
1257 ("3" ?3)
1258 ("#" ?+)
1259 ("4" ?4)
1260 ("$" ?\")
1261 ("5" ?5) ("%" ?%)
1262 ("6" ?6)
1263 ("^" ?=)
1264 ("7" ?7)
1265 ("&" ?:)
1266 ("8" ?8)
1267 ("*" ?/)
1268 ("9" ?9)
1269 ("(" ?_)
1270 ("0" ?0)
1271 (")" ?$,1uV(B)
1272 ("-" ?-)
1273 ("_" ?I)
1274 ("=" ?.) ("+" ?V)
1275
1276 ("q" ?,) ("Q" ?$,1(k(B)
1277 ("w" ?$,1(c(B) ("W" ?$,1(C(B)
1278 ("e" ?$,1(U(B) ("E" ?$,1(5(B)
1279 ("r" ?$,1(X(B) ("R" ?$,1(8(B)
1280 ("t" ?$,1(h(B) ("T" ?$,1(H(B)
1281 ("y" ?$,1(i(B) ("Y" ?$,1(I(B)
1282 ("u" ?$,1(Z(B) ("U" ?$,1(:(B)
1283 ("i" ?$,1(a(B) ("I" ?$,1(A(B)
1284 ("o" ?$,1(T(B) ("O" ?$,1(4(B)
1285 ("p" ?$,1(W(B) ("P" ?$,1(7(B)
1286 ("[" ?$,1(f(B) ("{" ?$,1(F(B)
1287 ("]" ?\;)
1288 ("}" ?,A'(B) ;; not in XKB's bg
1289
1290 ("a" ?$,1(l(B) ("A" ?$,1(L(B)
1291 ("s" ?$,1(o(B) ("S" ?$,1(O(B)
1292 ("d" ?$,1(P(B) ("D" ?$,1(0(B)
1293 ("f" ?$,1(^(B) ("F" ?$,1(>(B)
1294 ("g" ?$,1(V(B) ("G" ?$,1(6(B)
1295 ("h" ?$,1(S(B) ("H" ?$,1(3(B)
1296 ("j" ?$,1(b(B) ("J" ?$,1(B(B)
1297 ("k" ?$,1(](B) ("K" ?$,1(=(B)
1298 ("l" ?$,1(R(B) ("L" ?$,1(2(B)
1299 (";" ?$,1(\(B) (":" ?$,1(<(B)
1300 ("'" ?$,1(g(B) ("\"" ?$,1(G(B)
1301 ("`" ?\() ("~" ?\))
1302
1303 ("z" ?$,1(n(B) ("Z" ?$,1(N(B)
1304 ("x" ?$,1(Y(B) ("X" ?$,1(9(B)
1305 ("c" ?$,1(j(B) ("C" ?$,1(J(B)
1306 ("v" ?$,1(m(B) ("V" ?$,1(M(B)
1307 ("b" ?$,1(d(B) ("B" ?$,1(D(B)
1308 ("n" ?$,1(e(B) ("N" ?$,1(E(B)
1309 ("m" ?$,1(_(B) ("M" ?$,1(?(B)
1310 ("," ?$,1(`(B) ("<" ?$,1(@(B)
1311 ("." ?$,1([(B) (">" ?$,1(;(B)
1312 ("/" ?$,1(Q(B) ("?" ?$,1(1(B)
1313 ("\\" ?') ("|" ?$,1(K(B))
1077 1314
1078 ;; Local Variables: 1315 ;; Local Variables:
1079 ;; coding: iso-2022-7bit 1316 ;; coding: iso-2022-7bit
1080 ;; End: 1317 ;; End:
1081 1318