]> code.delx.au - gnu-emacs/blob - leim/quail/cyrillic.el
delx.au / code / gnu-emacs / blob
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
*** empty log message ***
[gnu-emacs] / leim / quail / cyrillic.el
1 ;;; cyrillic.el --- Quail package for inputting Cyrillic characters
2
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
6
7 ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
8 ;; Keywords: multilingual, input method, Cyrillic, i18n
9
10 ;; This file is part of GNU Emacs.
11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; any later version.
16
17 ;; GNU Emacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
21
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25 ;; Boston, MA 02111-1307, USA.
26
27 ;;; Commentary:
28
29 ;;; Code:
30
31 (require 'quail)
32
33 ;; This was `cyrillic-jcuken'. Alexander Mikhailian
34 ;; <mikhailian@altern.org> says: "cyrillic-jcuken" is actually
35 ;; russian. It is ok but a bit outdated. This layout has been used
36 ;; in typewriters for ages but it has been superceeded on desktops by
37 ;; a variation of this layout, implemented in M$ Windows software.
38 ;; The Windows layout is greatly preferred because of the comma and
39 ;; period being placed more conviniently and, of course, because of
40 ;; the popularity of Windows software. This layout is a common option
41 ;; in X Windows and console layouts for GNU/Linux. [See
42 ;; `russian-computer' below.]
43 (quail-define-package
44 "russian-typewriter" "Russian" "\e,L69\e(B" nil
45 "\e,L9FC:5=\e(B Russian typewriter layout."
46 nil t t t t nil nil nil nil nil t)
47
48 ;; 1! 2" 3' 4* 5: 6, 7. 8; 9( 0) -_ =+ \e,L!\e(B
49 ;; \e,L9\e(B \e,LF\e(B \e,LC\e(B \e,L:\e(B \e,L5\e(B \e,L=\e(B \e,L3\e(B \e,LH\e(B \e,LI\e(B \e,L7\e(B \e,LE\e(B \e,Lj\e(B
50 ;; \e,LD\e(B \e,LK\e(B \e,L2\e(B \e,L0\e(B \e,L?\e(B \e,L@\e(B \e,L>\e(B \e,L;\e(B \e,L4\e(B \e,L6\e(B \e,LM\e(B
51 ;; \e,LO\e(B \e,LG\e(B \e,LA\e(B \e,L<\e(B \e,L8\e(B \e,LB\e(B \e,LL\e(B \e,L1\e(B \e,LN\e(B /?
52
53 (quail-define-rules
54 ("1" ?1)
55 ("2" ?2)
56 ("3" ?3)
57 ("4" ?4)
58 ("5" ?5)
59 ("6" ?6)
60 ("7" ?7)
61 ("8" ?8)
62 ("9" ?9)
63 ("0" ?0)
64 ("-" ?-)
65 ("=" ?=)
66 ("`" ?\e,Lq\e(B)
67 ("q" ?\e,LY\e(B)
68 ("w" ?\e,Lf\e(B)
69 ("e" ?\e,Lc\e(B)
70 ("r" ?\e,LZ\e(B)
71 ("t" ?\e,LU\e(B)
72 ("y" ?\e,L]\e(B)
73 ("u" ?\e,LS\e(B)
74 ("i" ?\e,Lh\e(B)
75 ("o" ?\e,Li\e(B)
76 ("p" ?\e,LW\e(B)
77 ("[" ?\e,Le\e(B)
78 ("]" ?\e,Lj\e(B)
79 ("a" ?\e,Ld\e(B)
80 ("s" ?\e,Lk\e(B)
81 ("d" ?\e,LR\e(B)
82 ("f" ?\e,LP\e(B)
83 ("g" ?\e,L_\e(B)
84 ("h" ?\e,L`\e(B)
85 ("j" ?\e,L^\e(B)
86 ("k" ?\e,L[\e(B)
87 ("l" ?\e,LT\e(B)
88 (";" ?\e,LV\e(B)
89 ("'" ?\e,Lm\e(B)
90 ("\\" ?\\)
91 ("z" ?\e,Lo\e(B)
92 ("x" ?\e,Lg\e(B)
93 ("c" ?\e,La\e(B)
94 ("v" ?\e,L\\e(B)
95 ("b" ?\e,LX\e(B)
96 ("n" ?\e,Lb\e(B)
97 ("m" ?\e,Ll\e(B)
98 ("," ?\e,LQ\e(B)
99 ("." ?\e,Ln\e(B)
100 ("/" ?/)
101
102 ("!" ?!)
103 ("@" ?\")
104 ("#" ?')
105 ("$" ?*)
106 ("%" ?:)
107 ("^" ?,)
108 ("&" ?.)
109 ("*" ?\;)
110 ("(" ?\()
111 (")" ?\))
112 ("_" ?_)
113 ("+" ?+)
114 ("~" ?\e,L!\e(B)
115 ("Q" ?\e,L9\e(B)
116 ("W" ?\e,LF\e(B)
117 ("E" ?\e,LC\e(B)
118 ("R" ?\e,L:\e(B)
119 ("T" ?\e,L5\e(B)
120 ("Y" ?\e,L=\e(B)
121 ("U" ?\e,L3\e(B)
122 ("I" ?\e,LH\e(B)
123 ("O" ?\e,LI\e(B)
124 ("P" ?\e,L7\e(B)
125 ("{" ?\e,LE\e(B)
126 ("}" ?\e,LJ\e(B)
127 ("A" ?\e,LD\e(B)
128 ("S" ?\e,LK\e(B)
129 ("D" ?\e,L2\e(B)
130 ("F" ?\e,L0\e(B)
131 ("G" ?\e,L?\e(B)
132 ("H" ?\e,L@\e(B)
133 ("J" ?\e,L>\e(B)
134 ("K" ?\e,L;\e(B)
135 ("L" ?\e,L4\e(B)
136 (":" ?\e,L6\e(B)
137 ("\"" ?\e,LM\e(B)
138 ("|" ?|)
139 ("Z" ?\e,LO\e(B)
140 ("X" ?\e,LG\e(B)
141 ("C" ?\e,LA\e(B)
142 ("V" ?\e,L<\e(B)
143 ("B" ?\e,L8\e(B)
144 ("N" ?\e,LB\e(B)
145 ("M" ?\e,LL\e(B)
146 ("<" ?\e,L1\e(B)
147 (">" ?\e,LN\e(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 "\e,L9FC:5=\e(B Russian computer layout"
160 nil t t t t nil nil nil nil nil t)
161
162 ;; 1! 2" 3\e,Lp\e(B 4; 5% 6: 7? 8* 9( 0) -_ =+ \e,Lq!\e(B
163 ;; \e,L9\e(B \e,LF\e(B \e,LC\e(B \e,L:\e(B \e,L5\e(B \e,L=\e(B \e,L3\e(B \e,LH\e(B \e,LI\e(B \e,L7\e(B \e,LE\e(B \e,Lj\e(B
164 ;; \e,LD\e(B \e,LK\e(B \e,L2\e(B \e,L0\e(B \e,L?\e(B \e,L@\e(B \e,L>\e(B \e,L;\e(B \e,L4\e(B \e,L6\e(B \e,LM\e(B
165 ;; \e,LO\e(B \e,LG\e(B \e,LA\e(B \e,L<\e(B \e,L8\e(B \e,LB\e(B \e,LL\e(B \e,L1\e(B \e,LN\e(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 ("`" ?\e,Lq\e(B)
181 ("q" ?\e,LY\e(B)
182 ("w" ?\e,Lf\e(B)
183 ("e" ?\e,Lc\e(B)
184 ("r" ?\e,LZ\e(B)
185 ("t" ?\e,LU\e(B)
186 ("y" ?\e,L]\e(B)
187 ("u" ?\e,LS\e(B)
188 ("i" ?\e,Lh\e(B)
189 ("o" ?\e,Li\e(B)
190 ("p" ?\e,LW\e(B)
191 ("[" ?\e,Le\e(B)
192 ("]" ?\e,Lj\e(B)
193 ("a" ?\e,Ld\e(B)
194 ("s" ?\e,Lk\e(B)
195 ("d" ?\e,LR\e(B)
196 ("f" ?\e,LP\e(B)
197 ("g" ?\e,L_\e(B)
198 ("h" ?\e,L`\e(B)
199 ("j" ?\e,L^\e(B)
200 ("k" ?\e,L[\e(B)
201 ("l" ?\e,LT\e(B)
202 (";" ?\e,LV\e(B)
203 ("'" ?\e,Lm\e(B)
204 ("\\" ?\\)
205 ("z" ?\e,Lo\e(B)
206 ("x" ?\e,Lg\e(B)
207 ("c" ?\e,La\e(B)
208 ("v" ?\e,L\\e(B)
209 ("b" ?\e,LX\e(B)
210 ("n" ?\e,Lb\e(B)
211 ("m" ?\e,Ll\e(B)
212 ("," ?\e,LQ\e(B)
213 ("." ?\e,Ln\e(B)
214 ("/" ?.)
215 ("!" ?!)
216 ("@" ?\")
217 ("#" ?\e,Lp\e(B)
218 ("$" ?\;)
219 ("%" ?%)
220 ("^" ?:)
221 ("&" ??)
222 ("*" ?*)
223 ("(" ?()
224 (")" ?))
225 ("_" ?_)
226 ("+" ?+)
227 ("~" ?\e,L!\e(B)
228 ("Q" ?\e,L9\e(B)
229 ("W" ?\e,LF\e(B)
230 ("E" ?\e,LC\e(B)
231 ("R" ?\e,L:\e(B)
232 ("T" ?\e,L5\e(B)
233 ("Y" ?\e,L=\e(B)
234 ("U" ?\e,L3\e(B)
235 ("I" ?\e,LH\e(B)
236 ("O" ?\e,LI\e(B)
237 ("P" ?\e,L7\e(B)
238 ("{" ?\e,LE\e(B)
239 ("}" ?\e,LJ\e(B)
240 ("A" ?\e,LD\e(B)
241 ("S" ?\e,LK\e(B)
242 ("D" ?\e,L2\e(B)
243 ("F" ?\e,L0\e(B)
244 ("G" ?\e,L?\e(B)
245 ("H" ?\e,L@\e(B)
246 ("J" ?\e,L>\e(B)
247 ("K" ?\e,L;\e(B)
248 ("L" ?\e,L4\e(B)
249 (":" ?\e,L6\e(B)
250 ("\"" ?\e,LM\e(B)
251 ("|" ?|)
252 ("Z" ?\e,LO\e(B)
253 ("X" ?\e,LG\e(B)
254 ("C" ?\e,LA\e(B)
255 ("V" ?\e,L<\e(B)
256 ("B" ?\e,L8\e(B)
257 ("N" ?\e,LB\e(B)
258 ("M" ?\e,LL\e(B)
259 ("<" ?\e,L1\e(B)
260 (">" ?\e,LN\e(B)
261 ("?" ?,))
262
263 ;; Mikhailian couldn't check the next two.
264
265 ;; This seems to have the same layout for letters as mk in XKB, but at
266 ;; least the top row is different.
267 (quail-define-package
268 "cyrillic-macedonian" "Cyrillic" "\e,L6\e(BM" nil
269 "\e,L)*5@B7\e(B-\e,L#,\e(B keyboard layout based on JUS.I.K1.004"
270 nil t t t t nil nil nil nil nil t)
271
272 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
273 ;; \e,L)\e(B \e,L*\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,L7\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,L#\e(B
274 ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L(\e(B \e,L:\e(B \e,L;\e(B \e,LG\e(B \e,L,\e(B \e,L6\e(B
275 ;; \e,L%\e(B \e,L/\e(B \e,LF\e(B \e,L2\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,; .: -_
276
277 (quail-define-rules
278 ("1" ?1)
279 ("2" ?2)
280 ("3" ?3)
281 ("4" ?4)
282 ("5" ?5)
283 ("6" ?6)
284 ("7" ?7)
285 ("8" ?8)
286 ("9" ?9)
287 ("0" ?0)
288 ("-" ?/)
289 ("=" ?+)
290 ("`" ?<)
291 ("q" ?\e,Ly\e(B)
292 ("w" ?\e,Lz\e(B)
293 ("e" ?\e,LU\e(B)
294 ("r" ?\e,L`\e(B)
295 ("t" ?\e,Lb\e(B)
296 ("y" ?\e,LW\e(B)
297 ("u" ?\e,Lc\e(B)
298 ("i" ?\e,LX\e(B)
299 ("o" ?\e,L^\e(B)
300 ("p" ?\e,L_\e(B)
301 ("[" ?\e,Lh\e(B)
302 ("]" ?\e,Ls\e(B)
303 ("a" ?\e,LP\e(B)
304 ("s" ?\e,La\e(B)
305 ("d" ?\e,LT\e(B)
306 ("f" ?\e,Ld\e(B)
307 ("g" ?\e,LS\e(B)
308 ("h" ?\e,Le\e(B)
309 ("j" ?\e,Lx\e(B)
310 ("k" ?\e,LZ\e(B)
311 ("l" ?\e,L[\e(B)
312 (";" ?\e,Lg\e(B)
313 ("'" ?\e,L|\e(B)
314 ("\\" ?\e,LV\e(B)
315 ("z" ?\e,Lu\e(B)
316 ("x" ?\e,L\7f\e(B)
317 ("c" ?\e,Lf\e(B)
318 ("v" ?\e,LR\e(B)
319 ("b" ?\e,LQ\e(B)
320 ("n" ?\e,L]\e(B)
321 ("m" ?\e,L\\e(B)
322 ("," ?,)
323 ("." ?.)
324 ("/" ?-)
325
326 ("!" ?!)
327 ("@" ?\")
328 ("#" ?#)
329 ("$" ?$)
330 ("%" ?%)
331 ("^" ?&)
332 ("&" ?')
333 ("*" ?\()
334 ("(" ?\))
335 (")" ?=)
336 ("_" ??)
337 ("+" ?*)
338 ("~" ?>)
339 ("Q" ?\e,L)\e(B)
340 ("W" ?\e,L*\e(B)
341 ("E" ?\e,L5\e(B)
342 ("R" ?\e,L@\e(B)
343 ("T" ?\e,LB\e(B)
344 ("Y" ?\e,L7\e(B)
345 ("U" ?\e,LC\e(B)
346 ("I" ?\e,L8\e(B)
347 ("O" ?\e,L>\e(B)
348 ("P" ?\e,L?\e(B)
349 ("{" ?\e,LH\e(B)
350 ("}" ?\e,L#\e(B)
351 ("A" ?\e,L0\e(B)
352 ("S" ?\e,LA\e(B)
353 ("D" ?\e,L4\e(B)
354 ("F" ?\e,LD\e(B)
355 ("G" ?\e,L3\e(B)
356 ("H" ?\e,LE\e(B)
357 ("J" ?\e,L(\e(B)
358 ("K" ?\e,L:\e(B)
359 ("L" ?\e,L;\e(B)
360 (":" ?\e,LG\e(B)
361 ("\"" ?\e,L,\e(B)
362 ("|" ?\e,L6\e(B)
363 ("Z" ?\e,L%\e(B)
364 ("X" ?\e,L/\e(B)
365 ("C" ?\e,LF\e(B)
366 ("V" ?\e,L2\e(B)
367 ("B" ?\e,L1\e(B)
368 ("N" ?\e,L=\e(B)
369 ("M" ?\e,L<\e(B)
370 ("<" ?\;)
371 (">" ?:)
372 ("?" ?_))
373
374 ;;
375
376 (quail-define-package
377 "cyrillic-serbian" "Cyrillic" "\e,L6\e(BS" nil
378 "\e,L)*5@B7\e(B-\e,L"+\e(B keyboard layout based on JUS.I.K1.005"
379 nil t t t t nil nil nil nil nil t)
380
381 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
382 ;; \e,L)\e(B \e,L*\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,L7\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,L"\e(B
383 ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L(\e(B \e,L:\e(B \e,L;\e(B \e,LG\e(B \e,L+\e(B \e,L6\e(B
384 ;; \e,L%\e(B \e,L/\e(B \e,LF\e(B \e,L2\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,; .: -_
385
386 (quail-define-rules
387 ("1" ?1)
388 ("2" ?2)
389 ("3" ?3)
390 ("4" ?4)
391 ("5" ?5)
392 ("6" ?6)
393 ("7" ?7)
394 ("8" ?8)
395 ("9" ?9)
396 ("0" ?0)
397 ("-" ?/)
398 ("=" ?+)
399 ("`" ?<)
400 ("q" ?\e,Ly\e(B)
401 ("w" ?\e,Lz\e(B)
402 ("e" ?\e,LU\e(B)
403 ("r" ?\e,L`\e(B)
404 ("t" ?\e,Lb\e(B)
405 ("y" ?\e,LW\e(B)
406 ("u" ?\e,Lc\e(B)
407 ("i" ?\e,LX\e(B)
408 ("o" ?\e,L^\e(B)
409 ("p" ?\e,L_\e(B)
410 ("[" ?\e,Lh\e(B)
411 ("]" ?\e,Lr\e(B)
412 ("a" ?\e,LP\e(B)
413 ("s" ?\e,La\e(B)
414 ("d" ?\e,LT\e(B)
415 ("f" ?\e,Ld\e(B)
416 ("g" ?\e,LS\e(B)
417 ("h" ?\e,Le\e(B)
418 ("j" ?\e,Lx\e(B)
419 ("k" ?\e,LZ\e(B)
420 ("l" ?\e,L[\e(B)
421 (";" ?\e,Lg\e(B)
422 ("'" ?\e,L{\e(B)
423 ("\\" ?\e,LV\e(B)
424 ("z" ?\e,Lu\e(B)
425 ("x" ?\e,L\7f\e(B)
426 ("c" ?\e,Lf\e(B)
427 ("v" ?\e,LR\e(B)
428 ("b" ?\e,LQ\e(B)
429 ("n" ?\e,L]\e(B)
430 ("m" ?\e,L\\e(B)
431 ("," ?,)
432 ("." ?.)
433 ("/" ?-)
434
435 ("!" ?!)
436 ("@" ?\")
437 ("#" ?#)
438 ("$" ?$)
439 ("%" ?%)
440 ("^" ?&)
441 ("&" ?')
442 ("*" ?\()
443 ("(" ?\))
444 (")" ?=)
445 ("_" ??)
446 ("+" ?*)
447 ("~" ?>)
448 ("Q" ?\e,L)\e(B)
449 ("W" ?\e,L*\e(B)
450 ("E" ?\e,L5\e(B)
451 ("R" ?\e,L@\e(B)
452 ("T" ?\e,LB\e(B)
453 ("Y" ?\e,L7\e(B)
454 ("U" ?\e,LC\e(B)
455 ("I" ?\e,L8\e(B)
456 ("O" ?\e,L>\e(B)
457 ("P" ?\e,L?\e(B)
458 ("{" ?\e,LH\e(B)
459 ("}" ?\e,L"\e(B)
460 ("A" ?\e,L0\e(B)
461 ("S" ?\e,LA\e(B)
462 ("D" ?\e,L4\e(B)
463 ("F" ?\e,LD\e(B)
464 ("G" ?\e,L3\e(B)
465 ("H" ?\e,LE\e(B)
466 ("J" ?\e,L(\e(B)
467 ("K" ?\e,L:\e(B)
468 ("L" ?\e,L;\e(B)
469 (":" ?\e,LG\e(B)
470 ("\"" ?\e,L+\e(B)
471 ("|" ?\e,L6\e(B)
472 ("Z" ?\e,L%\e(B)
473 ("X" ?\e,L/\e(B)
474 ("C" ?\e,LF\e(B)
475 ("V" ?\e,L2\e(B)
476 ("B" ?\e,L1\e(B)
477 ("N" ?\e,L=\e(B)
478 ("M" ?\e,L<\e(B)
479 ("<" ?\;)
480 (">" ?:)
481 ("?" ?_))
482
483 ;;
484
485 ;; Alexander Mikhailian comments:
486 ;; Having worked for several years as a Belarusian linguist, I still
487 ;; can not find the origin of this layout which BTW does include
488 ;; several characters that are not present in Belarusian and does not
489 ;; include a few ones that do exist in Belarusian. Besides, the typo
490 ;; in the name of this layout speaks for itself since Belarusian has
491 ;; an outdated version of spelling which is "Byelorussian" and not
492 ;; "beylorussian". I suggest that you just remove this layout.
493
494 ;; [`derived from JUS.I.K1' according to an old Mule note -- fx]
495
496 ;; (quail-define-package
497 ;; "cyrillic-beylorussian" "Belarussian" "\e,L6\e(BB" nil
498 ;; "\e,L)*5@B7\e(B-\e,L&.\e(B BEYLORUSSIAN (ISO 8859-5 encoding)"
499 ;; nil t t t t nil nil nil nil nil t)
500
501 ;; ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
502 ;; ;; \e,L)\e(B \e,L*\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,L7\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,L&\e(B
503 ;; ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L(\e(B \e,L:\e(B \e,L;\e(B \e,LG\e(B \e,L.\e(B \e,L6\e(B
504 ;; ;; \e,L%\e(B \e,L/\e(B \e,LF\e(B \e,L2\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,; .: -_
505
506 ;; (quail-define-rules
507 ;; ("-" ?/)
508 ;; ("=" ?+)
509 ;; ("`" ?<)
510 ;; ("q" ?\e,Ly\e(B)
511 ;; ("w" ?\e,Lz\e(B)
512 ;; ("e" ?\e,LU\e(B)
513 ;; ("r" ?\e,L`\e(B)
514 ;; ("t" ?\e,Lb\e(B)
515 ;; ("y" ?\e,LW\e(B)
516 ;; ("u" ?\e,Lc\e(B)
517 ;; ("i" ?\e,LX\e(B)
518 ;; ("o" ?\e,L^\e(B)
519 ;; ("p" ?\e,L_\e(B)
520 ;; ("[" ?\e,Lh\e(B)
521 ;; ("]" ?\e,Lv\e(B)
522 ;; ("a" ?\e,LP\e(B)
523 ;; ("s" ?\e,La\e(B)
524 ;; ("d" ?\e,LT\e(B)
525 ;; ("f" ?\e,Ld\e(B)
526 ;; ("g" ?\e,LS\e(B)
527 ;; ("h" ?\e,Le\e(B)
528 ;; ("j" ?\e,Lx\e(B)
529 ;; ("k" ?\e,LZ\e(B)
530 ;; ("l" ?\e,L[\e(B)
531 ;; (";" ?\e,Lg\e(B)
532 ;; ("'" ?\e,L~\e(B)
533 ;; ("\\" ?\e,LV\e(B)
534 ;; ("z" ?\e,Lu\e(B)
535 ;; ("x" ?\e,L\7f\e(B)
536 ;; ("c" ?\e,Lf\e(B)
537 ;; ("v" ?\e,LR\e(B)
538 ;; ("b" ?\e,LQ\e(B)
539 ;; ("n" ?\e,L]\e(B)
540 ;; ("m" ?\e,L\\e(B)
541 ;; ("/" ?-)
542
543 ;; ("@" ?\")
544 ;; ("^" ?&)
545 ;; ("&" ?')
546 ;; ("*" ?\()
547 ;; ("(" ?\))
548 ;; (")" ?=)
549 ;; ("_" ??)
550 ;; ("+" ?*)
551 ;; ("~" ?>)
552 ;; ("Q" ?\e,L)\e(B)
553 ;; ("W" ?\e,L*\e(B)
554 ;; ("E" ?\e,L5\e(B)
555 ;; ("R" ?\e,L@\e(B)
556 ;; ("T" ?\e,LB\e(B)
557 ;; ("Y" ?\e,L7\e(B)
558 ;; ("U" ?\e,LC\e(B)
559 ;; ("I" ?\e,L8\e(B)
560 ;; ("O" ?\e,L>\e(B)
561 ;; ("P" ?\e,L?\e(B)
562 ;; ("{" ?\e,LH\e(B)
563 ;; ("}" ?\e,L&\e(B)
564 ;; ("A" ?\e,L0\e(B)
565 ;; ("S" ?\e,LA\e(B)
566 ;; ("D" ?\e,L4\e(B)
567 ;; ("F" ?\e,LD\e(B)
568 ;; ("G" ?\e,L3\e(B)
569 ;; ("H" ?\e,LE\e(B)
570 ;; ("J" ?\e,L(\e(B)
571 ;; ("K" ?\e,L:\e(B)
572 ;; ("L" ?\e,L;\e(B)
573 ;; (":" ?\e,LG\e(B)
574 ;; ("\"" ?\e,L.\e(B)
575 ;; ("|" ?\e,L6\e(B)
576 ;; ("Z" ?\e,L%\e(B)
577 ;; ("X" ?\e,L/\e(B)
578 ;; ("C" ?\e,LF\e(B)
579 ;; ("V" ?\e,L2\e(B)
580 ;; ("B" ?\e,L1\e(B)
581 ;; ("N" ?\e,L=\e(B)
582 ;; ("M" ?\e,L<\e(B)
583 ;; ("<" ?\;)
584 ;; (">" ?:)
585 ;; ("?" ?_))
586
587 ;;
588
589 ;; Alexander Mikhailian reports the opinion of fellow Ukrainian
590 ;; linguist Bogdan Babych <babych@altern.org>:
591 ;; He had seen this layout on some oldish systems but that the vast
592 ;; majority of the population uses a modified version of the M$ Windows
593 ;; layout. In fact, Microsoft shipped for a while a layout that was lacking
594 ;; two characters, precisely the "GHE_WITH_UPTURN" and the apostrophe. The
595 ;; latest versions of Windows software do have the "GHE_WITH_UPTURN" in the
596 ;; ukrainian keyborad layout but the apostrophe is still not there, whereas
597 ;; there is one letter, "Cyrillic_YO", not used in ukrainian. Ukrainians
598 ;; normally replace the "Cyrillic_YO" by the apostrophe sign and live
599 ;; happily with this little change. [See "ukrainian-computer" below.]
600
601 ;; Fixme: add GHE_WITH_UPTURN.
602 (quail-define-package
603 "cyrillic-ukrainian" "Ukrainian" "\e,L6\e(BU" nil
604 "\e,L$'5@B7\e(B-\e,L&.\e(B UKRAINIAN"
605 nil t t t t nil nil nil nil nil t)
606
607 ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
608 ;; \e,L$\e(B \e,L'\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,L7\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,L&\e(B
609 ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L(\e(B \e,L:\e(B \e,L;\e(B \e,LG\e(B \e,L.\e(B \e,L6\e(B
610 ;; \e,L%\e(B \e,L/\e(B \e,LF\e(B \e,L2\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,; .: -_
611
612 (quail-define-rules
613 ("1" ?1)
614 ("2" ?2)
615 ("3" ?3)
616 ("4" ?4)
617 ("5" ?5)
618 ("6" ?6)
619 ("7" ?7)
620 ("8" ?8)
621 ("9" ?9)
622 ("0" ?0)
623 ("-" ?/)
624 ("=" ?+)
625 ("`" ?<)
626 ("q" ?\e,Lt\e(B)
627 ("w" ?\e,Lw\e(B)
628 ("e" ?\e,LU\e(B)
629 ("r" ?\e,L`\e(B)
630 ("t" ?\e,Lb\e(B)
631 ("y" ?\e,LW\e(B)
632 ("u" ?\e,Lc\e(B)
633 ("i" ?\e,LX\e(B)
634 ("o" ?\e,L^\e(B)
635 ("p" ?\e,L_\e(B)
636 ("[" ?\e,Lh\e(B)
637 ("]" ?\e,Lv\e(B)
638 ("a" ?\e,LP\e(B)
639 ("s" ?\e,La\e(B)
640 ("d" ?\e,LT\e(B)
641 ("f" ?\e,Ld\e(B)
642 ("g" ?\e,LS\e(B)
643 ("h" ?\e,Le\e(B)
644 ("j" ?\e,Lx\e(B)
645 ("k" ?\e,LZ\e(B)
646 ("l" ?\e,L[\e(B)
647 (";" ?\e,Lg\e(B)
648 ("'" ?\e,L~\e(B)
649 ("\\" ?\e,LV\e(B)
650 ("z" ?\e,Lu\e(B)
651 ("x" ?\e,L\7f\e(B)
652 ("c" ?\e,Lf\e(B)
653 ("v" ?\e,LR\e(B)
654 ("b" ?\e,LQ\e(B)
655 ("n" ?\e,L]\e(B)
656 ("m" ?\e,L\\e(B)
657 ("," ?,)
658 ("." ?.)
659 ("/" ?-)
660
661 ("!" ?!)
662 ("@" ?\")
663 ("#" ?#)
664 ("$" ?$)
665 ("%" ?%)
666 ("^" ?&)
667 ("&" ?')
668 ("*" ?\()
669 ("(" ?\))
670 (")" ?=)
671 ("_" ??)
672 ("+" ?*)
673 ("~" ?>)
674 ("Q" ?\e,L$\e(B)
675 ("W" ?\e,L'\e(B)
676 ("E" ?\e,L5\e(B)
677 ("R" ?\e,L@\e(B)
678 ("T" ?\e,LB\e(B)
679 ("Y" ?\e,L7\e(B)
680 ("U" ?\e,LC\e(B)
681 ("I" ?\e,L8\e(B)
682 ("O" ?\e,L>\e(B)
683 ("P" ?\e,L?\e(B)
684 ("{" ?\e,LH\e(B)
685 ("}" ?\e,L&\e(B)
686 ("A" ?\e,L0\e(B)
687 ("S" ?\e,LA\e(B)
688 ("D" ?\e,L4\e(B)
689 ("F" ?\e,LD\e(B)
690 ("G" ?\e,L3\e(B)
691 ("H" ?\e,LE\e(B)
692 ("J" ?\e,L(\e(B)
693 ("K" ?\e,L:\e(B)
694 ("L" ?\e,L;\e(B)
695 (":" ?\e,LG\e(B)
696 ("\"" ?\e,L.\e(B)
697 ("|" ?\e,L6\e(B)
698 ("Z" ?\e,L%\e(B)
699 ("X" ?\e,L/\e(B)
700 ("C" ?\e,LF\e(B)
701 ("V" ?\e,L2\e(B)
702 ("B" ?\e,L1\e(B)
703 ("N" ?\e,L=\e(B)
704 ("M" ?\e,L<\e(B)
705 ("<" ?\;)
706 (">" ?:)
707 ("?" ?_))
708
709
710 (quail-define-package
711 "ukrainian-computer" "Ukrainian" "UK" nil
712 "\e,L9FC:5=\e(B Ukrainian."
713 nil t t t t nil nil nil nil nil t)
714
715 ;; ' 1! 2" 3\e,Lp\e(B 4; 5% 6: 7? 8* 9( 0) -_ =+
716 ;; \e,L9\e(B \e,LF\e(B \e,LC\e(B \e,L:\e(B \e,L5\e(B \e,L=\e(B \e,L3\e(B \e,LH\e(B \e,LI\e(B \e,L7\e(B \e,LE\e(B \e,L'\e(B
717 ;; \e,LD\e(B \e,L&\e(B \e,L2\e(B \e,L0\e(B \e,L?\e(B \e,L@\e(B \e,L>\e(B \e,L;\e(B \e,L4\e(B \e,L6\e(B \e,L$\e(B \e$,1)P\e(B
718 ;; \e,LO\e(B \e,LG\e(B \e,LA\e(B \e,L<\e(B \e,L8\e(B \e,LB\e(B \e,LL\e(B \e,L1\e(B \e,LN\e(B .,
719
720 (quail-define-rules
721 ("1" ?1)
722 ("2" ?2)
723 ("3" ?3)
724 ("4" ?4)
725 ("5" ?5)
726 ("6" ?6)
727 ("7" ?7)
728 ("8" ?8)
729 ("9" ?9)
730 ("0" ?0)
731 ("-" ?-)
732 ("=" ?=)
733 ("`" ?')
734 ("q" ?\e,LY\e(B)
735 ("w" ?\e,Lf\e(B)
736 ("e" ?\e,Lc\e(B)
737 ("r" ?\e,LZ\e(B)
738 ("t" ?\e,LU\e(B)
739 ("y" ?\e,L]\e(B)
740 ("u" ?\e,LS\e(B)
741 ("i" ?\e,Lh\e(B)
742 ("o" ?\e,Li\e(B)
743 ("p" ?\e,LW\e(B)
744 ("[" ?\e,Le\e(B)
745 ("]" ?\e,Lw\e(B)
746 ("a" ?\e,Ld\e(B)
747 ("s" ?\e,Lv\e(B)
748 ("d" ?\e,LR\e(B)
749 ("f" ?\e,LP\e(B)
750 ("g" ?\e,L_\e(B)
751 ("h" ?\e,L`\e(B)
752 ("j" ?\e,L^\e(B)
753 ("k" ?\e,L[\e(B)
754 ("l" ?\e,LT\e(B)
755 (";" ?\e,LV\e(B)
756 ("'" ?\e,Lt\e(B)
757 ("z" ?\e,Lo\e(B)
758 ("x" ?\e,Lg\e(B)
759 ("c" ?\e,La\e(B)
760 ("v" ?\e,L\\e(B)
761 ("b" ?\e,LX\e(B)
762 ("n" ?\e,Lb\e(B)
763 ("m" ?\e,Ll\e(B)
764 ("," ?\e,LQ\e(B)
765 ("." ?\e,Ln\e(B)
766 ("/" ?.)
767 ("!" ?!)
768 ("@" ?\")
769 ("#" ?\e,Lp\e(B)
770 ("$" ?\;)
771 ("%" ?%)
772 ("^" ?:)
773 ("&" ??)
774 ("*" ?*)
775 ("(" ?()
776 (")" ?))
777 ("_" ?_)
778 ("+" ?+)
779 ("~" ?')
780 ("Q" ?\e,L9\e(B)
781 ("W" ?\e,LF\e(B)
782 ("E" ?\e,LC\e(B)
783 ("R" ?\e,L:\e(B)
784 ("T" ?\e,L5\e(B)
785 ("Y" ?\e,L=\e(B)
786 ("U" ?\e,L3\e(B)
787 ("I" ?\e,LH\e(B)
788 ("O" ?\e,LI\e(B)
789 ("P" ?\e,L7\e(B)
790 ("{" ?\e,LE\e(B)
791 ("}" ?\e,L'\e(B)
792 ("A" ?\e,LD\e(B)
793 ("S" ?\e,L&\e(B)
794 ("D" ?\e,L2\e(B)
795 ("F" ?\e,L0\e(B)
796 ("G" ?\e,L?\e(B)
797 ("H" ?\e,L@\e(B)
798 ("J" ?\e,L>\e(B)
799 ("K" ?\e,L;\e(B)
800 ("L" ?\e,L4\e(B)
801 (":" ?\e,L6\e(B)
802 ("\"" ?\e,L$\e(B)
803 ("Z" ?\e,LO\e(B)
804 ("X" ?\e,LG\e(B)
805 ("C" ?\e,LA\e(B)
806 ("V" ?\e,L<\e(B)
807 ("B" ?\e,L8\e(B)
808 ("N" ?\e,LB\e(B)
809 ("M" ?\e,LL\e(B)
810 ("<" ?\e,L1\e(B)
811 (">" ?\e,LN\e(B)
812 ("?" ?,)
813 ("\\" ?\e$,1)Q\e(B)
814 ("|" ?\e$,1)P\e(B))
815 ;;
816
817 ;; Alexander Mikhailian says this is of limited use. It has been
818 ;; popular among emigrants or foreigners who have to type in Cyrillic
819 ;; (mostly Russian) from time to time.
820 (quail-define-package
821 "cyrillic-yawerty" "Cyrillic" "\e,L6O\e(B" nil
822 "\e,LO25@BK\e(B Roman transcription.
823
824 This layout is based on Roman transcription by phonemic resemblance.
825 When preceded by a '/', the second and the third rows (number key row) change
826 as follows.
827
828 keytop | Q W E R T Y U I O P A S D
829 --------+---------------------------------------
830 input | \e,L"\e(B \e,L#\e(B \e,L$\e(B \e,L%\e(B \e,L&\e(B \e,L'\e(B \e,L(\e(B \e,L)\e(B \e,L*\e(B \e,L+\e(B \e,L,\e(B \e,L.\e(B \e,L/\e(B"
831 nil t t t t nil nil nil nil nil t)
832
833 ;; 1! 2\e,Lq\e(B 3\e,Lj\e(B 4\e,L!\e(B 5% 6^ 7& 8* 9( 0) -_ \e,LG\e(B \e,LN\e(B
834 ;; \e,LO\e(B \e,L2\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,LK\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,LI\e(B
835 ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L9\e(B \e,L:\e(B \e,L;\e(B ;: '" \e,LM\e(B
836 ;; \e,L7\e(B \e,LL\e(B \e,LF\e(B \e,L6\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,< .> /?
837
838 ;; 1! 2\e,Lq\e(B 3\e,Lj\e(B 4\e,L!\e(B 5% 6^ 7& 8* 9( 0) -_ \e,LG\e(B \e,LN\e(B
839 ;; \e,L"\e(B \e,L#\e(B \e,L$\e(B \e,L%\e(B \e,L&\e(B \e,L'\e(B \e,L(\e(B \e,L)\e(B \e,L*\e(B \e,L+\e(B \e,LH\e(B \e,LI\e(B
840 ;; \e,L,\e(B \e,L.\e(B \e,L/\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L9\e(B \e,L:\e(B \e,L;\e(B ;: '" \e,LM\e(B
841 ;; \e,L7\e(B \e,LL\e(B \e,LF\e(B \e,L6\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,< .> /?
842
843 (quail-define-rules
844 ("1" ?1)
845 ("2" ?2)
846 ("3" ?3)
847 ("4" ?4)
848 ("5" ?5)
849 ("6" ?6)
850 ("7" ?7)
851 ("8" ?8)
852 ("9" ?9)
853 ("0" ?0)
854 ("-" ?-)
855 ("=" ?\e,Lg\e(B)
856 ("`" ?\e,Ln\e(B)
857 ("q" ?\e,Lo\e(B)
858 ("w" ?\e,LR\e(B)
859 ("e" ?\e,LU\e(B)
860 ("r" ?\e,L`\e(B)
861 ("t" ?\e,Lb\e(B)
862 ("y" ?\e,Lk\e(B)
863 ("u" ?\e,Lc\e(B)
864 ("i" ?\e,LX\e(B)
865 ("o" ?\e,L^\e(B)
866 ("p" ?\e,L_\e(B)
867 ("[" ?\e,Lh\e(B)
868 ("]" ?\e,Li\e(B)
869 ("a" ?\e,LP\e(B)
870 ("s" ?\e,La\e(B)
871 ("d" ?\e,LT\e(B)
872 ("f" ?\e,Ld\e(B)
873 ("g" ?\e,LS\e(B)
874 ("h" ?\e,Le\e(B)
875 ("j" ?\e,LY\e(B)
876 ("k" ?\e,LZ\e(B)
877 ("l" ?\e,L[\e(B)
878 (";" ?\;)
879 ("'" ?')
880 ("\\" ?\e,Lm\e(B)
881 ("z" ?\e,LW\e(B)
882 ("x" ?\e,Ll\e(B)
883 ("c" ?\e,Lf\e(B)
884 ("v" ?\e,LV\e(B)
885 ("b" ?\e,LQ\e(B)
886 ("n" ?\e,L]\e(B)
887 ("m" ?\e,L\\e(B)
888 ("," ?,)
889 ("." ?.)
890 ("/" ?/)
891
892 ("!" ?!)
893 ("@" ?\e,Lq\e(B)
894 ("#" ?\e,Lj\e(B)
895 ("$" ?\e,L!\e(B)
896 ("%" ?%)
897 ("^" ?^)
898 ("&" ?&)
899 ("*" ?*)
900 ("(" ?\()
901 (")" ?\))
902 ("_" ?_)
903 ("+" ?\e,LG\e(B)
904 ("~" ?\e,LN\e(B)
905 ("Q" ?\e,LO\e(B)
906 ("W" ?\e,L2\e(B)
907 ("E" ?\e,L5\e(B)
908 ("R" ?\e,L@\e(B)
909 ("T" ?\e,LB\e(B)
910 ("Y" ?\e,LK\e(B)
911 ("U" ?\e,LC\e(B)
912 ("I" ?\e,L8\e(B)
913 ("O" ?\e,L>\e(B)
914 ("P" ?\e,L?\e(B)
915 ("{" ?\e,LH\e(B)
916 ("}" ?\e,LI\e(B)
917 ("A" ?\e,L0\e(B)
918 ("S" ?\e,LA\e(B)
919 ("D" ?\e,L4\e(B)
920 ("F" ?\e,LD\e(B)
921 ("G" ?\e,L3\e(B)
922 ("H" ?\e,LE\e(B)
923 ("J" ?\e,L9\e(B)
924 ("K" ?\e,L:\e(B)
925 ("L" ?\e,L;\e(B)
926 (":" ?:)
927 ("\"" ?\")
928 ("|" ?\e,LM\e(B)
929 ("Z" ?\e,L7\e(B)
930 ("X" ?\e,LL\e(B)
931 ("C" ?\e,LF\e(B)
932 ("V" ?\e,L6\e(B)
933 ("B" ?\e,L1\e(B)
934 ("N" ?\e,L=\e(B)
935 ("M" ?\e,L<\e(B)
936 ("<" ?<)
937 (">" ?>)
938 ("?" ??)
939
940 ("/q" ?\e,Lr\e(B)
941 ("/w" ?\e,Ls\e(B)
942 ("/e" ?\e,Lt\e(B)
943 ("/r" ?\e,Lu\e(B)
944 ("/t" ?\e,Lv\e(B)
945 ("/y" ?\e,Lw\e(B)
946 ("/u" ?\e,Lx\e(B)
947 ("/i" ?\e,Ly\e(B)
948 ("/o" ?\e,Lz\e(B)
949 ("/p" ?\e,L{\e(B)
950 ("/a" ?\e,L|\e(B)
951 ("/s" ?\e,L~\e(B)
952 ("/d" ?\e,L\7f\e(B)
953
954 ("/Q" ?\e,L"\e(B)
955 ("/W" ?\e,L#\e(B)
956 ("/E" ?\e,L$\e(B)
957 ("/R" ?\e,L%\e(B)
958 ("/T" ?\e,L&\e(B)
959 ("/Y" ?\e,L'\e(B)
960 ("/U" ?\e,L(\e(B)
961 ("/I" ?\e,L)\e(B)
962 ("/O" ?\e,L*\e(B)
963 ("/P" ?\e,L+\e(B)
964 ("/A" ?\e,L,\e(B)
965 ("/S" ?\e,L.\e(B)
966 ("/D" ?\e,L/\e(B))
967
968 ;; This was provided by Valery Alexeev <valery@domovoy.math.uga.edu>.
969
970 ;; Ognyan Kulev <ogi@fmi.uni-sofia.bg> wrote:
971
972 ;; I would suggest future `cyrillic-translit' to be with the
973 ;; modification of `cyrillic-translit-bulgarian' applied and the
974 ;; latter to disappear. It could be used by people who write
975 ;; bulgarian e-mails with latin letters for kick start (phonetic input
976 ;; method is not so obvious as translit input method but each letter
977 ;; is one keypress and a *lot* of people know it).
978
979 ;; Anton Zinoviev <anton@lml.bas.bg> wrote:
980 ;; I would say that the main idea for cyrillic-translit is to be
981 ;; language-independent and universal. It should be able to generate all
982 ;; Cyrillic symbols.
983 (quail-define-package
984 "cyrillic-translit" "Cyrillic" "\e,L6\e(Bt" nil
985 "Intuitively transliterated keyboard layout.
986 Most convenient for entering Russian but all Cyrillic characters are included.
987 Should handle most cases. However:
988 for \e,Lf\e(B (TSE) use \"c\", never \"ts\"
989 \e,Li\e(B (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"/sht\" or \"/t\",
990 \e,Lm\e(B (REVERSE ROUNDED E) = \"e'\" or \"e`\"
991 \e,Le\e(B (KHA) when after \e,La\e(B (S) = \"x\" or \"kh\"
992 \e,Lj\e(B (HARD SIGN) = \"~\", \e,LJ\e(B (CAPITAL HARD SIGN) = \"~~\",
993 \e,Ll\e(B (SOFT SIGN) = \"'\", \e,LL\e(B (CAPITAL SOFT SIGN) = \"''\",
994 \e,Lo\e(B (YA) = \"ya\", \"ja\" or \"q\".
995
996 Russian alphabet: a b v=w g d e yo=jo zh z i j=j' k l m n o p r s t
997 u f h=kh=x c ch sh shch=sj=/s=/sht ~ y ' e' yu=ju ya=ja=q
998
999 Also included are Ukrainian \e,Lt\e(B (YE) = \"/e\" and \e,Lw\e(B (YI) = \"yi\",
1000 Belarusian \e,L~\e(B (SHORT U) = \"u'\",
1001 Serbo-Croatian \e,Lr\e(B (DJE) = \"/d\", \e,L{\e(B (CHJE)= \"/ch\",
1002 Macedonian \e,Ls\e(B (GJE) = \"/g\", \e,Lu\e(B (DZE) = \"/s\", \e,L|\e(B (KJE) = \"/k\",
1003 cyrillic \e,Lv\e(B (I DECIMAL) = \"/i\", \e,Lx\e(B (JE) = \"/j\",
1004 \e,Ly\e(B (LJE) = \"/l\", \e,Lz\e(B (NJE) = \"/n\" and \e,L\7f\e(B (DZE) =\"/z\"."
1005 nil t t t t nil nil nil nil nil t)
1006
1007 (quail-define-rules
1008 ("a" ?\e,LP\e(B)("b" ?\e,LQ\e(B) ("v" ?\e,LR\e(B) ("w" ?\e,LR\e(B) ("g" ?\e,LS\e(B) ("d" ?\e,LT\e(B)
1009 ("e" ?\e,LU\e(B) ("je" ?\e,LU\e(B)
1010 ("yo" ?\e,Lq\e(B) ("jo" ?\e,Lq\e(B)
1011 ("zh" ?\e,LV\e(B) ("z" ?\e,LW\e(B) ("i" ?\e,LX\e(B)
1012 ("j" ?\e,LY\e(B) ("j'" ?\e,LY\e(B) ("j`" ?\e,LY\e(B) ("k" ?\e,LZ\e(B) ("l" ?\e,L[\e(B)
1013 ("m" ?\e,L\\e(B) ("n" ?\e,L]\e(B) ("o" ?\e,L^\e(B) ("p" ?\e,L_\e(B) ("r" ?\e,L`\e(B) ("s" ?\e,La\e(B) ("t" ?\e,Lb\e(B) ("u" ?\e,Lc\e(B)
1014 ("f" ?\e,Ld\e(B) ("x" ?\e,Le\e(B) ("h" ?\e,Le\e(B) ("kh" ?\e,Le\e(B)
1015 ("c" ?\e,Lf\e(B) ("ch" ?\e,Lg\e(B)
1016 ("sh" ?\e,Lh\e(B)
1017 ("shch" ?\e,Li\e(B) ("sj" ?\e,Li\e(B)
1018 ("/sht" ?\e,Li\e(B) ("/t" ?\e,Li\e(B)
1019 ("~" ?\e,Lj\e(B) ("y" ?\e,Lk\e(B) ("'" ?\e,Ll\e(B) ("`" ?\e,Ll\e(B)
1020 ("e'" ?\e,Lm\e(B) ("e`" ?\e,Lm\e(B) ("@" ?\e,Lm\e(B)
1021 ("yu" ?\e,Ln\e(B) ("ju" ?\e,Ln\e(B)
1022 ("ya" ?\e,Lo\e(B) ("ja" ?\e,Lo\e(B) ("q" ?\e,Lo\e(B)
1023
1024 ("A" ?\e,L0\e(B) ("B" ?\e,L1\e(B) ("V" ?\e,L2\e(B) ("W" ?\e,L2\e(B) ("G" ?\e,L3\e(B) ("D" ?\e,L4\e(B)
1025 ("E" ?\e,L5\e(B) ("Je" ?\e,L5\e(B) ("JE" ?\e,L5\e(B)
1026 ("Yo" ?\e,L!\e(B) ("YO" ?\e,L!\e(B) ("Jo" ?\e,L!\e(B) ("JO" ?\e,L!\e(B)
1027 ("Zh" ?\e,L6\e(B) ("ZH" ?\e,L6\e(B) ("Z" ?\e,L7\e(B) ("I" ?\e,L8\e(B)
1028 ("J" ?\e,L9\e(B) ("J'" ?\e,L9\e(B) ("J`" ?\e,L9\e(B) ("K" ?\e,L:\e(B) ("L" ?\e,L;\e(B)
1029 ("M" ?\e,L<\e(B) ("N" ?\e,L=\e(B) ("O" ?\e,L>\e(B) ("P" ?\e,L?\e(B) ("R" ?\e,L@\e(B) ("S" ?\e,LA\e(B) ("T" ?\e,LB\e(B) ("U" ?\e,LC\e(B)
1030 ("F" ?\e,LD\e(B) ("X" ?\e,LE\e(B) ("H" ?\e,LE\e(B) ("Kh" ?\e,LE\e(B) ("KH" ?\e,LE\e(B)
1031 ("C" ?\e,LF\e(B) ("Ch" ?\e,LG\e(B) ("CH" ?\e,LG\e(B)
1032 ("Sh" ?\e,LH\e(B) ("SH" ?\e,LH\e(B)
1033 ("Shch" ?\e,LI\e(B) ("SHCH" ?\e,LI\e(B) ("Sj" ?\e,LI\e(B) ("SJ" ?\e,LI\e(B)
1034 ("/Sht" ?\e,LI\e(B) ("/SHT" ?\e,LI\e(B) ("/T" ?\e,LI\e(B)
1035 ("~~" "\e,LJ\e(B") ("Y" ?\e,LK\e(B) ("''" "\e,LL\e(B") ("E'" ?\e,LM\e(B) ("E`" ?\e,LM\e(B)
1036 ("Yu" ?\e,LN\e(B) ("YU" ?\e,LN\e(B) ("Ju" ?\e,LN\e(B) ("JU" ?\e,LN\e(B)
1037 ("Ya" ?\e,LO\e(B) ("YA" ?\e,LO\e(B) ("Ja" ?\e,LO\e(B) ("JA" ?\e,LO\e(B) ("Q" ?\e,LO\e(B)
1038
1039 ("/e" ?\e,Lt\e(B) ("yi" ?\e,Lw\e(B) ("u'" ?\e,L~\e(B)
1040 ("/d" ?\e,Lr\e(B) ("/ch" ?\e,L{\e(B)
1041 ("/g" ?\e,Ls\e(B) ("/s" ?\e,Lu\e(B) ("/k" ?\e,L|\e(B)
1042 ("/i" ?\e,Lv\e(B) ("/j" ?\e,Lx\e(B) ("/l" ?\e,Ly\e(B) ("/n" ?\e,Lz\e(B) ("/z" ?\e,L\7f\e(B)
1043 ("/E" ?\e,L$\e(B) ("YE" ?\e,L$\e(B) ("Yi" ?\e,L'\e(B) ("YI" ?\e,L'\e(B) ("U'" ?\e,L.\e(B)
1044 ("/D" ?\e,L"\e(B) ("/Ch" ?\e,L+\e(B) ("/CH" ?\e,L+\e(B)
1045 ("/G" ?\e,L#\e(B) ("/S" ?\e,L%\e(B) ("/K" ?\e,L,\e(B)
1046 ("/I" ?\e,L&\e(B) ("/J" ?\e,L(\e(B) ("/L" ?\e,L)\e(B) ("/N" ?\e,L*\e(B) ("/Z" ?\e,L/\e(B)
1047 )
1048
1049 ;; Originally from Yudit's `Belarusian input table according to
1050 ;; STB955-94 belarusian standard' (not all) by Alexander Mikhailian
1051 ;; <mikhailian@altern.org>, subsequently amended by AM.
1052 (quail-define-package
1053 "belarusian" "Belarusian" "BE" nil
1054 "\e,L9FC:5=\e(B keyboard layout registered as STB955-94 Belarusian standard."
1055 nil t t t t nil nil nil nil nil t)
1056
1057 ;; \e,Lq!\e(B 1! 2" 3N 4; 5% 6: 7? 8* 9( 0) -_ =+
1058 ;; \e,L9\e(B \e,LF\e(B \e,LC\e(B \e,L:\e(B \e,L5\e(B \e,L=\e(B \e,L3\e(B \e,LH\e(B \e,L.\e(B \e,L7\e(B \e,LE\e(B '
1059 ;; \e,LD\e(B \e,LK\e(B \e,L2\e(B \e,L0\e(B \e,L?\e(B \e,L@\e(B \e,L>\e(B \e,L;\e(B \e,L4\e(B \e,L6\e(B \e,LM\e(B
1060 ;; \e,LO\e(B \e,LG\e(B \e,LA\e(B \e,L<\e(B \e,L&\e(B \e,LB\e(B \e,LL\e(B \e,L1\e(B \e,LN\e(B .,
1061
1062 (quail-define-rules
1063 ("~" ?\e,L!\e(B)
1064 ("@" ?\")
1065 ("#" ?\e,Lp\e(B)
1066 ("$" ?\;)
1067 ("%" ?%)
1068 ("^" ?:)
1069 ("&" ??)
1070 ("Q" ?\e,L9\e(B)
1071 ("W" ?\e,LF\e(B)
1072 ("E" ?\e,LC\e(B)
1073 ("R" ?\e,L:\e(B)
1074 ("T" ?\e,L5\e(B)
1075 ("Y" ?\e,L=\e(B)
1076 ("U" ?\e,L3\e(B)
1077 ("I" ?\e,LH\e(B)
1078 ("O" ?\e,L.\e(B)
1079 ("P" ?\e,L7\e(B)
1080 ("{" ?\e,LE\e(B)
1081 ("}" ?')
1082 ("A" ?\e,LD\e(B)
1083 ("S" ?\e,LK\e(B)
1084 ("D" ?\e,L2\e(B)
1085 ("F" ?\e,L0\e(B)
1086 ("G" ?\e,L?\e(B)
1087 ("H" ?\e,L@\e(B)
1088 ("J" ?\e,L>\e(B)
1089 ("K" ?\e,L;\e(B)
1090 ("L" ?\e,L4\e(B)
1091 (":" ?\e,L6\e(B)
1092 ("\"" ?\e,LM\e(B)
1093 ("|" ?|)
1094 ("Z" ?\e,LO\e(B)
1095 ("X" ?\e,LG\e(B)
1096 ("C" ?\e,LA\e(B)
1097 ("V" ?\e,L<\e(B)
1098 ("B" ?\e,L&\e(B)
1099 ("N" ?\e,LB\e(B)
1100 ("M" ?\e,LL\e(B)
1101 ("<" ?\e,L1\e(B)
1102 (">" ?\e,LN\e(B)
1103 ("?" ?,)
1104
1105 ("`" ?\e,Lq\e(B)
1106 ("q" ?\e,LY\e(B)
1107 ("w" ?\e,Lf\e(B)
1108 ("e" ?\e,Lc\e(B)
1109 ("r" ?\e,LZ\e(B)
1110 ("t" ?\e,LU\e(B)
1111 ("y" ?\e,L]\e(B)
1112 ("u" ?\e,LS\e(B)
1113 ("i" ?\e,Lh\e(B)
1114 ("o" ?\e,L~\e(B)
1115 ("p" ?\e,LW\e(B)
1116 ("[" ?\e,Le\e(B)
1117 ("]" ?')
1118 ("a" ?\e,Ld\e(B)
1119 ("s" ?\e,Lk\e(B)
1120 ("d" ?\e,LR\e(B)
1121 ("f" ?\e,LP\e(B)
1122 ("g" ?\e,L_\e(B)
1123 ("h" ?\e,L`\e(B)
1124 ("j" ?\e,L^\e(B)
1125 ("k" ?\e,L[\e(B)
1126 ("l" ?\e,LT\e(B)
1127 (";" ?\e,LV\e(B)
1128 ("'" ?\e,Lm\e(B)
1129 ("z" ?\e,Lo\e(B)
1130 ("x" ?\e,Lg\e(B)
1131 ("c" ?\e,La\e(B)
1132 ("v" ?\e,L\\e(B)
1133 ("b" ?\e,Lv\e(B)
1134 ("n" ?\e,Lb\e(B)
1135 ("m" ?\e,Ll\e(B)
1136 ("," ?\e,LQ\e(B)
1137 ("." ?\e,Ln\e(B)
1138 ("/" ?.))
1139
1140 ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov
1141 ;; <al_shopov@web.bg>.
1142
1143 ;; Extra commentary and the indicator from an independent
1144 ;; (cyrillic-iso8859-5) implementation by Ognyan Kulev
1145 ;; <ogi@fmi.uni-sofia.bg> and name changes from Anton Zinoviev
1146 ;; <anton@lml.bas.bg>.
1147 (quail-define-package
1148 "bulgarian-phonetic" "Bulgarian" "\e$,1(6(1(D\e(B"
1149 nil
1150 "Bulgarian Phonetic keyboard layout.
1151
1152 The layout is similar to `cyrillic-translit', but all Bulgarian
1153 characters are typed with a single key.
1154
1155 Use /& for \e,A'\e(B (Cyrillic paragraph) and /# for \e,Lp\e(B."
1156 nil t t t t nil nil nil nil nil t)
1157
1158 ;; \e,LO\e(B \e,L2\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,LJ\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,LI\e(B
1159 ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L9\e(B \e,L:\e(B \e,L;\e(B \e,LG\e(B
1160 ;; \e,LN\e(B \e,L7\e(B \e,LL\e(B \e,LF\e(B \e,L6\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B
1161
1162 (quail-define-rules
1163 ("/&" ?\e,A'\e(B)
1164 ("/#" ?\e,Lp\e(B)
1165 ("A" ?\e,L0\e(B)
1166 ("B" ?\e,L1\e(B)
1167 ("W" ?\e,L2\e(B)
1168 ("G" ?\e,L3\e(B)
1169 ("D" ?\e,L4\e(B)
1170 ("E" ?\e,L5\e(B)
1171 ("V" ?\e,L6\e(B)
1172 ("Z" ?\e,L7\e(B)
1173 ("I" ?\e,L8\e(B)
1174 ("J" ?\e,L9\e(B)
1175 ("K" ?\e,L:\e(B)
1176 ("L" ?\e,L;\e(B)
1177 ("M" ?\e,L<\e(B)
1178 ("N" ?\e,L=\e(B)
1179 ("O" ?\e,L>\e(B)
1180 ("P" ?\e,L?\e(B)
1181 ("R" ?\e,L@\e(B)
1182 ("S" ?\e,LA\e(B)
1183 ("T" ?\e,LB\e(B)
1184 ("U" ?\e,LC\e(B)
1185 ("F" ?\e,LD\e(B)
1186 ("H" ?\e,LE\e(B)
1187 ("C" ?\e,LF\e(B)
1188 ("~" ?\e,LG\e(B)
1189 ("{" ?\e,LH\e(B)
1190 ("}" ?\e,LI\e(B)
1191 ("Y" ?\e,LJ\e(B)
1192 ("X" ?\e,LL\e(B)
1193 ("|" ?\e,LN\e(B)
1194 ("Q" ?\e,LO\e(B)
1195 ("a" ?\e,LP\e(B)
1196 ("b" ?\e,LQ\e(B)
1197 ("w" ?\e,LR\e(B)
1198 ("g" ?\e,LS\e(B)
1199 ("d" ?\e,LT\e(B)
1200 ("e" ?\e,LU\e(B)
1201 ("v" ?\e,LV\e(B)
1202 ("z" ?\e,LW\e(B)
1203 ("i" ?\e,LX\e(B)
1204 ("j" ?\e,LY\e(B)
1205 ("k" ?\e,LZ\e(B)
1206 ("l" ?\e,L[\e(B)
1207 ("m" ?\e,L\\e(B)
1208 ("n" ?\e,L]\e(B)
1209 ("o" ?\e,L^\e(B)
1210 ("p" ?\e,L_\e(B)
1211 ("r" ?\e,L`\e(B)
1212 ("s" ?\e,La\e(B)
1213 ("t" ?\e,Lb\e(B)
1214 ("u" ?\e,Lc\e(B)
1215 ("f" ?\e,Ld\e(B)
1216 ("h" ?\e,Le\e(B)
1217 ("c" ?\e,Lf\e(B)
1218 ("`" ?\e,Lg\e(B)
1219 ("[" ?\e,Lh\e(B)
1220 ("]" ?\e,Li\e(B)
1221 ("y" ?\e,Lj\e(B)
1222 ("x" ?\e,Ll\e(B)
1223 ("\\" ?\e,Ln\e(B)
1224 ("|" ?\e,LN\e(B)
1225 ("q" ?\e,Lo\e(B))
1226
1227 ;; Based on an implementation by Ognyan Kulev <ogi@fmi.uni-sofia.bg>.
1228 ;; This follows XKB bg.
1229
1230 (quail-define-package
1231 "bulgarian-bds" "Bulgarian" "\e$,1(1(4(A\e(B" nil
1232 "Bulgarian standard keyboard layout (BDS)
1233
1234 This keyboard layout is standard for Bulgarian typewriters."
1235 nil t t t t nil nil nil nil nil t)
1236
1237 ;; 1! 2? 3+ 4" 5% 6= 7: 8/ 9_ 0\e,Lp\e(B -I .V
1238 ;; ,\e,Lk\e(B \e,LC\e(B \e,L5\e(B \e,L8\e(B \e,LH\e(B \e,LI\e(B \e,L:\e(B \e,LA\e(B \e,L4\e(B \e,L7\e(B \e,LF\e(B ;\e,A'\e(B
1239 ;; \e,Ll\e(B \e,LO\e(B \e,L0\e(B \e,L>\e(B \e,L6\e(B \e,L3\e(B \e,LB\e(B \e,L=\e(B \e,L2\e(B \e,L<\e(B \e,LG\e(B ()
1240 ;; \e,LN\e(B \e,L9\e(B \e,LJ\e(B \e,LM\e(B \e,LD\e(B \e,LE\e(B \e,L?\e(B \e,L@\e(B \e,L;\e(B \e,L1\e(B
1241
1242 (quail-define-rules
1243
1244 ("1" ?1) ("!" ?!)
1245 ("2" ?2)
1246 ("@" ??)
1247 ("3" ?3)
1248 ("#" ?+)
1249 ("4" ?4)
1250 ("$" ?\")
1251 ("5" ?5) ("%" ?%)
1252 ("6" ?6)
1253 ("^" ?=)
1254 ("7" ?7)
1255 ("&" ?:)
1256 ("8" ?8)
1257 ("*" ?/)
1258 ("9" ?9)
1259 ("(" ?_)
1260 ("0" ?0)
1261 (")" ?\e,Lp\e(B)
1262 ("-" ?-)
1263 ("_" ?I)
1264 ("=" ?.) ("+" ?V)
1265
1266 ("q" ?,) ("Q" ?\e,Lk\e(B)
1267 ("w" ?\e,Lc\e(B) ("W" ?\e,LC\e(B)
1268 ("e" ?\e,LU\e(B) ("E" ?\e,L5\e(B)
1269 ("r" ?\e,LX\e(B) ("R" ?\e,L8\e(B)
1270 ("t" ?\e,Lh\e(B) ("T" ?\e,LH\e(B)
1271 ("y" ?\e,Li\e(B) ("Y" ?\e,LI\e(B)
1272 ("u" ?\e,LZ\e(B) ("U" ?\e,L:\e(B)
1273 ("i" ?\e,La\e(B) ("I" ?\e,LA\e(B)
1274 ("o" ?\e,LT\e(B) ("O" ?\e,L4\e(B)
1275 ("p" ?\e,LW\e(B) ("P" ?\e,L7\e(B)
1276 ("[" ?\e,Lf\e(B) ("{" ?\e,LF\e(B)
1277 ("]" ?\;)
1278 ("}" ?\e,A'\e(B) ;; not in XKB's bg
1279
1280 ("a" ?\e,Ll\e(B) ("A" ?\e,LL\e(B)
1281 ("s" ?\e,Lo\e(B) ("S" ?\e,LO\e(B)
1282 ("d" ?\e,LP\e(B) ("D" ?\e,L0\e(B)
1283 ("f" ?\e,L^\e(B) ("F" ?\e,L>\e(B)
1284 ("g" ?\e,LV\e(B) ("G" ?\e,L6\e(B)
1285 ("h" ?\e,LS\e(B) ("H" ?\e,L3\e(B)
1286 ("j" ?\e,Lb\e(B) ("J" ?\e,LB\e(B)
1287 ("k" ?\e,L]\e(B) ("K" ?\e,L=\e(B)
1288 ("l" ?\e,LR\e(B) ("L" ?\e,L2\e(B)
1289 (";" ?\e,L\\e(B) (":" ?\e,L<\e(B)
1290 ("'" ?\e,Lg\e(B) ("\"" ?\e,LG\e(B)
1291 ("`" ?\() ("~" ?\))
1292
1293 ("z" ?\e,Ln\e(B) ("Z" ?\e,LN\e(B)
1294 ("x" ?\e,LY\e(B) ("X" ?\e,L9\e(B)
1295 ("c" ?\e,Lj\e(B) ("C" ?\e,LJ\e(B)
1296 ("v" ?\e,Lm\e(B) ("V" ?\e,LM\e(B)
1297 ("b" ?\e,Ld\e(B) ("B" ?\e,LD\e(B)
1298 ("n" ?\e,Le\e(B) ("N" ?\e,LE\e(B)
1299 ("m" ?\e,L_\e(B) ("M" ?\e,L?\e(B)
1300 ("," ?\e,L`\e(B) ("<" ?\e,L@\e(B)
1301 ("." ?\e,L[\e(B) (">" ?\e,L;\e(B)
1302 ("/" ?\e,LQ\e(B) ("?" ?\e,L1\e(B)
1303 ("\\" ?') ("|" ?\e,LK\e(B))
1304
1305 ;; Local Variables:
1306 ;; coding: iso-2022-7bit
1307 ;; End:
1308
1309 ;;; cyrillic.el ends here