;;; cyrillic.el --- Quail package for inputting Cyrillic characters
-;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007
+;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
;; Free Software Foundation, Inc.
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-;; 2006, 2007
+;; 2006, 2007, 2008
;; National Institute of Advanced Industrial Science and Technology (AIST)
;; Registration Number H14PRO021
;; This file is part of GNU Emacs.
-;; GNU Emacs is free software; you can redistribute it and/or modify
+;; 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.
+;; the Free Software Foundation, either version 3 of the License, 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
;; 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., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; least the top row is different.
(quail-define-package
"cyrillic-macedonian" "Cyrillic" "\e,L6\e(BM" nil
- "\e,L)*5@B7\e(B-\e,L#,\e(B keyboard layout based on JUS.I.K1.004 (ISO 8859-5 encoding)"
+ "\e,L)*5@B7\e(B-\e,L#,\e(B keyboard layout based on JUS.I.K1.004"
nil t t t t nil nil nil nil nil t)
;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
(quail-define-package
"cyrillic-serbian" "Cyrillic" "\e,L6\e(BS" nil
- "\e,L)*5@B7\e(B-\e,L"+\e(B keyboard layout based on JUS.I.K1.005 (ISO 8859-5 encoding)"
+ "\e,L)*5@B7\e(B-\e,L"+\e(B keyboard layout based on JUS.I.K1.005"
nil t t t t nil nil nil nil nil t)
;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
;; Fixme: add GHE_WITH_UPTURN.
(quail-define-package
"cyrillic-ukrainian" "Ukrainian" "\e,L6\e(BU" nil
- "\e,L$'5@B7\e(B-\e,L&.\e(B UKRAINIAN (ISO 8859-5 encoding)
+ "\e,L$'5@B7\e(B-\e,L&.\e(B UKRAINIAN
Sorry, but 'ghe with upturn' is not included in ISO 8859-5."
nil t t t t nil nil nil nil nil t)
;; (mostly Russian) from time to time.
(quail-define-package
"cyrillic-yawerty" "Cyrillic" "\e,L6O\e(B" nil
- "\e,LO25@BK\e(B Roman transcription (ISO 8859-5 encoding)
+ "\e,LO25@BK\e(B Roman transcription
This layout is based on Roman transcription by phonemic resemblance.
When preceded by a '/', the second and the third rows (number key row) change
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'\",
+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\",
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)
("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,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)
("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,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)
+ ;; Combining accents
+ ("a'" ["\e,LP\e$(O+Z\e(B"]) ("a`" ["\e,LP\e$(O+\\e(B"])
+ ("e'" ["\e,LU\e$(O+Z\e(B"]) ("e`" ["\e,LU\e$(O+\\e(B"])
+ ("i'" ["\e,LX\e$(O+Z\e(B"]) ("i`" ["\e,LX\e$(O+\\e(B"])
+ ("o'" ["\e,L^\e$(O+Z\e(B"]) ("o`" ["\e,L^\e$(O+\\e(B"])
+ ("u'" ["\e,Lc\e$(O+Z\e(B"]) ("u`" ["\e,Lc\e$(O+\\e(B"])
+ ("A'" ["\e,L0\e$(O+Z\e(B"]) ("A`" ["\e,L0\e$(O+\\e(B"])
+ ("E'" ["\e,L5\e$(O+Z\e(B"]) ("E`" ["\e,L5\e$(O+\\e(B"])
+ ("I'" ["\e,L8\e$(O+Z\e(B"]) ("I`" ["\e,L8\e$(O+\\e(B"])
+ ("O'" ["\e,L>\e$(O+Z\e(B"]) ("O`" ["\e,L>\e$(O+\\e(B"])
+ ("U'" ["\e,LC\e$(O+Z\e(B"]) ("U`" ["\e,LC\e$(O+\\e(B"])
+
+ ("/e" ?\e,Lt\e(B) ("yi" ?\e,Lw\e(B) ("u~" ?\e,L~\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)
("/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)
+
+ ("/-" ?\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
;; coding: iso-2022-7bit
;; End:
-;;; arch-tag: e6d34b16-8710-4181-a17e-819a1df0334f
+;; arch-tag: e6d34b16-8710-4181-a17e-819a1df0334f
;;; cyrillic.el ends here
HCoop / bpt / emacs.git / blobdiff