;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
-;; Copyright (C) 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
-;; Keywords: multilingual, input method, Cyrillic
+;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
+;; Keywords: multilingual, input method, Cyrillic, i18n
;; This file is part of GNU Emacs.
(require 'quail)
+;; This was `cyrillic-jcuken'. Alexander Mikhailian
+;; <mikhailian@altern.org> says: "cyrillic-jcuken" is actually
+;; russian. It is ok but a bit outdated. This layout has been used
+;; in typewriters for ages but it has been superceeded on desktops by
+;; a variation of this layout, implemented in M$ Windows software.
+;; The Windows layout is greatly preferred because of the comma and
+;; period being placed more conviniently and, of course, because of
+;; the popularity of Windows software. This layout is a common option
+;; in X Windows and console layouts for GNU/Linux. [See
+;; `russian-computer' below.]
(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)"
+ "cyrillic-typewriter" "Russian" "\e,L69\e(B" nil
+ "\e,L9FC:5=\e(B Russian typewriter layout."
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)
("M" ?\e,LL\e(B)
("<" ?\e,L1\e(B)
(">" ?\e,LN\e(B)
- ("?" ??))
+ ("?" ?,))
-;;
+;; Mikhailian couldn't check the next two.
+;; This seems to have the same layout for letters as mk in XKB, but at
+;; least the top row is different.
(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)"
+ "\e,L)*5@B7\e(B-\e,L#,\e(B keyboard layout based on JUS.I.K1.004"
nil t t t t nil nil nil nil nil t)
;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
(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)"
+ "\e,L)*5@B7\e(B-\e,L"+\e(B keyboard layout based on JUS.I.K1.005"
nil t t t t nil nil nil nil nil t)
;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
;;
-(quail-define-package
- "cyrillic-beylorussian" "Belarussian" "\e,L6\e(BB" nil
- "\e,L)*5@B7\e(B-\e,L&.\e(B BEYLORUSSIAN (ISO 8859-5 encoding)"
+;; Alexander Mikhailian comments:
+;; Having worked for several years as a Belarusian linguist, I still
+;; can not find the origin of this layout which BTW does include
+;; several characters that are not present in Belarusian and does not
+;; include a few ones that do exist in Belarusian. Besides, the typo
+;; in the name of this layout speaks for itself since Belarusian has
+;; an outdated version of spelling which is "Byelorussian" and not
+;; "beylorussian". I suggest that you just remove this layout.
+
+;; [`derived from JUS.I.K1' according to an old Mule note -- fx]
+
+;; (quail-define-package
+;; "cyrillic-beylorussian" "Belarussian" "\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 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,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
+;; ;; \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 ,; .: -_
+
+;; (quail-define-rules
+;; ("-" ?/)
+;; ("=" ?+)
+;; ("`" ?<)
+;; ("q" ?\e,Ly\e(B)
+;; ("w" ?\e,Lz\e(B)
+;; ("e" ?\e,LU\e(B)
+;; ("r" ?\e,L`\e(B)
+;; ("t" ?\e,Lb\e(B)
+;; ("y" ?\e,LW\e(B)
+;; ("u" ?\e,Lc\e(B)
+;; ("i" ?\e,LX\e(B)
+;; ("o" ?\e,L^\e(B)
+;; ("p" ?\e,L_\e(B)
+;; ("[" ?\e,Lh\e(B)
+;; ("]" ?\e,Lv\e(B)
+;; ("a" ?\e,LP\e(B)
+;; ("s" ?\e,La\e(B)
+;; ("d" ?\e,LT\e(B)
+;; ("f" ?\e,Ld\e(B)
+;; ("g" ?\e,LS\e(B)
+;; ("h" ?\e,Le\e(B)
+;; ("j" ?\e,Lx\e(B)
+;; ("k" ?\e,LZ\e(B)
+;; ("l" ?\e,L[\e(B)
+;; (";" ?\e,Lg\e(B)
+;; ("'" ?\e,L~\e(B)
+;; ("\\" ?\e,LV\e(B)
+;; ("z" ?\e,Lu\e(B)
+;; ("x" ?\e,L\7f\e(B)
+;; ("c" ?\e,Lf\e(B)
+;; ("v" ?\e,LR\e(B)
+;; ("b" ?\e,LQ\e(B)
+;; ("n" ?\e,L]\e(B)
+;; ("m" ?\e,L\\e(B)
+;; ("/" ?-)
+
+;; ("@" ?\")
+;; ("^" ?&)
+;; ("&" ?')
+;; ("*" ?\()
+;; ("(" ?\))
+;; (")" ?=)
+;; ("_" ??)
+;; ("+" ?*)
+;; ("~" ?>)
+;; ("Q" ?\e,L)\e(B)
+;; ("W" ?\e,L*\e(B)
+;; ("E" ?\e,L5\e(B)
+;; ("R" ?\e,L@\e(B)
+;; ("T" ?\e,LB\e(B)
+;; ("Y" ?\e,L7\e(B)
+;; ("U" ?\e,LC\e(B)
+;; ("I" ?\e,L8\e(B)
+;; ("O" ?\e,L>\e(B)
+;; ("P" ?\e,L?\e(B)
+;; ("{" ?\e,LH\e(B)
+;; ("}" ?\e,L&\e(B)
+;; ("A" ?\e,L0\e(B)
+;; ("S" ?\e,LA\e(B)
+;; ("D" ?\e,L4\e(B)
+;; ("F" ?\e,LD\e(B)
+;; ("G" ?\e,L3\e(B)
+;; ("H" ?\e,LE\e(B)
+;; ("J" ?\e,L(\e(B)
+;; ("K" ?\e,L:\e(B)
+;; ("L" ?\e,L;\e(B)
+;; (":" ?\e,LG\e(B)
+;; ("\"" ?\e,L.\e(B)
+;; ("|" ?\e,L6\e(B)
+;; ("Z" ?\e,L%\e(B)
+;; ("X" ?\e,L/\e(B)
+;; ("C" ?\e,LF\e(B)
+;; ("V" ?\e,L2\e(B)
+;; ("B" ?\e,L1\e(B)
+;; ("N" ?\e,L=\e(B)
+;; ("M" ?\e,L<\e(B)
+;; ("<" ?\;)
+;; (">" ?:)
+;; ("?" ?_))
+
+;;
+
+;; Alexander Mikhailian reports the opinion of fellow Ukrainian
+;; linguist Bogdan Babych <babych@altern.org>:
+;; He had seen this layout on some oldish systems but that the vast
+;; majority of the population uses a modified version of the M$ Windows
+;; layout. In fact, Microsoft shipped for a while a layout that was lacking
+;; two characters, precisely the "GHE_WITH_UPTURN" and the apostrophe. The
+;; latest versions of Windows software do have the "GHE_WITH_UPTURN" in the
+;; ukrainian keyborad layout but the apostrophe is still not there, whereas
+;; there is one letter, "Cyrillic_YO", not used in ukrainian. Ukrainians
+;; normally replace the "Cyrillic_YO" by the apostrophe sign and live
+;; happily with this little change. [See "ukrainian-computer" below.]
+
+;; Fixme: add GHE_WITH_UPTURN.
+(quail-define-package
+ "cyrillic-ukrainian" "Ukrainian" "\e,L6\e(BU" nil
+ "\e,L$'5@B7\e(B-\e,L&.\e(B UKRAINIAN"
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$\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,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
;; \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 ,; .: -_
("-" ?/)
("=" ?+)
("`" ?<)
- ("q" ?\e,Ly\e(B)
- ("w" ?\e,Lz\e(B)
+ ("q" ?\e,Lt\e(B)
+ ("w" ?\e,Lw\e(B)
("e" ?\e,LU\e(B)
("r" ?\e,L`\e(B)
("t" ?\e,Lb\e(B)
("_" ??)
("+" ?*)
("~" ?>)
- ("Q" ?\e,L)\e(B)
- ("W" ?\e,L*\e(B)
+ ("Q" ?\e,L$\e(B)
+ ("W" ?\e,L'\e(B)
("E" ?\e,L5\e(B)
("R" ?\e,L@\e(B)
("T" ?\e,LB\e(B)
(">" ?:)
("?" ?_))
-;;
-
-(quail-define-package
- "cyrillic-ukrainian" "Ukrainian" "\e,L6\e(BU" nil
- "\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"
+(quail-define-package
+ "ukrainian-computer" "Ukrainian" "UK" nil
+ "\e,L9FC:5=\e(B Ukrainian."
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,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
-;; \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 ,; .: -_
+;; ' 1! 2" 3\e,Lp\e(B 4; 5% 6: 7? 8* 9( 0) -_ =+
+;; \e,L9\e(B \e,LF\e(B \e,LC\e(B \e,L:\e(B \e,L5\e(B \e,L=\e(B \e,L3\e(B \e,LH\e(B \e,LI\e(B \e,L7\e(B \e,LE\e(B \e,L'\e(B
+;; \e,LD\e(B \e,L&\e(B \e,L2\e(B \e,L0\e(B \e,L?\e(B \e,L@\e(B \e,L>\e(B \e,L;\e(B \e,L4\e(B \e,L6\e(B \e,L$\e(B \e$,1)P\e(B
+;; \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-rules
("1" ?1)
("8" ?8)
("9" ?9)
("0" ?0)
- ("-" ?/)
- ("=" ?+)
- ("`" ?<)
- ("q" ?\e,Lt\e(B)
- ("w" ?\e,Lw\e(B)
- ("e" ?\e,LU\e(B)
- ("r" ?\e,L`\e(B)
- ("t" ?\e,Lb\e(B)
- ("y" ?\e,LW\e(B)
- ("u" ?\e,Lc\e(B)
- ("i" ?\e,LX\e(B)
- ("o" ?\e,L^\e(B)
- ("p" ?\e,L_\e(B)
- ("[" ?\e,Lh\e(B)
- ("]" ?\e,Lv\e(B)
- ("a" ?\e,LP\e(B)
- ("s" ?\e,La\e(B)
- ("d" ?\e,LT\e(B)
- ("f" ?\e,Ld\e(B)
- ("g" ?\e,LS\e(B)
- ("h" ?\e,Le\e(B)
- ("j" ?\e,Lx\e(B)
- ("k" ?\e,LZ\e(B)
- ("l" ?\e,L[\e(B)
- (";" ?\e,Lg\e(B)
- ("'" ?\e,L~\e(B)
- ("\\" ?\e,LV\e(B)
- ("z" ?\e,Lu\e(B)
- ("x" ?\e,L\7f\e(B)
- ("c" ?\e,Lf\e(B)
- ("v" ?\e,LR\e(B)
- ("b" ?\e,LQ\e(B)
- ("n" ?\e,L]\e(B)
- ("m" ?\e,L\\e(B)
- ("," ?,)
- ("." ?.)
- ("/" ?-)
-
- ("!" ?!)
+ ("-" ?-)
+ ("=" ?=)
+ ("`" ?')
+ ("q" ?\e,LY\e(B)
+ ("w" ?\e,Lf\e(B)
+ ("e" ?\e,Lc\e(B)
+ ("r" ?\e,LZ\e(B)
+ ("t" ?\e,LU\e(B)
+ ("y" ?\e,L]\e(B)
+ ("u" ?\e,LS\e(B)
+ ("i" ?\e,Lh\e(B)
+ ("o" ?\e,Li\e(B)
+ ("p" ?\e,LW\e(B)
+ ("[" ?\e,Le\e(B)
+ ("]" ?\e,Lw\e(B)
+ ("a" ?\e,Ld\e(B)
+ ("s" ?\e,Lv\e(B)
+ ("d" ?\e,LR\e(B)
+ ("f" ?\e,LP\e(B)
+ ("g" ?\e,L_\e(B)
+ ("h" ?\e,L`\e(B)
+ ("j" ?\e,L^\e(B)
+ ("k" ?\e,L[\e(B)
+ ("l" ?\e,LT\e(B)
+ (";" ?\e,LV\e(B)
+ ("'" ?\e,Lt\e(B)
+;; ("\\" ?\\)
+ ("z" ?\e,Lo\e(B)
+ ("x" ?\e,Lg\e(B)
+ ("c" ?\e,La\e(B)
+ ("v" ?\e,L\\e(B)
+ ("b" ?\e,LX\e(B)
+ ("n" ?\e,Lb\e(B)
+ ("m" ?\e,Ll\e(B)
+ ("," ?\e,LQ\e(B)
+ ("." ?\e,Ln\e(B)
+ ("/" ?.)
+;; ("!" ?!)
("@" ?\")
- ("#" ?#)
- ("$" ?$)
- ("%" ?%)
- ("^" ?&)
- ("&" ?')
- ("*" ?\()
- ("(" ?\))
- (")" ?=)
- ("_" ??)
- ("+" ?*)
- ("~" ?>)
- ("Q" ?\e,L$\e(B)
- ("W" ?\e,L'\e(B)
- ("E" ?\e,L5\e(B)
- ("R" ?\e,L@\e(B)
- ("T" ?\e,LB\e(B)
- ("Y" ?\e,L7\e(B)
- ("U" ?\e,LC\e(B)
- ("I" ?\e,L8\e(B)
- ("O" ?\e,L>\e(B)
- ("P" ?\e,L?\e(B)
- ("{" ?\e,LH\e(B)
- ("}" ?\e,L&\e(B)
- ("A" ?\e,L0\e(B)
- ("S" ?\e,LA\e(B)
- ("D" ?\e,L4\e(B)
- ("F" ?\e,LD\e(B)
- ("G" ?\e,L3\e(B)
- ("H" ?\e,LE\e(B)
- ("J" ?\e,L(\e(B)
- ("K" ?\e,L:\e(B)
- ("L" ?\e,L;\e(B)
- (":" ?\e,LG\e(B)
- ("\"" ?\e,L.\e(B)
- ("|" ?\e,L6\e(B)
- ("Z" ?\e,L%\e(B)
- ("X" ?\e,L/\e(B)
- ("C" ?\e,LF\e(B)
- ("V" ?\e,L2\e(B)
- ("B" ?\e,L1\e(B)
- ("N" ?\e,L=\e(B)
- ("M" ?\e,L<\e(B)
- ("<" ?\;)
- (">" ?:)
- ("?" ?_))
-
+ ("#" ?\e,Lp\e(B)
+ ("$" ?\;)
+;; ("%" ?%)
+ ("^" ?:)
+ ("&" ??)
+;; ("*" ?*)
+;; ("(" ?()
+;; (")" ?))
+;; ("_" ?_)
+;; ("+" ?+)
+ ("~" ?')
+ ("Q" ?\e,L9\e(B)
+ ("W" ?\e,LF\e(B)
+ ("E" ?\e,LC\e(B)
+ ("R" ?\e,L:\e(B)
+ ("T" ?\e,L5\e(B)
+ ("Y" ?\e,L=\e(B)
+ ("U" ?\e,L3\e(B)
+ ("I" ?\e,LH\e(B)
+ ("O" ?\e,LI\e(B)
+ ("P" ?\e,L7\e(B)
+ ("{" ?\e,LE\e(B)
+ ("}" ?\e,L'\e(B)
+ ("A" ?\e,LD\e(B)
+ ("S" ?\e,L&\e(B)
+ ("D" ?\e,L2\e(B)
+ ("F" ?\e,L0\e(B)
+ ("G" ?\e,L?\e(B)
+ ("H" ?\e,L@\e(B)
+ ("J" ?\e,L>\e(B)
+ ("K" ?\e,L;\e(B)
+ ("L" ?\e,L4\e(B)
+ (":" ?\e,L6\e(B)
+ ("\"" ?\e,L$\e(B)
+ ("Z" ?\e,LO\e(B)
+ ("X" ?\e,LG\e(B)
+ ("C" ?\e,LA\e(B)
+ ("V" ?\e,L<\e(B)
+ ("B" ?\e,L8\e(B)
+ ("N" ?\e,LB\e(B)
+ ("M" ?\e,LL\e(B)
+ ("<" ?\e,L1\e(B)
+ (">" ?\e,LN\e(B)
+ ("?" ?,)
+ ("\\" ?\e$,1)Q\e(B)
+ ("|" ?\e$,1)P\e(B))
;;
+;; Alexander Mikhailian says this is of limited use. It has been
+;; popular among emigrants or foreigners who have to type in Cyrillic
+;; (mostly Russian) from time to time.
(quail-define-package
"cyrillic-yawerty" "Cyrillic" "\e,L6O\e(B" nil
- "\e,LO25@BK\e(B Roman transcription (ISO 8859-5 encoding)
+ "\e,LO25@BK\e(B Roman transcription.
-This layout is based on Roman transcription.
+This layout is based on Roman transcription by phonemic resemblance.
When preceded by a '/', the second and the third rows (number key row) change
as follows.
;; This was provided by Valery Alexeev <valery@domovoy.math.uga.edu>.
+;; Ognyan Kulev <ogi@fmi.uni-sofia.bg> wrote:
+
+;; I would suggest future `cyrillic-translit' to be with the
+;; modification of `cyrillic-translit-bulgarian' applied and the
+;; latter to disappear. It could be used by people who write
+;; bulgarian e-mails with latin letters for kick start (phonetic input
+;; method is not so obvious as translit input method but each letter
+;; is one keypress and a *lot* of people know it).
+
(quail-define-package
"cyrillic-translit" "Cyrillic" "\e,L6\e(Bt" nil
"Intuitively transliterated keyboard layout.
-Most convenient for entering Russian but all cyrillic characters are included.
+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\",
u f h=kh=x c ch sh shch=sj=/s=/sht ~ y ' e' yu=ju ya=ja=q
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'\",
+Belarusian \e,L~\e(B (SHORT U) = \"u'\",
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\",
("/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)
)
+;; Originally from Yudit's `Belarusian input table according to
+;; STB955-94 belarusian standard' by Alexander Mikhailian
+;; <mikhailian@altern.org>, subsequently amended by AM.
(quail-define-package
- "cyrillic-translit-bulgarian" "Bulgarian" "\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)."
+ "belarusian" "Belarusian" "BE" nil
+ "\e,L9FC:5=\e(B keyboard layout registered as STB955-94 Belarusian standard."
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" "Belarusian" "\e$,1(v\e(B" ; fixme
- nil
- "Belarusian STB955-94 input, producing Unicode"
- nil t t t t nil nil nil nil nil t)
+;; \e,Lq!\e(B 1! 2" 3N 4; 5% 6: 7? 8* 9( 0) -_ =+
+;; \e,L9\e(B \e,LF\e(B \e,LC\e(B \e,L:\e(B \e,L5\e(B \e,L=\e(B \e,L3\e(B \e,LH\e(B \e,L.\e(B \e,L7\e(B \e,LE\e(B '
+;; \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,L&\e(B \e,LB\e(B \e,LL\e(B \e,L1\e(B \e,LN\e(B .,
(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,L!\e(B)
("@" ?\")
- ("#" ?\e$,1uV\e(B)
+ ("#" ?\e,Lp\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)
+ ("Q" ?\e,L9\e(B)
+ ("W" ?\e,LF\e(B)
+ ("E" ?\e,LC\e(B)
+ ("R" ?\e,L:\e(B)
+ ("T" ?\e,L5\e(B)
+ ("Y" ?\e,L=\e(B)
+ ("U" ?\e,L3\e(B)
+ ("I" ?\e,LH\e(B)
+ ("O" ?\e,L.\e(B)
+ ("P" ?\e,L7\e(B)
+ ("{" ?\e,LE\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)
+ ("A" ?\e,LD\e(B)
+ ("S" ?\e,LK\e(B)
+ ("D" ?\e,L2\e(B)
+ ("F" ?\e,L0\e(B)
+ ("G" ?\e,L?\e(B)
+ ("H" ?\e,L@\e(B)
+ ("J" ?\e,L>\e(B)
+ ("K" ?\e,L;\e(B)
+ ("L" ?\e,L4\e(B)
+ (":" ?\e,L6\e(B)
+ ("\"" ?\e,LM\e(B)
+ ("|" ?|)
+ ("Z" ?\e,LO\e(B)
+ ("X" ?\e,LG\e(B)
+ ("C" ?\e,LA\e(B)
+ ("V" ?\e,L<\e(B)
+ ("B" ?\e,L&\e(B)
+ ("N" ?\e,LB\e(B)
+ ("M" ?\e,LL\e(B)
+ ("<" ?\e,L1\e(B)
+ (">" ?\e,LN\e(B)
("?" ?,)
- ("`" ?\e$,1(q\e(B)
+ ("`" ?\e,Lq\e(B)
("1" ?1)
("2" ?2)
("3" ?3)
("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)
+ ("q" ?\e,LY\e(B)
+ ("w" ?\e,Lf\e(B)
+ ("e" ?\e,Lc\e(B)
+ ("r" ?\e,LZ\e(B)
+ ("t" ?\e,LU\e(B)
+ ("y" ?\e,L]\e(B)
+ ("u" ?\e,LS\e(B)
+ ("i" ?\e,Lh\e(B)
+ ("o" ?\e,L~\e(B)
+ ("p" ?\e,LW\e(B)
+ ("[" ?\e,Le\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)
+ ("a" ?\e,Ld\e(B)
+ ("s" ?\e,Lk\e(B)
+ ("d" ?\e,LR\e(B)
+ ("f" ?\e,LP\e(B)
+ ("g" ?\e,L_\e(B)
+ ("h" ?\e,L`\e(B)
+ ("j" ?\e,L^\e(B)
+ ("k" ?\e,L[\e(B)
+ ("l" ?\e,LT\e(B)
+ (";" ?\e,LV\e(B)
+ ("'" ?\e,Lm\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))
+ ("z" ?\e,Lo\e(B)
+ ("x" ?\e,Lg\e(B)
+ ("c" ?\e,La\e(B)
+ ("v" ?\e,L\\e(B)
+ ("b" ?\e,Lv\e(B)
+ ("n" ?\e,Lb\e(B)
+ ("m" ?\e,Ll\e(B)
+ ("," ?\e,LQ\e(B)
+ ("." ?\e,Ln\e(B)
+ ("/" ?.))
;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov
;; <al_shopov@web.bg>.
;; (cyrillic-iso8859-5) implementation by Ognyan Kulev
;; <ogi@fmi.uni-sofia.bg>.
(quail-define-package
- "bulgarian-pho" "Bulgarian" "\e$,1(6(1(D\e(B"
+ "bulgarian-pho" "Bulgarian" "\e,L61D\e(B"
nil
- "Bulgarian Phonetic keyboard layout, producing Unicode
+ "Bulgarian Phonetic keyboard layout.
The layout is similar to `cyrillic-translit', but all Bulgarian
-characters are typed with a single key."
+characters are typed with a single key.
+
+Use /& for \e,A'\e(B (Cyrillic paragraph) and /# for \e,Lp\e(B."
nil t t t t nil nil nil nil nil t)
-;; \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
-;; \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(G\e(B
-;; \e$,1(N\e(B \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
+;; \e,LO\e(B \e,L2\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,LJ\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,LI\e(B
+;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L9\e(B \e,L:\e(B \e,L;\e(B \e,LG\e(B
+;; \e,LN\e(B \e,L7\e(B \e,LL\e(B \e,LF\e(B \e,L6\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B
(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))
+ ("/&" ?\e,A'\e(B)
+ ("/#" ?\e,Lp\e(B)
+ ("A" ?\e,L0\e(B)
+ ("B" ?\e,L1\e(B)
+ ("W" ?\e,L2\e(B)
+ ("G" ?\e,L3\e(B)
+ ("D" ?\e,L4\e(B)
+ ("E" ?\e,L5\e(B)
+ ("V" ?\e,L6\e(B)
+ ("Z" ?\e,L7\e(B)
+ ("I" ?\e,L8\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)
+ ("H" ?\e,LE\e(B)
+ ("C" ?\e,LF\e(B)
+ ("~" ?\e,LG\e(B)
+ ("{" ?\e,LH\e(B)
+ ("}" ?\e,LI\e(B)
+ ("Y" ?\e,LJ\e(B)
+ ("X" ?\e,LL\e(B)
+ ("|" ?\e,LN\e(B)
+ ("Q" ?\e,LO\e(B)
+ ("a" ?\e,LP\e(B)
+ ("b" ?\e,LQ\e(B)
+ ("w" ?\e,LR\e(B)
+ ("g" ?\e,LS\e(B)
+ ("d" ?\e,LT\e(B)
+ ("e" ?\e,LU\e(B)
+ ("v" ?\e,LV\e(B)
+ ("z" ?\e,LW\e(B)
+ ("i" ?\e,LX\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)
+ ("h" ?\e,Le\e(B)
+ ("c" ?\e,Lf\e(B)
+ ("`" ?\e,Lg\e(B)
+ ("[" ?\e,Lh\e(B)
+ ("]" ?\e,Li\e(B)
+ ("y" ?\e,Lj\e(B)
+ ("x" ?\e,Ll\e(B)
+ ("\\" ?\e,Ln\e(B)
+ ("|" ?\e,LN\e(B)
+ ("q" ?\e,Lo\e(B))
+
+;; Based on an implementation by Ognyan Kulev <ogi@fmi.uni-sofia.bg>.
+;; This follows XKB bg.
+
+(quail-define-package
+ "bulgarian-standard" "Bulgarian" "\e,L14A\e(B" nil
+ "Bulgarian standard keyboard layout (BDS)
+
+This keyboard layout is standard for Bulgarian typewriters."
+ nil t t t t nil nil nil nil nil t)
+
+;; 1! 2? 3+ 4" 5% 6= 7: 8/ 9_ 0\e,Lp\e(B -I .V
+;; ,\e,Lk\e(B \e,LC\e(B \e,L5\e(B \e,L8\e(B \e,LH\e(B \e,LI\e(B \e,L:\e(B \e,LA\e(B \e,L4\e(B \e,L7\e(B \e,LF\e(B ;\e,A'\e(B
+;; \e,Ll\e(B \e,LO\e(B \e,L0\e(B \e,L>\e(B \e,L6\e(B \e,L3\e(B \e,LB\e(B \e,L=\e(B \e,L2\e(B \e,L<\e(B \e,LG\e(B ()
+;; \e,LN\e(B \e,L9\e(B \e,LJ\e(B \e,LM\e(B \e,LD\e(B \e,LE\e(B \e,L?\e(B \e,L@\e(B \e,L;\e(B \e,L1\e(B
+
+(quail-define-rules
+
+ ("1" ?1) ("!" ?!)
+ ("2" ?2)
+ ("@" ??)
+ ("3" ?3)
+ ("#" ?+)
+ ("4" ?4)
+ ("$" ?\")
+ ("5" ?5) ("%" ?%)
+ ("6" ?6)
+ ("^" ?=)
+ ("7" ?7)
+ ("&" ?:)
+ ("8" ?8)
+ ("*" ?/)
+ ("9" ?9)
+ ("(" ?_)
+ ("0" ?0)
+ (")" ?\e,Lp\e(B)
+ ("-" ?-)
+ ("_" ?I)
+ ("=" ?.) ("+" ?V)
+
+ ("q" ?,) ("Q" ?\e,Lk\e(B)
+ ("w" ?\e,Lc\e(B) ("W" ?\e,LC\e(B)
+ ("e" ?\e,LU\e(B) ("E" ?\e,L5\e(B)
+ ("r" ?\e,LX\e(B) ("R" ?\e,L8\e(B)
+ ("t" ?\e,Lh\e(B) ("T" ?\e,LH\e(B)
+ ("y" ?\e,Li\e(B) ("Y" ?\e,LI\e(B)
+ ("u" ?\e,LZ\e(B) ("U" ?\e,L:\e(B)
+ ("i" ?\e,La\e(B) ("I" ?\e,LA\e(B)
+ ("o" ?\e,LT\e(B) ("O" ?\e,L4\e(B)
+ ("p" ?\e,LW\e(B) ("P" ?\e,L7\e(B)
+ ("[" ?\e,Lf\e(B) ("{" ?\e,LF\e(B)
+ ("]" ?\;)
+ ("}" ?\e,A'\e(B) ;; not in XKB's bg
+
+ ("a" ?\e,Ll\e(B) ("A" ?\e,LL\e(B)
+ ("s" ?\e,Lo\e(B) ("S" ?\e,LO\e(B)
+ ("d" ?\e,LP\e(B) ("D" ?\e,L0\e(B)
+ ("f" ?\e,L^\e(B) ("F" ?\e,L>\e(B)
+ ("g" ?\e,LV\e(B) ("G" ?\e,L6\e(B)
+ ("h" ?\e,LS\e(B) ("H" ?\e,L3\e(B)
+ ("j" ?\e,Lb\e(B) ("J" ?\e,LB\e(B)
+ ("k" ?\e,L]\e(B) ("K" ?\e,L=\e(B)
+ ("l" ?\e,LR\e(B) ("L" ?\e,L2\e(B)
+ (";" ?\e,L\\e(B) (":" ?\e,L<\e(B)
+ ("'" ?\e,Lg\e(B) ("\"" ?\e,LG\e(B)
+ ("`" ?\() ("~" ?\))
+
+ ("z" ?\e,Ln\e(B) ("Z" ?\e,LN\e(B)
+ ("x" ?\e,LY\e(B) ("X" ?\e,L9\e(B)
+ ("c" ?\e,Lj\e(B) ("C" ?\e,LJ\e(B)
+ ("v" ?\e,Lm\e(B) ("V" ?\e,LM\e(B)
+ ("b" ?\e,Ld\e(B) ("B" ?\e,LD\e(B)
+ ("n" ?\e,Le\e(B) ("N" ?\e,LE\e(B)
+ ("m" ?\e,L_\e(B) ("M" ?\e,L?\e(B)
+ ("," ?\e,L`\e(B) ("<" ?\e,L@\e(B)
+ ("." ?\e,L[\e(B) (">" ?\e,L;\e(B)
+ ("/" ?\e,LQ\e(B) ("?" ?\e,L1\e(B)
+ ("\\" ?') ("|" ?\e,LK\e(B))
;; Local Variables:
;; coding: iso-2022-7bit
projects / emacs.git / commitdiff