leim/quail/cyrillic.el

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