About mongolian keyboard layout in emacs ( again with attach )

[Natsagdorj Shagdar]

Upps, forgot to attach patch files.


Regards
Natsagdorj Shagdar

--- cyrillic.el.orig    2008-05-29 21:47:39.000000000 +0200
+++ cyrillic.el 2008-05-29 23:34:27.000000000 +0200
@@ -277,6 +277,113 @@
  (">" ?,LN(B)
  ("?" ?,))
 
+;; This is mongolian standart keyboard layout.
+(quail-define-package
+ "mongolian-cyrillic" "Mongolian" "MN" nil
+ "Mongolian standart computer layout"
+ nil t t t t nil nil nil nil nil t)
+
+;;  ,Lp(B1 -2 "3 $,1tN(B4 :5 .6 ?7 ,8 (9 )0 ,LU5(B ,LiI(B =+
+;;   ,LD(B  ,LF(B  ,LC(B  ,L6(B  ,LM(B  ,L=(B  ,L3(B  ,LH(B  
$,1)n(B  ,L7(B  ,L:(B  ,LJ(B
+;;    ,L9(B  ,LK(B  ,L1(B  $,1*H(B  ,L0(B  ,LE(B  
,address@hidden(B  ,L>(B  ,L;(B  ,L4(B  ,L?(B
+;;     ,LO(B  ,LG(B  ,L!(B  ,LA(B  ,L<(B  ,L8(B  ,LB(B  ,LL(B  
,L2(B  ,LN(B
+
+(quail-define-rules
+ ("1" ?,Lp(B)
+ ("2" ?-)
+ ("3" ?\")
+ ("4" ?$,1tN(B)
+ ("5" ?:)
+ ("6" ?.)
+ ("7" ??)
+ ("8" ?,)
+ ("9" ?()
+ ("0" ?))
+ ("-" ?,LU(B)
+ ("=" ?,Li(B)
+ ("`" ?=)
+ ("q" ?,Ld(B)
+ ("w" ?,Lf(B)
+ ("e" ?,Lc(B)
+ ("r" ?,LV(B)
+ ("t" ?,Lm(B)
+ ("y" ?,L](B)
+ ("u" ?,LS(B)
+ ("i" ?,Lh(B)
+ ("o" ?$,1)o(B)
+ ("p" ?,LW(B)
+ ("[" ?,LZ(B)
+ ("]" ?,Lj(B)
+ ("a" ?,LY(B)
+ ("s" ?,Lk(B)
+ ("d" ?,LQ(B)
+ ("f" ?$,1*I(B)
+ ("g" ?,LP(B)
+ ("h" ?,Le(B)
+ ("j" ?,L`(B)
+ ("k" ?,L^(B)
+ ("l" ?,L[(B)
+ (";" ?,LT(B)
+ ("'" ?,L_(B)
+ ("\\" ?\\)
+ ("z" ?,Lo(B)
+ ("x" ?,Lg(B)
+ ("c" ?,Lq(B)
+ ("v" ?,La(B)
+ ("b" ?,L\(B)
+ ("n" ?,LX(B)
+ ("m" ?,Lb(B)
+ ("," ?,Ll(B)
+ ("." ?,LR(B)
+ ("/" ?,Ln(B)
+ ("!" ?1)
+ ("@" ?2)
+ ("#" ?3)
+ ("$" ?4)
+ ("%" ?5)
+ ("^" ?6)
+ ("&" ?7)
+ ("*" ?8)
+ ("(" ?9)
+ (")" ?0)
+ ("_" ?,L5(B)
+ ("+" ?,LI(B)
+ ("~" ?+)
+ ("Q" ?,LD(B)
+ ("W" ?,LF(B)
+ ("E" ?,LC(B)
+ ("R" ?,L6(B)
+ ("T" ?,LM(B)
+ ("Y" ?,L=(B)
+ ("U" ?,L3(B)
+ ("I" ?,LH(B)
+ ("O" ?$,1)n(B)
+ ("P" ?,L7(B)
+ ("{" ?,L:(B)
+ ("}" ?,LJ(B)
+ ("A" ?,L9(B)
+ ("S" ?,LK(B)
+ ("D" ?,L1(B)
+ ("F" ?$,1*H(B)
+ ("G" ?,L0(B)
+ ("H" ?,LE(B)
+ ("J" ?,address@hidden(B)
+ ("K" ?,L>(B)
+ ("L" ?,L;(B)
+ (":" ?,L4(B)
+ ("\"" ?,L?(B)
+ ("|" ?|)
+ ("Z" ?,LO(B)
+ ("X" ?,LG(B)
+ ("C" ?,L!(B)
+ ("V" ?,LA(B)
+ ("B" ?,L<(B)
+ ("N" ?,L8(B)
+ ("M" ?,LB(B)
+ ("<" ?,LL(B)
+ (">" ?,L2(B)
+ ("?" ?,LN(B))
+
 ;; Mikhailian couldn't check the next two.
 
 ;; This seems to have the same layout for letters as mk in XKB, but at

--- leim-list.el.orig   2008-05-29 23:39:39.000000000 +0200
+++ leim-list.el        2008-05-29 22:13:26.000000000 +0200
@@ -734,6 +734,10 @@
  "croatian-cc" "Croatian" 'quail-use-package
  "HR" "Another alternative Croatian input method."
  "quail/croatian")
+(register-input-method
+ "mongolian-cyrillic" "Mongolian" 'quail-use-package
+ "MN" "Mongolian standart layout."
+ "quail/cyrillic")
 (eval-after-load "quail/PY-b5"
   '(quail-defrule "ling2" ?$(0!r(B nil t))
 (eval-after-load "quail/Punct"