*** empty log message ***
[emacs.git] / leim / quail / cyrillic.el
blob655c2053222227b4c785b3bb3a3342974b82b9d1
1 ;;; cyrillic.el --- Quail package for inputting Cyrillic characters
3 ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006
4 ;; Free Software Foundation, Inc.
5 ;; Copyright (C) 1997, 2003
6 ;; National Institute of Advanced Industrial Science and Technology (AIST)
7 ;; Registration Number H14PRO021
9 ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
10 ;; Keywords: multilingual, input method, Cyrillic, i18n
12 ;; This file is part of GNU Emacs.
14 ;; GNU Emacs is free software; you can redistribute it and/or modify
15 ;; it under the terms of the GNU General Public License as published by
16 ;; the Free Software Foundation; either version 2, or (at your option)
17 ;; any later version.
19 ;; GNU Emacs is distributed in the hope that it will be useful,
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 ;; GNU General Public License for more details.
24 ;; You should have received a copy of the GNU General Public License
25 ;; along with GNU Emacs; see the file COPYING. If not, write to the
26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
27 ;; Boston, MA 02110-1301, USA.
29 ;;; Commentary:
31 ;; These methods use a mixture of 8859-5 and Unicode. Quail, used
32 ;; with ucs-tables provides suport for translating on the fly to
33 ;; what's appropriate for aa buffer's file coding system, so the
34 ;; encoding shouldn't matter too much provided it supports the
35 ;; necessary characters.
37 ;;; Code:
39 (require 'quail)
41 ;; This was `cyrillic-jcuken'. Alexander Mikhailian
42 ;; <mikhailian@altern.org> says: "cyrillic-jcuken" is actually
43 ;; russian. It is ok but a bit outdated. This layout has been used
44 ;; in typewriters for ages but it has been superceeded on desktops by
45 ;; a variation of this layout, implemented in M$ Windows software.
46 ;; The Windows layout is greatly preferred because of the comma and
47 ;; period being placed more conviniently and, of course, because of
48 ;; the popularity of Windows software. This layout is a common option
49 ;; in X Windows and console layouts for GNU/Linux. [See
50 ;; `russian-computer' below.]
51 (quail-define-package
52 "russian-typewriter" "Russian" "\e,L69\e(B" nil
53 "\e,L9FC:5=\e(B Russian typewriter layout (ISO 8859-5 encoding)."
54 nil t t t t nil nil nil nil nil t)
56 ;; 1! 2" 3' 4* 5: 6, 7. 8; 9( 0) -_ =+ \e,L!\e(B
57 ;; \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
58 ;; \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
59 ;; \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 /?
61 (quail-define-rules
62 ("1" ?1)
63 ("2" ?2)
64 ("3" ?3)
65 ("4" ?4)
66 ("5" ?5)
67 ("6" ?6)
68 ("7" ?7)
69 ("8" ?8)
70 ("9" ?9)
71 ("0" ?0)
72 ("-" ?-)
73 ("=" ?=)
74 ("`" ?\e,Lq\e(B)
75 ("q" ?\e,LY\e(B)
76 ("w" ?\e,Lf\e(B)
77 ("e" ?\e,Lc\e(B)
78 ("r" ?\e,LZ\e(B)
79 ("t" ?\e,LU\e(B)
80 ("y" ?\e,L]\e(B)
81 ("u" ?\e,LS\e(B)
82 ("i" ?\e,Lh\e(B)
83 ("o" ?\e,Li\e(B)
84 ("p" ?\e,LW\e(B)
85 ("[" ?\e,Le\e(B)
86 ("]" ?\e,Lj\e(B)
87 ("a" ?\e,Ld\e(B)
88 ("s" ?\e,Lk\e(B)
89 ("d" ?\e,LR\e(B)
90 ("f" ?\e,LP\e(B)
91 ("g" ?\e,L_\e(B)
92 ("h" ?\e,L`\e(B)
93 ("j" ?\e,L^\e(B)
94 ("k" ?\e,L[\e(B)
95 ("l" ?\e,LT\e(B)
96 (";" ?\e,LV\e(B)
97 ("'" ?\e,Lm\e(B)
98 ("\\" ?\\)
99 ("z" ?\e,Lo\e(B)
100 ("x" ?\e,Lg\e(B)
101 ("c" ?\e,La\e(B)
102 ("v" ?\e,L\\e(B)
103 ("b" ?\e,LX\e(B)
104 ("n" ?\e,Lb\e(B)
105 ("m" ?\e,Ll\e(B)
106 ("," ?\e,LQ\e(B)
107 ("." ?\e,Ln\e(B)
108 ("/" ?/)
110 ("!" ?!)
111 ("@" ?\")
112 ("#" ?')
113 ("$" ?*)
114 ("%" ?:)
115 ("^" ?,)
116 ("&" ?.)
117 ("*" ?\;)
118 ("(" ?\()
119 (")" ?\))
120 ("_" ?_)
121 ("+" ?+)
122 ("~" ?\e,L!\e(B)
123 ("Q" ?\e,L9\e(B)
124 ("W" ?\e,LF\e(B)
125 ("E" ?\e,LC\e(B)
126 ("R" ?\e,L:\e(B)
127 ("T" ?\e,L5\e(B)
128 ("Y" ?\e,L=\e(B)
129 ("U" ?\e,L3\e(B)
130 ("I" ?\e,LH\e(B)
131 ("O" ?\e,LI\e(B)
132 ("P" ?\e,L7\e(B)
133 ("{" ?\e,LE\e(B)
134 ("}" ?\e,LJ\e(B)
135 ("A" ?\e,LD\e(B)
136 ("S" ?\e,LK\e(B)
137 ("D" ?\e,L2\e(B)
138 ("F" ?\e,L0\e(B)
139 ("G" ?\e,L?\e(B)
140 ("H" ?\e,L@\e(B)
141 ("J" ?\e,L>\e(B)
142 ("K" ?\e,L;\e(B)
143 ("L" ?\e,L4\e(B)
144 (":" ?\e,L6\e(B)
145 ("\"" ?\e,LM\e(B)
146 ("|" ?|)
147 ("Z" ?\e,LO\e(B)
148 ("X" ?\e,LG\e(B)
149 ("C" ?\e,LA\e(B)
150 ("V" ?\e,L<\e(B)
151 ("B" ?\e,L8\e(B)
152 ("N" ?\e,LB\e(B)
153 ("M" ?\e,LL\e(B)
154 ("<" ?\e,L1\e(B)
155 (">" ?\e,LN\e(B)
156 ("?" ??)
159 ;; Maintain the obsolete name for now.
160 (push (cons "cyrillic-jcuken"
161 (cdr (assoc "russian-typewriter" quail-package-alist)))
162 quail-package-alist)
164 ;; This needs to be seen by quail-update-leim-list-file, but cannot be
165 ;; commented out because quail-update-leim-list-file ignores
166 ;; commented-out lines.
167 (if nil
168 (quail-define-package
169 "cyrillic-jcuken" "Russian" "\e,L69\e(B" nil
170 "\e,L9FC:5=\e(B Russian typewriter layout (ISO 8859-5 encoding)."))
172 ;; See comment above. This is the variant `winkeys' from `ru' in XKB.
173 (quail-define-package
174 "russian-computer" "Russian" "RU" nil
175 "\e,L9FC:5=\e(B Russian computer layout"
176 nil t t t t nil nil nil nil nil t)
178 ;; 1! 2" 3\e,Lp\e(B 4; 5% 6: 7? 8* 9( 0) -_ =+ \e,Lq!\e(B
179 ;; \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
180 ;; \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
181 ;; \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 .,
183 (quail-define-rules
184 ("1" ?1)
185 ("2" ?2)
186 ("3" ?3)
187 ("4" ?4)
188 ("5" ?5)
189 ("6" ?6)
190 ("7" ?7)
191 ("8" ?8)
192 ("9" ?9)
193 ("0" ?0)
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 ("?" ?,))
279 ;; Mikhailian couldn't check the next two.
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 (ISO 8859-5 encoding)"
286 nil t t t t nil nil nil nil nil t)
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 ,; .: -_
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\x7f\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 ("/" ?-)
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 ("?" ?_))
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 (ISO 8859-5 encoding)"
395 nil t t t t nil nil nil nil nil t)
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 ,; .: -_
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\x7f\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 ("/" ?-)
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 ("?" ?_))
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.
510 ;; [`derived from JUS.I.K1' according to an old Mule note -- fx]
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)
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 ,; .: -_
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\x7f\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 ;; ("/" ?-)
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 ;; ("?" ?_))
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.]
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 (ISO 8859-5 encoding)
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)
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 ,; .: -_
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\x7f\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 ("/" ?-)
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 ("?" ?_))
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)
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 .,
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))
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 (ISO 8859-5 encoding)
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.
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)
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 ,< .> /?
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 ,< .> /?
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 ("/" ?/)
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 ("?" ??)
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\x7f\e(B)
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))
986 ;; This was provided by Valery Alexeev <valery@domovoy.math.uga.edu>.
988 ;; Ognyan Kulev <ogi@fmi.uni-sofia.bg> wrote:
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).
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'\" or \"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\".
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
1017 Also included are Ukrainian \e,Lt\e(B (YE) = \"/e\" and \e,Lw\e(B (YI) = \"yi\",
1018 Belarusian \e,L~\e(B (SHORT U) = \"u'\",
1019 Serbo-Croatian \e,Lr\e(B (DJE) = \"/d\", \e,L{\e(B (CHJE)= \"/ch\",
1020 Macedonian \e,Ls\e(B (GJE) = \"/g\", \e,Lu\e(B (DZE) = \"/s\", \e,L|\e(B (KJE) = \"/k\",
1021 cyrillic \e,Lv\e(B (I DECIMAL) = \"/i\", \e,Lx\e(B (JE) = \"/j\",
1022 \e,Ly\e(B (LJE) = \"/l\", \e,Lz\e(B (NJE) = \"/n\" and \e,L\x7f\e(B (DZE) =\"/z\"."
1023 nil t t t t nil nil nil nil nil t)
1025 (quail-define-rules
1026 ("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)
1027 ("e" ?\e,LU\e(B) ("je" ?\e,LU\e(B)
1028 ("yo" ?\e,Lq\e(B) ("jo" ?\e,Lq\e(B)
1029 ("zh" ?\e,LV\e(B) ("z" ?\e,LW\e(B) ("i" ?\e,LX\e(B)
1030 ("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)
1031 ("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)
1032 ("f" ?\e,Ld\e(B) ("x" ?\e,Le\e(B) ("h" ?\e,Le\e(B) ("kh" ?\e,Le\e(B)
1033 ("c" ?\e,Lf\e(B) ("ch" ?\e,Lg\e(B)
1034 ("sh" ?\e,Lh\e(B)
1035 ("shch" ?\e,Li\e(B) ("sj" ?\e,Li\e(B)
1036 ("/sht" ?\e,Li\e(B) ("/t" ?\e,Li\e(B)
1037 ("~" ?\e,Lj\e(B) ("y" ?\e,Lk\e(B) ("'" ?\e,Ll\e(B) ("`" ?\e,Ll\e(B)
1038 ("e'" ?\e,Lm\e(B) ("e`" ?\e,Lm\e(B) ("@" ?\e,Lm\e(B)
1039 ("yu" ?\e,Ln\e(B) ("ju" ?\e,Ln\e(B)
1040 ("ya" ?\e,Lo\e(B) ("ja" ?\e,Lo\e(B) ("q" ?\e,Lo\e(B)
1042 ("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)
1043 ("E" ?\e,L5\e(B) ("Je" ?\e,L5\e(B) ("JE" ?\e,L5\e(B)
1044 ("Yo" ?\e,L!\e(B) ("YO" ?\e,L!\e(B) ("Jo" ?\e,L!\e(B) ("JO" ?\e,L!\e(B)
1045 ("Zh" ?\e,L6\e(B) ("ZH" ?\e,L6\e(B) ("Z" ?\e,L7\e(B) ("I" ?\e,L8\e(B)
1046 ("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)
1047 ("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)
1048 ("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)
1049 ("C" ?\e,LF\e(B) ("Ch" ?\e,LG\e(B) ("CH" ?\e,LG\e(B)
1050 ("Sh" ?\e,LH\e(B) ("SH" ?\e,LH\e(B)
1051 ("Shch" ?\e,LI\e(B) ("SHCH" ?\e,LI\e(B) ("Sj" ?\e,LI\e(B) ("SJ" ?\e,LI\e(B)
1052 ("/Sht" ?\e,LI\e(B) ("/SHT" ?\e,LI\e(B) ("/T" ?\e,LI\e(B)
1053 ("~~" "\e,LJ\e(B") ("Y" ?\e,LK\e(B) ("''" "\e,LL\e(B") ("E'" ?\e,LM\e(B) ("E`" ?\e,LM\e(B)
1054 ("Yu" ?\e,LN\e(B) ("YU" ?\e,LN\e(B) ("Ju" ?\e,LN\e(B) ("JU" ?\e,LN\e(B)
1055 ("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)
1057 ("/e" ?\e,Lt\e(B) ("yi" ?\e,Lw\e(B) ("u'" ?\e,L~\e(B)
1058 ("/d" ?\e,Lr\e(B) ("/ch" ?\e,L{\e(B)
1059 ("/g" ?\e,Ls\e(B) ("/s" ?\e,Lu\e(B) ("/k" ?\e,L|\e(B)
1060 ("/i" ?\e,Lv\e(B) ("/j" ?\e,Lx\e(B) ("/l" ?\e,Ly\e(B) ("/n" ?\e,Lz\e(B) ("/z" ?\e,L\x7f\e(B)
1061 ("/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)
1062 ("/D" ?\e,L"\e(B) ("/Ch" ?\e,L+\e(B) ("/CH" ?\e,L+\e(B)
1063 ("/G" ?\e,L#\e(B) ("/S" ?\e,L%\e(B) ("/K" ?\e,L,\e(B)
1064 ("/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)
1067 ;; Originally from Yudit's `Belarusian input table according to
1068 ;; STB955-94 belarusian standard' (not all) by Alexander Mikhailian
1069 ;; <mikhailian@altern.org>, subsequently amended by AM.
1070 (quail-define-package
1071 "belarusian" "Belarusian" "BE" nil
1072 "\e$,1(9(F(C(:(5(=\e(B keyboard layout registered as STB955-94 Belarusian standard.
1073 Unicode based."
1074 nil t t t t nil nil nil nil nil t)
1076 ;; \e$,1(q(!\e(B 1! 2" 3N 4; 5% 6: 7? 8* 9( 0) -_ =+
1077 ;; \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 '
1078 ;; \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
1079 ;; \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 .,
1081 (quail-define-rules
1082 ("~" ?\e$,1(!\e(B)
1083 ("@" ?\")
1084 ("#" ?\e$,1uV\e(B)
1085 ("$" ?\;)
1086 ("%" ?%)
1087 ("^" ?:)
1088 ("&" ??)
1089 ("Q" ?\e$,1(9\e(B)
1090 ("W" ?\e$,1(F\e(B)
1091 ("E" ?\e$,1(C\e(B)
1092 ("R" ?\e$,1(:\e(B)
1093 ("T" ?\e$,1(5\e(B)
1094 ("Y" ?\e$,1(=\e(B)
1095 ("U" ?\e$,1(3\e(B)
1096 ("I" ?\e$,1(H\e(B)
1097 ("O" ?\e$,1(.\e(B)
1098 ("P" ?\e$,1(7\e(B)
1099 ("{" ?\e$,1(E\e(B)
1100 ("}" ?')
1101 ("A" ?\e$,1(D\e(B)
1102 ("S" ?\e$,1(K\e(B)
1103 ("D" ?\e$,1(2\e(B)
1104 ("F" ?\e$,1(0\e(B)
1105 ("G" ?\e$,1(?\e(B)
1106 ("H" ?\e$,1(@\e(B)
1107 ("J" ?\e$,1(>\e(B)
1108 ("K" ?\e$,1(;\e(B)
1109 ("L" ?\e$,1(4\e(B)
1110 (":" ?\e$,1(6\e(B)
1111 ("\"" ?\e$,1(M\e(B)
1112 ("|" ?|)
1113 ("Z" ?\e$,1(O\e(B)
1114 ("X" ?\e$,1(G\e(B)
1115 ("C" ?\e$,1(A\e(B)
1116 ("V" ?\e$,1(<\e(B)
1117 ("B" ?\e$,1(&\e(B)
1118 ("N" ?\e$,1(B\e(B)
1119 ("M" ?\e$,1(L\e(B)
1120 ("<" ?\e$,1(1\e(B)
1121 (">" ?\e$,1(N\e(B)
1122 ("?" ?,)
1124 ("`" ?\e$,1(q\e(B)
1125 ("q" ?\e$,1(Y\e(B)
1126 ("w" ?\e$,1(f\e(B)
1127 ("e" ?\e$,1(c\e(B)
1128 ("r" ?\e$,1(Z\e(B)
1129 ("t" ?\e$,1(U\e(B)
1130 ("y" ?\e$,1(]\e(B)
1131 ("u" ?\e$,1(S\e(B)
1132 ("i" ?\e$,1(h\e(B)
1133 ("o" ?\e$,1(~\e(B)
1134 ("p" ?\e$,1(W\e(B)
1135 ("[" ?\e$,1(e\e(B)
1136 ("]" ?')
1137 ("a" ?\e$,1(d\e(B)
1138 ("s" ?\e$,1(k\e(B)
1139 ("d" ?\e$,1(R\e(B)
1140 ("f" ?\e$,1(P\e(B)
1141 ("g" ?\e$,1(_\e(B)
1142 ("h" ?\e$,1(`\e(B)
1143 ("j" ?\e$,1(^\e(B)
1144 ("k" ?\e$,1([\e(B)
1145 ("l" ?\e$,1(T\e(B)
1146 (";" ?\e$,1(V\e(B)
1147 ("'" ?\e$,1(m\e(B)
1148 ("z" ?\e$,1(o\e(B)
1149 ("x" ?\e$,1(g\e(B)
1150 ("c" ?\e$,1(a\e(B)
1151 ("v" ?\e$,1(\\e(B)
1152 ("b" ?\e$,1(v\e(B)
1153 ("n" ?\e$,1(b\e(B)
1154 ("m" ?\e$,1(l\e(B)
1155 ("," ?\e$,1(Q\e(B)
1156 ("." ?\e$,1(n\e(B)
1157 ("/" ?.))
1159 ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov
1160 ;; <al_shopov@web.bg>.
1162 ;; Extra commentary and the indicator from an independent
1163 ;; (cyrillic-iso8859-5) implementation by Ognyan Kulev
1164 ;; <ogi@fmi.uni-sofia.bg> and name changes from Anton Zinoviev
1165 ;; <anton@lml.bas.bg>.
1166 (quail-define-package
1167 "bulgarian-phonetic" "Bulgarian" "\e$,1(6(1(D\e(B"
1169 "Bulgarian Phonetic keyboard layout, producing Unicode.
1171 The layout is similar to `cyrillic-translit', but all Bulgarian
1172 characters are typed with a single key.
1174 Use /& for \e,A'\e(B (Cyrillic paragraph) and /# for \e$,1uV\e(B.
1176 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."
1177 nil t t t t nil nil nil nil nil t)
1179 ;; \e$,1(G\e(B
1180 ;; \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
1181 ;; \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
1182 ;; \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
1184 (quail-define-rules
1185 ("/&" ?\e,A'\e(B)
1186 ("/#" ?\e$,1uV\e(B)
1187 ("A" ?\e$,1(0\e(B)
1188 ("B" ?\e$,1(1\e(B)
1189 ("W" ?\e$,1(2\e(B)
1190 ("G" ?\e$,1(3\e(B)
1191 ("D" ?\e$,1(4\e(B)
1192 ("E" ?\e$,1(5\e(B)
1193 ("V" ?\e$,1(6\e(B)
1194 ("Z" ?\e$,1(7\e(B)
1195 ("I" ?\e$,1(8\e(B)
1196 ("J" ?\e$,1(9\e(B)
1197 ("K" ?\e$,1(:\e(B)
1198 ("L" ?\e$,1(;\e(B)
1199 ("M" ?\e$,1(<\e(B)
1200 ("N" ?\e$,1(=\e(B)
1201 ("O" ?\e$,1(>\e(B)
1202 ("P" ?\e$,1(?\e(B)
1203 ("R" ?\e$,1(@\e(B)
1204 ("S" ?\e$,1(A\e(B)
1205 ("T" ?\e$,1(B\e(B)
1206 ("U" ?\e$,1(C\e(B)
1207 ("F" ?\e$,1(D\e(B)
1208 ("H" ?\e$,1(E\e(B)
1209 ("C" ?\e$,1(F\e(B)
1210 ("~" ?\e$,1(G\e(B)
1211 ("{" ?\e$,1(H\e(B)
1212 ("}" ?\e$,1(I\e(B)
1213 ("Y" ?\e$,1(J\e(B)
1214 ("X" ?\e$,1(L\e(B)
1215 ("|" ?\e$,1(N\e(B)
1216 ("Q" ?\e$,1(O\e(B)
1217 ("a" ?\e$,1(P\e(B)
1218 ("b" ?\e$,1(Q\e(B)
1219 ("w" ?\e$,1(R\e(B)
1220 ("g" ?\e$,1(S\e(B)
1221 ("d" ?\e$,1(T\e(B)
1222 ("e" ?\e$,1(U\e(B)
1223 ("v" ?\e$,1(V\e(B)
1224 ("z" ?\e$,1(W\e(B)
1225 ("i" ?\e$,1(X\e(B)
1226 ("j" ?\e$,1(Y\e(B)
1227 ("k" ?\e$,1(Z\e(B)
1228 ("l" ?\e$,1([\e(B)
1229 ("m" ?\e$,1(\\e(B)
1230 ("n" ?\e$,1(]\e(B)
1231 ("o" ?\e$,1(^\e(B)
1232 ("p" ?\e$,1(_\e(B)
1233 ("r" ?\e$,1(`\e(B)
1234 ("s" ?\e$,1(a\e(B)
1235 ("t" ?\e$,1(b\e(B)
1236 ("u" ?\e$,1(c\e(B)
1237 ("f" ?\e$,1(d\e(B)
1238 ("h" ?\e$,1(e\e(B)
1239 ("c" ?\e$,1(f\e(B)
1240 ("`" ?\e$,1(g\e(B)
1241 ("[" ?\e$,1(h\e(B)
1242 ("]" ?\e$,1(i\e(B)
1243 ("y" ?\e$,1(j\e(B)
1244 ("x" ?\e$,1(l\e(B)
1245 ("\\" ?\e$,1(n\e(B)
1246 ("q" ?\e$,1(o\e(B))
1248 ;; Based on an implementation by Ognyan Kulev <ogi@fmi.uni-sofia.bg>.
1249 ;; This follows XKB bg.
1251 (quail-define-package
1252 "bulgarian-bds" "Bulgarian" "\e$,1(1(4(A\e(B" nil
1253 "Bulgarian standard keyboard layout (BDS)
1255 This keyboard layout is standard for Bulgarian typewriters.
1257 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.
1259 In addition to original Bulgarian typewriter layout, keys \\ and |
1260 are transformed into ' and \e$,1(K\e(B respectively. Some keyboards mark these
1261 keys as being transformed into ( and ) respectively. For ( and ), use
1262 ` and ~ respectively. This input method follows XKB."
1263 nil t t t t nil nil nil nil nil t)
1265 ;; () 1! 2? 3+ 4" 5% 6= 7: 8/ 9_ 0\e$,1uV\e(B -I .V
1266 ;; ,\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
1267 ;; \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
1268 ;; \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
1270 (quail-define-rules
1272 ("1" ?1) ("!" ?!)
1273 ("2" ?2) ("@" ??)
1274 ("3" ?3) ("#" ?+)
1275 ("4" ?4) ("$" ?\")
1276 ("5" ?5) ("%" ?%)
1277 ("6" ?6) ("^" ?=)
1278 ("7" ?7) ("&" ?:)
1279 ("8" ?8) ("*" ?/)
1280 ("9" ?9) ("(" ?_)
1281 ("0" ?0) (")" ?\e$,1uV\e(B)
1282 ("-" ?-) ("_" ?I)
1283 ("=" ?.) ("+" ?V)
1285 ("q" ?,) ("Q" ?\e$,1(k\e(B)
1286 ("w" ?\e$,1(c\e(B) ("W" ?\e$,1(C\e(B)
1287 ("e" ?\e$,1(U\e(B) ("E" ?\e$,1(5\e(B)
1288 ("r" ?\e$,1(X\e(B) ("R" ?\e$,1(8\e(B)
1289 ("t" ?\e$,1(h\e(B) ("T" ?\e$,1(H\e(B)
1290 ("y" ?\e$,1(i\e(B) ("Y" ?\e$,1(I\e(B)
1291 ("u" ?\e$,1(Z\e(B) ("U" ?\e$,1(:\e(B)
1292 ("i" ?\e$,1(a\e(B) ("I" ?\e$,1(A\e(B)
1293 ("o" ?\e$,1(T\e(B) ("O" ?\e$,1(4\e(B)
1294 ("p" ?\e$,1(W\e(B) ("P" ?\e$,1(7\e(B)
1295 ("[" ?\e$,1(f\e(B) ("{" ?\e$,1(F\e(B)
1296 ("]" ?\;) ("}" ?\e,A'\e(B)
1298 ("a" ?\e$,1(l\e(B) ("A" ?\e$,1(L\e(B)
1299 ("s" ?\e$,1(o\e(B) ("S" ?\e$,1(O\e(B)
1300 ("d" ?\e$,1(P\e(B) ("D" ?\e$,1(0\e(B)
1301 ("f" ?\e$,1(^\e(B) ("F" ?\e$,1(>\e(B)
1302 ("g" ?\e$,1(V\e(B) ("G" ?\e$,1(6\e(B)
1303 ("h" ?\e$,1(S\e(B) ("H" ?\e$,1(3\e(B)
1304 ("j" ?\e$,1(b\e(B) ("J" ?\e$,1(B\e(B)
1305 ("k" ?\e$,1(]\e(B) ("K" ?\e$,1(=\e(B)
1306 ("l" ?\e$,1(R\e(B) ("L" ?\e$,1(2\e(B)
1307 (";" ?\e$,1(\\e(B) (":" ?\e$,1(<\e(B)
1308 ("'" ?\e$,1(g\e(B) ("\"" ?\e$,1(G\e(B)
1309 ("`" ?\() ("~" ?\))
1311 ("z" ?\e$,1(n\e(B) ("Z" ?\e$,1(N\e(B)
1312 ("x" ?\e$,1(Y\e(B) ("X" ?\e$,1(9\e(B)
1313 ("c" ?\e$,1(j\e(B) ("C" ?\e$,1(J\e(B)
1314 ("v" ?\e$,1(m\e(B) ("V" ?\e$,1(M\e(B)
1315 ("b" ?\e$,1(d\e(B) ("B" ?\e$,1(D\e(B)
1316 ("n" ?\e$,1(e\e(B) ("N" ?\e$,1(E\e(B)
1317 ("m" ?\e$,1(_\e(B) ("M" ?\e$,1(?\e(B)
1318 ("," ?\e$,1(`\e(B) ("<" ?\e$,1(@\e(B)
1319 ("." ?\e$,1([\e(B) (">" ?\e$,1(;\e(B)
1320 ("/" ?\e$,1(Q\e(B) ("?" ?\e$,1(1\e(B)
1321 ("\\" ?') ("|" ?\e$,1(K\e(B))
1323 ;; Local Variables:
1324 ;; coding: iso-2022-7bit
1325 ;; End:
1327 ;;; arch-tag: e6d34b16-8710-4181-a17e-819a1df0334f
1328 ;;; cyrillic.el ends here