HCoop / bpt / emacs.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Spelling fixes.
[bpt/emacs.git] / leim / quail / cyrillic.el
diff --git a/leim/quail/cyrillic.el b/leim/quail/cyrillic.el
index 1c0379f..eb5a0a0 100644 (file)
--- a/leim/quail/cyrillic.el
+++ b/leim/quail/cyrillic.el
@@ -1,9 +1,8 @@
 ;;; cyrillic.el --- Quail package for inputting Cyrillic characters
 
-;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
-;;   Free Software Foundation, Inc.
+;; Copyright (C) 1997-1998, 2001-2011  Free Software Foundation, Inc.
 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-;;   2006, 2007, 2008
+;;   2006, 2007, 2008, 2009, 2010, 2011
 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
 ;;   Registration Number H14PRO021
 
@@ -40,10 +39,10 @@
 ;; This was `cyrillic-jcuken'.  Alexander Mikhailian
 ;; <mikhailian@altern.org> says:  "cyrillic-jcuken" is actually
 ;; russian.  It is ok but a bit outdated.  This layout has been used
-;; in typewriters for ages but it has been superceeded on desktops by
+;; in typewriters for ages but it has been superseded on desktops by
 ;; a variation of this layout, implemented in M$ Windows software.
 ;; The Windows layout is greatly preferred because of the comma and
-;; period being placed more conviniently and, of course, because of
+;; period being placed more conveniently and, of course, because of
 ;; the popularity of Windows software. This layout is a common option
 ;; in X Windows and console layouts for GNU/Linux.  [See
 ;; `russian-computer' below.]
@@ -52,25 +51,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 +93,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 +103,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 +141,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 +151,7 @@
  ("M" ?\e,LL\e(B)
  ("<" ?\e,L1\e(B)
  (">" ?\e,LN\e(B)
- ("?" ??)
+ ("?" ?\e,L!\e(B)
  )
 
 ;; Maintain the obsolete name for now.
@@ -164,7 +163,7 @@
 ;; commented out because quail-update-leim-list-file ignores
 ;; commented-out lines.
 (if nil
-    (quail-define-package 
+    (quail-define-package
      "cyrillic-jcuken" "Russian" "\e,L69\e(B" nil
      "\e,L9FC:5=\e(B Russian typewriter layout (ISO 8859-5 encoding)."))
 
@@ -174,7 +173,7 @@
  "\e,L9FC:5=\e(B Russian computer layout"
  nil t t t t nil nil nil nil nil t)
 
-;;  1! 2" 3\e,Lp\e(B 4; 5% 6: 7? 8* 9( 0) -_ =+ \e,Lq!\e(B
+;;  1! 2" 3\e,Lp\e(B 4; 5% 6: 7? 8* 9( 0) -_ =+ \/ \e,Lq!\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,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  .,
@@ -192,6 +191,7 @@
  ("0" ?0)
  ("-" ?-)
  ("=" ?=)
+ ("|" ?/)
  ("`" ?\e,Lq\e(B)
  ("q" ?\e,LY\e(B)
  ("w" ?\e,Lf\e(B)
@@ -608,7 +608,7 @@
 ;; layout.  In fact, Microsoft shipped for a while a layout that was lacking
 ;; two characters, precisely the "GHE_WITH_UPTURN" and the apostrophe.  The
 ;; latest versions of Windows software do have the "GHE_WITH_UPTURN" in the
-;; ukrainian keyborad layout but the apostrophe is still not there, whereas
+;; ukrainian keyboard layout but the apostrophe is still not there, whereas
 ;; there is one letter, "Cyrillic_YO", not used in ukrainian.  Ukrainians
 ;; normally replace the "Cyrillic_YO" by the apostrophe sign and live
 ;; happily with this little change.  [See "ukrainian-computer" below.]
@@ -1004,17 +1004,18 @@ Most convenient for entering Russian, but all Cyrillic characters
 are included.  Should handle most cases.  However:
   for \e,Lf\e(B (TSE) use \"c\", never \"ts\"
   \e,Li\e(B (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"/sht\" or \"/t\",
-  \e,Lm\e(B (REVERSE ROUNDED E) = \"e'\" or \"e`\"
+  \e,Lm\e(B (REVERSE ROUNDED E) = \"e\\\"
   \e,Le\e(B (KHA) when after \e,La\e(B (S) = \"x\" or \"kh\"
   \e,Lj\e(B (HARD SIGN) = \"~\", \e,LJ\e(B (CAPITAL HARD SIGN) = \"~~\",
   \e,Ll\e(B (SOFT SIGN) = \"'\", \e,LL\e(B (CAPITAL SOFT SIGN) = \"''\",
   \e,Lo\e(B (YA) = \"ya\", \"ja\" or \"q\".
 
 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
-u f h=kh=x c ch sh shch=sj=/s=/sht ~ y ' e' yu=ju ya=ja=q
+u f h=kh=x c ch sh shch=sj=/s=/sht ~ y ' e\\ yu=ju ya=ja=q
 
-Also included are Ukrainian \e,Lt\e(B (YE) = \"/e\" and \e,Lw\e(B (YI) = \"yi\",
-Belarusian \e,L~\e(B (SHORT U) = \"u'\",
+Also included are Ukrainian \e,Lt\e(B (YE) = \"/e\", \e,Lw\e(B (YI) = \"yi\",
+\e$,1)Q\e(B (GHE WITH UPTURN) = \"g'\",
+Belarusian \e,L~\e(B (SHORT U) = \"u~\",
 Serbo-Croatian \e,Lr\e(B (DJE) = \"/d\", \e,L{\e(B (CHJE)= \"/ch\",
 Macedonian \e,Ls\e(B (GJE) = \"/g\", \e,Lu\e(B (DZE) = \"/s\", \e,L|\e(B (KJE) = \"/k\",
 cyrillic \e,Lv\e(B (I DECIMAL) = \"/i\", \e,Lx\e(B (JE) = \"/j\",
@@ -1022,7 +1023,7 @@ cyrillic \e,Lv\e(B (I DECIMAL) = \"/i\", \e,Lx\e(B (JE) = \"/j\",
  nil t t t t nil nil nil nil nil t)
 
 (quail-define-rules
- ("a" ?\e,LP\e(B)("b" ?\e,LQ\e(B) ("v" ?\e,LR\e(B) ("w" ?\e,LR\e(B) ("g" ?\e,LS\e(B) ("d" ?\e,LT\e(B)
+ ("a" ?\e,LP\e(B) ("b" ?\e,LQ\e(B) ("v" ?\e,LR\e(B) ("w" ?\e,LR\e(B) ("g" ?\e,LS\e(B) ("d" ?\e,LT\e(B)
  ("e" ?\e,LU\e(B) ("je" ?\e,LU\e(B)
  ("yo" ?\e,Lq\e(B) ("jo" ?\e,Lq\e(B)
  ("zh" ?\e,LV\e(B) ("z" ?\e,LW\e(B) ("i" ?\e,LX\e(B)
@@ -1034,7 +1035,7 @@ cyrillic \e,Lv\e(B (I DECIMAL) = \"/i\", \e,Lx\e(B (JE) = \"/j\",
  ("shch" ?\e,Li\e(B) ("sj" ?\e,Li\e(B)
  ("/sht" ?\e,Li\e(B) ("/t" ?\e,Li\e(B)
  ("~" ?\e,Lj\e(B) ("y" ?\e,Lk\e(B) ("'" ?\e,Ll\e(B) ("`" ?\e,Ll\e(B)
- ("e'" ?\e,Lm\e(B) ("e`" ?\e,Lm\e(B) ("@" ?\e,Lm\e(B)
+ ("e\\" ?\e,Lm\e(B) ("e'" ?\e,Lm\e(B) ("e`" ?\e,Lm\e(B) ("@" ?\e,Lm\e(B)
  ("yu" ?\e,Ln\e(B) ("ju" ?\e,Ln\e(B)
  ("ya" ?\e,Lo\e(B) ("ja" ?\e,Lo\e(B) ("q" ?\e,Lo\e(B)
 
@@ -1049,18 +1050,98 @@ cyrillic \e,Lv\e(B (I DECIMAL) = \"/i\", \e,Lx\e(B (JE) = \"/j\",
  ("Sh" ?\e,LH\e(B) ("SH" ?\e,LH\e(B)
  ("Shch" ?\e,LI\e(B) ("SHCH" ?\e,LI\e(B) ("Sj" ?\e,LI\e(B) ("SJ" ?\e,LI\e(B)
  ("/Sht" ?\e,LI\e(B) ("/SHT" ?\e,LI\e(B) ("/T" ?\e,LI\e(B)
- ("~~" "\e,LJ\e(B") ("Y" ?\e,LK\e(B) ("''" "\e,LL\e(B") ("E'" ?\e,LM\e(B) ("E`" ?\e,LM\e(B)
+ ("~~" ?\e,LJ\e(B) ("Y" ?\e,LK\e(B) ("''" ?\e,LL\e(B)
+ ("E\\" ?\e,LM\e(B) ("E'" ?\e,LM\e(B) ("E`" ?\e,LM\e(B) ("@@" ?\e,LM\e(B)
  ("Yu" ?\e,LN\e(B) ("YU" ?\e,LN\e(B) ("Ju" ?\e,LN\e(B) ("JU" ?\e,LN\e(B)
  ("Ya" ?\e,LO\e(B) ("YA" ?\e,LO\e(B) ("Ja" ?\e,LO\e(B) ("JA" ?\e,LO\e(B) ("Q" ?\e,LO\e(B)
 
- ("/e" ?\e,Lt\e(B) ("yi" ?\e,Lw\e(B) ("u'" ?\e,L~\e(B)
+ ("/e" ?\e,Lt\e(B) ("yi" ?\e,Lw\e(B) ("u'" ?\e,L~\e(B) ("u~" ?\e,L~\e(B)
+ ("g'" ?\e$,1)Q\e(B)
  ("/d" ?\e,Lr\e(B) ("/ch" ?\e,L{\e(B)
  ("/g" ?\e,Ls\e(B) ("/s" ?\e,Lu\e(B) ("/k" ?\e,L|\e(B)
  ("/i" ?\e,Lv\e(B) ("/j" ?\e,Lx\e(B) ("/l" ?\e,Ly\e(B) ("/n" ?\e,Lz\e(B) ("/z" ?\e,L\7f\e(B)
- ("/E" ?\e,L$\e(B) ("YE" ?\e,L$\e(B) ("Yi" ?\e,L'\e(B) ("YI" ?\e,L'\e(B) ("U'" ?\e,L.\e(B)
+ ("/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)
+ ("G'" ?\e$,1)P\e(B)
  ("/D" ?\e,L"\e(B) ("/Ch" ?\e,L+\e(B) ("/CH" ?\e,L+\e(B)
  ("/G" ?\e,L#\e(B) ("/S" ?\e,L%\e(B) ("/K" ?\e,L,\e(B)
  ("/I" ?\e,L&\e(B) ("/J" ?\e,L(\e(B) ("/L" ?\e,L)\e(B) ("/N" ?\e,L*\e(B) ("/Z" ?\e,L/\e(B)
+
+ ;; Combining accents as a separate character
+ ("//'" ?\e$(O+Z\e(B) ("//`" ?\e$(O+\\e(B)
+
+ ;; In the following two rules the accent is not a separate character
+ ("i`" ?\e$,1(}\e(B) ("I`" ?\e$,1(-\e(B)
+
+ ("/-"  ?\e$(G!9\e(B)  ;; EN DASH
+ ("/--" ?\e$(G!7\e(B)  ;; EM DASH
+ ("/*" ?\e$(O#@\e(B)   ;; BULLET
+ ("/." ?\e$,1s$\e(B)   ;; ONE DOT LEADER
+ ("/.." ?\e$(G!-\e(B)  ;; TWO DOT LEADER
+ ("/..." ?\e$A!-\e(B) ;; HORIZONTAL ELLIPSIS
+ ("/,," ?\e,Y%\e(B)  ;; DOUBLE LOW-9 QUOTATION MARK
+ ("/," ?\e$,1rz\e(B)   ;; SINGLE LOW-9 QUOTATION MARK
+ ("/''" ?\e,Y!\e(B)  ;; RIGHT DOUBLE QUOTATION MARK
+ ("/'" ?\e,F"\e(B)   ;; RIGHT SINGLE QUOTATION MARK
+ ("/``" ?\e,Y4\e(B)  ;; LEFT DOUBLE QUOTATION MARK
+ ("/`" ?\e,F!\e(B)   ;; LEFT SINGLE QUOTATION MARK
+ ("/<<" ?\e,A+\e(B)  ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+ ("/>>" ?\e,A;\e(B)  ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+
+ ("/&" ?\e,A'\e(B)
+ ("/ab" ?\e,A'\e(B)                             ; _\e,LPQ\e(B_\e,LWPf\e(B
+ ("/pa" ?\e,A'\e(B)                             ; _pa_ragraph
+ ("/#" ?\e,Lp\e(B)
+ ("/no" ?\e,Lp\e(B)                             ; _\e,L]^\e(B_\e,L\U`\e(B
+
+ ("/c" ?\e,A)\e(B)
+ ("/tm" ?\e$(D"o\e(B)
+ ("/reg" ?\e,A.\e(B)
+ ("/eu"  ?\e,b$\e(B)
+ ("/ce"  ?\e,A"\e(B)
+
+ ;; fractions
+ ("/78" ?\e$(C(~\e(B)
+ ("/58" ?\e$(C(}\e(B)
+ ("/38" ?\e$(C(|\e(B)
+ ("/18" ?\e$(C({\e(B)
+ ("/56" ?\e$,1v:\e(B)
+ ("/16" ?\e$,1v9\e(B)
+ ("/45" ?\e$,1v8\e(B)
+ ("/35" ?\e$,1v7\e(B)
+ ("/25" ?\e$,1v6\e(B)
+ ("/15" ?\e$(O'z\e(B)
+ ("/23" ?\e$(O'y\e(B)
+ ("/13" ?\e$(O'x\e(B)
+ ("/34" ?\e,A>\e(B)
+ ("/12" ?\e,A=\e(B)
+ ("/14" ?\e,A<\e(B)
+
+ ;; Roman numerals, commonly used for months and section/subsection numbers
+ ("/RI" ?\e$A"q\e(B)
+ ("/RII" ?\e$A"r\e(B)
+ ("/RIII" ?\e$A"s\e(B)
+ ("/RIV" ?\e$A"t\e(B)
+ ("/RV" ?\e$A"u\e(B)
+ ("/RVI" ?\e$A"v\e(B)
+ ("/RVII" ?\e$A"w\e(B)
+ ("/RVIII" ?\e$A"x\e(B)
+ ("/RIX" ?\e$A"y\e(B)
+ ("/RX" ?\e$A"z\e(B)
+ ("/RXI" ?\e$A"{\e(B)
+ ("/RXII" ?\e$A"|\e(B)
+
+ ("/ri" ?\e$(G&5\e(B)
+ ("/rii" ?\e$(G&6\e(B)
+ ("/riii" ?\e$(G&7\e(B)
+ ("/riv" ?\e$(G&8\e(B)
+ ("/rv" ?\e$(G&9\e(B)
+ ("/rvi" ?\e$(G&:\e(B)
+ ("/rvii" ?\e$(G&;\e(B)
+ ("/rviii" ?\e$(G&<\e(B)
+ ("/rix" ?\e$(G&=\e(B)
+ ("/rx" ?\e$(G&>\e(B)
+ ("/rxi" ?\e$(O,?\e(B)
+ ("/rxii" ?\e$(O,@\e(B)
 )
 
 ;; Originally from Yudit's `Belarusian input table according to
@@ -1323,5 +1404,4 @@ keys as being transformed into ( and ) respectively.  For ( and ), use
 ;; coding: iso-2022-7bit
 ;; End:
 
-;; arch-tag: e6d34b16-8710-4181-a17e-819a1df0334f
 ;;; cyrillic.el ends here
Unnamed repository; edit this file 'description' to name the repository.