]> code.delx.au - gnu-emacs/blob - leim/quail/cyrillic.el
delx.au / code / gnu-emacs / blob


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