/[emacs]/emacs/leim/quail/cyrillic.el
ViewVC logotype

Diff of /emacs/leim/quail/cyrillic.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by eliz, Thu Jan 3 16:59:50 2002 UTC revision 1.15 by fx, Wed Jul 17 18:19:44 2002 UTC
# Line 2  Line 2 
2    
3  ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.  ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4  ;; Licensed to the Free Software Foundation.  ;; Licensed to the Free Software Foundation.
5  ;; Copyright (C) 2001 Free Software Foundation, Inc.  ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
6    
7  ;; Keywords: multilingual, input method, Cyrillic  ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
8    ;; Keywords: multilingual, input method, Cyrillic, i18n
9    
10  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
11    
# Line 25  Line 26 
26    
27  ;;; Commentary:  ;;; Commentary:
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    
35  ;;; Code:  ;;; Code:
36    
37  (require 'quail)  (require 'quail)
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.]
49  (quail-define-package  (quail-define-package
50   "cyrillic-jcuken" "Cyrillic" ",L69(B" nil   "russian-typewriter" "Russian" ",L69(B" nil
51   ",L9FC:5=(B keyboard layout widely used in Russia (ISO 8859-5 encoding)"   ",L9FC:5=(B Russian typewriter layout (ISO 8859-5 encoding)."
52   nil t t t t nil nil nil nil nil t)   nil t t t t nil nil nil nil nil t)
53    
54  ;;  1! 2" 3' 4* 5: 6, 7. 8; 9( 0) -_ =+ ,L!(B  ;;  1! 2" 3' 4* 5: 6, 7. 8; 9( 0) -_ =+ ,L!(B
# Line 96  Line 113 
113   ("^" ?,)   ("^" ?,)
114   ("&" ?.)   ("&" ?.)
115   ("*" ?\;)   ("*" ?\;)
116     ("(" ?\()
117     (")" ?\))
118     ("_" ?_)
119     ("+" ?+)
120     ("~" ?,L!(B)
121     ("Q" ?,L9(B)
122     ("W" ?,LF(B)
123     ("E" ?,LC(B)
124     ("R" ?,L:(B)
125     ("T" ?,L5(B)
126     ("Y" ?,L=(B)
127     ("U" ?,L3(B)
128     ("I" ?,LH(B)
129     ("O" ?,LI(B)
130     ("P" ?,L7(B)
131     ("{" ?,LE(B)
132     ("}" ?,LJ(B)
133     ("A" ?,LD(B)
134     ("S" ?,LK(B)
135     ("D" ?,L2(B)
136     ("F" ?,L0(B)
137     ("G" ?,L?(B)
138     ("H" ?,L@(B)
139     ("J" ?,L>(B)
140     ("K" ?,L;(B)
141     ("L" ?,L4(B)
142     (":" ?,L6(B)
143     ("\"" ?,LM(B)
144     ("|" ?|)
145     ("Z" ?,LO(B)
146     ("X" ?,LG(B)
147     ("C" ?,LA(B)
148     ("V" ?,L<(B)
149     ("B" ?,L8(B)
150     ("N" ?,LB(B)
151     ("M" ?,LL(B)
152     ("<" ?,L1(B)
153     (">" ?,LN(B)
154     ("?" ??)
155     )
156    
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)   ("~" ?,L!(B)
# Line 134  Line 264 
264   ("M" ?,LL(B)   ("M" ?,LL(B)
265   ("<" ?,L1(B)   ("<" ?,L1(B)
266   (">" ?,LN(B)   (">" ?,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.
273  (quail-define-package  (quail-define-package
274   "cyrillic-macedonian" "Cyrillic" ",L6(BM" nil   "cyrillic-macedonian" "Cyrillic" ",L6(BM" nil
275   ",L)*5@B7(B-,L#,(B keyboard layout based on JUS.I.K1.004 (ISO 8859-5 encoding)"   ",L)*5@B7(B-,L#,(B keyboard layout based on JUS.I.K1.004 (ISO 8859-5 encoding)"
# Line 356  Line 488 
488    
489  ;;  ;;
490    
491  (quail-define-package  ;; Alexander Mikhailian comments:
492   "cyrillic-beylorussian" "Belarussian" ",L6(BB" nil  ;; Having worked for several years as a Belarusian linguist, I still
493   ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (ISO 8859-5 encoding)"  ;; can not find the origin of this layout which BTW does include
494    ;; several characters that are not present in Belarusian and does not
495    ;; include a few ones that do exist in Belarusian.  Besides, the typo
496    ;; in the name of this layout speaks for itself since Belarusian has
497    ;; an outdated version of spelling which is "Byelorussian" and not
498    ;; "beylorussian".  I suggest that you just remove this layout.
499    
500    ;; [`derived from JUS.I.K1' according to an old Mule note -- fx]
501    
502    ;; (quail-define-package
503    ;;  "cyrillic-beylorussian" "Belarussian" ",L6(BB" nil
504    ;;  ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (ISO 8859-5 encoding)"
505    ;;  nil t t t t nil nil nil nil nil t)
506    
507    ;; ;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
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
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
510    ;; ;;     ,L%(B  ,L/(B  ,LF(B  ,L2(B  ,L1(B  ,L=(B  ,L<(B  ,; .: -_
511    
512    ;; (quail-define-rules
513    ;;  ("-" ?/)
514    ;;  ("=" ?+)
515    ;;  ("`" ?<)
516    ;;  ("q" ?,Ly(B)
517    ;;  ("w" ?,Lz(B)
518    ;;  ("e" ?,LU(B)
519    ;;  ("r" ?,L`(B)
520    ;;  ("t" ?,Lb(B)
521    ;;  ("y" ?,LW(B)
522    ;;  ("u" ?,Lc(B)
523    ;;  ("i" ?,LX(B)
524    ;;  ("o" ?,L^(B)
525    ;;  ("p" ?,L_(B)
526    ;;  ("[" ?,Lh(B)
527    ;;  ("]" ?,Lv(B)
528    ;;  ("a" ?,LP(B)
529    ;;  ("s" ?,La(B)
530    ;;  ("d" ?,LT(B)
531    ;;  ("f" ?,Ld(B)
532    ;;  ("g" ?,LS(B)
533    ;;  ("h" ?,Le(B)
534    ;;  ("j" ?,Lx(B)
535    ;;  ("k" ?,LZ(B)
536    ;;  ("l" ?,L[(B)
537    ;;  (";" ?,Lg(B)
538    ;;  ("'" ?,L~(B)
539    ;;  ("\\" ?,LV(B)
540    ;;  ("z" ?,Lu(B)
541    ;;  ("x" ?,L(B)
542    ;;  ("c" ?,Lf(B)
543    ;;  ("v" ?,LR(B)
544    ;;  ("b" ?,LQ(B)
545    ;;  ("n" ?,L](B)
546    ;;  ("m" ?,L\(B)
547    ;;  ("/" ?-)
548    
549    ;;  ("@" ?\")
550    ;;  ("^" ?&)
551    ;;  ("&" ?')
552    ;;  ("*" ?\()
553    ;;  ("(" ?\))
554    ;;  (")" ?=)
555    ;;  ("_" ??)
556    ;;  ("+" ?*)
557    ;;  ("~" ?>)
558    ;;  ("Q" ?,L)(B)
559    ;;  ("W" ?,L*(B)
560    ;;  ("E" ?,L5(B)
561    ;;  ("R" ?,L@(B)
562    ;;  ("T" ?,LB(B)
563    ;;  ("Y" ?,L7(B)
564    ;;  ("U" ?,LC(B)
565    ;;  ("I" ?,L8(B)
566    ;;  ("O" ?,L>(B)
567    ;;  ("P" ?,L?(B)
568    ;;  ("{" ?,LH(B)
569    ;;  ("}" ?,L&(B)
570    ;;  ("A" ?,L0(B)
571    ;;  ("S" ?,LA(B)
572    ;;  ("D" ?,L4(B)
573    ;;  ("F" ?,LD(B)
574    ;;  ("G" ?,L3(B)
575    ;;  ("H" ?,LE(B)
576    ;;  ("J" ?,L((B)
577    ;;  ("K" ?,L:(B)
578    ;;  ("L" ?,L;(B)
579    ;;  (":" ?,LG(B)
580    ;;  ("\"" ?,L.(B)
581    ;;  ("|" ?,L6(B)
582    ;;  ("Z" ?,L%(B)
583    ;;  ("X" ?,L/(B)
584    ;;  ("C" ?,LF(B)
585    ;;  ("V" ?,L2(B)
586    ;;  ("B" ?,L1(B)
587    ;;  ("N" ?,L=(B)
588    ;;  ("M" ?,L<(B)
589    ;;  ("<" ?\;)
590    ;;  (">" ?:)
591    ;;  ("?" ?_))
592    
593    ;;
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.
608    (quail-define-package
609     "cyrillic-ukrainian" "Ukrainian" ",L6(BU" nil
610     ",L$'5@B7(B-,L&.(B UKRAINIAN (ISO 8859-5 encoding)
611    
612    Sorry, but 'ghe with upturn' is not included in ISO 8859-5."
613   nil t t t t nil nil nil nil nil t)   nil t t t t nil nil nil nil nil t)
614    
615  ;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>  ;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
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  ;;   ,L$(B  ,L'(B  ,L5(B  ,L@(B  ,LB(B  ,L7(B  ,LC(B  ,L8(B  ,L>(B  ,L?(B  ,LH(B  ,L&(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  ;;    ,L0(B  ,LA(B  ,L4(B  ,LD(B  ,L3(B  ,LE(B  ,L((B  ,L:(B  ,L;(B  ,LG(B  ,L.(B  ,L6(B
618  ;;     ,L%(B  ,L/(B  ,LF(B  ,L2(B  ,L1(B  ,L=(B  ,L<(B  ,; .: -_  ;;     ,L%(B  ,L/(B  ,LF(B  ,L2(B  ,L1(B  ,L=(B  ,L<(B  ,; .: -_
619    
# Line 380  Line 631 
631   ("-" ?/)   ("-" ?/)
632   ("=" ?+)   ("=" ?+)
633   ("`" ?<)   ("`" ?<)
634   ("q" ?,Ly(B)   ("q" ?,Lt(B)
635   ("w" ?,Lz(B)   ("w" ?,Lw(B)
636   ("e" ?,LU(B)   ("e" ?,LU(B)
637   ("r" ?,L`(B)   ("r" ?,L`(B)
638   ("t" ?,Lb(B)   ("t" ?,Lb(B)
# Line 428  Line 679 
679   ("_" ??)   ("_" ??)
680   ("+" ?*)   ("+" ?*)
681   ("~" ?>)   ("~" ?>)
682   ("Q" ?,L)(B)   ("Q" ?,L$(B)
683   ("W" ?,L*(B)   ("W" ?,L'(B)
684   ("E" ?,L5(B)   ("E" ?,L5(B)
685   ("R" ?,L@(B)   ("R" ?,L@(B)
686   ("T" ?,LB(B)   ("T" ?,LB(B)
# Line 463  Line 714 
714   (">" ?:)   (">" ?:)
715   ("?" ?_))   ("?" ?_))
716    
 ;;  
   
 (quail-define-package  
  "cyrillic-ukrainian" "Ukrainian" ",L6(BU" nil  
  ",L$'5@B7(B-,L&.(B UKRAINIAN (ISO 8859-5 encoding)  
717    
718  Sorry, but 'ghe with upturn' is not included in ISO 8859-5"  (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)   nil t t t t nil nil nil nil nil t)
722    
723  ;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>  ;;  ' 1! 2" 3$,1uV(B 4; 5% 6: 7? 8* 9( 0) -_ =+
724  ;;   ,L$(B  ,L'(B  ,L5(B  ,L@(B  ,LB(B  ,L7(B  ,LC(B  ,L8(B  ,L>(B  ,L?(B  ,LH(B  ,L&(B  ;;   $,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  ;;    ,L0(B  ,LA(B  ,L4(B  ,LD(B  ,L3(B  ,LE(B  ,L((B  ,L:(B  ,L;(B  ,LG(B  ,L.(B  ,L6(B  ;;    $,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  ;;     ,L%(B  ,L/(B  ,LF(B  ,L2(B  ,L1(B  ,L=(B  ,L<(B  ,; .: -_  ;;      $,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  (quail-define-rules
729   ("1" ?1)   ("1" ?1)
# Line 488  Sorry, but 'ghe with upturn' is not incl Line 736  Sorry, but 'ghe with upturn' is not incl
736   ("8" ?8)   ("8" ?8)
737   ("9" ?9)   ("9" ?9)
738   ("0" ?0)   ("0" ?0)
739   ("-" ?/)   ("-" ?-)
740   ("=" ?+)   ("=" ?=)
741   ("`" ?<)   ("`" ?')
742   ("q" ?,Lt(B)   ("q" ?$,1(Y(B)
743   ("w" ?,Lw(B)   ("w" ?$,1(f(B)
744   ("e" ?,LU(B)   ("e" ?$,1(c(B)
745   ("r" ?,L`(B)   ("r" ?$,1(Z(B)
746   ("t" ?,Lb(B)   ("t" ?$,1(U(B)
747   ("y" ?,LW(B)   ("y" ?$,1(](B)
748   ("u" ?,Lc(B)   ("u" ?$,1(S(B)
749   ("i" ?,LX(B)   ("i" ?$,1(h(B)
750   ("o" ?,L^(B)   ("o" ?$,1(i(B)
751   ("p" ?,L_(B)   ("p" ?$,1(W(B)
752   ("[" ?,Lh(B)   ("[" ?$,1(e(B)
753   ("]" ?,Lv(B)   ("]" ?$,1(w(B)
754   ("a" ?,LP(B)   ("a" ?$,1(d(B)
755   ("s" ?,La(B)   ("s" ?$,1(v(B)
756   ("d" ?,LT(B)   ("d" ?$,1(R(B)
757   ("f" ?,Ld(B)   ("f" ?$,1(P(B)
758   ("g" ?,LS(B)   ("g" ?$,1(_(B)
759   ("h" ?,Le(B)   ("h" ?$,1(`(B)
760   ("j" ?,Lx(B)   ("j" ?$,1(^(B)
761   ("k" ?,LZ(B)   ("k" ?$,1([(B)
762   ("l" ?,L[(B)   ("l" ?$,1(T(B)
763   (";" ?,Lg(B)   (";" ?$,1(V(B)
764   ("'" ?,L~(B)   ("'" ?$,1(t(B)
765   ("\\" ?,LV(B)   ("\\" ?\\)
766   ("z" ?,Lu(B)   ("z" ?$,1(o(B)
767   ("x" ?,L(B)   ("x" ?$,1(g(B)
768   ("c" ?,Lf(B)   ("c" ?$,1(a(B)
769   ("v" ?,LR(B)   ("v" ?$,1(\(B)
770   ("b" ?,LQ(B)   ("b" ?$,1(X(B)
771   ("n" ?,L](B)   ("n" ?$,1(b(B)
772   ("m" ?,L\(B)   ("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" ?,L$(B)   ("Q" ?$,1(9(B)
790   ("W" ?,L'(B)   ("W" ?$,1(F(B)
791   ("E" ?,L5(B)   ("E" ?$,1(C(B)
792   ("R" ?,L@(B)   ("R" ?$,1(:(B)
793   ("T" ?,LB(B)   ("T" ?$,1(5(B)
794   ("Y" ?,L7(B)   ("Y" ?$,1(=(B)
795   ("U" ?,LC(B)   ("U" ?$,1(3(B)
796   ("I" ?,L8(B)   ("I" ?$,1(H(B)
797   ("O" ?,L>(B)   ("O" ?$,1(I(B)
798   ("P" ?,L?(B)   ("P" ?$,1(7(B)
799   ("{" ?,LH(B)   ("{" ?$,1(E(B)
800   ("}" ?,L&(B)   ("}" ?$,1('(B)
801   ("A" ?,L0(B)   ("A" ?$,1(D(B)
802   ("S" ?,LA(B)   ("S" ?$,1(&(B)
803   ("D" ?,L4(B)   ("D" ?$,1(2(B)
804   ("F" ?,LD(B)   ("F" ?$,1(0(B)
805   ("G" ?,L3(B)   ("G" ?$,1(?(B)
806   ("H" ?,LE(B)   ("H" ?$,1(@(B)
807   ("J" ?,L((B)   ("J" ?$,1(>(B)
808   ("K" ?,L:(B)   ("K" ?$,1(;(B)
809   ("L" ?,L;(B)   ("L" ?$,1(4(B)
810   (":" ?,LG(B)   (":" ?$,1(6(B)
811   ("\"" ?,L.(B)   ("\"" ?$,1($(B)
812   ("|" ?,L6(B)   ("Z" ?$,1(O(B)
813   ("Z" ?,L%(B)   ("X" ?$,1(G(B)
814   ("X" ?,L/(B)   ("C" ?$,1(A(B)
815   ("C" ?,LF(B)   ("V" ?$,1(<(B)
816   ("V" ?,L2(B)   ("B" ?$,1(8(B)
817   ("B" ?,L1(B)   ("N" ?$,1(B(B)
818   ("N" ?,L=(B)   ("M" ?$,1(L(B)
819   ("M" ?,L<(B)   ("<" ?$,1(1(B)
820   ("<" ?\;)   (">" ?$,1(N(B)
821   (">" ?:)   ("?" ?,)
822   ("?" ?_))   ("\\" ?$,1)Q(B)
823     ("|" ?$,1)P(B))
824  ;;  ;;
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.
829  (quail-define-package  (quail-define-package
830   "cyrillic-yawerty" "Cyrillic" ",L6O(B" nil   "cyrillic-yawerty" "Cyrillic" ",L6O(B" nil
831   ",LO25@BK(B Roman transcription (ISO 8859-5 encoding)   ",LO25@BK(B Roman transcription (ISO 8859-5 encoding)
832    
833  This layout is based on Roman transcription.  This layout is based on Roman transcription by phonemic resemblance.
834  When preceded by a '/', the second and the third rows (number key row) change  When preceded by a '/', the second and the third rows (number key row) change
835  as follows.  as follows.
836    
# Line 726  as follows. Line 976  as follows.
976    
977  ;; This was provided by Valery Alexeev <valery@domovoy.math.uga.edu>.  ;; This was provided by Valery Alexeev <valery@domovoy.math.uga.edu>.
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.
992  (quail-define-package  (quail-define-package
993   "cyrillic-translit" "Cyrillic" ",L6(Bt" nil   "cyrillic-translit" "Cyrillic" ",L6(Bt" nil
994   "Intuitively transliterated keyboard layout.   "Intuitively transliterated keyboard layout.
995  Most convenient for entering Russian but all cyrillic characters are included.  Most convenient for entering Russian but all Cyrillic characters are included.
996  Should handle most cases. However:  Should handle most cases. However:
997    for ,Lf(B (TSE) use \"c\", never \"ts\"    for ,Lf(B (TSE) use \"c\", never \"ts\"
998    ,Li(B (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"/sht\" or \"/t\",    ,Li(B (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"/sht\" or \"/t\",
# Line 743  Russian alphabet: a b v=w g d e yo=jo zh Line 1006  Russian alphabet: a b v=w g d e yo=jo zh
1006  u f h=kh=x c ch sh shch=sj=/s=/sht ~ y ' e' yu=ju ya=ja=q  u f h=kh=x c ch sh shch=sj=/s=/sht ~ y ' e' yu=ju ya=ja=q
1007    
1008  Also included are Ukrainian ,Lt(B (YE) = \"/e\" and ,Lw(B (YI) = \"yi\",  Also included are Ukrainian ,Lt(B (YE) = \"/e\" and ,Lw(B (YI) = \"yi\",
1009  Belorussian ,L~(B (SHORT U) = \"u'\",  Belarusian ,L~(B (SHORT U) = \"u'\",
1010  Serbo-Croatian ,Lr(B (DJE) = \"/d\", ,L{(B (CHJE)= \"/ch\",  Serbo-Croatian ,Lr(B (DJE) = \"/d\", ,L{(B (CHJE)= \"/ch\",
1011  Macedonian ,Ls(B (GJE) = \"/g\", ,Lu(B (DZE) = \"/s\", ,L|(B (KJE) = \"/k\",  Macedonian ,Ls(B (GJE) = \"/g\", ,Lu(B (DZE) = \"/s\", ,L|(B (KJE) = \"/k\",
1012  cyrillic ,Lv(B (I DECIMAL) = \"/i\", ,Lx(B (JE) = \"/j\",  cyrillic ,Lv(B (I DECIMAL) = \"/i\", ,Lx(B (JE) = \"/j\",
# Line 792  cyrillic ,Lv(B (I DECIMAL) = \"/i\",  Line 1055  cyrillic ,Lv(B (I DECIMAL) = \"/i\", 
1055   ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B)   ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B)
1056  )  )
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.
1061  (quail-define-package  (quail-define-package
1062   "cyrillic-translit-bulgarian" "Bulgarian" ",L6(Btb" nil   "belarusian" "Belarusian" "BE" nil
1063   "Intuitively transliterated keyboard layout optimized for Bulgarian.   "$,1(9(F(C(:(5(=(B keyboard layout registered as STB955-94 Belarusian standard.
1064  The only difference with cyrillic-translit is that \"sht\" translates as  Unicode based."
 ,Li(B (SHCHA = Bulgarian SHT) insteat of ,Lhb(B (SH+T)."  
1065   nil t t t t nil nil nil nil nil t)   nil t t t t nil nil nil nil nil t)
1066    
1067  (quail-define-rules  ;; $,1(q(!(B 1! 2" 3N 4; 5% 6: 7? 8* 9( 0) -_ =+
1068   ("a" ?,LP(B)("b" ?,LQ(B) ("v" ?,LR(B) ("w" ?,LR(B) ("g" ?,LS(B) ("d" ?,LT(B)  ;;     $,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   ("e" ?,LU(B) ("je" ?,LU(B)  ;;      $,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   ("yo" ?,Lq(B) ("jo" ?,Lq(B)  ;;       $,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  .,
  ("zh" ?,LV(B) ("z" ?,LW(B) ("i" ?,LX(B)  
  ("j" ?,LY(B) ("j'" ?,LY(B) ("j`" ?,LY(B) ("k" ?,LZ(B) ("l" ?,L[(B)  
  ("m" ?,L\(B) ("n" ?,L](B) ("o" ?,L^(B) ("p" ?,L_(B) ("r" ?,L`(B) ("s" ?,La(B) ("t" ?,Lb(B) ("u" ?,Lc(B)  
  ("f" ?,Ld(B) ("x" ?,Le(B) ("h" ?,Le(B) ("kh" ?,Le(B)  
  ("c" ?,Lf(B) ("ch" ?,Lg(B)  
  ("sh" ?,Lh(B)  
  ("shch" ?,Li(B) ("sj" ?,Li(B)  
  ("/sht" ?,Li(B) ("/t" ?,Li(B) ("sht" ?,Li(B)  
  ("~" ?,Lj(B) ("y" ?,Lk(B) ("'" ?,Ll(B) ("`" ?,Ll(B)  
  ("e'" ?,Lm(B) ("e`" ?,Lm(B) ("@" ?,Lm(B)  
  ("yu" ?,Ln(B) ("ju" ?,Ln(B)  
  ("ya" ?,Lo(B) ("ja" ?,Lo(B) ("q" ?,Lo(B)  
   
  ("A" ?,L0(B) ("B" ?,L1(B) ("V" ?,L2(B) ("W" ?,L2(B) ("G" ?,L3(B) ("D" ?,L4(B)  
  ("E" ?,L5(B) ("Je" ?,L5(B) ("JE" ?,L5(B)  
  ("Yo" ?,L!(B) ("YO" ?,L!(B) ("Jo" ?,L!(B) ("JO" ?,L!(B)  
  ("Zh" ?,L6(B) ("ZH" ?,L6(B) ("Z" ?,L7(B) ("I" ?,L8(B)  
  ("J" ?,L9(B) ("J'" ?,L9(B) ("J`" ?,L9(B) ("K" ?,L:(B) ("L" ?,L;(B)  
  ("M" ?,L<(B) ("N" ?,L=(B) ("O" ?,L>(B) ("P" ?,L?(B) ("R" ?,L@(B) ("S" ?,LA(B) ("T" ?,LB(B) ("U" ?,LC(B)  
  ("F" ?,LD(B) ("X" ?,LE(B) ("H" ?,LE(B) ("Kh" ?,LE(B) ("KH" ?,LE(B)  
  ("C" ?,LF(B) ("Ch" ?,LG(B) ("CH" ?,LG(B)  
  ("Sh" ?,LH(B) ("SH" ?,LH(B)  
  ("Shch" ?,LI(B) ("SHCH" ?,LI(B) ("Sj" ?,LI(B) ("SJ" ?,LI(B)  
  ("/Sht" ?,LI(B) ("/SHT" ?,LI(B) ("/T" ?,LI(B) ("Sht" ?,LI(B) ("SHT" ?,LI(B)  
  ("~~" ",LJ(B") ("Y" ?,LK(B) ("''" ",LL(B") ("E'" ?,LM(B) ("E`" ?,LM(B)  
  ("Yu" ?,LN(B) ("YU" ?,LN(B) ("Ju" ?,LN(B) ("JU" ?,LN(B)  
  ("Ya" ?,LO(B) ("YA" ?,LO(B) ("Ja" ?,LO(B) ("JA" ?,LO(B) ("Q" ?,LO(B)  
   
  ("/e" ?,Lt(B) ("yi" ?,Lw(B) ("u'" ?,L~(B)  
  ("/d" ?,Lr(B) ("/ch" ?,L{(B)  
  ("/g" ?,Ls(B) ("/s" ?,Lu(B) ("/k" ?,L|(B)  
  ("/i" ?,Lv(B) ("/j" ?,Lx(B) ("/l" ?,Ly(B) ("/n" ?,Lz(B) ("/z" ?,L(B)  
  ("/E" ?,L$(B) ("YE" ?,L$(B) ("Yi" ?,L'(B) ("YI" ?,L'(B) ("U'" ?,L.(B)  
  ("/D" ?,L"(B) ("/Ch" ?,L+(B) ("/CH" ?,L+(B)  
  ("/G" ?,L#(B) ("/S" ?,L%(B) ("/K" ?,L,(B)  
  ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B)  
 )  
   
 ;; From Yudit's `Belarusian input table according to STB955-94  
 ;; belarusian standard'.  Alexander Mikhailian <mikhailian@altern.org>  
 (quail-define-package  
  "belarusian" "Belarusian" "$,1(v(B" ; fixme  
  nil  
  "Belarusian STB955-94 input, producing Unicode"  
  nil t t t t nil nil nil nil nil t)  
1071    
1072  (quail-define-rules  (quail-define-rules
  ("<<" ?,A+(B)  
  (">>" ?,A;(B)  
  (",," ?$,1r}(B)  
  ("``" ?$,1r|(B)  
  ("C)" ?,A)(B)  
  ("x)" ?$,1s"(B)  
  (":)" ?$,2#:(B)  
  (":(" ?$,2#9(B)  
  ("C-" ?,A$(B)  
  ("E-" ?$,1tL(B)  
  ("L-" ?,A#(B)  
   
1073   ("~" ?$,1(!(B)   ("~" ?$,1(!(B)
  ("!" ?!)  
1074   ("@" ?\")   ("@" ?\")
1075   ("#" ?$,1uV(B)   ("#" ?$,1uV(B)
1076   ("$" ?\;)   ("$" ?\;)
1077   ("%" ?%)   ("%" ?%)
1078   ("^" ?:)   ("^" ?:)
1079   ("&" ??)   ("&" ??)
  ("*" ?*)  
  ("(" ?\()  
  (")" ?\))  
  ("_" ?_)  
  ("+" ?+)  
1080   ("Q" ?$,1(9(B)   ("Q" ?$,1(9(B)
1081   ("W" ?$,1(F(B)   ("W" ?$,1(F(B)
1082   ("E" ?$,1(C(B)   ("E" ?$,1(C(B)
# Line 898  The only difference with cyrillic-transl Line 1100  The only difference with cyrillic-transl
1100   ("L" ?$,1(4(B)   ("L" ?$,1(4(B)
1101   (":" ?$,1(6(B)   (":" ?$,1(6(B)
1102   ("\"" ?$,1(M(B)   ("\"" ?$,1(M(B)
1103   ("|" ?/)   ("|" ?|)
1104   ("Z" ?$,1(O(B)   ("Z" ?$,1(O(B)
1105   ("X" ?$,1(G(B)   ("X" ?$,1(G(B)
1106   ("C" ?$,1(A(B)   ("C" ?$,1(A(B)
# Line 911  The only difference with cyrillic-transl Line 1113  The only difference with cyrillic-transl
1113   ("?" ?,)   ("?" ?,)
1114    
1115   ("`" ?$,1(q(B)   ("`" ?$,1(q(B)
  ("1" ?1)  
  ("2" ?2)  
  ("3" ?3)  
  ("4" ?4)  
  ("5" ?5)  
  ("6" ?6)  
  ("7" ?7)  
  ("8" ?8)  
  ("9" ?9)  
  ("0" ?0)  
  ("-" ?-)  
  ("=" ?=)  
1116   ("q" ?$,1(Y(B)   ("q" ?$,1(Y(B)
1117   ("w" ?$,1(f(B)   ("w" ?$,1(f(B)
1118   ("e" ?$,1(c(B)   ("e" ?$,1(c(B)
# Line 946  The only difference with cyrillic-transl Line 1136  The only difference with cyrillic-transl
1136   ("l" ?$,1(T(B)   ("l" ?$,1(T(B)
1137   (";" ?$,1(V(B)   (";" ?$,1(V(B)
1138   ("'" ?$,1(m(B)   ("'" ?$,1(m(B)
  ("\\" ?\\)  
1139   ("z" ?$,1(o(B)   ("z" ?$,1(o(B)
1140   ("x" ?$,1(g(B)   ("x" ?$,1(g(B)
1141   ("c" ?$,1(a(B)   ("c" ?$,1(a(B)
# Line 956  The only difference with cyrillic-transl Line 1145  The only difference with cyrillic-transl
1145   ("m" ?$,1(l(B)   ("m" ?$,1(l(B)
1146   ("," ?$,1(Q(B)   ("," ?$,1(Q(B)
1147   ("." ?$,1(n(B)   ("." ?$,1(n(B)
1148   ("/" ?.)   ("/" ?.))
   
  ("D-" ?$,1("(B)  
  ("G'" ?$,1(#(B)  
  ("E>" ?$,1($(B)  
  ("Z>" ?$,1(%(B)  
  ("I/ " ?$,1(8(B)  
  ("I:" ?$,1('(B)  
  ("J<" ?$,1(((B)  
  ("L>" ?$,1()(B)  
  ("N>" ?$,1(*(B)  
  ("C'" ?$,1(+(B)  
  ("K'" ?$,1(,(B)  
  ("D>" ?$,1(/(B)  
   
  ("d-" ?$,1(r(B)  
  ("g'" ?$,1(s(B)  
  ("e>" ?$,1(t(B)  
  ("z>" ?$,1(u(B)  
  ("i/ " ?$,1(X(B)  
  ("i:" ?$,1(w(B)  
  ("j<" ?$,1(x(B)  
  ("l>" ?$,1(y(B)  
  ("c'" ?$,1({(B)  
  ("k'" ?$,1(|(B)  
  ("d>" ?$,1((B)  
   
  ("G`" ?$,1)P(B)  
  ("g`" ?$,1)Q(B)  
  ("E<" ?$,1)"(B)  
  ("e<" ?$,1)#(B)  
  ("A<" ?$,1)*(B)  
  ("a<" ?$,1)+(B)  
  ("F`" ?$,1)2(B)  
  ("f`" ?$,1)3(B)  
  ("Y`" ?$,1)4(B)  
  ("y`" ?$,1)5(B))  
1149    
1150  ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov  ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov
1151  ;; <al_shopov@web.bg>.  ;; <al_shopov@web.bg>.
1152    
1153  ;; Extra commentary and the indicator from an independent  ;; Extra commentary and the indicator from an independent
1154  ;; (cyrillic-iso8859-5) implementation by Ognyan Kulev  ;; (cyrillic-iso8859-5) implementation by Ognyan Kulev
1155  ;; <ogi@fmi.uni-sofia.bg>.  ;; <ogi@fmi.uni-sofia.bg> and name changes from Anton Zinoviev
1156    ;; <anton@lml.bas.bg>.
1157  (quail-define-package  (quail-define-package
1158   "bulgarian-pho" "Bulgarian" "$,1(6(1(D(B"   "bulgarian-phonetic" "Bulgarian" "$,1(6(1(D(B"
1159   nil   nil
1160   "Bulgarian Phonetic keyboard layout, producing Unicode   "Bulgarian Phonetic keyboard layout, producing Unicode.
1161    
1162  The layout is similar to `cyrillic-translit', but all Bulgarian  The layout is similar to `cyrillic-translit', but all Bulgarian
1163  characters are typed with a single key."  characters are typed with a single key.
1164    
1165    Use /& for ,A'(B (Cyrillic paragraph) and /# for $,1uV(B."
1166   nil t t t t nil nil nil nil nil t)   nil t t t t nil nil nil nil nil t)
1167    
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  ;;   $,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
# Line 1014  characters are typed with a single key." Line 1170  characters are typed with a single key."
1170  ;;  $,1(N(B  $,1(7(B  $,1(L(B  $,1(F(B  $,1(6(B  $,1(1(B  $,1(=(B  $,1(<(B  ;;  $,1(N(B  $,1(7(B  $,1(L(B  $,1(F(B  $,1(6(B  $,1(1(B  $,1(=(B  $,1(<(B
1171    
1172  (quail-define-rules  (quail-define-rules
1173     ("/&" ?,A'(B)
1174     ("/#" ?$,1uV(B)
1175   ("A" ?$,1(0(B)   ("A" ?$,1(0(B)
1176   ("B" ?$,1(1(B)   ("B" ?$,1(1(B)
1177   ("W" ?$,1(2(B)   ("W" ?$,1(2(B)
# Line 1073  characters are typed with a single key." Line 1231  characters are typed with a single key."
1231   ("y" ?$,1(j(B)   ("y" ?$,1(j(B)
1232   ("x" ?$,1(l(B)   ("x" ?$,1(l(B)
1233   ("\\" ?$,1(n(B)   ("\\" ?$,1(n(B)
1234     ("|" ?$,1(N(B)
1235   ("q" ?$,1(o(B))   ("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))
1314    
1315  ;; Local Variables:  ;; Local Variables:
1316  ;; coding: iso-2022-7bit  ;; coding: iso-2022-7bit
1317  ;; End:  ;; End:

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26