About mongolian keyboard layout in emacs ( again with attach )

About mongolian keyboard layout in emacs ( again with attach )

[Natsagdorj Shagdar]

[-- Attachment #1: Type: text/plain, Size: 65 bytes --]

Upps, forgot to attach patch files.


Regards
Natsagdorj Shagdar

[-- Attachment #2: cyrillic.el.patch --]
[-- Type: text/plain, Size: 2368 bytes --]

--- 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  ^[,L@^[(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" ?^[,L@^[(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

[-- Attachment #3: leim-list.el.patch --]
[-- Type: text/plain, Size: 494 bytes --]

--- 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"