view leim/quail/cyrillic.el @ 19077:a4d58e619dfa

Fix up coding system.

;;; quail/cyrillic.el -- Quail package for inputting Cyrillic characters

;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.

;; Keywords: multilingual, input method, Cyrillic

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Code:

(require 'quail)

(quail-define-package
 "cyrillic-jcuken" "Cyrillic" "¶¹" nil
 "¹Æúµ½ keyboard layout widely used in Russia (ISO 8859-5 encoding)"
 nil t t t t)

;;  1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ¡
;;   ¹  Æ  Ã  º  µ  ½  ³  È  É  ·  Å  ê
;;    Ä  Ë  ²  °  ¿  À  ¾  »  ´ ¶  Í
;;     Ï  Ç  Á  ¼  ¸  Â  Ì  ±  Î  /?

(quail-define-rules
 ("1" ?1)
 ("2" ?2)
 ("3" ?3)
 ("4" ?4)
 ("5" ?5)
 ("6" ?6)
 ("7" ?7)
 ("8" ?8)
 ("9" ?9)
 ("0" ?0)
 ("-" ?-)
 ("=" ?=)
 ("`" ?ñ)
 ("q" ?Ù)
 ("w" ?æ)
 ("e" ?ã)
 ("r" ?Ú)
 ("t" ?Õ)
 ("y" ?Ý)
 ("u" ?Ó)
 ("i" ?è)
 ("o" ?é)
 ("p" ?×)
 ("[" ?å)
 ("]" ?ê)
 ("a" ?ä)
 ("s" ?ë)
 ("d" ?Ò)
 ("f" ?Ð)
 ("g" ?ß)
 ("h" ?à)
 ("j" ?Þ)
 ("k" ?Û)
 ("l" ?Ô)
 (";" ?Ö)
 ("'" ?í)
 ("\\" ?\\)
 ("z" ?ï)
 ("x" ?ç)
 ("c" ?á)
 ("v" ?Ü)
 ("b" ?Ø)
 ("n" ?â)
 ("m" ?ì)
 ("," ?Ñ)
 ("." ?î)
 ("/" ?/)
 
 ("!" ?!)
 ("@" ?@)
 ("#" ?#)
 ("$" ?\")
 ("%" ?:)
 ("^" ?,)
 ("&" ?.)
 ("*" ?*)
 ("(" ?()
  (")" ?))
 ("_" ?_)
 ("+" ?+)
 ("~" ?¡)
 ("Q" ?¹)
 ("W" ?Æ)
 ("E" ?Ã)
 ("R" ?º)
 ("T" ?µ)
 ("Y" ?½)
 ("U" ?³)
 ("I" ?È)
 ("O" ?É)
 ("P" ?·)
 ("{" ?Å)
 ("}" ?Ê)
 ("A" ?Ä)
 ("S" ?Ë)
 ("D" ?²)
 ("F" ?°)
 ("G" ?¿)
 ("H" ?À)
 ("J" ?¾)
 ("K" ?»)
 ("L" ?´)
 (":" ?¶)
 ("\"" ?Í)
 ("|" ?|)
 ("Z" ?Ï)
 ("X" ?Ç)
 ("C" ?Á)
 ("V" ?¼)
 ("B" ?¸)
 ("N" ?Â)
 ("M" ?Ì)
 ("<" ?±)
 (">" ?Î)
 ("?" ??))

;;

(quail-define-package
 "cyrillic-jis-russian" "Cyrillic" "$(B'('+(B" nil
 "$(B'+'8'5','&'/(B keyboard layout same as JCUKEN (JIS X0208.1983 encoding)"
		      nil t t t t)

;;  1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ¡
;;   ¹  Æ  Ã  º  µ  ½  ³  È  É  ·  Å  ê
;;    Ä  Ë  ²  °  ¿  À  ¾  »  ´  ¶  Í
;;     Ï  Ç  Á  ¼  ¸  Â  Ì  ±  Î  /?

(quail-define-rules
 ("1" ?$(B#1(B)
 ("2" ?$(B#2(B)
 ("3" ?$(B#3(B)
 ("4" ?$(B#4(B)
 ("5" ?$(B#5(B)
 ("6" ?$(B#6(B)
 ("7" ?$(B#7(B)
 ("8" ?$(B#8(B)
 ("9" ?$(B#9(B)
 ("0" ?$(B#0(B)
 ("-" ?$(B!](B)
 ("=" ?$(B!a(B)
 ("`" ?$(B'W(B)
 ("q" ?$(B'[(B)
 ("w" ?$(B'h(B)
 ("e" ?$(B'e(B)
 ("r" ?$(B'\(B)
 ("t" ?$(B'V(B)
 ("y" ?$(B'_(B)
 ("u" ?$(B'T(B)
 ("i" ?$(B'j(B)
 ("o" ?$(B'k(B)
 ("p" ?$(B'Y(B)
 ("[" ?$(B'g(B)
 ("]" ?$(B'l(B)
 ("a" ?$(B'f(B)
 ("s" ?$(B'm(B)
 ("d" ?$(B'S(B)
 ("f" ?$(B'Q(B)
 ("g" ?$(B'a(B)
 ("h" ?$(B'b(B)
 ("j" ?$(B'`(B)
 ("k" ?$(B'](B)
 ("l" ?$(B'U(B)
 (";" ?$(B'X(B)
 ("'" ?$(B'o(B)
 ("\\" ?$(B!@(B)
 ("z" ?$(B'q(B)
 ("x" ?$(B'i(B)
 ("c" ?$(B'c(B)
 ("v" ?$(B'^(B)
 ("b" ?$(B'Z(B)
 ("n" ?$(B'd(B)
 ("m" ?$(B'n(B)
 ("," ?$(B'R(B)
 ("." ?$(B'p(B)
 ("/" ?$(B!?(B)
 
 ("!" ?$(B!*(B)
 ("@" ?$(B!w(B)
 ("#" ?$(B!t(B)
 ("$" ?$(B!I(B)
 ("%" ?$(B!'(B)
 ("^" ?$(B!$(B)
 ("&" ?$(B!%(B)
 ("*" ?$(B!v(B)
 ("(" ?$(B!J(B)
  (")" ?$(B!K(B)
 ("_" ?$(B!2(B)
 ("+" ?$(B!\(B)
 ("~" ?$(B''(B)
 ("Q" ?$(B'+(B)
 ("W" ?$(B'8(B)
 ("E" ?$(B'5(B)
 ("R" ?$(B',(B)
 ("T" ?$(B'&(B)
 ("Y" ?$(B'/(B)
 ("U" ?$(B'$(B)
 ("I" ?$(B':(B)
 ("O" ?$(B';(B)
 ("P" ?$(B')(B)
 ("{" ?$(B'7(B)
 ("}" ?$(B'<(B)
 ("A" ?$(B'6(B)
 ("S" ?$(B'=(B)
 ("D" ?$(B'#(B)
 ("F" ?$(B'!(B)
 ("G" ?$(B'1(B)
 ("H" ?$(B'2(B)
 ("J" ?$(B'0(B)
 ("K" ?$(B'-(B)
 ("L" ?$(B'%(B)
 (":" ?$(B'((B)
 ("\"" ?$(B'?(B)
 ("|" ?$(B!C(B)
 ("Z" ?$(B'A(B)
 ("X" ?$(B'9(B)
 ("C" ?$(B'3(B)
 ("V" ?$(B'.(B)
 ("B" ?$(B'*(B)
 ("N" ?$(B'4(B)
 ("M" ?$(B'>(B)
 ("<" ?$(B'"(B)
 (">" ?$(B'@(B)
 ("?" ?$(B!)(B))

;;

(quail-define-package
 "cyrillic-macedonian" "Cyrillic" "¶M" nil
 "©ªµÀ·-£¬ keyboard layout based on JUS.I.K1.004 (ISO 8859-5 encoding)"
 nil t t t t)

;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
;;   ©  ª  µ  À  Â  ·  Ã  ¸  ¾  ¿  È  £
;;    °  Á  ´  Ä  ³  Å  ¨  º  »  Ç  ¬  ¶
;;     ¥  ¯  Æ  ²  ±  ½  ¼  ,; .: -_

(quail-define-rules
 ("1" ?1)
 ("2" ?2)
 ("3" ?3)
 ("4" ?4)
 ("5" ?5)
 ("6" ?6)
 ("7" ?7)
 ("8" ?8)
 ("9" ?9)
 ("0" ?0)
 ("-" ?/)
 ("=" ?+)
 ("`" ?<)
 ("q" ?ù)
 ("w" ?ú)
 ("e" ?Õ)
 ("r" ?à)
 ("t" ?â)
 ("y" ?×)
 ("u" ?ã)
 ("i" ?Ø)
 ("o" ?Þ)
 ("p" ?ß)
 ("[" ?è)
 ("]" ?ó)
 ("a" ?Ð)
 ("s" ?á)
 ("d" ?Ô)
 ("f" ?ä)
 ("g" ?Ó)
 ("h" ?å)
 ("j" ?ø)
 ("k" ?Ú)
 ("l" ?Û)
 (";" ?ç)
 ("'" ?ü)
 ("\\" ?Ö)
 ("z" ?õ)
 ("x" ?ÿ)
 ("c" ?æ)
 ("v" ?Ò)
 ("b" ?Ñ)
 ("n" ?Ý)
 ("m" ?Ü)
 ("," ?,)
 ("." ?.)
 ("/" ?-)
 
 ("!" ?!)
 ("@" ?\")
 ("#" ?#)
 ("$" ?$)
 ("%" ?%)
 ("^" ?&)
 ("&" ?')
 ("*" ?\()
 ("(" ?\))
 (")" ?=)
 ("_" ??)
 ("+" ?*)
 ("~" ?>)
 ("Q" ?©)
 ("W" ?ª)
 ("E" ?µ)
 ("R" ?À)
 ("T" ?Â)
 ("Y" ?·)
 ("U" ?Ã)
 ("I" ?¸)
 ("O" ?¾)
 ("P" ?¿)
 ("{" ?È)
 ("}" ?£)
 ("A" ?°)
 ("S" ?Á)
 ("D" ?´)
 ("F" ?Ä)
 ("G" ?³)
 ("H" ?Å)
 ("J" ?¨)
 ("K" ?º)
 ("L" ?»)
 (":" ?Ç)
 ("\"" ?¬)
 ("|" ?¶)
 ("Z" ?¥)
 ("X" ?¯)
 ("C" ?Æ)
 ("V" ?²)
 ("B" ?±)
 ("N" ?½)
 ("M" ?¼)
 ("<" ?\;)
 (">" ?:)
 ("?" ?_))

;;

(quail-define-package
 "cyrillic-serbian" "Cyrillic" "¶S" nil
 "©ªµÀ·-¢« keyboard layout based on JUS.I.K1.005 (ISO 8859-5 encoding)"
		      nil t t t t)

;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
;;   ©  ª  µ  À  Â  ·  Ã  ¸  ¾  ¿  È  ¢
;;    °  Á  ´  Ä  ³  Å  ¨  º  »  Ç  «  ¶
;;     ¥  ¯  Æ  ²  ±  ½  ¼  ,; .: -_

(quail-define-rules
 ("1" ?1)
 ("2" ?2)
 ("3" ?3)
 ("4" ?4)
 ("5" ?5)
 ("6" ?6)
 ("7" ?7)
 ("8" ?8)
 ("9" ?9)
 ("0" ?0)
 ("-" ?/)
 ("=" ?+)
 ("`" ?<)
 ("q" ?ù)
 ("w" ?ú)
 ("e" ?Õ)
 ("r" ?à)
 ("t" ?â)
 ("y" ?×)
 ("u" ?ã)
 ("i" ?Ø)
 ("o" ?Þ)
 ("p" ?ß)
 ("[" ?è)
 ("]" ?ò)
 ("a" ?Ð)
 ("s" ?á)
 ("d" ?Ô)
 ("f" ?ä)
 ("g" ?Ó)
 ("h" ?å)
 ("j" ?ø)
 ("k" ?Ú)
 ("l" ?Û)
 (";" ?ç)
 ("'" ?û)
 ("\\" ?Ö)
 ("z" ?õ)
 ("x" ?ÿ)
 ("c" ?æ)
 ("v" ?Ò)
 ("b" ?Ñ)
 ("n" ?Ý)
 ("m" ?Ü)
 ("," ?,)
 ("." ?.)
 ("/" ?-)
 
 ("!" ?!)
 ("@" ?\")
 ("#" ?#)
 ("$" ?$)
 ("%" ?%)
 ("^" ?&)
 ("&" ?')
 ("*" ?\()
 ("(" ?\))
 (")" ?=)
 ("_" ??)
 ("+" ?*)
 ("~" ?>)
 ("Q" ?©)
 ("W" ?ª)
 ("E" ?µ)
 ("R" ?À)
 ("T" ?Â)
 ("Y" ?·)
 ("U" ?Ã)
 ("I" ?¸)
 ("O" ?¾)
 ("P" ?¿)
 ("{" ?È)
 ("}" ?¢)
 ("A" ?°)
 ("S" ?Á)
 ("D" ?´)
 ("F" ?Ä)
 ("G" ?³)
 ("H" ?Å)
 ("J" ?¨)
 ("K" ?º)
 ("L" ?»)
 (":" ?Ç)
 ("\"" ?«)
 ("|" ?¶)
 ("Z" ?¥)
 ("X" ?¯)
 ("C" ?Æ)
 ("V" ?²)
 ("B" ?±)
 ("N" ?½)
 ("M" ?¼)
 ("<" ?\;)
 (">" ?:)
 ("?" ?_))

;;

(quail-define-package
 "cyrillic-beylorussian" "Cyrillic" "¶B" nil
 "©ªµÀ·-¦® BEYLORUSSIAN (ISO 8859-5 encoding)"
 nil t t t t)

;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
;;   ©  ª  µ  À  Â  ·  Ã  ¸  ¾  ¿  È  ¦
;;    °  Á  ´  Ä  ³  Å  ¨  º  »  Ç  ®  ¶
;;     ¥  ¯  Æ  ²  ±  ½  ¼  ,; .: -_

(quail-define-rules
 ("1" ?1)
 ("2" ?2)
 ("3" ?3)
 ("4" ?4)
 ("5" ?5)
 ("6" ?6)
 ("7" ?7)
 ("8" ?8)
 ("9" ?9)
 ("0" ?0)
 ("-" ?/)
 ("=" ?+)
 ("`" ?<)
 ("q" ?ù)
 ("w" ?ú)
 ("e" ?Õ)
 ("r" ?à)
 ("t" ?â)
 ("y" ?×)
 ("u" ?ã)
 ("i" ?Ø)
 ("o" ?Þ)
 ("p" ?ß)
 ("[" ?è)
 ("]" ?ö)
 ("a" ?Ð)
 ("s" ?á)
 ("d" ?Ô)
 ("f" ?ä)
 ("g" ?Ó)
 ("h" ?å)
 ("j" ?ø)
 ("k" ?Ú)
 ("l" ?Û)
 (";" ?ç)
 ("'" ?þ)
 ("\\" ?Ö)
 ("z" ?õ)
 ("x" ?ÿ)
 ("c" ?æ)
 ("v" ?Ò)
 ("b" ?Ñ)
 ("n" ?Ý)
 ("m" ?Ü)
 ("," ?,)
 ("." ?.)
 ("/" ?-)
 
 ("!" ?!)
 ("@" ?\")
 ("#" ?#)
 ("$" ?$)
 ("%" ?%)
 ("^" ?&)
 ("&" ?')
 ("*" ?\()
 ("(" ?\))
 (")" ?=)
 ("_" ??)
 ("+" ?*)
 ("~" ?>)
 ("Q" ?©)
 ("W" ?ª)
 ("E" ?µ)
 ("R" ?À)
 ("T" ?Â)
 ("Y" ?·)
 ("U" ?Ã)
 ("I" ?¸)
 ("O" ?¾)
 ("P" ?¿)
 ("{" ?È)
 ("}" ?¦)
 ("A" ?°)
 ("S" ?Á)
 ("D" ?´)
 ("F" ?Ä)
 ("G" ?³)
 ("H" ?Å)
 ("J" ?¨)
 ("K" ?º)
 ("L" ?»)
 (":" ?Ç)
 ("\"" ?®)
 ("|" ?¶)
 ("Z" ?¥)
 ("X" ?¯)
 ("C" ?Æ)
 ("V" ?²)
 ("B" ?±)
 ("N" ?½)
 ("M" ?¼)
 ("<" ?\;)
 (">" ?:)
 ("?" ?_))

;;

(quail-define-package 
 "cyrillic-ukrainian" "Cyrillic" "¶U" nil
 "¤§µÀ·-¦® UKRAINIAN (ISO 8859-5 encoding)

Sorry, but 'ghe with upturn' is not included in ISO 8859-5"
 nil t t t t)

;;  1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
;;   ¤  §  µ  À  Â  ·  Ã  ¸  ¾  ¿  È  ¦
;;    °  Á  ´  Ä  ³  Å  ¨  º  »  Ç  ®  ¶
;;     ¥  ¯  Æ  ²  ±  ½  ¼  ,; .: -_

(quail-define-rules
 ("1" ?1)
 ("2" ?2)
 ("3" ?3)
 ("4" ?4)
 ("5" ?5)
 ("6" ?6)
 ("7" ?7)
 ("8" ?8)
 ("9" ?9)
 ("0" ?0)
 ("-" ?/)
 ("=" ?+)
 ("`" ?<)
 ("q" ?ô)
 ("w" ?÷)
 ("e" ?Õ)
 ("r" ?à)
 ("t" ?â)
 ("y" ?×)
 ("u" ?ã)
 ("i" ?Ø)
 ("o" ?Þ)
 ("p" ?ß)
 ("[" ?è)
 ("]" ?ö)
 ("a" ?Ð)
 ("s" ?á)
 ("d" ?Ô)
 ("f" ?ä)
 ("g" ?Ó)
 ("h" ?å)
 ("j" ?ø)
 ("k" ?Ú)
 ("l" ?Û)
 (";" ?ç)
 ("'" ?þ)
 ("\\" ?Ö)
 ("z" ?õ)
 ("x" ?ÿ)
 ("c" ?æ)
 ("v" ?Ò)
 ("b" ?Ñ)
 ("n" ?Ý)
 ("m" ?Ü)
 ("," ?,)
 ("." ?.)
 ("/" ?-)
 
 ("!" ?!)
 ("@" ?\")
 ("#" ?#)
 ("$" ?$)
 ("%" ?%)
 ("^" ?&)
 ("&" ?')
 ("*" ?\()
 ("(" ?\))
 (")" ?=)
 ("_" ??)
 ("+" ?*)
 ("~" ?>)
 ("Q" ?¤)
 ("W" ?§)
 ("E" ?µ)
 ("R" ?À)
 ("T" ?Â)
 ("Y" ?·)
 ("U" ?Ã)
 ("I" ?¸)
 ("O" ?¾)
 ("P" ?¿)
 ("{" ?È)
 ("}" ?¦)
 ("A" ?°)
 ("S" ?Á)
 ("D" ?´)
 ("F" ?Ä)
 ("G" ?³)
 ("H" ?Å)
 ("J" ?¨)
 ("K" ?º)
 ("L" ?»)
 (":" ?Ç)
 ("\"" ?®)
 ("|" ?¶)
 ("Z" ?¥)
 ("X" ?¯)
 ("C" ?Æ)
 ("V" ?²)
 ("B" ?±)
 ("N" ?½)
 ("M" ?¼)
 ("<" ?\;)
 (">" ?:)
 ("?" ?_))

;;

(quail-define-package 
 "cyrillic-yawerty" "Cyrillic" "¶Ï" nil
 "ϲµÀÂË Roman transcription (ISO 8859-5 encoding)

This layout is based on Roman transcription.
When preceded by a '/', the second and the third rows (number key row) change
as follows.

  keytop | Q  W  E  R  T  Y  U  I  O  P  A  S  D
 --------+---------------------------------------
  input  | ¢  £  ¤  ¥  ¦  §  ¨  ©  ª  «  ¬  ®  ¯"
		      nil t t t t)

;;  1! 2ñ 3ê 4¡ 5% 6^ 7& 8* 9( 0) -_ Ç  Î
;;   Ï  ²  µ  À  Â  Ë  Ã  ¸  ¾  ¿  È  É
;;    °  Á  ´  Ä  ³  Å  ¹  º  »  ;: '" Í
;;     ·  Ì  Æ  ¶  ±  ½  ¼  ,< .> /?

;;  1! 2ñ 3ê 4¡ 5% 6^ 7& 8* 9( 0) -_ Ç  Î
;;   ¢  £  ¤  ¥  ¦  §  ¨  ©  ª  «  È  É
;;    ¬  ®  ¯  Ä  ³  Å  ¹  º  »  ;: '" Í
;;     ·  Ì  Æ  ¶  ±  ½  ¼  ,< .> /?

(quail-define-rules
 ("1" ?1)
 ("2" ?2)
 ("3" ?3)
 ("4" ?4)
 ("5" ?5)
 ("6" ?6)
 ("7" ?7)
 ("8" ?8)
 ("9" ?9)
 ("0" ?0)
 ("-" ?-)
 ("=" ?ç)
 ("`" ?î)
 ("q" ?ï)
 ("w" ?Ò)
 ("e" ?Õ)
 ("r" ?à)
 ("t" ?â)
 ("y" ?ë)
 ("u" ?ã)
 ("i" ?Ø)
 ("o" ?Þ)
 ("p" ?ß)
 ("[" ?è)
 ("]" ?é)
 ("a" ?Ð)
 ("s" ?á)
 ("d" ?Ô)
 ("f" ?ä)
 ("g" ?Ó)
 ("h" ?å)
 ("j" ?Ù)
 ("k" ?Ú)
 ("l" ?Û)
 (";" ?\;)
 ("'" ?')
 ("\\" ?í)
 ("z" ?×)
 ("x" ?ì)
 ("c" ?æ)
 ("v" ?Ö)
 ("b" ?Ñ)
 ("n" ?Ý)
 ("m" ?Ü)
 ("," ?,)
 ("." ?.)
 ("/" ?/)
 
 ("!" ?!)
 ("@" ?ñ)
 ("#" ?ê)
 ("$" ?¡)
 ("%" ?%)
 ("^" ?^)
 ("&" ?&)
 ("*" ?*)
 ("(" ?\()
 (")" ?\))
 ("_" ?_)
 ("+" ?Ç)
 ("~" ?Î)
 ("Q" ?Ï)
 ("W" ?²)
 ("E" ?µ)
 ("R" ?À)
 ("T" ?Â)
 ("Y" ?Ë)
 ("U" ?Ã)
 ("I" ?¸)
 ("O" ?¾)
 ("P" ?¿)
 ("{" ?È)
 ("}" ?É)
 ("A" ?°)
 ("S" ?Á)
 ("D" ?´)
 ("F" ?Ä)
 ("G" ?³)
 ("H" ?Å)
 ("J" ?¹)
 ("K" ?º)
 ("L" ?»)
 (":" ?:)
 ("\"" ?\")
 ("|" ?Í)
 ("Z" ?·)
 ("X" ?Ì)
 ("C" ?Æ)
 ("V" ?¶)
 ("B" ?±)
 ("N" ?½)
 ("M" ?¼)
 ("<" ?<)
 (">" ?>)
 ("?" ??)
 
 ("/q" ?ò)
 ("/w" ?ó)
 ("/e" ?ô)
 ("/r" ?õ)
 ("/t" ?ö)
 ("/y" ?÷)
 ("/u" ?ø)
 ("/i" ?ù)
 ("/o" ?ú)
 ("/p" ?û)
 ("/a" ?ü)
 ("/s" ?þ)
 ("/d" ?ÿ)
 
 ("/Q" ?¢)
 ("/W" ?£)
 ("/E" ?¤)
 ("/R" ?¥)
 ("/T" ?¦)
 ("/Y" ?§)
 ("/U" ?¨)
 ("/I" ?©)
 ("/O" ?ª)
 ("/P" ?«)
 ("/A" ?¬)
 ("/S" ?®)
 ("/D" ?¯))

;; This was provided by Valery Alexeev <[e-mail]>.

(quail-define-package
 "cyrillic-translit" "Cyrillic" "¶t" nil
 "Intuitively transliterated keybooard layout.
Most convenient for entering Russian but all cyrillic characters are included.
Should handle most cases. However:
  for TSE use \"c\", never \"ts\"
  SHCHA = Bulgarian SHT = \"shch\", \"sj\", \"\\sht\" or \"\\t\",
  REVERSE ROUNDED E = \"e'\" or \"e`\"
  KHA when after  \"c,s,z\" = \"x\" or \"kh\"
  HARD SIGN = \"~\", CAPITAL HARD SIGN = \"~~\",
  SOFT SIGN = \"'\", CAPITAL SOFT SIGN = \"''\".

Also included are Ukranian YE = \"\\e\" and YI = \"yi\", 
Belorussian SHORT U = \"u'\",
Serbocroatian DJE = \"\\d\", CHJE= \"\\ch\", 
Macedonian GJE = \"\\g\", DZE = \"\\s\", KJE = \"\\k\",
cyrillic I DECIMAL = \"\\i\", JE = \"\\j\", LJE = \"\\l\", NJE = \"\\n\" and DZE =\"\\z\"."
 nil t t t t)

(quail-define-rules
 ("a" ?Ð)("b" ?Ñ) ("v" ?Ò) ("w" ?Ò) ("g" ?Ó) ("d" ?Ô) 
 ("e" ?Õ) ("je" ?Õ) ("je" ?Õ)
 ("yo" ?ñ) ("jo" ?ñ)
 ("zh" ?Ö) ("z" ?×) ("i" ?Ø) 
 ("j" ?Ù) ("j'" ?Ù) ("j`" ?Ù) ("k" ?Ú) ("l" ?Û)
 ("m" ?Ü) ("n" ?Ý) ("o" ?Þ) ("p" ?ß) ("r" ?à) ("s" ?á) ("t" ?â) ("u" ?ã)
 ("f" ?ä) ("x" ?å) ("h" ?å) ("kh" ?å)
 ("c" ?æ) ("ch" ?ç)
 ("sh" ?è) 
; ("w" ?é) ("q" ?é) 
 ("shch" ?é) ("sj" ?é) 
 ("\\sht" ?é) ("\\t" ?é) 
 ("~" ?ê) ("y" ?ë) ("'" ?ì) ("`" ?ì) 
 ("e'" ?í) ("e`" ?í) ("@" ?í) 
 ("yu" ?î) ("ju" ?î) 
 ("ya" ?ï) ("ja" ?ï)

 ("A" ?°) ("B" ?±) ("V" ?²) ("W" ?²) ("G" ?³) ("D" ?´) 
 ("E" ?µ) ("Je" ?µ) ("JE" ?µ)
 ("Yo" ?¡) ("YO" ?¡) ("Jo" ?¡) ("JO" ?¡) 
 ("Zh" ?¶) ("ZH" ?¶) ("Z" ?·) ("I" ?¸) 
 ("J" ?¹) ("J'" ?¹) ("J`" ?¹) ("K" ?º) ("L" ?»)
 ("M" ?¼) ("N" ?½) ("O" ?¾) ("P" ?¿) ("R" ?À) ("S" ?Á) ("T" ?Â) ("U" ?Ã)
 ("F" ?Ä) ("X" ?Å) ("H" ?Å) ("Kh" ?Å) ("KH" ?Å)
 ("C" ?Æ) ("Ch" ?Ç) ("CH" ?Ç) 
 ("Sh" ?È) ("SH" ?È) 
; ("W" ?É) ("Q" ?É) 
 ("Shch" ?É) ("SHCH" ?É) ("Sj" ?É) ("SJ" ?É) 
 ("\\Sht" ?É) ("\\SHT" ?É) ("\\T" ?É) 
 ("~~" "Ê") ("Y" ?Ë) ("''" "Ì") ("E'" ?Í) ("E`" ?Í) 
 ("Yu" ?Î) ("YU" ?Î) ("Ju" ?Î) ("JU" ?Î) 
 ("Ya" ?Ï) ("YA" ?Ï) ("Ja" ?Ï) ("JA" ?Ï) 

 ("\\e" ?ô) ("yi" ?÷) ("u'" ?þ)
 ("\\d" ?ò) ("\\ch" ?û)
 ("\\g" ?ó) ("\\s" ?õ) ("\\k" ?ü)
 ("\\i" ?ö) ("\\j" ?ø) ("\\l" ?ù) ("\\n" ?ú) ("\\z" ?ÿ)
 ("\\E" ?¤) ("YE" ?¤) ("Yi" ?§) ("YI" ?§) ("U'" ?®) 
 ("\\D" ?¢) ("\\Ch" ?«) ("\\CH" ?«)
 ("\\G" ?£) ("\\S" ?¥) ("\\K" ?¬) 
 ("\\I" ?¦) ("\\J" ?¨) ("\\L" ?©) ("\\N" ?ª) ("\\Z" ?¯)
)

;; Local Variables:
;; buffer-file-coding-system: cyrillic-iso-8bit
;; End: