mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-25 10:47:00 +00:00
("bulgarian-pho", "belarusian"): New methods.
This commit is contained in:
Dave Love
parent
718fb8a1ff
commit
1d98bdd92c
@ -2,6 +2,7 @@
|
||||
|
||||
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
;; Copyright (C) 2001 Free Software Foundation, Inc.
|
||||
|
||||
;; Keywords: multilingual, input method, Cyrillic
|
||||
|
||||
@ -840,8 +841,233 @@ The only difference with cyrillic-translit is that \"sht\" translates as
|
||||
("/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" "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
|
||||
("<<" ?,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)
|
||||
|
||||
("~" ?$,1(!(B)
|
||||
("!" ?!)
|
||||
("@" ?\")
|
||||
("#" ?$,1uV(B)
|
||||
("$" ?\;)
|
||||
("%" ?%)
|
||||
("^" ?:)
|
||||
("&" ??)
|
||||
("*" ?*)
|
||||
("(" ?\()
|
||||
(")" ?\))
|
||||
("_" ?_)
|
||||
("+" ?+)
|
||||
("Q" ?$,1(9(B)
|
||||
("W" ?$,1(F(B)
|
||||
("E" ?$,1(C(B)
|
||||
("R" ?$,1(:(B)
|
||||
("T" ?$,1(5(B)
|
||||
("Y" ?$,1(=(B)
|
||||
("U" ?$,1(3(B)
|
||||
("I" ?$,1(H(B)
|
||||
("O" ?$,1(.(B)
|
||||
("P" ?$,1(7(B)
|
||||
("{" ?$,1(E(B)
|
||||
("}" ?')
|
||||
("A" ?$,1(D(B)
|
||||
("S" ?$,1(K(B)
|
||||
("D" ?$,1(2(B)
|
||||
("F" ?$,1(0(B)
|
||||
("G" ?$,1(?(B)
|
||||
("H" ?$,1(@(B)
|
||||
("J" ?$,1(>(B)
|
||||
("K" ?$,1(;(B)
|
||||
("L" ?$,1(4(B)
|
||||
(":" ?$,1(6(B)
|
||||
("\"" ?$,1(M(B)
|
||||
("|" ?/)
|
||||
("Z" ?$,1(O(B)
|
||||
("X" ?$,1(G(B)
|
||||
("C" ?$,1(A(B)
|
||||
("V" ?$,1(<(B)
|
||||
("B" ?$,1(&(B)
|
||||
("N" ?$,1(B(B)
|
||||
("M" ?$,1(L(B)
|
||||
("<" ?$,1(1(B)
|
||||
(">" ?$,1(N(B)
|
||||
("?" ?,)
|
||||
|
||||
("`" ?$,1(q(B)
|
||||
("1" ?1)
|
||||
("2" ?2)
|
||||
("3" ?3)
|
||||
("4" ?4)
|
||||
("5" ?5)
|
||||
("6" ?6)
|
||||
("7" ?7)
|
||||
("8" ?8)
|
||||
("9" ?9)
|
||||
("0" ?0)
|
||||
("-" ?-)
|
||||
("=" ?=)
|
||||
("q" ?$,1(Y(B)
|
||||
("w" ?$,1(f(B)
|
||||
("e" ?$,1(c(B)
|
||||
("r" ?$,1(Z(B)
|
||||
("t" ?$,1(U(B)
|
||||
("y" ?$,1(](B)
|
||||
("u" ?$,1(S(B)
|
||||
("i" ?$,1(h(B)
|
||||
("o" ?$,1(~(B)
|
||||
("p" ?$,1(W(B)
|
||||
("[" ?$,1(e(B)
|
||||
("]" ?')
|
||||
("a" ?$,1(d(B)
|
||||
("s" ?$,1(k(B)
|
||||
("d" ?$,1(R(B)
|
||||
("f" ?$,1(P(B)
|
||||
("g" ?$,1(_(B)
|
||||
("h" ?$,1(`(B)
|
||||
("j" ?$,1(^(B)
|
||||
("k" ?$,1([(B)
|
||||
("l" ?$,1(T(B)
|
||||
(";" ?$,1(V(B)
|
||||
("'" ?$,1(m(B)
|
||||
("\\" ?\\)
|
||||
("z" ?$,1(o(B)
|
||||
("x" ?$,1(g(B)
|
||||
("c" ?$,1(a(B)
|
||||
("v" ?$,1(\(B)
|
||||
("b" ?$,1(v(B)
|
||||
("n" ?$,1(b(B)
|
||||
("m" ?$,1(l(B)
|
||||
("," ?$,1(Q(B)
|
||||
("." ?$,1(n(B)
|
||||
("/" ?.)
|
||||
|
||||
("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))
|
||||
|
||||
;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov <al_shopov@web.bg>
|
||||
(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)
|
||||
("G" ?$,1(3(B)
|
||||
("D" ?$,1(4(B)
|
||||
("E" ?$,1(5(B)
|
||||
("V" ?$,1(6(B)
|
||||
("Z" ?$,1(7(B)
|
||||
("I" ?$,1(8(B)
|
||||
("J" ?$,1(9(B)
|
||||
("K" ?$,1(:(B)
|
||||
("L" ?$,1(;(B)
|
||||
("M" ?$,1(<(B)
|
||||
("N" ?$,1(=(B)
|
||||
("O" ?$,1(>(B)
|
||||
("P" ?$,1(?(B)
|
||||
("R" ?$,1(@(B)
|
||||
("S" ?$,1(A(B)
|
||||
("T" ?$,1(B(B)
|
||||
("U" ?$,1(C(B)
|
||||
("F" ?$,1(D(B)
|
||||
("H" ?$,1(E(B)
|
||||
("C" ?$,1(F(B)
|
||||
("~" ?$,1(G(B)
|
||||
("{" ?$,1(H(B)
|
||||
("}" ?$,1(I(B)
|
||||
("Y" ?$,1(J(B)
|
||||
("X" ?$,1(L(B)
|
||||
("|" ?$,1(N(B)
|
||||
("Q" ?$,1(O(B)
|
||||
("a" ?$,1(P(B)
|
||||
("b" ?$,1(Q(B)
|
||||
("w" ?$,1(R(B)
|
||||
("g" ?$,1(S(B)
|
||||
("d" ?$,1(T(B)
|
||||
("e" ?$,1(U(B)
|
||||
("v" ?$,1(V(B)
|
||||
("z" ?$,1(W(B)
|
||||
("i" ?$,1(X(B)
|
||||
("j" ?$,1(Y(B)
|
||||
("k" ?$,1(Z(B)
|
||||
("l" ?$,1([(B)
|
||||
("m" ?$,1(\(B)
|
||||
("n" ?$,1(](B)
|
||||
("o" ?$,1(^(B)
|
||||
("p" ?$,1(_(B)
|
||||
("r" ?$,1(`(B)
|
||||
("s" ?$,1(a(B)
|
||||
("t" ?$,1(b(B)
|
||||
("u" ?$,1(c(B)
|
||||
("f" ?$,1(d(B)
|
||||
("h" ?$,1(e(B)
|
||||
("c" ?$,1(f(B)
|
||||
("`" ?$,1(g(B)
|
||||
("[" ?$,1(h(B)
|
||||
("]" ?$,1(i(B)
|
||||
("y" ?$,1(j(B)
|
||||
("x" ?$,1(l(B)
|
||||
("\\" ?$,1(n(B)
|
||||
("q" ?$,1(o(B))
|
||||
|
||||
(provide 'bul-bel)
|
||||
;;; bul-bel.el ends here
|
||||
|
||||
;; Local Variables:
|
||||
;; buffer-file-coding-system: iso-2022-7bit
|
||||
;; coding: iso-2022-7bit
|
||||
;; End:
|
||||
|
||||
;;; cyrillic.el ends here
|
||||
|
||||
Loading…
Reference in New Issue
Block a user