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