diff options
| author | Dave Love | 2001-12-15 00:25:22 +0000 |
|---|---|---|
| committer | Dave Love | 2001-12-15 00:25:22 +0000 |
| commit | 4e0ba44edbe90fc3856863604be1fb2f7d3fa2d1 (patch) | |
| tree | 725110cb8eec3dc87290aa2a8936d7e200e4d1d1 | |
| parent | 14c4929a4d839b8dcba3a1fbe11bf811108a6873 (diff) | |
| download | emacs-4e0ba44edbe90fc3856863604be1fb2f7d3fa2d1.tar.gz emacs-4e0ba44edbe90fc3856863604be1fb2f7d3fa2d1.zip | |
("cyrillic-beylorussian")
("cyrillic-ukrainian", "cyrillic-translit-bulgarian")
("belarusian", "bulgarian-pho"): Fix language assignment.
| -rw-r--r-- | leim/quail/cyrillic.el | 26 |
1 files changed, 19 insertions, 7 deletions
diff --git a/leim/quail/cyrillic.el b/leim/quail/cyrillic.el index c777b5650fe..1d1befb20f4 100644 --- a/leim/quail/cyrillic.el +++ b/leim/quail/cyrillic.el | |||
| @@ -357,7 +357,7 @@ | |||
| 357 | ;; | 357 | ;; |
| 358 | 358 | ||
| 359 | (quail-define-package | 359 | (quail-define-package |
| 360 | "cyrillic-beylorussian" "Cyrillic" ",L6(BB" nil | 360 | "cyrillic-beylorussian" "Belarussian" ",L6(BB" nil |
| 361 | ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (ISO 8859-5 encoding)" | 361 | ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (ISO 8859-5 encoding)" |
| 362 | nil t t t t nil nil nil nil nil t) | 362 | nil t t t t nil nil nil nil nil t) |
| 363 | 363 | ||
| @@ -466,7 +466,7 @@ | |||
| 466 | ;; | 466 | ;; |
| 467 | 467 | ||
| 468 | (quail-define-package | 468 | (quail-define-package |
| 469 | "cyrillic-ukrainian" "Cyrillic" ",L6(BU" nil | 469 | "cyrillic-ukrainian" "Ukrainian" ",L6(BU" nil |
| 470 | ",L$'5@B7(B-,L&.(B UKRAINIAN (ISO 8859-5 encoding) | 470 | ",L$'5@B7(B-,L&.(B UKRAINIAN (ISO 8859-5 encoding) |
| 471 | 471 | ||
| 472 | Sorry, but 'ghe with upturn' is not included in ISO 8859-5" | 472 | Sorry, but 'ghe with upturn' is not included in ISO 8859-5" |
| @@ -793,7 +793,7 @@ cyrillic ,Lv(B (I DECIMAL) = \"/i\", ,Lx(B (JE) = \"/j\", | |||
| 793 | ) | 793 | ) |
| 794 | 794 | ||
| 795 | (quail-define-package | 795 | (quail-define-package |
| 796 | "cyrillic-translit-bulgarian" "Cyrillic" ",L6(Btb" nil | 796 | "cyrillic-translit-bulgarian" "Bulgarian" ",L6(Btb" nil |
| 797 | "Intuitively transliterated keyboard layout optimized for Bulgarian. | 797 | "Intuitively transliterated keyboard layout optimized for Bulgarian. |
| 798 | The only difference with cyrillic-translit is that \"sht\" translates as | 798 | The only difference with cyrillic-translit is that \"sht\" translates as |
| 799 | ,Li(B (SHCHA = Bulgarian SHT) insteat of ,Lhb(B (SH+T)." | 799 | ,Li(B (SHCHA = Bulgarian SHT) insteat of ,Lhb(B (SH+T)." |
| @@ -844,7 +844,7 @@ The only difference with cyrillic-translit is that \"sht\" translates as | |||
| 844 | ;; From Yudit's `Belarusian input table according to STB955-94 | 844 | ;; From Yudit's `Belarusian input table according to STB955-94 |
| 845 | ;; belarusian standard'. Alexander Mikhailian <mikhailian@altern.org> | 845 | ;; belarusian standard'. Alexander Mikhailian <mikhailian@altern.org> |
| 846 | (quail-define-package | 846 | (quail-define-package |
| 847 | "belarusian" "Cyrillic" "$,1(v(B" ; fixme | 847 | "belarusian" "Belarusian" "$,1(v(B" ; fixme |
| 848 | nil | 848 | nil |
| 849 | "Belarusian STB955-94 input, producing Unicode" | 849 | "Belarusian STB955-94 input, producing Unicode" |
| 850 | nil t t t t nil nil nil nil nil t) | 850 | nil t t t t nil nil nil nil nil t) |
| @@ -994,13 +994,25 @@ The only difference with cyrillic-translit is that \"sht\" translates as | |||
| 994 | ("Y`" ?$,1)4(B) | 994 | ("Y`" ?$,1)4(B) |
| 995 | ("y`" ?$,1)5(B)) | 995 | ("y`" ?$,1)5(B)) |
| 996 | 996 | ||
| 997 | ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov <al_shopov@web.bg> | 997 | ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov |
| 998 | ;; <al_shopov@web.bg>. | ||
| 999 | |||
| 1000 | ;; Extra commentary and the indicator from an independent | ||
| 1001 | ;; (cyrillic-iso8859-5) implementation by Ognyan Kulev | ||
| 1002 | ;; <ogi@fmi.uni-sofia.bg>. | ||
| 998 | (quail-define-package | 1003 | (quail-define-package |
| 999 | "bulgarian-pho" "Cyrillic" "$,1(1(B" ; fixme | 1004 | "bulgarian-pho" "Bulgarian" "$,1(6(1(D(B" |
| 1000 | nil | 1005 | nil |
| 1001 | "Bulragian PHO keyboard layout, producing Unicode" | 1006 | "Bulragian Phonetic keyboard layout, producing Unicode |
| 1007 | |||
| 1008 | The layout is similar to `cyrillic-translit', but all Bulgarian | ||
| 1009 | characters are typed with a single key." | ||
| 1002 | nil t t t t nil nil nil nil nil t) | 1010 | nil t t t t nil nil nil nil nil t) |
| 1003 | 1011 | ||
| 1012 | ;; $,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 | ||
| 1013 | ;; $,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 | ||
| 1014 | ;; $,1(N(B $,1(7(B $,1(L(B $,1(F(B $,1(6(B $,1(1(B $,1(=(B $,1(<(B | ||
| 1015 | |||
| 1004 | (quail-define-rules | 1016 | (quail-define-rules |
| 1005 | ("A" ?$,1(0(B) | 1017 | ("A" ?$,1(0(B) |
| 1006 | ("B" ?$,1(1(B) | 1018 | ("B" ?$,1(1(B) |