;;; indian.el --- Quail packages for inputting Indian
-;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
;; Free Software Foundation, Inc.
;; Author: KAWABATA, Taichi <kawabata@m17n.org>
;; 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 3, 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:
(require 'quail)
(require 'ind-util)
-(require 'devan-util)
;;;
;;; Input by transliteration
(;; 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)
(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.")
"tamil-inscript" "Tamil" "TmlIS"
"Tamil keyboard Inscript.")
-;;; arch-tag: 9e5a621e-f7d5-4fce-9543-0a51b407c940
+;; arch-tag: 9e5a621e-f7d5-4fce-9543-0a51b407c940
;;; indian.el ends here