* quail/cyrillic.el (russian-typewriter): Change keyboard layout.

(Bug#904)

diff --git a/leim/ChangeLog b/leim/ChangeLog
index e217e6a17240ad8f02993a54b25e6ea2bf5726e7..54f7caccdcd8098184da6d9a0dbc30ee0d3685c8 100644 (file)
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,8 @@
+2009-12-05  Vasily Korytov <vasily@korytov.pp.ru>
+
+       * quail/cyrillic.el (russian-typewriter): Change keyboard layout.
+       (Bug#904)
+
 2009-09-09  Glenn Morris  <rgm@gnu.org>
 
        * Makefile.in (install): Set umask to world-readable before creating

diff --git a/leim/quail/cyrillic.el b/leim/quail/cyrillic.el
index 4aec979b58083d78000d591758dd5b30dd93a8a1..1e609b80505271801b508ecdee9d19cc9fedbe39 100644 (file)
--- a/leim/quail/cyrillic.el
+++ b/leim/quail/cyrillic.el
@@ -52,25 +52,25 @@
  "\e,L9FC:5=\e(B Russian typewriter layout (ISO 8859-5 encoding)."
  nil t t t t nil nil nil nil nil t)
 
-;;  1! 2" 3' 4* 5: 6, 7. 8; 9( 0) -_ =+ \e,L!\e(B
-;;   \e,L9\e(B  \e,LF\e(B  \e,LC\e(B  \e,L:\e(B  \e,L5\e(B  \e,L=\e(B  \e,L3\e(B  \e,LH\e(B  \e,LI\e(B  \e,L7\e(B  \e,LE\e(B  \e,LJ\e(B
+;;  \e,Lp\e(B1 -2 /3 "4 :5 ,6 .7 _8 ?9 %0 != ;\ |+
+;;   \e,L9\e(B  \e,LF\e(B  \e,LC\e(B  \e,L:\e(B  \e,L5\e(B  \e,L=\e(B  \e,L3\e(B  \e,LH\e(B  \e,LI\e(B  \e,L7\e(B  \e,LE\e(B  \e,LJ\e(B )(
 ;;    \e,LD\e(B  \e,LK\e(B  \e,L2\e(B  \e,L0\e(B  \e,L?\e(B  \e,L@\e(B  \e,L>\e(B  \e,L;\e(B  \e,L4\e(B  \e,L6\e(B  \e,LM\e(B
-;;     \e,LO\e(B  \e,LG\e(B  \e,LA\e(B  \e,L<\e(B  \e,L8\e(B  \e,LB\e(B  \e,LL\e(B  \e,L1\e(B  \e,LN\e(B  /?
+;;     \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
 
 (quail-define-rules
- ("1" ?1)
- ("2" ?2)
- ("3" ?3)
- ("4" ?4)
- ("5" ?5)
- ("6" ?6)
- ("7" ?7)
- ("8" ?8)
- ("9" ?9)
- ("0" ?0)
- ("-" ?-)
- ("=" ?=)
- ("`" ?\e,Lq\e(B)
+ ("1" ?\e,Lp\e(B)
+ ("2" ?-)
+ ("3" ?/)
+ ("4" ?\")
+ ("5" ?:)
+ ("6" ?,)
+ ("7" ?.)
+ ("8" ?_)
+ ("9" ??)
+ ("0" ?%)
+ ("-" ?!)
+ ("=" ?\;)
+ ("`" ?|)
  ("q" ?\e,LY\e(B)
  ("w" ?\e,Lf\e(B)
  ("e" ?\e,Lc\e(B)
@@ -94,7 +94,7 @@
  ("l" ?\e,LT\e(B)
  (";" ?\e,LV\e(B)
  ("'" ?\e,Lm\e(B)
- ("\\" ?\\)
+ ("\\" ?\))
  ("z" ?\e,Lo\e(B)
  ("x" ?\e,Lg\e(B)
  ("c" ?\e,La\e(B)
@@ -104,21 +104,21 @@
  ("m" ?\e,Ll\e(B)
  ("," ?\e,LQ\e(B)
  ("." ?\e,Ln\e(B)
- ("/" ?/)
-
- ("!" ?!)
- ("@" ?\")
- ("#" ?')
- ("$" ?*)
- ("%" ?:)
- ("^" ?,)
- ("&" ?.)
- ("*" ?\;)
- ("(" ?\()
- (")" ?\))
- ("_" ?_)
- ("+" ?+)
- ("~" ?\e,L!\e(B)
+ ("/" ?\e,Lq\e(B)
+
+ ("!" ?1)
+ ("@" ?2)
+ ("#" ?3)
+ ("$" ?4)
+ ("%" ?5)
+ ("^" ?6)
+ ("&" ?7)
+ ("*" ?8)
+ ("(" ?9)
+ (")" ?0)
+ ("_" ?=)
+ ("+" ?\\)
+ ("~" ?+)
  ("Q" ?\e,L9\e(B)
  ("W" ?\e,LF\e(B)
  ("E" ?\e,LC\e(B)
@@ -142,7 +142,7 @@
  ("L" ?\e,L4\e(B)
  (":" ?\e,L6\e(B)
  ("\"" ?\e,LM\e(B)
- ("|" ?|)
+ ("|" ?\()
  ("Z" ?\e,LO\e(B)
  ("X" ?\e,LG\e(B)
  ("C" ?\e,LA\e(B)
@@ -152,7 +152,7 @@
  ("M" ?\e,LL\e(B)
  ("<" ?\e,L1\e(B)
  (">" ?\e,LN\e(B)
- ("?" ??)
+ ("?" ?\e,L!\e(B)
  )
 
 ;; Maintain the obsolete name for now.