comparison leim/quail/cyrillic.el @ 42037:f031c6af72ac

("cyrillic-beylorussian") ("cyrillic-ukrainian", "cyrillic-translit-bulgarian") ("belarusian", "bulgarian-pho"): Fix language assignment.

42036:024727240516

 ("?" ?_))

;;

(quail-define-package
 "cyrillic-beylorussian" "Cyrillic" ",L6(BB" nil
 ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (ISO 8859-5 encoding)"
 nil t t t t nil nil nil nil nil t)

;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
;;   ,L)(B  ,L*(B  ,L5(B  ,L@(B  ,LB(B  ,L7(B  ,LC(B  ,L8(B  ,L>(B  ,L?(B  ,LH(B  ,L&(B

 ("?" ?_))

;;

(quail-define-package 
 "cyrillic-ukrainian" "Cyrillic" ",L6(BU" nil
 ",L$'5@B7(B-,L&.(B UKRAINIAN (ISO 8859-5 encoding)

Sorry, but 'ghe with upturn' is not included in ISO 8859-5"
 nil t t t t nil nil nil nil nil t)

 ("/G" ?,L#(B) ("/S" ?,L%(B) ("/K" ?,L,(B) 
 ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B)
)

(quail-define-package
 "cyrillic-translit-bulgarian" "Cyrillic" ",L6(Btb" nil
 "Intuitively transliterated keyboard layout optimized for Bulgarian.
The only difference with cyrillic-translit is that \"sht\" translates as
,Li(B (SHCHA = Bulgarian SHT) insteat of ,Lhb(B (SH+T)."
 nil t t t t nil nil nil nil nil t)

)

;; From Yudit's `Belarusian input table according to STB955-94
;; belarusian standard'.  Alexander Mikhailian <[e-mail]>
(quail-define-package
 "belarusian" "Cyrillic" "$,1(v(B" ; fixme
 nil
 "Belarusian STB955-94 input, producing Unicode"
 nil t t t t nil nil nil nil nil t)

(quail-define-rules

 ("F`" ?$,1)2(B)
 ("f`" ?$,1)3(B)
 ("Y`" ?$,1)4(B)
 ("y`" ?$,1)5(B))

;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov <[e-mail]>
(quail-define-package
 "bulgarian-pho" "Cyrillic" "$,1(1(B" ; fixme
 nil
 "Bulragian PHO keyboard layout, producing Unicode"
 nil t t t t nil nil nil nil nil t)

(quail-define-rules
 ("A" ?$,1(0(B)
 ("B" ?$,1(1(B)
 ("W" ?$,1(2(B)

42037:f031c6af72ac

 ("?" ?_))

;;

(quail-define-package
 "cyrillic-beylorussian" "Belarussian" ",L6(BB" nil
 ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (ISO 8859-5 encoding)"
 nil t t t t nil nil nil nil nil t)

;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
;;   ,L)(B  ,L*(B  ,L5(B  ,L@(B  ,LB(B  ,L7(B  ,LC(B  ,L8(B  ,L>(B  ,L?(B  ,LH(B  ,L&(B

 ("?" ?_))

;;

(quail-define-package 
 "cyrillic-ukrainian" "Ukrainian" ",L6(BU" nil
 ",L$'5@B7(B-,L&.(B UKRAINIAN (ISO 8859-5 encoding)

Sorry, but 'ghe with upturn' is not included in ISO 8859-5"
 nil t t t t nil nil nil nil nil t)

 ("/G" ?,L#(B) ("/S" ?,L%(B) ("/K" ?,L,(B) 
 ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B)
)

(quail-define-package
 "cyrillic-translit-bulgarian" "Bulgarian" ",L6(Btb" nil
 "Intuitively transliterated keyboard layout optimized for Bulgarian.
The only difference with cyrillic-translit is that \"sht\" translates as
,Li(B (SHCHA = Bulgarian SHT) insteat of ,Lhb(B (SH+T)."
 nil t t t t nil nil nil nil nil t)

)

;; From Yudit's `Belarusian input table according to STB955-94
;; belarusian standard'.  Alexander Mikhailian <[e-mail]>
(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)

(quail-define-rules

 ("F`" ?$,1)2(B)
 ("f`" ?$,1)3(B)
 ("Y`" ?$,1)4(B)
 ("y`" ?$,1)5(B))

;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov
;; <[e-mail]>.

;; Extra commentary and the indicator from an independent
;; (cyrillic-iso8859-5) implementation by Ognyan Kulev
;; <[e-mail]>.
(quail-define-package
 "bulgarian-pho" "Bulgarian" "$,1(6(1(D(B"
 nil
 "Bulragian Phonetic keyboard layout, producing Unicode

The layout is similar to `cyrillic-translit', but all Bulgarian
characters are typed with a single key."
 nil t t t t nil nil nil nil nil t)

;;   $,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(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
;;  $,1(N(B  $,1(7(B  $,1(L(B  $,1(F(B  $,1(6(B  $,1(1(B  $,1(=(B  $,1(<(B

(quail-define-rules
 ("A" ?$,1(0(B)
 ("B" ?$,1(1(B)
 ("W" ?$,1(2(B)