Группа :: Редакторы
Пакет: emacs22
Главная Изменения Спек Патчи Загрузить Bugs and FR
Патч: leim-22.0.50-belarusian.patch
diff -Naur emacs.orig/leim/quail/cyrillic.el emacs/leim/quail/cyrillic.el
--- emacs.orig/leim/quail/cyrillic.el 2005-09-03 15:14:08 +0600
+++ emacs/leim/quail/cyrillic.el 2005-09-03 16:29:57 +0600
@@ -507,96 +507,160 @@
;; [`derived from JUS.I.K1' according to an old Mule note -- fx]
-;; (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
-;; ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L.(B ,L6(B
-;; ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
-
-;; (quail-define-rules
-;; ("-" ?/)
-;; ("=" ?+)
-;; ("`" ?<)
-;; ("q" ?,Ly(B)
-;; ("w" ?,Lz(B)
-;; ("e" ?,LU(B)
-;; ("r" ?,L`(B)
-;; ("t" ?,Lb(B)
-;; ("y" ?,LW(B)
-;; ("u" ?,Lc(B)
-;; ("i" ?,LX(B)
-;; ("o" ?,L^(B)
-;; ("p" ?,L_(B)
-;; ("[" ?,Lh(B)
-;; ("]" ?,Lv(B)
-;; ("a" ?,LP(B)
-;; ("s" ?,La(B)
-;; ("d" ?,LT(B)
-;; ("f" ?,Ld(B)
-;; ("g" ?,LS(B)
-;; ("h" ?,Le(B)
-;; ("j" ?,Lx(B)
-;; ("k" ?,LZ(B)
-;; ("l" ?,L[(B)
-;; (";" ?,Lg(B)
-;; ("'" ?,L~(B)
-;; ("\\" ?,LV(B)
-;; ("z" ?,Lu(B)
-;; ("x" ?,L(B)
-;; ("c" ?,Lf(B)
-;; ("v" ?,LR(B)
-;; ("b" ?,LQ(B)
-;; ("n" ?,L](B)
-;; ("m" ?,L\(B)
-;; ("/" ?-)
-
-;; ("@" ?\")
-;; ("^" ?&)
-;; ("&" ?')
-;; ("*" ?\()
-;; ("(" ?\))
-;; (")" ?=)
-;; ("_" ??)
-;; ("+" ?*)
-;; ("~" ?>)
-;; ("Q" ?,L)(B)
-;; ("W" ?,L*(B)
-;; ("E" ?,L5(B)
-;; ("R" ?,L@(B)
-;; ("T" ?,LB(B)
-;; ("Y" ?,L7(B)
-;; ("U" ?,LC(B)
-;; ("I" ?,L8(B)
-;; ("O" ?,L>(B)
-;; ("P" ?,L?(B)
-;; ("{" ?,LH(B)
-;; ("}" ?,L&(B)
-;; ("A" ?,L0(B)
-;; ("S" ?,LA(B)
-;; ("D" ?,L4(B)
-;; ("F" ?,LD(B)
-;; ("G" ?,L3(B)
-;; ("H" ?,LE(B)
-;; ("J" ?,L((B)
-;; ("K" ?,L:(B)
-;; ("L" ?,L;(B)
-;; (":" ?,LG(B)
-;; ("\"" ?,L.(B)
-;; ("|" ?,L6(B)
-;; ("Z" ?,L%(B)
-;; ("X" ?,L/(B)
-;; ("C" ?,LF(B)
-;; ("V" ?,L2(B)
-;; ("B" ?,L1(B)
-;; ("N" ?,L=(B)
-;; ("M" ?,L<(B)
-;; ("<" ?\;)
-;; (">" ?:)
-;; ("?" ?_))
+(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
+;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L.(B ,L6(B
+;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
+
+(quail-define-rules
+ ("-" ?/)
+ ("=" ?+)
+ ("`" ?<)
+ ("q" ?,Ly(B)
+ ("w" ?,Lz(B)
+ ("e" ?,LU(B)
+ ("r" ?,L`(B)
+ ("t" ?,Lb(B)
+ ("y" ?,LW(B)
+ ("u" ?,Lc(B)
+ ("i" ?,LX(B)
+ ("o" ?,L^(B)
+ ("p" ?,L_(B)
+ ("[" ?,Lh(B)
+ ("]" ?,Lv(B)
+ ("a" ?,LP(B)
+ ("s" ?,La(B)
+ ("d" ?,LT(B)
+ ("f" ?,Ld(B)
+ ("g" ?,LS(B)
+ ("h" ?,Le(B)
+ ("j" ?,Lx(B)
+ ("k" ?,LZ(B)
+ ("l" ?,L[(B)
+ (";" ?,Lg(B)
+ ("'" ?,L~(B)
+ ("\\" ?,LV(B)
+ ("z" ?,Lu(B)
+ ("x" ?,L(B)
+ ("c" ?,Lf(B)
+ ("v" ?,LR(B)
+ ("b" ?,LQ(B)
+ ("n" ?,L](B)
+ ("m" ?,L\(B)
+ ("/" ?-)
+
+ ("@" ?\")
+ ("^" ?&)
+ ("&" ?')
+ ("*" ?\()
+ ("(" ?\))
+ (")" ?=)
+ ("_" ??)
+ ("+" ?*)
+ ("~" ?>)
+ ("Q" ?,L)(B)
+ ("W" ?,L*(B)
+ ("E" ?,L5(B)
+ ("R" ?,L@(B)
+ ("T" ?,LB(B)
+ ("Y" ?,L7(B)
+ ("U" ?,LC(B)
+ ("I" ?,L8(B)
+ ("O" ?,L>(B)
+ ("P" ?,L?(B)
+ ("{" ?,LH(B)
+ ("}" ?,L&(B)
+ ("A" ?,L0(B)
+ ("S" ?,LA(B)
+ ("D" ?,L4(B)
+ ("F" ?,LD(B)
+ ("G" ?,L3(B)
+ ("H" ?,LE(B)
+ ("J" ?,L((B)
+ ("K" ?,L:(B)
+ ("L" ?,L;(B)
+ (":" ?,LG(B)
+ ("\"" ?,L.(B)
+ ("|" ?,L6(B)
+ ("Z" ?,L%(B)
+ ("X" ?,L/(B)
+ ("C" ?,LF(B)
+ ("V" ?,L2(B)
+ ("B" ?,L1(B)
+ ("N" ?,L=(B)
+ ("M" ?,L<(B)
+ ("<" ?\;)
+ (">" ?:)
+ ("?" ?_))
+
+;;
+
+(quail-define-package
+ "cyrillic-belarusian" "Cyrillic" ",L61(B" nil
+ ",L9FC:5=3(B Belarusian (CP1251 encoding)"
+ nil t t t t nil nil nil nil nil t)
+
+;; ,L!(B 1! 2" 3# 4; 5% 6: 7? 8* 9( 0) -_ += \|
+;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,L.(B ,L7(B ,LE(B '
+;; ,LD(B ,LK(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,LM(B
+;; ,LO(B ,LG(B ,LA(B ,L<(B ,L&(B ,LB(B ,LL(B ,L1(B ,LN(B ,.
+
+(quail-define-rules
+ ("`" ?,Lq(B) ("~" ?,L!(B)
+ ("1" ?1) ("!" ?!)
+ ("2" ?2) ("@" ?\")
+ ("3" ?3) ("#" ?#)
+ ("4" ?4) ("$" ?\;)
+ ("5" ?5) ("%" ?%)
+ ("6" ?6) ("^" ?:)
+ ("7" ?7) ("&" ?&)
+ ("8" ?8) ("*" ?*)
+ ("9" ?9) ("(" ?\()
+ ("0" ?0) (")" ?\))
+ ("-" ?-) ("_" ?_)
+ ("=" ?=) ("+" ?+)
+ ("\\" ?/) ("|" ?|)
+
+ ("q" ?,LY(B) ("Q" ?,L9(B)
+ ("w" ?,Lf(B) ("W" ?,LF(B)
+ ("e" ?,Lc(B) ("E" ?,LC(B)
+ ("r" ?,LZ(B) ("R" ?,L:(B)
+ ("t" ?,LU(B) ("T" ?,L5(B)
+ ("y" ?,L](B) ("Y" ?,L=(B)
+ ("u" ?,LS(B) ("U" ?,L3(B)
+ ("i" ?,Lh(B) ("I" ?,LH(B)
+ ("o" ?,L~(B) ("O" ?,L.(B)
+ ("p" ?,LW(B) ("P" ?,L7(B)
+ ("[" ?,Le(B) ("{" ?,LE(B)
+ ("]" ?') ("}" ?')
+
+ ("a" ?,Ld(B) ("A" ?,LD(B)
+ ("s" ?,Lk(B) ("S" ?,LK(B)
+ ("d" ?,LR(B) ("D" ?,L2(B)
+ ("f" ?,LP(B) ("F" ?,L0(B)
+ ("g" ?,L_(B) ("G" ?,L?(B)
+ ("h" ?,L`(B) ("H" ?,L@(B)
+ ("j" ?,L^(B) ("J" ?,L>(B)
+ ("k" ?,L[(B) ("K" ?,L;(B)
+ ("l" ?,LT(B) ("L" ?,L4(B)
+ (";" ?,LV(B) (":" ?,L6(B)
+ ("'" ?,Lm(B) ("\"" ?,LM(B)
+
+ ("z" ?,Lo(B) ("Z" ?,LO(B)
+ ("x" ?,Lg(B) ("X" ?,LG(B)
+ ("c" ?,La(B) ("C" ?,LA(B)
+ ("v" ?,L\(B) ("V" ?,L<(B)
+ ("b" ?,Lv(B) ("B" ?,L&(B)
+ ("n" ?,Lb(B) ("N" ?,LB(B)
+ ("m" ?,Ll(B) ("M" ?,LL(B)
+ ("," ?,LQ(B) ("<" ?,L1(B)
+ ("." ?,Ln(B) (">" ?,LN(B)
+ ("/" ?.) ("?" ?,))
;;