leim/quail/cyrillic.el

   1 ;;; cyrillic.el --- Quail package for inputting Cyrillic characters
   2
   3 ;; Copyright (C) 1997-1998, 2001-2011  Free Software Foundation, Inc.
   4 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
   5 ;;   2006, 2007, 2008, 2009, 2010, 2011
   6 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   7 ;;   Registration Number H14PRO021
   8
   9 ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
  10 ;; Keywords: multilingual, input method, Cyrillic, i18n
  11
  12 ;; This file is part of GNU Emacs.
  13
  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 3 of the License, or
  17 ;; (at your option) any later version.
  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
  25 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  26
  27 ;;; Commentary:
  28
  29 ;; These methods use a mixture of 8859-5 and Unicode.  Quail, used
  30 ;; with ucs-tables provides suport for translating on the fly to
  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
  35 ;;; Code:
  36
  37 (require 'quail)
  38
  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
  42 ;; in typewriters for ages but it has been superseded on desktops by
  43 ;; a variation of this layout, implemented in M$ Windows software.
  44 ;; The Windows layout is greatly preferred because of the comma and
  45 ;; period being placed more conveniently and, of course, because of
  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.]
  49 (quail-define-package
  50  "russian-typewriter" "Russian" "\e,L69\e(B" nil
  51  "\e,L9FC:5=\e(B Russian typewriter layout (ISO 8859-5 encoding)."
  52  nil t t t t nil nil nil nil nil t)
  53
  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 )(
  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
  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
  58
  59 (quail-define-rules
  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  ("`" ?|)
  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)
  96  ("\\" ?\))
  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)
 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  ("~" ?+)
 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)
 144  ("|" ?\()
 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)
 154  ("?" ?\e,L!\e(B)
 155  )
 156
 157 ;; Maintain the obsolete name for now.
 158 (push (cons "cyrillic-jcuken"
 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
 166     (quail-define-package
 167      "cyrillic-jcuken" "Russian" "\e,L69\e(B" nil
 168      "\e,L9FC:5=\e(B Russian typewriter layout (ISO 8859-5 encoding)."))
 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
 176 ;;  1! 2" 3\e,Lp\e(B 4; 5% 6: 7? 8* 9( 0) -_ =+ \/ \e,Lq!\e(B
 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
 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  ("=" ?=)
 194  ("|" ?/)
 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  ("*" ?*)
 238  ("(" ?()
 239  (")" ?))
 240  ("_" ?_)
 241  ("+" ?+)
 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)
 266  ("|" ?|)
 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)
 276  ("?" ?,))
 277
 278 ;; Mikhailian couldn't check the next two.
 279
 280 ;; This seems to have the same layout for letters as mk in XKB, but at
 281 ;; least the top row is different.
 282 (quail-define-package
 283  "cyrillic-macedonian" "Cyrillic" "\e,L6\e(BM" nil
 284  "\e,L)*5@B7\e(B-\e,L#,\e(B keyboard layout based on JUS.I.K1.004"
 285  nil t t t t nil nil nil nil nil t)
 286
 287 ;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
 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  ,; .: -_
 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  ("`" ?<)
 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\x7f\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)
 337  ("," ?,)
 338  ("." ?.)
 339  ("/" ?-)
 340
 341  ("!" ?!)
 342  ("@" ?\")
 343  ("#" ?#)
 344  ("$" ?$)
 345  ("%" ?%)
 346  ("^" ?&)
 347  ("&" ?')
 348  ("*" ?\()
 349  ("(" ?\))
 350  (")" ?=)
 351  ("_" ??)
 352  ("+" ?*)
 353  ("~" ?>)
 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)
 385  ("<" ?\;)
 386  (">" ?:)
 387  ("?" ?_))
 388
 389 ;;
 390
 391 (quail-define-package
 392  "cyrillic-serbian" "Cyrillic" "\e,L6\e(BS" nil
 393  "\e,L)*5@B7\e(B-\e,L"+\e(B keyboard layout based on JUS.I.K1.005"
 394  nil t t t t nil nil nil nil nil t)
 395
 396 ;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
 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  ,; .: -_
 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  ("`" ?<)
 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\x7f\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)
 446  ("," ?,)
 447  ("." ?.)
 448  ("/" ?-)
 449
 450  ("!" ?!)
 451  ("@" ?\")
 452  ("#" ?#)
 453  ("$" ?$)
 454  ("%" ?%)
 455  ("^" ?&)
 456  ("&" ?')
 457  ("*" ?\()
 458  ("(" ?\))
 459  (")" ?=)
 460  ("_" ??)
 461  ("+" ?*)
 462  ("~" ?>)
 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)
 494  ("<" ?\;)
 495  (">" ?:)
 496  ("?" ?_))
 497
 498 ;;
 499
 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\x7f\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 ;;  ("/" ?-)
 557
 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
 611 ;; ukrainian keyboard layout but the apostrophe is still not there, whereas
 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.
 617 (quail-define-package
 618  "cyrillic-ukrainian" "Ukrainian" "\e,L6\e(BU" nil
 619  "\e,L$'5@B7\e(B-\e,L&.\e(B UKRAINIAN
 620
 621 Sorry, but 'ghe with upturn' is not included in ISO 8859-5."
 622  nil t t t t nil nil nil nil nil t)
 623
 624 ;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
 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
 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  ,; .: -_
 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  ("`" ?<)
 643  ("q" ?\e,Lt\e(B)
 644  ("w" ?\e,Lw\e(B)
 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\x7f\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)
 674  ("," ?,)
 675  ("." ?.)
 676  ("/" ?-)
 677
 678  ("!" ?!)
 679  ("@" ?\")
 680  ("#" ?#)
 681  ("$" ?$)
 682  ("%" ?%)
 683  ("^" ?&)
 684  ("&" ?')
 685  ("*" ?\()
 686  ("(" ?\))
 687  (")" ?=)
 688  ("_" ??)
 689  ("+" ?*)
 690  ("~" ?>)
 691  ("Q" ?\e,L$\e(B)
 692  ("W" ?\e,L'\e(B)
 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)
 722  ("<" ?\;)
 723  (">" ?:)
 724  ("?" ?_))
 725
 726
 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)."
 730  nil t t t t nil nil nil nil nil t)
 731
 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  .,
 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)
 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)
 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  ("/" ?.)
 784  ("!" ?!)
 785  ("@" ?\")
 786  ("#" ?\e$,1uV\e(B)
 787  ("$" ?\;)
 788  ("%" ?%)
 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))
 832 ;;
 833
 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.
 837 (quail-define-package
 838  "cyrillic-yawerty" "Cyrillic" "\e,L6O\e(B" nil
 839  "\e,LO25@BK\e(B Roman transcription
 840
 841 This layout is based on Roman transcription by phonemic resemblance.
 842 When preceded by a '/', the second and the third rows (number key row) change
 843 as follows.
 844
 845   keytop | Q  W  E  R  T  Y  U  I  O  P  A  S  D
 846  --------+---------------------------------------
 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"
 848  nil t t t t nil nil nil nil nil t)
 849
 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  ,< .> /?
 854
 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  ,< .> /?
 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  ("-" ?-)
 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)
 895  (";" ?\;)
 896  ("'" ?')
 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)
 905  ("," ?,)
 906  ("." ?.)
 907  ("/" ?/)
 908
 909  ("!" ?!)
 910  ("@" ?\e,Lq\e(B)
 911  ("#" ?\e,Lj\e(B)
 912  ("$" ?\e,L!\e(B)
 913  ("%" ?%)
 914  ("^" ?^)
 915  ("&" ?&)
 916  ("*" ?*)
 917  ("(" ?\()
 918  (")" ?\))
 919  ("_" ?_)
 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)
 943  (":" ?:)
 944  ("\"" ?\")
 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)
 953  ("<" ?<)
 954  (">" ?>)
 955  ("?" ??)
 956
 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\x7f\e(B)
 970
 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))
 984
 985 ;; This was provided by Valery Alexeev <valery@domovoy.math.uga.edu>.
 986
 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.
1000 (quail-define-package
1001  "cyrillic-translit" "Cyrillic" "\e,L6\e(Bt" t
1002  "Intuitively transliterated keyboard layout.
1003 Most convenient for entering Russian, but all Cyrillic characters
1004 are included.  Should handle most cases.  However:
1005   for \e,Lf\e(B (TSE) use \"c\", never \"ts\"
1006   \e,Li\e(B (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"/sht\" or \"/t\",
1007   \e,Lm\e(B (REVERSE ROUNDED E) = \"e\\\"
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) = \"~~\",
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
1013 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
1014 u f h=kh=x c ch sh shch=sj=/s=/sht ~ y ' e\\ yu=ju ya=ja=q
1015
1016 Also 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'\",
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)
1024
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`" ?\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)
1041
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)
1054  ("E\\" ?\e,LM\e(B) ("E'" ?\e,LM\e(B) ("E`" ?\e,LM\e(B) ("@@" ?\e,LM\e(B)
1055  ("Yu" ?\e,LN\e(B) ("YU" ?\e,LN\e(B) ("Ju" ?\e,LN\e(B) ("JU" ?\e,LN\e(B)
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)
1057
1058  ("/e" ?\e,Lt\e(B) ("yi" ?\e,Lw\e(B) ("u'" ?\e,L~\e(B) ("u~" ?\e,L~\e(B)
1059  ("g'" ?\e$,1)Q\e(B)
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\x7f\e(B)
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)
1064  ("G'" ?\e$,1)P\e(B)
1065  ("/D" ?\e,L"\e(B) ("/Ch" ?\e,L+\e(B) ("/CH" ?\e,L+\e(B)
1066  ("/G" ?\e,L#\e(B) ("/S" ?\e,L%\e(B) ("/K" ?\e,L,\e(B)
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)
1068
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
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
1096  ("/c" ?\e,A)\e(B)
1097  ("/tm" ?\e$(D"o\e(B)
1098  ("/reg" ?\e,A.\e(B)
1099  ("/eu"  ?\e,b$\e(B)
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)
1145 )
1146
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.
1150 (quail-define-package
1151  "belarusian" "Belarusian" "BE" nil
1152  "\e$,1(9(F(C(:(5(=\e(B keyboard layout registered as STB955-94 Belarusian standard.
1153 Unicode based."
1154  nil t t t t nil nil nil nil nil t)
1155
1156 ;; \e$,1(q(!\e(B 1! 2" 3N 4; 5% 6: 7? 8* 9( 0) -_ =+
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
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  .,
1160
1161 (quail-define-rules
1162  ("~" ?\e$,1(!\e(B)
1163  ("@" ?\")
1164  ("#" ?\e$,1uV\e(B)
1165  ("$" ?\;)
1166  ("%" ?%)
1167  ("^" ?:)
1168  ("&" ??)
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)
1192  ("|" ?|)
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)
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)
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)
1237  ("/" ?.))
1238
1239 ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov
1240 ;; <al_shopov@web.bg>.
1241
1242 ;; Extra commentary and the indicator from an independent
1243 ;; (cyrillic-iso8859-5) implementation by Ognyan Kulev
1244 ;; <ogi@fmi.uni-sofia.bg> and name changes from Anton Zinoviev
1245 ;; <anton@lml.bas.bg>.
1246 (quail-define-package
1247  "bulgarian-phonetic" "Bulgarian" "\e$,1(6(1(D\e(B"
1248  nil
1249  "Bulgarian Phonetic keyboard layout, producing Unicode.
1250
1251 The layout is similar to `cyrillic-translit', but all Bulgarian
1252 characters are typed with a single key.
1253
1254 Use /& for \e,A'\e(B (Cyrillic paragraph) and /# for \e$,1uV\e(B.
1255
1256 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."
1257  nil t t t t nil nil nil nil nil t)
1258
1259 ;;  \e$,1(G\e(B
1260 ;;      \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
1261 ;;       \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
1262 ;;        \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
1263
1264 (quail-define-rules
1265  ("/&" ?\e,A'\e(B)
1266  ("/#" ?\e$,1uV\e(B)
1267  ("A" ?\e$,1(0\e(B)
1268  ("B" ?\e$,1(1\e(B)
1269  ("W" ?\e$,1(2\e(B)
1270  ("G" ?\e$,1(3\e(B)
1271  ("D" ?\e$,1(4\e(B)
1272  ("E" ?\e$,1(5\e(B)
1273  ("V" ?\e$,1(6\e(B)
1274  ("Z" ?\e$,1(7\e(B)
1275  ("I" ?\e$,1(8\e(B)
1276  ("J" ?\e$,1(9\e(B)
1277  ("K" ?\e$,1(:\e(B)
1278  ("L" ?\e$,1(;\e(B)
1279  ("M" ?\e$,1(<\e(B)
1280  ("N" ?\e$,1(=\e(B)
1281  ("O" ?\e$,1(>\e(B)
1282  ("P" ?\e$,1(?\e(B)
1283  ("R" ?\e$,1(@\e(B)
1284  ("S" ?\e$,1(A\e(B)
1285  ("T" ?\e$,1(B\e(B)
1286  ("U" ?\e$,1(C\e(B)
1287  ("F" ?\e$,1(D\e(B)
1288  ("H" ?\e$,1(E\e(B)
1289  ("C" ?\e$,1(F\e(B)
1290  ("~" ?\e$,1(G\e(B)
1291  ("{" ?\e$,1(H\e(B)
1292  ("}" ?\e$,1(I\e(B)
1293  ("Y" ?\e$,1(J\e(B)
1294  ("X" ?\e$,1(L\e(B)
1295  ("|" ?\e$,1(N\e(B)
1296  ("Q" ?\e$,1(O\e(B)
1297  ("a" ?\e$,1(P\e(B)
1298  ("b" ?\e$,1(Q\e(B)
1299  ("w" ?\e$,1(R\e(B)
1300  ("g" ?\e$,1(S\e(B)
1301  ("d" ?\e$,1(T\e(B)
1302  ("e" ?\e$,1(U\e(B)
1303  ("v" ?\e$,1(V\e(B)
1304  ("z" ?\e$,1(W\e(B)
1305  ("i" ?\e$,1(X\e(B)
1306  ("j" ?\e$,1(Y\e(B)
1307  ("k" ?\e$,1(Z\e(B)
1308  ("l" ?\e$,1([\e(B)
1309  ("m" ?\e$,1(\\e(B)
1310  ("n" ?\e$,1(]\e(B)
1311  ("o" ?\e$,1(^\e(B)
1312  ("p" ?\e$,1(_\e(B)
1313  ("r" ?\e$,1(`\e(B)
1314  ("s" ?\e$,1(a\e(B)
1315  ("t" ?\e$,1(b\e(B)
1316  ("u" ?\e$,1(c\e(B)
1317  ("f" ?\e$,1(d\e(B)
1318  ("h" ?\e$,1(e\e(B)
1319  ("c" ?\e$,1(f\e(B)
1320  ("`" ?\e$,1(g\e(B)
1321  ("[" ?\e$,1(h\e(B)
1322  ("]" ?\e$,1(i\e(B)
1323  ("y" ?\e$,1(j\e(B)
1324  ("x" ?\e$,1(l\e(B)
1325  ("\\" ?\e$,1(n\e(B)
1326  ("q" ?\e$,1(o\e(B))
1327
1328 ;; Based on an implementation by Ognyan Kulev <ogi@fmi.uni-sofia.bg>.
1329 ;; This follows XKB bg.
1330
1331 (quail-define-package
1332  "bulgarian-bds" "Bulgarian" "\e$,1(1(4(A\e(B" nil
1333  "Bulgarian standard keyboard layout (BDS)
1334
1335 This keyboard layout is standard for Bulgarian typewriters.
1336
1337 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.
1338
1339 In addition to original Bulgarian typewriter layout, keys \\ and |
1340 are transformed into ' and \e$,1(K\e(B respectively.  Some keyboards mark these
1341 keys as being transformed into ( and ) respectively.  For ( and ), use
1342 ` and ~ respectively.  This input method follows XKB."
1343  nil t t t t nil nil nil nil nil t)
1344
1345 ;;  () 1! 2? 3+ 4" 5% 6= 7: 8/ 9_ 0\e$,1uV\e(B -I .V
1346 ;;      ,\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
1347 ;;       \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
1348 ;;        \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
1349
1350 (quail-define-rules
1351
1352  ("1" ?1) ("!" ?!)
1353  ("2" ?2) ("@" ??)
1354  ("3" ?3) ("#" ?+)
1355  ("4" ?4) ("$" ?\")
1356  ("5" ?5) ("%" ?%)
1357  ("6" ?6) ("^" ?=)
1358  ("7" ?7) ("&" ?:)
1359  ("8" ?8) ("*" ?/)
1360  ("9" ?9) ("(" ?_)
1361  ("0" ?0) (")" ?\e$,1uV\e(B)
1362  ("-" ?-) ("_" ?I)
1363  ("=" ?.) ("+" ?V)
1364
1365  ("q" ?,) ("Q" ?\e$,1(k\e(B)
1366  ("w" ?\e$,1(c\e(B) ("W" ?\e$,1(C\e(B)
1367  ("e" ?\e$,1(U\e(B) ("E" ?\e$,1(5\e(B)
1368  ("r" ?\e$,1(X\e(B) ("R" ?\e$,1(8\e(B)
1369  ("t" ?\e$,1(h\e(B) ("T" ?\e$,1(H\e(B)
1370  ("y" ?\e$,1(i\e(B) ("Y" ?\e$,1(I\e(B)
1371  ("u" ?\e$,1(Z\e(B) ("U" ?\e$,1(:\e(B)
1372  ("i" ?\e$,1(a\e(B) ("I" ?\e$,1(A\e(B)
1373  ("o" ?\e$,1(T\e(B) ("O" ?\e$,1(4\e(B)
1374  ("p" ?\e$,1(W\e(B) ("P" ?\e$,1(7\e(B)
1375  ("[" ?\e$,1(f\e(B) ("{" ?\e$,1(F\e(B)
1376  ("]" ?\;) ("}" ?\e,A'\e(B)
1377
1378  ("a" ?\e$,1(l\e(B) ("A" ?\e$,1(L\e(B)
1379  ("s" ?\e$,1(o\e(B) ("S" ?\e$,1(O\e(B)
1380  ("d" ?\e$,1(P\e(B) ("D" ?\e$,1(0\e(B)
1381  ("f" ?\e$,1(^\e(B) ("F" ?\e$,1(>\e(B)
1382  ("g" ?\e$,1(V\e(B) ("G" ?\e$,1(6\e(B)
1383  ("h" ?\e$,1(S\e(B) ("H" ?\e$,1(3\e(B)
1384  ("j" ?\e$,1(b\e(B) ("J" ?\e$,1(B\e(B)
1385  ("k" ?\e$,1(]\e(B) ("K" ?\e$,1(=\e(B)
1386  ("l" ?\e$,1(R\e(B) ("L" ?\e$,1(2\e(B)
1387  (";" ?\e$,1(\\e(B) (":" ?\e$,1(<\e(B)
1388  ("'" ?\e$,1(g\e(B) ("\"" ?\e$,1(G\e(B)
1389  ("`" ?\() ("~" ?\))
1390
1391  ("z" ?\e$,1(n\e(B) ("Z" ?\e$,1(N\e(B)
1392  ("x" ?\e$,1(Y\e(B) ("X" ?\e$,1(9\e(B)
1393  ("c" ?\e$,1(j\e(B) ("C" ?\e$,1(J\e(B)
1394  ("v" ?\e$,1(m\e(B) ("V" ?\e$,1(M\e(B)
1395  ("b" ?\e$,1(d\e(B) ("B" ?\e$,1(D\e(B)
1396  ("n" ?\e$,1(e\e(B) ("N" ?\e$,1(E\e(B)
1397  ("m" ?\e$,1(_\e(B) ("M" ?\e$,1(?\e(B)
1398  ("," ?\e$,1(`\e(B) ("<" ?\e$,1(@\e(B)
1399  ("." ?\e$,1([\e(B) (">" ?\e$,1(;\e(B)
1400  ("/" ?\e$,1(Q\e(B) ("?" ?\e$,1(1\e(B)
1401  ("\\" ?') ("|" ?\e$,1(K\e(B))
1402
1403 ;; Local Variables:
1404 ;; coding: iso-2022-7bit
1405 ;; End:
1406
1407 ;;; cyrillic.el ends here