Mercurial > emacs
view leim/quail/cyrillic.el @ 28230:8e330f701881
(Qx_charset_registry, Vface_default_registry):
Variables removed.
(clear_font_table, frame_update_line_height, load_face_font):
Adjusted for the change of fontset implementation.
(load_face_fontset_font): Function removed.
(pixel_point_size): New function.
(font_list): Argument type changed. Caller changed.
(LFACE_FONT): New macro.
(check_lface_attrs): Check attr[LFACE_FONT_INDEX].
(set_lface_from_font_name): Type of arg FONTNAME is changed to
Lisp_Object. Determine the font name by actually loading a font
by the specified pattern. Set LFACE_FONT (lface) to the specified
pattern. Even if a font is not found, don't try alternatives.
(Finternal_set_lisp_face_attribute): Handle `font' slot in lface.
(set_font_frame_param): If `font' is specified in lface, use it.
(Finternal_get_lisp_face_attribute): Handle `font' slot in lface.
(lface_same_font_attributes_p): Likewise.
(make_realized_face): Arguent changed. Caller changed. Set
face->ascii_face to face itself.
(free_realized_face): Free face->fontset if face is for ASCII.
(face_suitable_for_iso8859_1_p, face_suitable_for_charset_p,
deduce_unibyte_registry, x_charset_registry): Functions removed.
(free_realized_multibyte_face): New function.
(lookup_face, lookup_named_face, lookup_derived_face): Argument
changed. Caller changed.
(try_font_list): Argument type changed.
(face_fontset): Check `font' slot of ATTRS, not `family' slot.
(choose_face_font): Argument changed. Handle fontset properly.
(choose_face_fontset_font): Function removed.
(realize_default_face, realize_named_face): Don't remove the
former face here.
(realize_face): Argument changed. Caller changed. Remove face
with the arg former_face_id in advance. Load font for the new
face.
(realize_x_face): Argument changed. Caller changed. For a
multibyte character, share fontset with base_face. For a single
byte character, make a new realized fontset. Don't load a font
here.
(realize_tty_face): Argument changed. Caller changed.
(compute_char_face): Call FACE_FOR_CHAR, not FACE_FOR_CHARSET.
(face_at_buffer_position): Don't check multibyte_p for returning
DEFAULT_FACE_ID.
(face_at_string_position): Call FACE_SUITABLE_FOR_CHAR_P, not
FACE_SUITABLE_FOR_CHARSET_P.
(syms_of_xfaces): Remove code for Qx_charset_registry and
Vface_default_registry.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 21 Mar 2000 00:43:10 +0000 |
parents | 4f788869cb29 |
children | 519983161a46 |
line wrap: on
line source
;;; 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" ",L69(B" nil ",L9FC:5=(B keyboard layout widely used in Russia (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) -_ =+ ,L!(B ;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B ;; ,LD(B ,LK(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,LM(B ;; ,LO(B ,LG(B ,LA(B ,L<(B ,L8(B ,LB(B ,LL(B ,L1(B ,LN(B /? (quail-define-rules ("1" ?1) ("2" ?2) ("3" ?3) ("4" ?4) ("5" ?5) ("6" ?6) ("7" ?7) ("8" ?8) ("9" ?9) ("0" ?0) ("-" ?-) ("=" ?=) ("`" ?,Lq(B) ("q" ?,LY(B) ("w" ?,Lf(B) ("e" ?,Lc(B) ("r" ?,LZ(B) ("t" ?,LU(B) ("y" ?,L](B) ("u" ?,LS(B) ("i" ?,Lh(B) ("o" ?,Li(B) ("p" ?,LW(B) ("[" ?,Le(B) ("]" ?,Lj(B) ("a" ?,Ld(B) ("s" ?,Lk(B) ("d" ?,LR(B) ("f" ?,LP(B) ("g" ?,L_(B) ("h" ?,L`(B) ("j" ?,L^(B) ("k" ?,L[(B) ("l" ?,LT(B) (";" ?,LV(B) ("'" ?,Lm(B) ("\\" ?\\) ("z" ?,Lo(B) ("x" ?,Lg(B) ("c" ?,La(B) ("v" ?,L\(B) ("b" ?,LX(B) ("n" ?,Lb(B) ("m" ?,Ll(B) ("," ?,LQ(B) ("." ?,Ln(B) ("/" ?/) ("!" ?!) ("@" ?\") ("#" ?') ("$" ?*) ("%" ?:) ("^" ?,) ("&" ?.) ("*" ?\;) ("(" ?() (")" ?)) ("_" ?_) ("+" ?+) ("~" ?,L!(B) ("Q" ?,L9(B) ("W" ?,LF(B) ("E" ?,LC(B) ("R" ?,L:(B) ("T" ?,L5(B) ("Y" ?,L=(B) ("U" ?,L3(B) ("I" ?,LH(B) ("O" ?,LI(B) ("P" ?,L7(B) ("{" ?,LE(B) ("}" ?,LJ(B) ("A" ?,LD(B) ("S" ?,LK(B) ("D" ?,L2(B) ("F" ?,L0(B) ("G" ?,L?(B) ("H" ?,L@(B) ("J" ?,L>(B) ("K" ?,L;(B) ("L" ?,L4(B) (":" ?,L6(B) ("\"" ?,LM(B) ("|" ?|) ("Z" ?,LO(B) ("X" ?,LG(B) ("C" ?,LA(B) ("V" ?,L<(B) ("B" ?,L8(B) ("N" ?,LB(B) ("M" ?,LL(B) ("<" ?,L1(B) (">" ?,LN(B) ("?" ??)) ;; (quail-define-package "cyrillic-macedonian" "Cyrillic" ",L6(BM" nil ",L)*5@B7(B-,L#,(B keyboard layout based on JUS.I.K1.004 (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= /? +* <> ;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L#(B ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L,(B ,L6(B ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_ (quail-define-rules ("1" ?1) ("2" ?2) ("3" ?3) ("4" ?4) ("5" ?5) ("6" ?6) ("7" ?7) ("8" ?8) ("9" ?9) ("0" ?0) ("-" ?/) ("=" ?+) ("`" ?<) ("q" ?,Ly(B) ("w" ?,Lz(B) ("e" ?,LU(B) ("r" ?,L`(B) ("t" ?,Lb(B) ("y" ?,LW(B) ("u" ?,Lc(B) ("i" ?,LX(B) ("o" ?,L^(B) ("p" ?,L_(B) ("[" ?,Lh(B) ("]" ?,Ls(B) ("a" ?,LP(B) ("s" ?,La(B) ("d" ?,LT(B) ("f" ?,Ld(B) ("g" ?,LS(B) ("h" ?,Le(B) ("j" ?,Lx(B) ("k" ?,LZ(B) ("l" ?,L[(B) (";" ?,Lg(B) ("'" ?,L|(B) ("\\" ?,LV(B) ("z" ?,Lu(B) ("x" ?,L(B) ("c" ?,Lf(B) ("v" ?,LR(B) ("b" ?,LQ(B) ("n" ?,L](B) ("m" ?,L\(B) ("," ?,) ("." ?.) ("/" ?-) ("!" ?!) ("@" ?\") ("#" ?#) ("$" ?$) ("%" ?%) ("^" ?&) ("&" ?') ("*" ?\() ("(" ?\)) (")" ?=) ("_" ??) ("+" ?*) ("~" ?>) ("Q" ?,L)(B) ("W" ?,L*(B) ("E" ?,L5(B) ("R" ?,L@(B) ("T" ?,LB(B) ("Y" ?,L7(B) ("U" ?,LC(B) ("I" ?,L8(B) ("O" ?,L>(B) ("P" ?,L?(B) ("{" ?,LH(B) ("}" ?,L#(B) ("A" ?,L0(B) ("S" ?,LA(B) ("D" ?,L4(B) ("F" ?,LD(B) ("G" ?,L3(B) ("H" ?,LE(B) ("J" ?,L((B) ("K" ?,L:(B) ("L" ?,L;(B) (":" ?,LG(B) ("\"" ?,L,(B) ("|" ?,L6(B) ("Z" ?,L%(B) ("X" ?,L/(B) ("C" ?,LF(B) ("V" ?,L2(B) ("B" ?,L1(B) ("N" ?,L=(B) ("M" ?,L<(B) ("<" ?\;) (">" ?:) ("?" ?_)) ;; (quail-define-package "cyrillic-serbian" "Cyrillic" ",L6(BS" nil ",L)*5@B7(B-,L"+(B keyboard layout based on JUS.I.K1.005 (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= /? +* <> ;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L"(B ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L+(B ,L6(B ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_ (quail-define-rules ("1" ?1) ("2" ?2) ("3" ?3) ("4" ?4) ("5" ?5) ("6" ?6) ("7" ?7) ("8" ?8) ("9" ?9) ("0" ?0) ("-" ?/) ("=" ?+) ("`" ?<) ("q" ?,Ly(B) ("w" ?,Lz(B) ("e" ?,LU(B) ("r" ?,L`(B) ("t" ?,Lb(B) ("y" ?,LW(B) ("u" ?,Lc(B) ("i" ?,LX(B) ("o" ?,L^(B) ("p" ?,L_(B) ("[" ?,Lh(B) ("]" ?,Lr(B) ("a" ?,LP(B) ("s" ?,La(B) ("d" ?,LT(B) ("f" ?,Ld(B) ("g" ?,LS(B) ("h" ?,Le(B) ("j" ?,Lx(B) ("k" ?,LZ(B) ("l" ?,L[(B) (";" ?,Lg(B) ("'" ?,L{(B) ("\\" ?,LV(B) ("z" ?,Lu(B) ("x" ?,L(B) ("c" ?,Lf(B) ("v" ?,LR(B) ("b" ?,LQ(B) ("n" ?,L](B) ("m" ?,L\(B) ("," ?,) ("." ?.) ("/" ?-) ("!" ?!) ("@" ?\") ("#" ?#) ("$" ?$) ("%" ?%) ("^" ?&) ("&" ?') ("*" ?\() ("(" ?\)) (")" ?=) ("_" ??) ("+" ?*) ("~" ?>) ("Q" ?,L)(B) ("W" ?,L*(B) ("E" ?,L5(B) ("R" ?,L@(B) ("T" ?,LB(B) ("Y" ?,L7(B) ("U" ?,LC(B) ("I" ?,L8(B) ("O" ?,L>(B) ("P" ?,L?(B) ("{" ?,LH(B) ("}" ?,L"(B) ("A" ?,L0(B) ("S" ?,LA(B) ("D" ?,L4(B) ("F" ?,LD(B) ("G" ?,L3(B) ("H" ?,LE(B) ("J" ?,L((B) ("K" ?,L:(B) ("L" ?,L;(B) (":" ?,LG(B) ("\"" ?,L+(B) ("|" ?,L6(B) ("Z" ?,L%(B) ("X" ?,L/(B) ("C" ?,LF(B) ("V" ?,L2(B) ("B" ?,L1(B) ("N" ?,L=(B) ("M" ?,L<(B) ("<" ?\;) (">" ?:) ("?" ?_)) ;; (quail-define-package "cyrillic-beylorussian" "Cyrillic" ",L6(BB" nil ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (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= /? +* <> ;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L&(B ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L.(B ,L6(B ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_ (quail-define-rules ("1" ?1) ("2" ?2) ("3" ?3) ("4" ?4) ("5" ?5) ("6" ?6) ("7" ?7) ("8" ?8) ("9" ?9) ("0" ?0) ("-" ?/) ("=" ?+) ("`" ?<) ("q" ?,Ly(B) ("w" ?,Lz(B) ("e" ?,LU(B) ("r" ?,L`(B) ("t" ?,Lb(B) ("y" ?,LW(B) ("u" ?,Lc(B) ("i" ?,LX(B) ("o" ?,L^(B) ("p" ?,L_(B) ("[" ?,Lh(B) ("]" ?,Lv(B) ("a" ?,LP(B) ("s" ?,La(B) ("d" ?,LT(B) ("f" ?,Ld(B) ("g" ?,LS(B) ("h" ?,Le(B) ("j" ?,Lx(B) ("k" ?,LZ(B) ("l" ?,L[(B) (";" ?,Lg(B) ("'" ?,L~(B) ("\\" ?,LV(B) ("z" ?,Lu(B) ("x" ?,L(B) ("c" ?,Lf(B) ("v" ?,LR(B) ("b" ?,LQ(B) ("n" ?,L](B) ("m" ?,L\(B) ("," ?,) ("." ?.) ("/" ?-) ("!" ?!) ("@" ?\") ("#" ?#) ("$" ?$) ("%" ?%) ("^" ?&) ("&" ?') ("*" ?\() ("(" ?\)) (")" ?=) ("_" ??) ("+" ?*) ("~" ?>) ("Q" ?,L)(B) ("W" ?,L*(B) ("E" ?,L5(B) ("R" ?,L@(B) ("T" ?,LB(B) ("Y" ?,L7(B) ("U" ?,LC(B) ("I" ?,L8(B) ("O" ?,L>(B) ("P" ?,L?(B) ("{" ?,LH(B) ("}" ?,L&(B) ("A" ?,L0(B) ("S" ?,LA(B) ("D" ?,L4(B) ("F" ?,LD(B) ("G" ?,L3(B) ("H" ?,LE(B) ("J" ?,L((B) ("K" ?,L:(B) ("L" ?,L;(B) (":" ?,LG(B) ("\"" ?,L.(B) ("|" ?,L6(B) ("Z" ?,L%(B) ("X" ?,L/(B) ("C" ?,LF(B) ("V" ?,L2(B) ("B" ?,L1(B) ("N" ?,L=(B) ("M" ?,L<(B) ("<" ?\;) (">" ?:) ("?" ?_)) ;; (quail-define-package "cyrillic-ukrainian" "Cyrillic" ",L6(BU" nil ",L$'5@B7(B-,L&.(B UKRAINIAN (ISO 8859-5 encoding) Sorry, but 'ghe with upturn' is not included in ISO 8859-5" nil t t t t nil nil nil nil nil t) ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> ;; ,L$(B ,L'(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L&(B ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L.(B ,L6(B ;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_ (quail-define-rules ("1" ?1) ("2" ?2) ("3" ?3) ("4" ?4) ("5" ?5) ("6" ?6) ("7" ?7) ("8" ?8) ("9" ?9) ("0" ?0) ("-" ?/) ("=" ?+) ("`" ?<) ("q" ?,Lt(B) ("w" ?,Lw(B) ("e" ?,LU(B) ("r" ?,L`(B) ("t" ?,Lb(B) ("y" ?,LW(B) ("u" ?,Lc(B) ("i" ?,LX(B) ("o" ?,L^(B) ("p" ?,L_(B) ("[" ?,Lh(B) ("]" ?,Lv(B) ("a" ?,LP(B) ("s" ?,La(B) ("d" ?,LT(B) ("f" ?,Ld(B) ("g" ?,LS(B) ("h" ?,Le(B) ("j" ?,Lx(B) ("k" ?,LZ(B) ("l" ?,L[(B) (";" ?,Lg(B) ("'" ?,L~(B) ("\\" ?,LV(B) ("z" ?,Lu(B) ("x" ?,L(B) ("c" ?,Lf(B) ("v" ?,LR(B) ("b" ?,LQ(B) ("n" ?,L](B) ("m" ?,L\(B) ("," ?,) ("." ?.) ("/" ?-) ("!" ?!) ("@" ?\") ("#" ?#) ("$" ?$) ("%" ?%) ("^" ?&) ("&" ?') ("*" ?\() ("(" ?\)) (")" ?=) ("_" ??) ("+" ?*) ("~" ?>) ("Q" ?,L$(B) ("W" ?,L'(B) ("E" ?,L5(B) ("R" ?,L@(B) ("T" ?,LB(B) ("Y" ?,L7(B) ("U" ?,LC(B) ("I" ?,L8(B) ("O" ?,L>(B) ("P" ?,L?(B) ("{" ?,LH(B) ("}" ?,L&(B) ("A" ?,L0(B) ("S" ?,LA(B) ("D" ?,L4(B) ("F" ?,LD(B) ("G" ?,L3(B) ("H" ?,LE(B) ("J" ?,L((B) ("K" ?,L:(B) ("L" ?,L;(B) (":" ?,LG(B) ("\"" ?,L.(B) ("|" ?,L6(B) ("Z" ?,L%(B) ("X" ?,L/(B) ("C" ?,LF(B) ("V" ?,L2(B) ("B" ?,L1(B) ("N" ?,L=(B) ("M" ?,L<(B) ("<" ?\;) (">" ?:) ("?" ?_)) ;; (quail-define-package "cyrillic-yawerty" "Cyrillic" ",L6O(B" nil ",LO25@BK(B 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 | ,L"(B ,L#(B ,L$(B ,L%(B ,L&(B ,L'(B ,L((B ,L)(B ,L*(B ,L+(B ,L,(B ,L.(B ,L/(B" nil t t t t nil nil nil nil nil t) ;; 1! 2,Lq(B 3,Lj(B 4,L!(B 5% 6^ 7& 8* 9( 0) -_ ,LG(B ,LN(B ;; ,LO(B ,L2(B ,L5(B ,L@(B ,LB(B ,LK(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,LI(B ;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L9(B ,L:(B ,L;(B ;: '" ,LM(B ;; ,L7(B ,LL(B ,LF(B ,L6(B ,L1(B ,L=(B ,L<(B ,< .> /? ;; 1! 2,Lq(B 3,Lj(B 4,L!(B 5% 6^ 7& 8* 9( 0) -_ ,LG(B ,LN(B ;; ,L"(B ,L#(B ,L$(B ,L%(B ,L&(B ,L'(B ,L((B ,L)(B ,L*(B ,L+(B ,LH(B ,LI(B ;; ,L,(B ,L.(B ,L/(B ,LD(B ,L3(B ,LE(B ,L9(B ,L:(B ,L;(B ;: '" ,LM(B ;; ,L7(B ,LL(B ,LF(B ,L6(B ,L1(B ,L=(B ,L<(B ,< .> /? (quail-define-rules ("1" ?1) ("2" ?2) ("3" ?3) ("4" ?4) ("5" ?5) ("6" ?6) ("7" ?7) ("8" ?8) ("9" ?9) ("0" ?0) ("-" ?-) ("=" ?,Lg(B) ("`" ?,Ln(B) ("q" ?,Lo(B) ("w" ?,LR(B) ("e" ?,LU(B) ("r" ?,L`(B) ("t" ?,Lb(B) ("y" ?,Lk(B) ("u" ?,Lc(B) ("i" ?,LX(B) ("o" ?,L^(B) ("p" ?,L_(B) ("[" ?,Lh(B) ("]" ?,Li(B) ("a" ?,LP(B) ("s" ?,La(B) ("d" ?,LT(B) ("f" ?,Ld(B) ("g" ?,LS(B) ("h" ?,Le(B) ("j" ?,LY(B) ("k" ?,LZ(B) ("l" ?,L[(B) (";" ?\;) ("'" ?') ("\\" ?,Lm(B) ("z" ?,LW(B) ("x" ?,Ll(B) ("c" ?,Lf(B) ("v" ?,LV(B) ("b" ?,LQ(B) ("n" ?,L](B) ("m" ?,L\(B) ("," ?,) ("." ?.) ("/" ?/) ("!" ?!) ("@" ?,Lq(B) ("#" ?,Lj(B) ("$" ?,L!(B) ("%" ?%) ("^" ?^) ("&" ?&) ("*" ?*) ("(" ?\() (")" ?\)) ("_" ?_) ("+" ?,LG(B) ("~" ?,LN(B) ("Q" ?,LO(B) ("W" ?,L2(B) ("E" ?,L5(B) ("R" ?,L@(B) ("T" ?,LB(B) ("Y" ?,LK(B) ("U" ?,LC(B) ("I" ?,L8(B) ("O" ?,L>(B) ("P" ?,L?(B) ("{" ?,LH(B) ("}" ?,LI(B) ("A" ?,L0(B) ("S" ?,LA(B) ("D" ?,L4(B) ("F" ?,LD(B) ("G" ?,L3(B) ("H" ?,LE(B) ("J" ?,L9(B) ("K" ?,L:(B) ("L" ?,L;(B) (":" ?:) ("\"" ?\") ("|" ?,LM(B) ("Z" ?,L7(B) ("X" ?,LL(B) ("C" ?,LF(B) ("V" ?,L6(B) ("B" ?,L1(B) ("N" ?,L=(B) ("M" ?,L<(B) ("<" ?<) (">" ?>) ("?" ??) ("/q" ?,Lr(B) ("/w" ?,Ls(B) ("/e" ?,Lt(B) ("/r" ?,Lu(B) ("/t" ?,Lv(B) ("/y" ?,Lw(B) ("/u" ?,Lx(B) ("/i" ?,Ly(B) ("/o" ?,Lz(B) ("/p" ?,L{(B) ("/a" ?,L|(B) ("/s" ?,L~(B) ("/d" ?,L(B) ("/Q" ?,L"(B) ("/W" ?,L#(B) ("/E" ?,L$(B) ("/R" ?,L%(B) ("/T" ?,L&(B) ("/Y" ?,L'(B) ("/U" ?,L((B) ("/I" ?,L)(B) ("/O" ?,L*(B) ("/P" ?,L+(B) ("/A" ?,L,(B) ("/S" ?,L.(B) ("/D" ?,L/(B)) ;; This was provided by Valery Alexeev <valery@domovoy.math.uga.edu>. (quail-define-package "cyrillic-translit" "Cyrillic" ",L6(Bt" nil "Intuitively transliterated keyboard layout. Most convenient for entering Russian but all cyrillic characters are included. Should handle most cases. However: for ,Lf(B (TSE) use \"c\", never \"ts\" ,Li(B (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"/sht\" or \"/t\", ,Lm(B (REVERSE ROUNDED E) = \"e'\" or \"e`\" ,Le(B (KHA) when after ,La(B (S) = \"x\" or \"kh\" ,Lj(B (HARD SIGN) = \"~\", ,LJ(B (CAPITAL HARD SIGN) = \"~~\", ,Ll(B (SOFT SIGN) = \"'\", ,LL(B (CAPITAL SOFT SIGN) = \"''\", ,Lo(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 Also included are Ukrainian ,Lt(B (YE) = \"/e\" and ,Lw(B (YI) = \"yi\", Belorussian ,L~(B (SHORT U) = \"u'\", Serbo-Croatian ,Lr(B (DJE) = \"/d\", ,L{(B (CHJE)= \"/ch\", Macedonian ,Ls(B (GJE) = \"/g\", ,Lu(B (DZE) = \"/s\", ,L|(B (KJE) = \"/k\", cyrillic ,Lv(B (I DECIMAL) = \"/i\", ,Lx(B (JE) = \"/j\", ,Ly(B (LJE) = \"/l\", ,Lz(B (NJE) = \"/n\" and ,L(B (DZE) =\"/z\"." nil t t t t nil nil nil nil nil t) (quail-define-rules ("a" ?,LP(B)("b" ?,LQ(B) ("v" ?,LR(B) ("w" ?,LR(B) ("g" ?,LS(B) ("d" ?,LT(B) ("e" ?,LU(B) ("je" ?,LU(B) ("yo" ?,Lq(B) ("jo" ?,Lq(B) ("zh" ?,LV(B) ("z" ?,LW(B) ("i" ?,LX(B) ("j" ?,LY(B) ("j'" ?,LY(B) ("j`" ?,LY(B) ("k" ?,LZ(B) ("l" ?,L[(B) ("m" ?,L\(B) ("n" ?,L](B) ("o" ?,L^(B) ("p" ?,L_(B) ("r" ?,L`(B) ("s" ?,La(B) ("t" ?,Lb(B) ("u" ?,Lc(B) ("f" ?,Ld(B) ("x" ?,Le(B) ("h" ?,Le(B) ("kh" ?,Le(B) ("c" ?,Lf(B) ("ch" ?,Lg(B) ("sh" ?,Lh(B) ("shch" ?,Li(B) ("sj" ?,Li(B) ("/sht" ?,Li(B) ("/t" ?,Li(B) ("~" ?,Lj(B) ("y" ?,Lk(B) ("'" ?,Ll(B) ("`" ?,Ll(B) ("e'" ?,Lm(B) ("e`" ?,Lm(B) ("@" ?,Lm(B) ("yu" ?,Ln(B) ("ju" ?,Ln(B) ("ya" ?,Lo(B) ("ja" ?,Lo(B) ("q" ?,Lo(B) ("A" ?,L0(B) ("B" ?,L1(B) ("V" ?,L2(B) ("W" ?,L2(B) ("G" ?,L3(B) ("D" ?,L4(B) ("E" ?,L5(B) ("Je" ?,L5(B) ("JE" ?,L5(B) ("Yo" ?,L!(B) ("YO" ?,L!(B) ("Jo" ?,L!(B) ("JO" ?,L!(B) ("Zh" ?,L6(B) ("ZH" ?,L6(B) ("Z" ?,L7(B) ("I" ?,L8(B) ("J" ?,L9(B) ("J'" ?,L9(B) ("J`" ?,L9(B) ("K" ?,L:(B) ("L" ?,L;(B) ("M" ?,L<(B) ("N" ?,L=(B) ("O" ?,L>(B) ("P" ?,L?(B) ("R" ?,L@(B) ("S" ?,LA(B) ("T" ?,LB(B) ("U" ?,LC(B) ("F" ?,LD(B) ("X" ?,LE(B) ("H" ?,LE(B) ("Kh" ?,LE(B) ("KH" ?,LE(B) ("C" ?,LF(B) ("Ch" ?,LG(B) ("CH" ?,LG(B) ("Sh" ?,LH(B) ("SH" ?,LH(B) ("Shch" ?,LI(B) ("SHCH" ?,LI(B) ("Sj" ?,LI(B) ("SJ" ?,LI(B) ("/Sht" ?,LI(B) ("/SHT" ?,LI(B) ("/T" ?,LI(B) ("~~" ",LJ(B") ("Y" ?,LK(B) ("''" ",LL(B") ("E'" ?,LM(B) ("E`" ?,LM(B) ("Yu" ?,LN(B) ("YU" ?,LN(B) ("Ju" ?,LN(B) ("JU" ?,LN(B) ("Ya" ?,LO(B) ("YA" ?,LO(B) ("Ja" ?,LO(B) ("JA" ?,LO(B) ("Q" ?,LO(B) ("/e" ?,Lt(B) ("yi" ?,Lw(B) ("u'" ?,L~(B) ("/d" ?,Lr(B) ("/ch" ?,L{(B) ("/g" ?,Ls(B) ("/s" ?,Lu(B) ("/k" ?,L|(B) ("/i" ?,Lv(B) ("/j" ?,Lx(B) ("/l" ?,Ly(B) ("/n" ?,Lz(B) ("/z" ?,L(B) ("/E" ?,L$(B) ("YE" ?,L$(B) ("Yi" ?,L'(B) ("YI" ?,L'(B) ("U'" ?,L.(B) ("/D" ?,L"(B) ("/Ch" ?,L+(B) ("/CH" ?,L+(B) ("/G" ?,L#(B) ("/S" ?,L%(B) ("/K" ?,L,(B) ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B) ) (quail-define-package "cyrillic-translit-bulgarian" "Cyrillic" ",L6(Btb" nil "Intuitively transliterated keyboard layout optimized for Bulgarian. The only difference with cyrillic-translit is that \"sht\" translates as ,Li(B (SHCHA = Bulgarian SHT) insteat of ,Lhb(B (SH+T)." nil t t t t nil nil nil nil nil t) (quail-define-rules ("a" ?,LP(B)("b" ?,LQ(B) ("v" ?,LR(B) ("w" ?,LR(B) ("g" ?,LS(B) ("d" ?,LT(B) ("e" ?,LU(B) ("je" ?,LU(B) ("yo" ?,Lq(B) ("jo" ?,Lq(B) ("zh" ?,LV(B) ("z" ?,LW(B) ("i" ?,LX(B) ("j" ?,LY(B) ("j'" ?,LY(B) ("j`" ?,LY(B) ("k" ?,LZ(B) ("l" ?,L[(B) ("m" ?,L\(B) ("n" ?,L](B) ("o" ?,L^(B) ("p" ?,L_(B) ("r" ?,L`(B) ("s" ?,La(B) ("t" ?,Lb(B) ("u" ?,Lc(B) ("f" ?,Ld(B) ("x" ?,Le(B) ("h" ?,Le(B) ("kh" ?,Le(B) ("c" ?,Lf(B) ("ch" ?,Lg(B) ("sh" ?,Lh(B) ("shch" ?,Li(B) ("sj" ?,Li(B) ("/sht" ?,Li(B) ("/t" ?,Li(B) ("sht" ?,Li(B) ("~" ?,Lj(B) ("y" ?,Lk(B) ("'" ?,Ll(B) ("`" ?,Ll(B) ("e'" ?,Lm(B) ("e`" ?,Lm(B) ("@" ?,Lm(B) ("yu" ?,Ln(B) ("ju" ?,Ln(B) ("ya" ?,Lo(B) ("ja" ?,Lo(B) ("q" ?,Lo(B) ("A" ?,L0(B) ("B" ?,L1(B) ("V" ?,L2(B) ("W" ?,L2(B) ("G" ?,L3(B) ("D" ?,L4(B) ("E" ?,L5(B) ("Je" ?,L5(B) ("JE" ?,L5(B) ("Yo" ?,L!(B) ("YO" ?,L!(B) ("Jo" ?,L!(B) ("JO" ?,L!(B) ("Zh" ?,L6(B) ("ZH" ?,L6(B) ("Z" ?,L7(B) ("I" ?,L8(B) ("J" ?,L9(B) ("J'" ?,L9(B) ("J`" ?,L9(B) ("K" ?,L:(B) ("L" ?,L;(B) ("M" ?,L<(B) ("N" ?,L=(B) ("O" ?,L>(B) ("P" ?,L?(B) ("R" ?,L@(B) ("S" ?,LA(B) ("T" ?,LB(B) ("U" ?,LC(B) ("F" ?,LD(B) ("X" ?,LE(B) ("H" ?,LE(B) ("Kh" ?,LE(B) ("KH" ?,LE(B) ("C" ?,LF(B) ("Ch" ?,LG(B) ("CH" ?,LG(B) ("Sh" ?,LH(B) ("SH" ?,LH(B) ("Shch" ?,LI(B) ("SHCH" ?,LI(B) ("Sj" ?,LI(B) ("SJ" ?,LI(B) ("/Sht" ?,LI(B) ("/SHT" ?,LI(B) ("/T" ?,LI(B) ("Sht" ?,LI(B) ("SHT" ?,LI(B) ("~~" ",LJ(B") ("Y" ?,LK(B) ("''" ",LL(B") ("E'" ?,LM(B) ("E`" ?,LM(B) ("Yu" ?,LN(B) ("YU" ?,LN(B) ("Ju" ?,LN(B) ("JU" ?,LN(B) ("Ya" ?,LO(B) ("YA" ?,LO(B) ("Ja" ?,LO(B) ("JA" ?,LO(B) ("Q" ?,LO(B) ("/e" ?,Lt(B) ("yi" ?,Lw(B) ("u'" ?,L~(B) ("/d" ?,Lr(B) ("/ch" ?,L{(B) ("/g" ?,Ls(B) ("/s" ?,Lu(B) ("/k" ?,L|(B) ("/i" ?,Lv(B) ("/j" ?,Lx(B) ("/l" ?,Ly(B) ("/n" ?,Lz(B) ("/z" ?,L(B) ("/E" ?,L$(B) ("YE" ?,L$(B) ("Yi" ?,L'(B) ("YI" ?,L'(B) ("U'" ?,L.(B) ("/D" ?,L"(B) ("/Ch" ?,L+(B) ("/CH" ?,L+(B) ("/G" ?,L#(B) ("/S" ?,L%(B) ("/K" ?,L,(B) ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B) ) ;; Local Variables: ;; buffer-file-coding-system: iso-2022-7bit ;; End: