-;;; quail/cyrillic.el -- Quail package for inputting Cyrillic characters
+;;; cyrillic.el --- Quail package for inputting Cyrillic characters
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
+;; Copyright (C) 2001 Free Software Foundation, Inc.
;; Keywords: multilingual, input method, Cyrillic
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(require 'quail)
(quail-define-package
"cyrillic-jcuken" "Cyrillic" "\e,L69\e(B" nil
"\e,L9FC:5=\e(B keyboard layout widely used in Russia (ISO 8859-5 encoding)"
- nil t t t t)
+ nil t t t t nil nil nil nil nil t)
-;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ \e,L!\e(B
+;; 1! 2" 3' 4* 5: 6, 7. 8; 9( 0) -_ =+ \e,L!\e(B
;; \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
;; \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
;; \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 /?
("/" ?/)
("!" ?!)
- ("@" ?@)
- ("#" ?#)
- ("$" ?\")
+ ("@" ?\")
+ ("#" ?')
+ ("$" ?*)
("%" ?:)
("^" ?,)
("&" ?.)
- ("*" ?*)
+ ("*" ?\;)
("(" ?()
(")" ?))
("_" ?_)
(quail-define-package
"cyrillic-macedonian" "Cyrillic" "\e,L6\e(BM" nil
"\e,L)*5@B7\e(B-\e,L#,\e(B keyboard layout based on JUS.I.K1.004 (ISO 8859-5 encoding)"
- nil t t t t)
+ nil t t t t nil nil nil nil nil t)
;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
;; \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
(quail-define-package
"cyrillic-serbian" "Cyrillic" "\e,L6\e(BS" nil
"\e,L)*5@B7\e(B-\e,L"+\e(B keyboard layout based on JUS.I.K1.005 (ISO 8859-5 encoding)"
- nil t t t t)
+ nil t t t t nil nil nil nil nil t)
;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
;; \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
(quail-define-package
"cyrillic-beylorussian" "Cyrillic" "\e,L6\e(BB" nil
"\e,L)*5@B7\e(B-\e,L&.\e(B BEYLORUSSIAN (ISO 8859-5 encoding)"
- nil t t t t)
+ nil t t t t nil nil nil nil nil t)
;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
;; \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
"\e,L$'5@B7\e(B-\e,L&.\e(B UKRAINIAN (ISO 8859-5 encoding)
Sorry, but 'ghe with upturn' is not included in ISO 8859-5"
- nil t t t t)
+ nil t t t t nil nil nil nil nil t)
;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
;; \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
keytop | Q W E R T Y U I O P A S D
--------+---------------------------------------
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"
- nil t t t t)
+ nil t t t t nil nil nil nil nil t)
;; 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
;; \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
(quail-define-package
"cyrillic-translit" "Cyrillic" "\e,L6\e(Bt" nil
- "Intuitively transliterated keybooard layout.
+ "Intuitively transliterated keyboard layout.
Most convenient for entering Russian but all cyrillic characters are included.
Should handle most cases. However:
for \e,Lf\e(B (TSE) use \"c\", never \"ts\"
- \e,Li\e(B (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"\\sht\" or \"\\t\",
+ \e,Li\e(B (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"/sht\" or \"/t\",
\e,Lm\e(B (REVERSE ROUNDED E) = \"e'\" or \"e`\"
\e,Le\e(B (KHA) when after \e,La\e(B (S) = \"x\" or \"kh\"
\e,Lj\e(B (HARD SIGN) = \"~\", \e,LJ\e(B (CAPITAL HARD SIGN) = \"~~\",
\e,Lo\e(B (YA) = \"ya\", \"ja\" or \"q\".
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
-u f h=kh=x c ch sh shch=sj=\\s=\\sht ~ y ' yu=ju ya=ja=q
+u f h=kh=x c ch sh shch=sj=/s=/sht ~ y ' e' yu=ju ya=ja=q
-Also included are Ukranian \e,Lt\e(B (YE) = \"\\e\" and \e,Lw\e(B (YI) = \"yi\",
+Also included are Ukrainian \e,Lt\e(B (YE) = \"/e\" and \e,Lw\e(B (YI) = \"yi\",
Belorussian \e,L~\e(B (SHORT U) = \"u'\",
-Serbocroatian \e,Lr\e(B (DJE) = \"\\d\", \e,L{\e(B (CHJE)= \"\\ch\",
-Macedonian \e,Ls\e(B (GJE) = \"\\g\", \e,Lu\e(B (DZE) = \"\\s\", \e,L|\e(B (KJE) = \"\\k\",
-cyrillic \e,Lv\e(B (I DECIMAL) = \"\\i\", \e,Lx\e(B (JE) = \"\\j\",
-\e,Ly\e(B (LJE) = \"\\l\", \e,Lz\e(B (NJE) = \"\\n\" and \e,L\7f\e(B (DZE) =\"\\z\"."
- nil t t t t)
+Serbo-Croatian \e,Lr\e(B (DJE) = \"/d\", \e,L{\e(B (CHJE)= \"/ch\",
+Macedonian \e,Ls\e(B (GJE) = \"/g\", \e,Lu\e(B (DZE) = \"/s\", \e,L|\e(B (KJE) = \"/k\",
+cyrillic \e,Lv\e(B (I DECIMAL) = \"/i\", \e,Lx\e(B (JE) = \"/j\",
+\e,Ly\e(B (LJE) = \"/l\", \e,Lz\e(B (NJE) = \"/n\" and \e,L\7f\e(B (DZE) =\"/z\"."
+ nil t t t t nil nil nil nil nil t)
(quail-define-rules
("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)
("c" ?\e,Lf\e(B) ("ch" ?\e,Lg\e(B)
("sh" ?\e,Lh\e(B)
("shch" ?\e,Li\e(B) ("sj" ?\e,Li\e(B)
- ("\\sht" ?\e,Li\e(B) ("\\t" ?\e,Li\e(B)
+ ("/sht" ?\e,Li\e(B) ("/t" ?\e,Li\e(B)
("~" ?\e,Lj\e(B) ("y" ?\e,Lk\e(B) ("'" ?\e,Ll\e(B) ("`" ?\e,Ll\e(B)
("e'" ?\e,Lm\e(B) ("e`" ?\e,Lm\e(B) ("@" ?\e,Lm\e(B)
("yu" ?\e,Ln\e(B) ("ju" ?\e,Ln\e(B)
("C" ?\e,LF\e(B) ("Ch" ?\e,LG\e(B) ("CH" ?\e,LG\e(B)
("Sh" ?\e,LH\e(B) ("SH" ?\e,LH\e(B)
("Shch" ?\e,LI\e(B) ("SHCH" ?\e,LI\e(B) ("Sj" ?\e,LI\e(B) ("SJ" ?\e,LI\e(B)
- ("\\Sht" ?\e,LI\e(B) ("\\SHT" ?\e,LI\e(B) ("\\T" ?\e,LI\e(B)
+ ("/Sht" ?\e,LI\e(B) ("/SHT" ?\e,LI\e(B) ("/T" ?\e,LI\e(B)
("~~" "\e,LJ\e(B") ("Y" ?\e,LK\e(B) ("''" "\e,LL\e(B") ("E'" ?\e,LM\e(B) ("E`" ?\e,LM\e(B)
("Yu" ?\e,LN\e(B) ("YU" ?\e,LN\e(B) ("Ju" ?\e,LN\e(B) ("JU" ?\e,LN\e(B)
("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)
- ("\\e" ?\e,Lt\e(B) ("yi" ?\e,Lw\e(B) ("u'" ?\e,L~\e(B)
- ("\\d" ?\e,Lr\e(B) ("\\ch" ?\e,L{\e(B)
- ("\\g" ?\e,Ls\e(B) ("\\s" ?\e,Lu\e(B) ("\\k" ?\e,L|\e(B)
- ("\\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)
- ("\\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)
- ("\\D" ?\e,L"\e(B) ("\\Ch" ?\e,L+\e(B) ("\\CH" ?\e,L+\e(B)
- ("\\G" ?\e,L#\e(B) ("\\S" ?\e,L%\e(B) ("\\K" ?\e,L,\e(B)
- ("\\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)
+ ("/e" ?\e,Lt\e(B) ("yi" ?\e,Lw\e(B) ("u'" ?\e,L~\e(B)
+ ("/d" ?\e,Lr\e(B) ("/ch" ?\e,L{\e(B)
+ ("/g" ?\e,Ls\e(B) ("/s" ?\e,Lu\e(B) ("/k" ?\e,L|\e(B)
+ ("/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)
+ ("/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)
+ ("/D" ?\e,L"\e(B) ("/Ch" ?\e,L+\e(B) ("/CH" ?\e,L+\e(B)
+ ("/G" ?\e,L#\e(B) ("/S" ?\e,L%\e(B) ("/K" ?\e,L,\e(B)
+ ("/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)
)
+(quail-define-package
+ "cyrillic-translit-bulgarian" "Cyrillic" "\e,L6\e(Btb" nil
+ "Intuitively transliterated keyboard layout optimized for Bulgarian.
+The only difference with cyrillic-translit is that \"sht\" translates as
+\e,Li\e(B (SHCHA = Bulgarian SHT) insteat of \e,Lhb\e(B (SH+T)."
+ nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("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)
+ ("e" ?\e,LU\e(B) ("je" ?\e,LU\e(B)
+ ("yo" ?\e,Lq\e(B) ("jo" ?\e,Lq\e(B)
+ ("zh" ?\e,LV\e(B) ("z" ?\e,LW\e(B) ("i" ?\e,LX\e(B)
+ ("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)
+ ("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)
+ ("f" ?\e,Ld\e(B) ("x" ?\e,Le\e(B) ("h" ?\e,Le\e(B) ("kh" ?\e,Le\e(B)
+ ("c" ?\e,Lf\e(B) ("ch" ?\e,Lg\e(B)
+ ("sh" ?\e,Lh\e(B)
+ ("shch" ?\e,Li\e(B) ("sj" ?\e,Li\e(B)
+ ("/sht" ?\e,Li\e(B) ("/t" ?\e,Li\e(B) ("sht" ?\e,Li\e(B)
+ ("~" ?\e,Lj\e(B) ("y" ?\e,Lk\e(B) ("'" ?\e,Ll\e(B) ("`" ?\e,Ll\e(B)
+ ("e'" ?\e,Lm\e(B) ("e`" ?\e,Lm\e(B) ("@" ?\e,Lm\e(B)
+ ("yu" ?\e,Ln\e(B) ("ju" ?\e,Ln\e(B)
+ ("ya" ?\e,Lo\e(B) ("ja" ?\e,Lo\e(B) ("q" ?\e,Lo\e(B)
+
+ ("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)
+ ("E" ?\e,L5\e(B) ("Je" ?\e,L5\e(B) ("JE" ?\e,L5\e(B)
+ ("Yo" ?\e,L!\e(B) ("YO" ?\e,L!\e(B) ("Jo" ?\e,L!\e(B) ("JO" ?\e,L!\e(B)
+ ("Zh" ?\e,L6\e(B) ("ZH" ?\e,L6\e(B) ("Z" ?\e,L7\e(B) ("I" ?\e,L8\e(B)
+ ("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)
+ ("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)
+ ("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)
+ ("C" ?\e,LF\e(B) ("Ch" ?\e,LG\e(B) ("CH" ?\e,LG\e(B)
+ ("Sh" ?\e,LH\e(B) ("SH" ?\e,LH\e(B)
+ ("Shch" ?\e,LI\e(B) ("SHCH" ?\e,LI\e(B) ("Sj" ?\e,LI\e(B) ("SJ" ?\e,LI\e(B)
+ ("/Sht" ?\e,LI\e(B) ("/SHT" ?\e,LI\e(B) ("/T" ?\e,LI\e(B) ("Sht" ?\e,LI\e(B) ("SHT" ?\e,LI\e(B)
+ ("~~" "\e,LJ\e(B") ("Y" ?\e,LK\e(B) ("''" "\e,LL\e(B") ("E'" ?\e,LM\e(B) ("E`" ?\e,LM\e(B)
+ ("Yu" ?\e,LN\e(B) ("YU" ?\e,LN\e(B) ("Ju" ?\e,LN\e(B) ("JU" ?\e,LN\e(B)
+ ("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)
+
+ ("/e" ?\e,Lt\e(B) ("yi" ?\e,Lw\e(B) ("u'" ?\e,L~\e(B)
+ ("/d" ?\e,Lr\e(B) ("/ch" ?\e,L{\e(B)
+ ("/g" ?\e,Ls\e(B) ("/s" ?\e,Lu\e(B) ("/k" ?\e,L|\e(B)
+ ("/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)
+ ("/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)
+ ("/D" ?\e,L"\e(B) ("/Ch" ?\e,L+\e(B) ("/CH" ?\e,L+\e(B)
+ ("/G" ?\e,L#\e(B) ("/S" ?\e,L%\e(B) ("/K" ?\e,L,\e(B)
+ ("/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)
+)
+
+;; From Yudit's `Belarusian input table according to STB955-94
+;; belarusian standard'. Alexander Mikhailian <mikhailian@altern.org>
+(quail-define-package
+ "belarusian" "Cyrillic" "\e$,1(v\e(B" ; fixme
+ nil
+ "Belarusian STB955-94 input, producing Unicode"
+ nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("<<" ?\e,A+\e(B)
+ (">>" ?\e,A;\e(B)
+ (",," ?\e$,1r}\e(B)
+ ("``" ?\e$,1r|\e(B)
+ ("C)" ?\e,A)\e(B)
+ ("x)" ?\e$,1s"\e(B)
+ (":)" ?\e$,2#:\e(B)
+ (":(" ?\e$,2#9\e(B)
+ ("C-" ?\e,A$\e(B)
+ ("E-" ?\e$,1tL\e(B)
+ ("L-" ?\e,A#\e(B)
+
+ ("~" ?\e$,1(!\e(B)
+ ("!" ?!)
+ ("@" ?\")
+ ("#" ?\e$,1uV\e(B)
+ ("$" ?\;)
+ ("%" ?%)
+ ("^" ?:)
+ ("&" ??)
+ ("*" ?*)
+ ("(" ?\()
+ (")" ?\))
+ ("_" ?_)
+ ("+" ?+)
+ ("Q" ?\e$,1(9\e(B)
+ ("W" ?\e$,1(F\e(B)
+ ("E" ?\e$,1(C\e(B)
+ ("R" ?\e$,1(:\e(B)
+ ("T" ?\e$,1(5\e(B)
+ ("Y" ?\e$,1(=\e(B)
+ ("U" ?\e$,1(3\e(B)
+ ("I" ?\e$,1(H\e(B)
+ ("O" ?\e$,1(.\e(B)
+ ("P" ?\e$,1(7\e(B)
+ ("{" ?\e$,1(E\e(B)
+ ("}" ?')
+ ("A" ?\e$,1(D\e(B)
+ ("S" ?\e$,1(K\e(B)
+ ("D" ?\e$,1(2\e(B)
+ ("F" ?\e$,1(0\e(B)
+ ("G" ?\e$,1(?\e(B)
+ ("H" ?\e$,1(@\e(B)
+ ("J" ?\e$,1(>\e(B)
+ ("K" ?\e$,1(;\e(B)
+ ("L" ?\e$,1(4\e(B)
+ (":" ?\e$,1(6\e(B)
+ ("\"" ?\e$,1(M\e(B)
+ ("|" ?/)
+ ("Z" ?\e$,1(O\e(B)
+ ("X" ?\e$,1(G\e(B)
+ ("C" ?\e$,1(A\e(B)
+ ("V" ?\e$,1(<\e(B)
+ ("B" ?\e$,1(&\e(B)
+ ("N" ?\e$,1(B\e(B)
+ ("M" ?\e$,1(L\e(B)
+ ("<" ?\e$,1(1\e(B)
+ (">" ?\e$,1(N\e(B)
+ ("?" ?,)
+
+ ("`" ?\e$,1(q\e(B)
+ ("1" ?1)
+ ("2" ?2)
+ ("3" ?3)
+ ("4" ?4)
+ ("5" ?5)
+ ("6" ?6)
+ ("7" ?7)
+ ("8" ?8)
+ ("9" ?9)
+ ("0" ?0)
+ ("-" ?-)
+ ("=" ?=)
+ ("q" ?\e$,1(Y\e(B)
+ ("w" ?\e$,1(f\e(B)
+ ("e" ?\e$,1(c\e(B)
+ ("r" ?\e$,1(Z\e(B)
+ ("t" ?\e$,1(U\e(B)
+ ("y" ?\e$,1(]\e(B)
+ ("u" ?\e$,1(S\e(B)
+ ("i" ?\e$,1(h\e(B)
+ ("o" ?\e$,1(~\e(B)
+ ("p" ?\e$,1(W\e(B)
+ ("[" ?\e$,1(e\e(B)
+ ("]" ?')
+ ("a" ?\e$,1(d\e(B)
+ ("s" ?\e$,1(k\e(B)
+ ("d" ?\e$,1(R\e(B)
+ ("f" ?\e$,1(P\e(B)
+ ("g" ?\e$,1(_\e(B)
+ ("h" ?\e$,1(`\e(B)
+ ("j" ?\e$,1(^\e(B)
+ ("k" ?\e$,1([\e(B)
+ ("l" ?\e$,1(T\e(B)
+ (";" ?\e$,1(V\e(B)
+ ("'" ?\e$,1(m\e(B)
+ ("\\" ?\\)
+ ("z" ?\e$,1(o\e(B)
+ ("x" ?\e$,1(g\e(B)
+ ("c" ?\e$,1(a\e(B)
+ ("v" ?\e$,1(\\e(B)
+ ("b" ?\e$,1(v\e(B)
+ ("n" ?\e$,1(b\e(B)
+ ("m" ?\e$,1(l\e(B)
+ ("," ?\e$,1(Q\e(B)
+ ("." ?\e$,1(n\e(B)
+ ("/" ?.)
+
+ ("D-" ?\e$,1("\e(B)
+ ("G'" ?\e$,1(#\e(B)
+ ("E>" ?\e$,1($\e(B)
+ ("Z>" ?\e$,1(%\e(B)
+ ("I/ " ?\e$,1(8\e(B)
+ ("I:" ?\e$,1('\e(B)
+ ("J<" ?\e$,1((\e(B)
+ ("L>" ?\e$,1()\e(B)
+ ("N>" ?\e$,1(*\e(B)
+ ("C'" ?\e$,1(+\e(B)
+ ("K'" ?\e$,1(,\e(B)
+ ("D>" ?\e$,1(/\e(B)
+
+ ("d-" ?\e$,1(r\e(B)
+ ("g'" ?\e$,1(s\e(B)
+ ("e>" ?\e$,1(t\e(B)
+ ("z>" ?\e$,1(u\e(B)
+ ("i/ " ?\e$,1(X\e(B)
+ ("i:" ?\e$,1(w\e(B)
+ ("j<" ?\e$,1(x\e(B)
+ ("l>" ?\e$,1(y\e(B)
+ ("c'" ?\e$,1({\e(B)
+ ("k'" ?\e$,1(|\e(B)
+ ("d>" ?\e$,1(\7f\e(B)
+
+ ("G`" ?\e$,1)P\e(B)
+ ("g`" ?\e$,1)Q\e(B)
+ ("E<" ?\e$,1)"\e(B)
+ ("e<" ?\e$,1)#\e(B)
+ ("A<" ?\e$,1)*\e(B)
+ ("a<" ?\e$,1)+\e(B)
+ ("F`" ?\e$,1)2\e(B)
+ ("f`" ?\e$,1)3\e(B)
+ ("Y`" ?\e$,1)4\e(B)
+ ("y`" ?\e$,1)5\e(B))
+
+;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov <al_shopov@web.bg>
+(quail-define-package
+ "bulgarian-pho" "Cyrillic" "\e$,1(1\e(B" ; fixme
+ nil
+ "Bulragian PHO keyboard layout, producing Unicode"
+ nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("A" ?\e$,1(0\e(B)
+ ("B" ?\e$,1(1\e(B)
+ ("W" ?\e$,1(2\e(B)
+ ("G" ?\e$,1(3\e(B)
+ ("D" ?\e$,1(4\e(B)
+ ("E" ?\e$,1(5\e(B)
+ ("V" ?\e$,1(6\e(B)
+ ("Z" ?\e$,1(7\e(B)
+ ("I" ?\e$,1(8\e(B)
+ ("J" ?\e$,1(9\e(B)
+ ("K" ?\e$,1(:\e(B)
+ ("L" ?\e$,1(;\e(B)
+ ("M" ?\e$,1(<\e(B)
+ ("N" ?\e$,1(=\e(B)
+ ("O" ?\e$,1(>\e(B)
+ ("P" ?\e$,1(?\e(B)
+ ("R" ?\e$,1(@\e(B)
+ ("S" ?\e$,1(A\e(B)
+ ("T" ?\e$,1(B\e(B)
+ ("U" ?\e$,1(C\e(B)
+ ("F" ?\e$,1(D\e(B)
+ ("H" ?\e$,1(E\e(B)
+ ("C" ?\e$,1(F\e(B)
+ ("~" ?\e$,1(G\e(B)
+ ("{" ?\e$,1(H\e(B)
+ ("}" ?\e$,1(I\e(B)
+ ("Y" ?\e$,1(J\e(B)
+ ("X" ?\e$,1(L\e(B)
+ ("|" ?\e$,1(N\e(B)
+ ("Q" ?\e$,1(O\e(B)
+ ("a" ?\e$,1(P\e(B)
+ ("b" ?\e$,1(Q\e(B)
+ ("w" ?\e$,1(R\e(B)
+ ("g" ?\e$,1(S\e(B)
+ ("d" ?\e$,1(T\e(B)
+ ("e" ?\e$,1(U\e(B)
+ ("v" ?\e$,1(V\e(B)
+ ("z" ?\e$,1(W\e(B)
+ ("i" ?\e$,1(X\e(B)
+ ("j" ?\e$,1(Y\e(B)
+ ("k" ?\e$,1(Z\e(B)
+ ("l" ?\e$,1([\e(B)
+ ("m" ?\e$,1(\\e(B)
+ ("n" ?\e$,1(]\e(B)
+ ("o" ?\e$,1(^\e(B)
+ ("p" ?\e$,1(_\e(B)
+ ("r" ?\e$,1(`\e(B)
+ ("s" ?\e$,1(a\e(B)
+ ("t" ?\e$,1(b\e(B)
+ ("u" ?\e$,1(c\e(B)
+ ("f" ?\e$,1(d\e(B)
+ ("h" ?\e$,1(e\e(B)
+ ("c" ?\e$,1(f\e(B)
+ ("`" ?\e$,1(g\e(B)
+ ("[" ?\e$,1(h\e(B)
+ ("]" ?\e$,1(i\e(B)
+ ("y" ?\e$,1(j\e(B)
+ ("x" ?\e$,1(l\e(B)
+ ("\\" ?\e$,1(n\e(B)
+ ("q" ?\e$,1(o\e(B))
+
;; Local Variables:
-;; buffer-file-coding-system: iso-2022-7bit
+;; coding: iso-2022-7bit
;; End:
+
+;;; cyrillic.el ends here