Mercurial > emacs

comparison leim/quail/cyrillic.el @ 88941:51e1b1356d0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Reinstate some commented-out redundancies. ("russian-typewriter"): Renamed from cyrillic-typewriter. Make cyrillic-jcuken effectively an alias for it. ("russian-computer"): New. ("bulgarian-phonetic"): Renamed from bulgarian-pho. ("bulgarian-bds"): Renamed from bulgarian-standard.
author Dave Love <fx@gnu.org>
date Tue, 30 Jul 2002 11:40:55 +0000
parents e8a87739b67a
children e8d54378e4a3
comparison
equal deleted inserted replaced
88940:225e8ce5246d 88941:51e1b1356d0f
39 ;; period being placed more conviniently and, of course, because of 39 ;; period being placed more conviniently and, of course, because of
40 ;; the popularity of Windows software. This layout is a common option 40 ;; the popularity of Windows software. This layout is a common option
41 ;; in X Windows and console layouts for GNU/Linux. [See 41 ;; in X Windows and console layouts for GNU/Linux. [See
42 ;; `russian-computer' below.] 42 ;; `russian-computer' below.]
43 (quail-define-package 43 (quail-define-package
44 "cyrillic-typewriter" "Russian" ",L69(B" nil 44 "russian-typewriter" "Russian" ",L69(B" nil
45 ",L9FC:5=(B Russian typewriter layout." 45 ",L9FC:5=(B Russian typewriter layout."
46 nil t t t t nil nil nil nil nil t) 46 nil t t t t nil nil nil nil nil t)
47 47
48 ;; 1! 2" 3' 4* 5: 6, 7. 8; 9( 0) -_ =+ ,L!(B 48 ;; 1! 2" 3' 4* 5: 6, 7. 8; 9( 0) -_ =+ ,L!(B
49 ;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B 49 ;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B
107 ("^" ?,) 107 ("^" ?,)
108 ("&" ?.) 108 ("&" ?.)
109 ("*" ?\;) 109 ("*" ?\;)
110 ("(" ?\() 110 ("(" ?\()
111 (")" ?\)) 111 (")" ?\))
112 ("_" ?_)
113 ("+" ?+)
114 ("~" ?,L!(B)
115 ("Q" ?,L9(B)
116 ("W" ?,LF(B)
117 ("E" ?,LC(B)
118 ("R" ?,L:(B)
119 ("T" ?,L5(B)
120 ("Y" ?,L=(B)
121 ("U" ?,L3(B)
122 ("I" ?,LH(B)
123 ("O" ?,LI(B)
124 ("P" ?,L7(B)
125 ("{" ?,LE(B)
126 ("}" ?,LJ(B)
127 ("A" ?,LD(B)
128 ("S" ?,LK(B)
129 ("D" ?,L2(B)
130 ("F" ?,L0(B)
131 ("G" ?,L?(B)
132 ("H" ?,L@(B)
133 ("J" ?,L>(B)
134 ("K" ?,L;(B)
135 ("L" ?,L4(B)
136 (":" ?,L6(B)
137 ("\"" ?,LM(B)
138 ("|" ?|)
139 ("Z" ?,LO(B)
140 ("X" ?,LG(B)
141 ("C" ?,LA(B)
142 ("V" ?,L<(B)
143 ("B" ?,L8(B)
144 ("N" ?,LB(B)
145 ("M" ?,LL(B)
146 ("<" ?,L1(B)
147 (">" ?,LN(B)
148 ("?" ??)
149 )
150
151 ;; Maintain the obsolete name for now.
152 (push (cons "cyrillic-jcuken"
153 (cdr (assoc "russian-typewriter" input-method-alist)))
154 input-method-alist)
155
156 ;; See comment above. This is the variant `winkeys' from `ru' in XKB.
157 (quail-define-package
158 "russian-computer" "Russian" "RU" nil
159 ",L9FC:5=(B Russian computer layout"
160 nil t t t t nil nil nil nil nil t)
161
162 ;; 1! 2" 3,Lp(B 4; 5% 6: 7? 8* 9( 0) -_ =+ ,Lq!(B
163 ;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B
164 ;; ,LD(B ,LK(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,LM(B
165 ;; ,LO(B ,LG(B ,LA(B ,L<(B ,L8(B ,LB(B ,LL(B ,L1(B ,LN(B .,
166
167 (quail-define-rules
168 ("1" ?1)
169 ("2" ?2)
170 ("3" ?3)
171 ("4" ?4)
172 ("5" ?5)
173 ("6" ?6)
174 ("7" ?7)
175 ("8" ?8)
176 ("9" ?9)
177 ("0" ?0)
178 ("-" ?-)
179 ("=" ?=)
180 ("`" ?,Lq(B)
181 ("q" ?,LY(B)
182 ("w" ?,Lf(B)
183 ("e" ?,Lc(B)
184 ("r" ?,LZ(B)
185 ("t" ?,LU(B)
186 ("y" ?,L](B)
187 ("u" ?,LS(B)
188 ("i" ?,Lh(B)
189 ("o" ?,Li(B)
190 ("p" ?,LW(B)
191 ("[" ?,Le(B)
192 ("]" ?,Lj(B)
193 ("a" ?,Ld(B)
194 ("s" ?,Lk(B)
195 ("d" ?,LR(B)
196 ("f" ?,LP(B)
197 ("g" ?,L_(B)
198 ("h" ?,L`(B)
199 ("j" ?,L^(B)
200 ("k" ?,L[(B)
201 ("l" ?,LT(B)
202 (";" ?,LV(B)
203 ("'" ?,Lm(B)
204 ("\\" ?\\)
205 ("z" ?,Lo(B)
206 ("x" ?,Lg(B)
207 ("c" ?,La(B)
208 ("v" ?,L\(B)
209 ("b" ?,LX(B)
210 ("n" ?,Lb(B)
211 ("m" ?,Ll(B)
212 ("," ?,LQ(B)
213 ("." ?,Ln(B)
214 ("/" ?.)
215 ("!" ?!)
216 ("@" ?\")
217 ("#" ?,Lp(B)
218 ("$" ?\;)
219 ("%" ?%)
220 ("^" ?:)
221 ("&" ??)
222 ("*" ?*)
223 ("(" ?()
224 (")" ?))
112 ("_" ?_) 225 ("_" ?_)
113 ("+" ?+) 226 ("+" ?+)
114 ("~" ?,L!(B) 227 ("~" ?,L!(B)
115 ("Q" ?,L9(B) 228 ("Q" ?,L9(B)
116 ("W" ?,LF(B) 229 ("W" ?,LF(B)
639 ("j" ?,L^(B) 752 ("j" ?,L^(B)
640 ("k" ?,L[(B) 753 ("k" ?,L[(B)
641 ("l" ?,LT(B) 754 ("l" ?,LT(B)
642 (";" ?,LV(B) 755 (";" ?,LV(B)
643 ("'" ?,Lt(B) 756 ("'" ?,Lt(B)
644 ;; ("\\" ?\\) 757 ("\\" ?\\)
645 ("z" ?,Lo(B) 758 ("z" ?,Lo(B)
646 ("x" ?,Lg(B) 759 ("x" ?,Lg(B)
647 ("c" ?,La(B) 760 ("c" ?,La(B)
648 ("v" ?,L\(B) 761 ("v" ?,L\(B)
649 ("b" ?,LX(B) 762 ("b" ?,LX(B)
650 ("n" ?,Lb(B) 763 ("n" ?,Lb(B)
651 ("m" ?,Ll(B) 764 ("m" ?,Ll(B)
652 ("," ?,LQ(B) 765 ("," ?,LQ(B)
653 ("." ?,Ln(B) 766 ("." ?,Ln(B)
654 ("/" ?.) 767 ("/" ?.)
655 ;; ("!" ?!) 768 ("!" ?!)
656 ("@" ?\") 769 ("@" ?\")
657 ("#" ?,Lp(B) 770 ("#" ?,Lp(B)
658 ("$" ?\;) 771 ("$" ?\;)
659 ;; ("%" ?%) 772 ("%" ?%)
660 ("^" ?:) 773 ("^" ?:)
661 ("&" ??) 774 ("&" ??)
662 ;; ("*" ?*) 775 ("*" ?*)
663 ;; ("(" ?() 776 ("(" ?()
664 ;; (")" ?)) 777 (")" ?))
665 ;; ("_" ?_) 778 ("_" ?_)
666 ;; ("+" ?+) 779 ("+" ?+)
667 ("~" ?') 780 ("~" ?')
668 ("Q" ?,L9(B) 781 ("Q" ?,L9(B)
669 ("W" ?,LF(B) 782 ("W" ?,LF(B)
670 ("E" ?,LC(B) 783 ("E" ?,LC(B)
671 ("R" ?,L:(B) 784 ("R" ?,L:(B)
862 ;; latter to disappear. It could be used by people who write 975 ;; latter to disappear. It could be used by people who write
863 ;; bulgarian e-mails with latin letters for kick start (phonetic input 976 ;; bulgarian e-mails with latin letters for kick start (phonetic input
864 ;; method is not so obvious as translit input method but each letter 977 ;; method is not so obvious as translit input method but each letter
865 ;; is one keypress and a *lot* of people know it). 978 ;; is one keypress and a *lot* of people know it).
866 979
980 ;; Anton Zinoviev <anton@lml.bas.bg> wrote:
981 ;; I would say that the main idea for cyrillic-translit is to be
982 ;; language-independent and universal. It should be able to generate all
983 ;; Cyrillic symbols.
867 (quail-define-package 984 (quail-define-package
868 "cyrillic-translit" "Cyrillic" ",L6(Bt" nil 985 "cyrillic-translit" "Cyrillic" ",L6(Bt" nil
869 "Intuitively transliterated keyboard layout. 986 "Intuitively transliterated keyboard layout.
870 Most convenient for entering Russian but all Cyrillic characters are included. 987 Most convenient for entering Russian but all Cyrillic characters are included.
871 Should handle most cases. However: 988 Should handle most cases. However:
929 ("/G" ?,L#(B) ("/S" ?,L%(B) ("/K" ?,L,(B) 1046 ("/G" ?,L#(B) ("/S" ?,L%(B) ("/K" ?,L,(B)
930 ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B) 1047 ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B)
931 ) 1048 )
932 1049
933 ;; Originally from Yudit's `Belarusian input table according to 1050 ;; Originally from Yudit's `Belarusian input table according to
934 ;; STB955-94 belarusian standard' by Alexander Mikhailian 1051 ;; STB955-94 belarusian standard' (not all) by Alexander Mikhailian
935 ;; <mikhailian@altern.org>, subsequently amended by AM. 1052 ;; <mikhailian@altern.org>, subsequently amended by AM.
936 (quail-define-package 1053 (quail-define-package
937 "belarusian" "Belarusian" "BE" nil 1054 "belarusian" "Belarusian" "BE" nil
938 ",L9FC:5=(B keyboard layout registered as STB955-94 Belarusian standard." 1055 ",L9FC:5=(B keyboard layout registered as STB955-94 Belarusian standard."
939 nil t t t t nil nil nil nil nil t) 1056 nil t t t t nil nil nil nil nil t)
985 ("<" ?,L1(B) 1102 ("<" ?,L1(B)
986 (">" ?,LN(B) 1103 (">" ?,LN(B)
987 ("?" ?,) 1104 ("?" ?,)
988 1105
989 ("`" ?,Lq(B) 1106 ("`" ?,Lq(B)
990 ("1" ?1)
991 ("2" ?2)
992 ("3" ?3)
993 ("4" ?4)
994 ("5" ?5)
995 ("6" ?6)
996 ("7" ?7)
997 ("8" ?8)
998 ("9" ?9)
999 ("0" ?0)
1000 ("-" ?-)
1001 ("=" ?=)
1002 ("q" ?,LY(B) 1107 ("q" ?,LY(B)
1003 ("w" ?,Lf(B) 1108 ("w" ?,Lf(B)
1004 ("e" ?,Lc(B) 1109 ("e" ?,Lc(B)
1005 ("r" ?,LZ(B) 1110 ("r" ?,LZ(B)
1006 ("t" ?,LU(B) 1111 ("t" ?,LU(B)
1020 ("j" ?,L^(B) 1125 ("j" ?,L^(B)
1021 ("k" ?,L[(B) 1126 ("k" ?,L[(B)
1022 ("l" ?,LT(B) 1127 ("l" ?,LT(B)
1023 (";" ?,LV(B) 1128 (";" ?,LV(B)
1024 ("'" ?,Lm(B) 1129 ("'" ?,Lm(B)
1025 ("\\" ?\\)
1026 ("z" ?,Lo(B) 1130 ("z" ?,Lo(B)
1027 ("x" ?,Lg(B) 1131 ("x" ?,Lg(B)
1028 ("c" ?,La(B) 1132 ("c" ?,La(B)
1029 ("v" ?,L\(B) 1133 ("v" ?,L\(B)
1030 ("b" ?,Lv(B) 1134 ("b" ?,Lv(B)
1037 ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov 1141 ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov
1038 ;; <al_shopov@web.bg>. 1142 ;; <al_shopov@web.bg>.
1039 1143
1040 ;; Extra commentary and the indicator from an independent 1144 ;; Extra commentary and the indicator from an independent
1041 ;; (cyrillic-iso8859-5) implementation by Ognyan Kulev 1145 ;; (cyrillic-iso8859-5) implementation by Ognyan Kulev
1042 ;; <ogi@fmi.uni-sofia.bg>. 1146 ;; <ogi@fmi.uni-sofia.bg> and name changes from Anton Zinoviev
1147 ;; <anton@lml.bas.bg>.
1043 (quail-define-package 1148 (quail-define-package
1044 "bulgarian-pho" "Bulgarian" ",L61D(B" 1149 "bulgarian-phonetic" "Bulgarian" "$,1(6(1(D(B"
1045 nil 1150 nil
1046 "Bulgarian Phonetic keyboard layout. 1151 "Bulgarian Phonetic keyboard layout.
1047 1152
1048 The layout is similar to `cyrillic-translit', but all Bulgarian 1153 The layout is similar to `cyrillic-translit', but all Bulgarian
1049 characters are typed with a single key. 1154 characters are typed with a single key.
1122 1227
1123 ;; Based on an implementation by Ognyan Kulev <ogi@fmi.uni-sofia.bg>. 1228 ;; Based on an implementation by Ognyan Kulev <ogi@fmi.uni-sofia.bg>.
1124 ;; This follows XKB bg. 1229 ;; This follows XKB bg.
1125 1230
1126 (quail-define-package 1231 (quail-define-package
1127 "bulgarian-standard" "Bulgarian" ",L14A(B" nil 1232 "bulgarian-bds" "Bulgarian" "$,1(1(4(A(B" nil
1128 "Bulgarian standard keyboard layout (BDS) 1233 "Bulgarian standard keyboard layout (BDS)
1129 1234
1130 This keyboard layout is standard for Bulgarian typewriters." 1235 This keyboard layout is standard for Bulgarian typewriters."
1131 nil t t t t nil nil nil nil nil t) 1236 nil t t t t nil nil nil nil nil t)
1132 1237