Mercurial > hg > xemacs-beta

comparison lisp/leim/quail/cyrillic.el @ 197:acd284d43ca1 r20-3b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents 43dd3413c7c7
children e45d5e7c476e
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
1 ;;; quail/cyrillic.el -- Quail package for inputting Cyrillic characters 1 ;;; quail/cyrillic.el -- Quail package for inputting Cyrillic characters
2 2
3 ;; Copyright (C) 1995 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. 4 ;; Licensed to the Free Software Foundation.
5 5
6 ;; Keywords: multilingual, input method, Cyrillic 6 ;; Keywords: multilingual, input method, Cyrillic
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
9 9
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details. 18 ;; GNU General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 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 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
23 24
24 ;;; Code: 25 ;;; Code:
25 26
26 (require 'quail) 27 (require 'quail)
27 28
28 (quail-define-package "quail-jcuken" "Cyrillic" ",L9FC:5=(B" nil 29 (quail-define-package
29 "Cyrillic (ISO 8859-5) encoding. 30 "cyrillic-jcuken" "Cyrillic" ",L69(B" nil
30 31 ",L9FC:5=(B keyboard layout widely used in Russia (ISO 8859-5 encoding)"
31 They say this layout is widely used in Russia." 32 nil t t t t nil nil nil nil nil t)
32 nil t t t t)
33 33
34 ;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ,L!(B 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 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 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 /? 37 ;; ,LO(B ,LG(B ,LA(B ,L<(B ,L8(B ,LB(B ,LL(B ,L1(B ,LN(B /?
38 38
39 (quail-define-rules 39 (quail-define-rules
40 ("1" ?1) 40 ("1" ?1)
41 ("2" ?2) 41 ("2" ?2)
133 (">" ?,LN(B) 133 (">" ?,LN(B)
134 ("?" ??)) 134 ("?" ??))
135 135
136 ;; 136 ;;
137 137
138 (quail-define-package "quail-jis-russian" "Cyrillic" "$B'+'8'5','&'/(B" nil 138 (quail-define-package
139 "JIS X0208.1983 encoding. 139 "cyrillic-macedonian" "Cyrillic" ",L6(BM" nil
140 140 ",L)*5@B7(B-,L#,(B keyboard layout based on JUS.I.K1.004 (ISO 8859-5 encoding)"
141 The layout is same as jcuken, but uses JIS characters." 141 nil t t t t nil nil nil nil nil t)
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 142
254 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> 143 ;; 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 144 ;; ,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 145 ;; ,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 ,; .: -_ 146 ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
353 (">" ?:) 242 (">" ?:)
354 ("?" ?_)) 243 ("?" ?_))
355 244
356 ;; 245 ;;
357 246
358 (quail-define-package "quail-serbian" "Cyrillic" ",L)*5@B7(B-,L"+(B" nil 247 (quail-define-package
359 "Cyrillic (ISO 8859-5) encoding. 248 "cyrillic-serbian" "Cyrillic" ",L6(BS" nil
360 249 ",L)*5@B7(B-,L"+(B keyboard layout based on JUS.I.K1.005 (ISO 8859-5 encoding)"
361 This layout is based on JUS.I.K1.005." 250 nil t t t t nil nil nil nil nil t)
362 nil t t t t)
363 251
364 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> 252 ;; 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 253 ;; ,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 254 ;; ,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 ,; .: -_ 255 ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
463 (">" ?:) 351 (">" ?:)
464 ("?" ?_)) 352 ("?" ?_))
465 353
466 ;; 354 ;;
467 355
468 (quail-define-package "quail-beylorussian" "Cyrillic" ",L)*5@B7(B-,L&.(B" nil 356 (quail-define-package
469 "Cyrillic (ISO 8859-5) encoding." 357 "cyrillic-beylorussian" "Cyrillic" ",L6(BB" nil
470 nil t t t t) 358 ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (ISO 8859-5 encoding)"
359 nil t t t t nil nil nil nil nil t)
471 360
472 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> 361 ;; 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 362 ;; ,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 363 ;; ,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 ,; .: -_ 364 ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
571 (">" ?:) 460 (">" ?:)
572 ("?" ?_)) 461 ("?" ?_))
573 462
574 ;; 463 ;;
575 464
576 (quail-define-package "quail-ukrainian" "Cyrillic" ",L$'5@B7(B-,L&.(B" nil 465 (quail-define-package
577 "Cyrillic (ISO 8859-5) encoding. 466 "cyrillic-ukrainian" "Cyrillic" ",L6(BU" nil
467 ",L$'5@B7(B-,L&.(B UKRAINIAN (ISO 8859-5 encoding)
578 468
579 Sorry, but 'ghe with upturn' is not included in ISO 8859-5" 469 Sorry, but 'ghe with upturn' is not included in ISO 8859-5"
580 nil t t t t) 470 nil t t t t nil nil nil nil nil t)
581 471
582 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> 472 ;; 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 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
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 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
585 ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_ 475 ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
681 (">" ?:) 571 (">" ?:)
682 ("?" ?_)) 572 ("?" ?_))
683 573
684 ;; 574 ;;
685 575
686 (quail-define-package "quail-yawerty" "Cyrillic" ",LO25@BK(B" nil 576 (quail-define-package
687 "Cyrillic (ISO 8859-5) encoding. 577 "cyrillic-yawerty" "Cyrillic" ",L6O(B" nil
578 ",LO25@BK(B Roman transcription (ISO 8859-5 encoding)
688 579
689 This layout is based on Roman transcription. 580 This layout is based on Roman transcription.
690 When preceded by a '/', the second and the third rows (number key row) change 581 When preceded by a '/', the second and the third rows (number key row) change
691 as follows. 582 as follows.
692 583
693 keytop | Q W E R T Y U I O P A S D 584 keytop | Q W E R T Y U I O P A S D
694 --------+--------------------------------------- 585 --------+---------------------------------------
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" 586 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) 587 nil t t t t nil nil nil nil nil t)
697 588
698 ;; 1! 2,Lq(B 3,Lj(B 4,L!(B 5% 6^ 7& 8* 9( 0) -_ ,LG(B ,LN(B 589 ;; 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 590 ;; ,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 591 ;; ,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 ,< .> /? 592 ;; ,L7(B ,LL(B ,LF(B ,L6(B ,L1(B ,L=(B ,L<(B ,< .> /?
827 ("/O" ?,L*(B) 718 ("/O" ?,L*(B)
828 ("/P" ?,L+(B) 719 ("/P" ?,L+(B)
829 ("/A" ?,L,(B) 720 ("/A" ?,L,(B)
830 ("/S" ?,L.(B) 721 ("/S" ?,L.(B)
831 ("/D" ?,L/(B)) 722 ("/D" ?,L/(B))
723
724 ;; This was provided by Valery Alexeev <valery@domovoy.math.uga.edu>.
725
726 (quail-define-package
727 "cyrillic-translit" "Cyrillic" ",L6(Bt" nil
728 "Intuitively transliterated keyboard layout.
729 Most convenient for entering Russian but all cyrillic characters are included.
730 Should handle most cases. However:
731 for ,Lf(B (TSE) use \"c\", never \"ts\"
732 ,Li(B (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"/sht\" or \"/t\",
733 ,Lm(B (REVERSE ROUNDED E) = \"e'\" or \"e`\"
734 ,Le(B (KHA) when after ,La(B (S) = \"x\" or \"kh\"
735 ,Lj(B (HARD SIGN) = \"~\", ,LJ(B (CAPITAL HARD SIGN) = \"~~\",
736 ,Ll(B (SOFT SIGN) = \"'\", ,LL(B (CAPITAL SOFT SIGN) = \"''\",
737 ,Lo(B (YA) = \"ya\", \"ja\" or \"q\".
738
739 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
740 u f h=kh=x c ch sh shch=sj=/s=/sht ~ y ' e' yu=ju ya=ja=q
741
742 Also included are Ukrainian ,Lt(B (YE) = \"/e\" and ,Lw(B (YI) = \"yi\",
743 Belorussian ,L~(B (SHORT U) = \"u'\",
744 Serbo-Croatian ,Lr(B (DJE) = \"/d\", ,L{(B (CHJE)= \"/ch\",
745 Macedonian ,Ls(B (GJE) = \"/g\", ,Lu(B (DZE) = \"/s\", ,L|(B (KJE) = \"/k\",
746 cyrillic ,Lv(B (I DECIMAL) = \"/i\", ,Lx(B (JE) = \"/j\",
747 ,Ly(B (LJE) = \"/l\", ,Lz(B (NJE) = \"/n\" and ,L(B (DZE) =\"/z\"."
748 nil t t t t nil nil nil nil nil t)
749
750 (quail-define-rules
751 ("a" ?,LP(B)("b" ?,LQ(B) ("v" ?,LR(B) ("w" ?,LR(B) ("g" ?,LS(B) ("d" ?,LT(B)
752 ("e" ?,LU(B) ("je" ?,LU(B)
753 ("yo" ?,Lq(B) ("jo" ?,Lq(B)
754 ("zh" ?,LV(B) ("z" ?,LW(B) ("i" ?,LX(B)
755 ("j" ?,LY(B) ("j'" ?,LY(B) ("j`" ?,LY(B) ("k" ?,LZ(B) ("l" ?,L[(B)
756 ("m" ?,L\(B) ("n" ?,L](B) ("o" ?,L^(B) ("p" ?,L_(B) ("r" ?,L`(B) ("s" ?,La(B) ("t" ?,Lb(B) ("u" ?,Lc(B)
757 ("f" ?,Ld(B) ("x" ?,Le(B) ("h" ?,Le(B) ("kh" ?,Le(B)
758 ("c" ?,Lf(B) ("ch" ?,Lg(B)
759 ("sh" ?,Lh(B)
760 ("shch" ?,Li(B) ("sj" ?,Li(B)
761 ("/sht" ?,Li(B) ("/t" ?,Li(B)
762 ("~" ?,Lj(B) ("y" ?,Lk(B) ("'" ?,Ll(B) ("`" ?,Ll(B)
763 ("e'" ?,Lm(B) ("e`" ?,Lm(B) ("@" ?,Lm(B)
764 ("yu" ?,Ln(B) ("ju" ?,Ln(B)
765 ("ya" ?,Lo(B) ("ja" ?,Lo(B) ("q" ?,Lo(B)
766
767 ("A" ?,L0(B) ("B" ?,L1(B) ("V" ?,L2(B) ("W" ?,L2(B) ("G" ?,L3(B) ("D" ?,L4(B)
768 ("E" ?,L5(B) ("Je" ?,L5(B) ("JE" ?,L5(B)
769 ("Yo" ?,L!(B) ("YO" ?,L!(B) ("Jo" ?,L!(B) ("JO" ?,L!(B)
770 ("Zh" ?,L6(B) ("ZH" ?,L6(B) ("Z" ?,L7(B) ("I" ?,L8(B)
771 ("J" ?,L9(B) ("J'" ?,L9(B) ("J`" ?,L9(B) ("K" ?,L:(B) ("L" ?,L;(B)
772 ("M" ?,L<(B) ("N" ?,L=(B) ("O" ?,L>(B) ("P" ?,L?(B) ("R" ?,L@(B) ("S" ?,LA(B) ("T" ?,LB(B) ("U" ?,LC(B)
773 ("F" ?,LD(B) ("X" ?,LE(B) ("H" ?,LE(B) ("Kh" ?,LE(B) ("KH" ?,LE(B)
774 ("C" ?,LF(B) ("Ch" ?,LG(B) ("CH" ?,LG(B)
775 ("Sh" ?,LH(B) ("SH" ?,LH(B)
776 ("Shch" ?,LI(B) ("SHCH" ?,LI(B) ("Sj" ?,LI(B) ("SJ" ?,LI(B)
777 ("/Sht" ?,LI(B) ("/SHT" ?,LI(B) ("/T" ?,LI(B)
778 ("~~" ",LJ(B") ("Y" ?,LK(B) ("''" ",LL(B") ("E'" ?,LM(B) ("E`" ?,LM(B)
779 ("Yu" ?,LN(B) ("YU" ?,LN(B) ("Ju" ?,LN(B) ("JU" ?,LN(B)
780 ("Ya" ?,LO(B) ("YA" ?,LO(B) ("Ja" ?,LO(B) ("JA" ?,LO(B) ("Q" ?,LO(B)
781
782 ("/e" ?,Lt(B) ("yi" ?,Lw(B) ("u'" ?,L~(B)
783 ("/d" ?,Lr(B) ("/ch" ?,L{(B)
784 ("/g" ?,Ls(B) ("/s" ?,Lu(B) ("/k" ?,L|(B)
785 ("/i" ?,Lv(B) ("/j" ?,Lx(B) ("/l" ?,Ly(B) ("/n" ?,Lz(B) ("/z" ?,L(B)
786 ("/E" ?,L$(B) ("YE" ?,L$(B) ("Yi" ?,L'(B) ("YI" ?,L'(B) ("U'" ?,L.(B)
787 ("/D" ?,L"(B) ("/Ch" ?,L+(B) ("/CH" ?,L+(B)
788 ("/G" ?,L#(B) ("/S" ?,L%(B) ("/K" ?,L,(B)
789 ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B)
790 )
791
792 (quail-define-package
793 "cyrillic-translit-bulgarian" "Cyrillic" ",L6(Btb" nil
794 "Intuitively transliterated keyboard layout optimized for Bulgarian.
795 The only difference with cyrillic-translit is that \"sht\" translates as
796 ,Li(B (SHCHA = Bulgarian SHT) insteat of ,Lhb(B (SH+T)."
797 nil t t t t nil nil nil nil nil t)
798
799 (quail-define-rules
800 ("a" ?,LP(B)("b" ?,LQ(B) ("v" ?,LR(B) ("w" ?,LR(B) ("g" ?,LS(B) ("d" ?,LT(B)
801 ("e" ?,LU(B) ("je" ?,LU(B)
802 ("yo" ?,Lq(B) ("jo" ?,Lq(B)
803 ("zh" ?,LV(B) ("z" ?,LW(B) ("i" ?,LX(B)
804 ("j" ?,LY(B) ("j'" ?,LY(B) ("j`" ?,LY(B) ("k" ?,LZ(B) ("l" ?,L[(B)
805 ("m" ?,L\(B) ("n" ?,L](B) ("o" ?,L^(B) ("p" ?,L_(B) ("r" ?,L`(B) ("s" ?,La(B) ("t" ?,Lb(B) ("u" ?,Lc(B)
806 ("f" ?,Ld(B) ("x" ?,Le(B) ("h" ?,Le(B) ("kh" ?,Le(B)
807 ("c" ?,Lf(B) ("ch" ?,Lg(B)
808 ("sh" ?,Lh(B)
809 ("shch" ?,Li(B) ("sj" ?,Li(B)
810 ("/sht" ?,Li(B) ("/t" ?,Li(B) ("sht" ?,Li(B)
811 ("~" ?,Lj(B) ("y" ?,Lk(B) ("'" ?,Ll(B) ("`" ?,Ll(B)
812 ("e'" ?,Lm(B) ("e`" ?,Lm(B) ("@" ?,Lm(B)
813 ("yu" ?,Ln(B) ("ju" ?,Ln(B)
814 ("ya" ?,Lo(B) ("ja" ?,Lo(B) ("q" ?,Lo(B)
815
816 ("A" ?,L0(B) ("B" ?,L1(B) ("V" ?,L2(B) ("W" ?,L2(B) ("G" ?,L3(B) ("D" ?,L4(B)
817 ("E" ?,L5(B) ("Je" ?,L5(B) ("JE" ?,L5(B)
818 ("Yo" ?,L!(B) ("YO" ?,L!(B) ("Jo" ?,L!(B) ("JO" ?,L!(B)
819 ("Zh" ?,L6(B) ("ZH" ?,L6(B) ("Z" ?,L7(B) ("I" ?,L8(B)
820 ("J" ?,L9(B) ("J'" ?,L9(B) ("J`" ?,L9(B) ("K" ?,L:(B) ("L" ?,L;(B)
821 ("M" ?,L<(B) ("N" ?,L=(B) ("O" ?,L>(B) ("P" ?,L?(B) ("R" ?,L@(B) ("S" ?,LA(B) ("T" ?,LB(B) ("U" ?,LC(B)
822 ("F" ?,LD(B) ("X" ?,LE(B) ("H" ?,LE(B) ("Kh" ?,LE(B) ("KH" ?,LE(B)
823 ("C" ?,LF(B) ("Ch" ?,LG(B) ("CH" ?,LG(B)
824 ("Sh" ?,LH(B) ("SH" ?,LH(B)
825 ("Shch" ?,LI(B) ("SHCH" ?,LI(B) ("Sj" ?,LI(B) ("SJ" ?,LI(B)
826 ("/Sht" ?,LI(B) ("/SHT" ?,LI(B) ("/T" ?,LI(B) ("Sht" ?,LI(B) ("SHT" ?,LI(B)
827 ("~~" ",LJ(B") ("Y" ?,LK(B) ("''" ",LL(B") ("E'" ?,LM(B) ("E`" ?,LM(B)
828 ("Yu" ?,LN(B) ("YU" ?,LN(B) ("Ju" ?,LN(B) ("JU" ?,LN(B)
829 ("Ya" ?,LO(B) ("YA" ?,LO(B) ("Ja" ?,LO(B) ("JA" ?,LO(B) ("Q" ?,LO(B)
830
831 ("/e" ?,Lt(B) ("yi" ?,Lw(B) ("u'" ?,L~(B)
832 ("/d" ?,Lr(B) ("/ch" ?,L{(B)
833 ("/g" ?,Ls(B) ("/s" ?,Lu(B) ("/k" ?,L|(B)
834 ("/i" ?,Lv(B) ("/j" ?,Lx(B) ("/l" ?,Ly(B) ("/n" ?,Lz(B) ("/z" ?,L(B)
835 ("/E" ?,L$(B) ("YE" ?,L$(B) ("Yi" ?,L'(B) ("YI" ?,L'(B) ("U'" ?,L.(B)
836 ("/D" ?,L"(B) ("/Ch" ?,L+(B) ("/CH" ?,L+(B)
837 ("/G" ?,L#(B) ("/S" ?,L%(B) ("/K" ?,L,(B)
838 ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B)
839 )
840
841
842
843
844
845 ;; Local Variables:
846 ;; buffer-file-coding-system: iso-2022-7bit
847 ;; End: