From 09c91affa8a477985161dfa5c5ceb00b9cedf22f Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 20 Oct 2008 07:39:43 +0000 Subject: [PATCH] (inscript-mlm-keytable): New variable. (malayalam-inscript): Use inscript-mlm-keytable. --- leim/ChangeLog | 5 +++++ leim/quail/indian.el | 25 ++++++++++++++++++++++++- 2 files changed, 29 insertions(+), 1 deletion(-) diff --git a/leim/ChangeLog b/leim/ChangeLog index 54ee591ec5..d333d21953 100644 --- a/leim/ChangeLog +++ b/leim/ChangeLog @@ -1,3 +1,8 @@ +2008-10-20 Kenichi Handa + + * quail/indian.el (inscript-mlm-keytable): New variable. + (malayalam-inscript): Use inscript-mlm-keytable. + 2008-09-11 Magnus Henoch * quail/cyrillic.el ("cyrillic-translit"): Add g' for Ukrainian G diff --git a/leim/quail/indian.el b/leim/quail/indian.el index bc7e5e50bd..40f851dd42 100644 --- a/leim/quail/indian.el +++ b/leim/quail/indian.el @@ -178,6 +178,29 @@ (;; Inscripts ?# ?$ ?^ ?* ?\]))) +(defvar inscript-mlm-keytable + '( + (;; VOWELS (18) + (?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t) + (?+ ?=) ("F]" "f]") (?! ?@) (?S ?s) (?Z ?z) (?W ?w) + (?| ?\\) (?~ ?`) (?A ?a) (?Q ?q) ("+]" "=]") ("R]" "r]")) + (;; CONSONANTS (42) + ?k ?K ?i ?I ?U ;; GRUTTALS + ?\; ?: ?p ?P ?} ;; PALATALS + ?' ?\" ?\[ ?{ ?C ;; CEREBRALS + ?l ?L ?o ?O ?v ?V ;; DENTALS + ?h ?H ?y ?Y ?c ;; LABIALS + ?/ ?j ?J ?n ?N "N]" ?b ;; SEMIVOWELS + ?M ?< ?m ?u ;; SIBILANTS + "k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS + ?% ?&) + (;; Misc Symbols (7) + ?X ?x ?_ ">]" ?d "X]" ?>) + (;; Digits + ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9) + (;; Inscripts + ?# ?$ ?^ ?* ?\]))) + (defvar inscript-tml-keytable '( (;; VOWELS (18) @@ -260,7 +283,7 @@ (if nil (quail-define-package "malayalam-inscript" "Malayalam" "MlmIS" t "Malayalam keyboard Inscript")) (quail-define-inscript-package - indian-mlm-base-table inscript-dev-keytable + indian-mlm-base-table inscript-mlm-keytable "malayalam-inscript" "Malayalam" "MlmIS" "Malayalam keyboard Inscript.") -- 2.39.2