[bpt/emacs.git] / leim / quail / indian.el

;;; indian.el --- Quail packages for inputting Indian

;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
;;   Free Software Foundation, Inc.

;; Author: KAWABATA, Taichi <kawabata@m17n.org>

;; Keywords: multilingual, input method, Indian, Devanagari

;; 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 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
;; 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.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; History:

;; 2000.12.12
;; Totally re-written from devanagari.el to handle multiple Indian Scripts.

;;; Code:

(require 'quail)
(require 'ind-util)

;;;
;;; Input by transliteration
;;;

(defun quail-define-indian-trans-package (hashtbls pkgname
						   lang title doc)
  (funcall 'quail-define-package pkgname lang title t doc
	   nil nil nil nil nil nil t nil)
  (maphash
   (lambda (key val)
     (quail-defrule key (if (= (length val) 1)
			    (string-to-char val)
			  (vector val))))
   (cdr hashtbls)))

;; This needs to be seen by quail-update-leim-list-file, but cannot be
;; commented out because quail-update-leim-list-file ignores
;; commented-out lines.
(if nil
    (quail-define-package "devanagari-itrans" "Devanagari" "DevIT" t "Devanagari ITRANS"))
(quail-define-indian-trans-package
 indian-dev-itrans-v5-hash "devanagari-itrans" "Devanagari" "DevIT"
 "Devanagari transliteration by ITRANS method.")

(if nil
    (quail-define-package "devanagari-kyoto-harvard" "Devanagari" "DevKH" t "Devanagari Kyoto-Harvard"))
(quail-define-indian-trans-package
 indian-dev-kyoto-harvard-hash
 "devanagari-kyoto-harvard" "Devanagari" "DevKH"
 "Devanagari transliteration by Kyoto-Harvard method.")

(if nil
    (quail-define-package "devanagari-aiba" "Devanagari" "DevAB" t "Devanagari Aiba"))
(quail-define-indian-trans-package
 indian-dev-aiba-hash "devanagari-aiba" "Devanagari" "DevAB"
 "Devanagari transliteration by Aiba-method.")

(if nil
    (quail-define-package "punjabi-itrans" "Punjabi" "PnjIT" t "Punjabi ITRANS"))
(quail-define-indian-trans-package
 indian-pnj-itrans-v5-hash "punjabi-itrans" "Punjabi" "PnjIT"
 "Punjabi transliteration by ITRANS method.")

(if nil
    (quail-define-package "gujarati-itrans" "Gujarati" "GjrIT" t "Gujarati ITRANS"))
(quail-define-indian-trans-package
 indian-gjr-itrans-v5-hash "gujarati-itrans" "Gujarati" "GjrIT"
 "Gujarati transliteration by ITRANS method.")

(if nil
    (quail-define-package "oriya-itrans" "Oriya" "OriIT" t "Oriya ITRANS"))
(quail-define-indian-trans-package
 indian-ori-itrans-v5-hash "oriya-itrans" "Oriya" "OriIT"
 "Oriya transliteration by ITRANS method.")

(if nil
    (quail-define-package "bengali-itrans" "Bengali" "BngIT" t "Bengali ITRANS"))
(quail-define-indian-trans-package
 indian-bng-itrans-v5-hash "bengali-itrans" "Bengali" "BngIT"
 "Bengali transliteration by ITRANS method.")

(if nil
    (quail-define-package "assamese-itrans" "Assamese" "AsmIT" t "Assamese ITRANS"))
(quail-define-indian-trans-package
 indian-asm-itrans-v5-hash "assamese-itrans" "Assamese" "AsmIT"
 "Assamese transliteration by ITRANS method.")

(if nil
    (quail-define-package "telugu-itrans" "Telugu" "TlgIT" t "Telugu ITRANS"))
(quail-define-indian-trans-package
 indian-tlg-itrans-v5-hash "telugu-itrans" "Telugu" "TlgIT"
 "Telugu transliteration by ITRANS method.")

(if nil
    (quail-define-package "kannada-itrans" "Kannada" "KndIT" t "Kannada ITRANS"))
(quail-define-indian-trans-package
 indian-knd-itrans-v5-hash "kannada-itrans" "Kannada" "KndIT"
 "Kannada transliteration by ITRANS method.")

(if nil
    (quail-define-package "malayalam-itrans" "Malayalam" "MlmIT" t "Malayalam ITRANS"))
(quail-define-indian-trans-package
 indian-mlm-itrans-v5-hash "malayalam-itrans" "Malayalam" "MlmIT"
 "Malayalam transliteration by ITRANS method.")

(if nil
    (quail-define-package "tamil-itrans" "Tamil" "TmlIT" t "Tamil ITRANS"))
(quail-define-indian-trans-package
 indian-tml-itrans-v5-hash "tamil-itrans" "Tamil" "TmlIT"
 "Tamil transliteration by ITRANS method.")


;;;
;;; Input by Inscript
;;;

(defun quail-define-inscript-package (char-tables key-tables pkgname lang
                                                  title docstring)
  (funcall 'quail-define-package pkgname lang title nil docstring
	   nil nil nil nil nil nil nil nil)
  (let (char-table key-table char key)
    (while (and char-tables key-tables)
      (setq char-table  (car char-tables)
            char-tables (cdr char-tables)
            key-table   (car key-tables)
            key-tables  (cdr key-tables))
      (while (and char-table key-table)
        (setq char       (car char-table)
              char-table (cdr char-table)
              key        (car key-table)
              key-table  (cdr key-table))
        (if (and (consp char) (consp key))
            (setq char-table (append char char-table)
                  key-table  (append key  key-table))
          (if (and key char)
              (quail-defrule
               (if (characterp key) (char-to-string key) key)
               (if (stringp char)   (vector char) char))))))))

;;

(defvar inscript-dev-keytable
  '(
    (;; VOWELS  (18)
     (?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
     (?+ ?=) ("F]" "f]") (?! ?@) (?Z ?z) (?S ?s) (?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-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)
     (?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
     nil nil nil (?S ?s) (?Z ?z) (?W ?w)
     nil (?A ?a) (?~ ?`) (?Q ?q) nil nil)
    (;; 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
     ?# ?$ ?^ ?* ?\])))

(if nil
    (quail-define-package "devanagari-inscript" "Devanagari" "DevIS" t "Devanagari keyboard Inscript"))
(quail-define-inscript-package
 indian-dev-base-table inscript-dev-keytable
 "devanagari-inscript" "Devanagari" "DevIS"
 "Devanagari keyboard Inscript.")

(if nil
    (quail-define-package "punjabi-inscript" "Punjabi" "PnjIS" t "Punjabi keyboard Inscript"))
(quail-define-inscript-package
 indian-pnj-base-table inscript-dev-keytable
 "punjabi-inscript" "Punjabi" "PnjIS"
 "Punjabi keyboard Inscript.")

(if nil
    (quail-define-package "gujarati-inscript" "Gujarati" "GjrIS" t "Gujarati keyboard Inscript"))
(quail-define-inscript-package
 indian-gjr-base-table inscript-dev-keytable
 "gujarati-inscript" "Gujarati" "GjrIS"
 "Gujarati keyboard Inscript.")

(if nil
    (quail-define-package "oriya-inscript" "Oriya" "OriIS" t "Oriya keyboard Inscript"))
(quail-define-inscript-package
 indian-ori-base-table inscript-dev-keytable
 "oriya-inscript" "Oriya" "OriIS"
 "Oriya keyboard Inscript.")

(if nil
    (quail-define-package "bengali-inscript" "Bengali" "BngIS" t "Bengali keyboard Inscript"))
(quail-define-inscript-package
 indian-bng-base-table inscript-dev-keytable
 "bengali-inscript" "Bengali" "BngIS"
 "Bengali keyboard Inscript.")

(if nil
    (quail-define-package "assamese-inscript" "Assamese" "AsmIS" t "Assamese keyboard Inscript"))
(quail-define-inscript-package
 indian-asm-base-table inscript-dev-keytable
 "assamese-inscript" "Assamese" "AsmIS"
 "Assamese keyboard Inscript.")

(if nil
    (quail-define-package "telugu-inscript" "Telugu" "TlgIS" t "Telugu keyboard Inscript"))
(quail-define-inscript-package
 indian-dev-base-table inscript-dev-keytable
 "telugu-inscript" "Telugu" "TlgIS"
 "Telugu keyboard Inscript.")

(if nil
    (quail-define-package "kannada-inscript" "Kannada" "KndIS" t "Kannada keyboard Inscript"))
(quail-define-inscript-package
 indian-knd-base-table inscript-dev-keytable
 "kannada-inscript" "Kannada" "KndIS"
 "Kannada keyboard Inscript.")

(if nil
    (quail-define-package "malayalam-inscript" "Malayalam" "MlmIS" t "Malayalam keyboard Inscript"))
(quail-define-inscript-package
 indian-mlm-base-table inscript-mlm-keytable
 "malayalam-inscript" "Malayalam" "MlmIS"
 "Malayalam keyboard Inscript.")

(if nil
    (quail-define-package "tamil-inscript" "Tamil" "TmlIS" t "Tamil keyboard Inscript"))
(quail-define-inscript-package
 indian-tml-base-table inscript-tml-keytable
 "tamil-inscript" "Tamil" "TmlIS"
 "Tamil keyboard Inscript.")

;; arch-tag: 9e5a621e-f7d5-4fce-9543-0a51b407c940
;;; indian.el ends here
Commit	Line	Data
3978dec0	1	;;; indian.el --- Quail packages for inputting Indian
c6974daa	2
5df4f04c	3	;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
03ba6797	4	;; Free Software Foundation, Inc.
c6974daa RS	5
	6	;; Author: KAWABATA, Taichi <kawabata@m17n.org>
	7
	8	;; Keywords: multilingual, input method, Indian, Devanagari
	9
	10	;; This file is part of GNU Emacs.
	11
3d544458	12	;; GNU Emacs is free software: you can redistribute it and/or modify
c6974daa	13	;; it under the terms of the GNU General Public License as published by
3d544458 GM	14	;; the Free Software Foundation, either version 3 of the License, or
3d544458 GM	15	;; (at your option) any later version.
c6974daa RS	16
	17	;; GNU Emacs is distributed in the hope that it will be useful,
	18	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	19	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	20	;; GNU General Public License for more details.
	21
	22	;; You should have received a copy of the GNU General Public License
3d544458	23	;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
c6974daa RS	24
	25	;;; Commentary:
	26
	27	;; History:
	28
96566974 DL	29	;; 2000.12.12
96566974 DL	30	;; Totally re-written from devanagari.el to handle multiple Indian Scripts.
c6974daa RS	31
	32	;;; Code:
	33
c6974daa	34	(require 'quail)
c6974daa	35	(require 'ind-util)
c6974daa RS	36
	37	;;;
	38	;;; Input by transliteration
	39	;;;
	40
	41	(defun quail-define-indian-trans-package (hashtbls pkgname
	42	lang title doc)
	43	(funcall 'quail-define-package pkgname lang title t doc
4b379330	44	nil nil nil nil nil nil t nil)
96566974	45	(maphash
7f93e2ab DL	46	(lambda (key val)
	47	(quail-defrule key (if (= (length val) 1)
	48	(string-to-char val)
	49	(vector val))))
c6974daa RS	50	(cdr hashtbls)))
c6974daa RS	51
dfafefa1 EZ	52	;; This needs to be seen by quail-update-leim-list-file, but cannot be
	53	;; commented out because quail-update-leim-list-file ignores
	54	;; commented-out lines.
	55	(if nil
	56	(quail-define-package "devanagari-itrans" "Devanagari" "DevIT" t "Devanagari ITRANS"))
c6974daa RS	57	(quail-define-indian-trans-package
	58	indian-dev-itrans-v5-hash "devanagari-itrans" "Devanagari" "DevIT"
	59	"Devanagari transliteration by ITRANS method.")
	60
dfafefa1 EZ	61	(if nil
dfafefa1 EZ	62	(quail-define-package "devanagari-kyoto-harvard" "Devanagari" "DevKH" t "Devanagari Kyoto-Harvard"))
c6974daa RS	63	(quail-define-indian-trans-package
	64	indian-dev-kyoto-harvard-hash
	65	"devanagari-kyoto-harvard" "Devanagari" "DevKH"
	66	"Devanagari transliteration by Kyoto-Harvard method.")
	67
dfafefa1 EZ	68	(if nil
dfafefa1 EZ	69	(quail-define-package "devanagari-aiba" "Devanagari" "DevAB" t "Devanagari Aiba"))
c6974daa RS	70	(quail-define-indian-trans-package
	71	indian-dev-aiba-hash "devanagari-aiba" "Devanagari" "DevAB"
	72	"Devanagari transliteration by Aiba-method.")
	73
32103956 KH	74	(if nil
	75	(quail-define-package "punjabi-itrans" "Punjabi" "PnjIT" t "Punjabi ITRANS"))
	76	(quail-define-indian-trans-package
	77	indian-pnj-itrans-v5-hash "punjabi-itrans" "Punjabi" "PnjIT"
	78	"Punjabi transliteration by ITRANS method.")
	79
	80	(if nil
	81	(quail-define-package "gujarati-itrans" "Gujarati" "GjrIT" t "Gujarati ITRANS"))
	82	(quail-define-indian-trans-package
	83	indian-gjr-itrans-v5-hash "gujarati-itrans" "Gujarati" "GjrIT"
	84	"Gujarati transliteration by ITRANS method.")
	85
	86	(if nil
	87	(quail-define-package "oriya-itrans" "Oriya" "OriIT" t "Oriya ITRANS"))
	88	(quail-define-indian-trans-package
	89	indian-ori-itrans-v5-hash "oriya-itrans" "Oriya" "OriIT"
	90	"Oriya transliteration by ITRANS method.")
	91
	92	(if nil
	93	(quail-define-package "bengali-itrans" "Bengali" "BngIT" t "Bengali ITRANS"))
	94	(quail-define-indian-trans-package
	95	indian-bng-itrans-v5-hash "bengali-itrans" "Bengali" "BngIT"
	96	"Bengali transliteration by ITRANS method.")
	97
	98	(if nil
	99	(quail-define-package "assamese-itrans" "Assamese" "AsmIT" t "Assamese ITRANS"))
	100	(quail-define-indian-trans-package
	101	indian-asm-itrans-v5-hash "assamese-itrans" "Assamese" "AsmIT"
	102	"Assamese transliteration by ITRANS method.")
	103
	104	(if nil
	105	(quail-define-package "telugu-itrans" "Telugu" "TlgIT" t "Telugu ITRANS"))
	106	(quail-define-indian-trans-package
	107	indian-tlg-itrans-v5-hash "telugu-itrans" "Telugu" "TlgIT"
	108	"Telugu transliteration by ITRANS method.")
	109
	110	(if nil
	111	(quail-define-package "kannada-itrans" "Kannada" "KndIT" t "Kannada ITRANS"))
	112	(quail-define-indian-trans-package
	113	indian-knd-itrans-v5-hash "kannada-itrans" "Kannada" "KndIT"
	114	"Kannada transliteration by ITRANS method.")
	115
	116	(if nil
	117	(quail-define-package "malayalam-itrans" "Malayalam" "MlmIT" t "Malayalam ITRANS"))
	118	(quail-define-indian-trans-package
	119	indian-mlm-itrans-v5-hash "malayalam-itrans" "Malayalam" "MlmIT"
	120	"Malayalam transliteration by ITRANS method.")
	121
	122	(if nil
	123	(quail-define-package "tamil-itrans" "Tamil" "TmlIT" t "Tamil ITRANS"))
	124	(quail-define-indian-trans-package
	125	indian-tml-itrans-v5-hash "tamil-itrans" "Tamil" "TmlIT"
	126	"Tamil transliteration by ITRANS method.")
	127
	128
c6974daa RS	129	;;;
	130	;;; Input by Inscript
	131	;;;
	132
e5dfa240 KH	133	(defun quail-define-inscript-package (char-tables key-tables pkgname lang
e5dfa240 KH	134	title docstring)
c6974daa	135	(funcall 'quail-define-package pkgname lang title nil docstring
4b379330	136	nil nil nil nil nil nil nil nil)
e5dfa240 KH	137	(let (char-table key-table char key)
	138	(while (and char-tables key-tables)
	139	(setq char-table (car char-tables)
	140	char-tables (cdr char-tables)
	141	key-table (car key-tables)
	142	key-tables (cdr key-tables))
	143	(while (and char-table key-table)
	144	(setq char (car char-table)
	145	char-table (cdr char-table)
	146	key (car key-table)
	147	key-table (cdr key-table))
	148	(if (and (consp char) (consp key))
	149	(setq char-table (append char char-table)
	150	key-table (append key key-table))
	151	(if (and key char)
	152	(quail-defrule
	153	(if (characterp key) (char-to-string key) key)
	154	(if (stringp char) (vector char) char))))))))
c6974daa RS	155
	156	;;
	157
	158	(defvar inscript-dev-keytable
	159	'(
	160	(;; VOWELS (18)
	161	(?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
	162	(?+ ?=) ("F]" "f]") (?! ?@) (?Z ?z) (?S ?s) (?W ?w)
	163	(?\| ?\\) (?~ ?`) (?A ?a) (?Q ?q) ("+]" "=]") ("R]" "r]"))
	164	(;; CONSONANTS (42)
	165	?k ?K ?i ?I ?U ;; GRUTTALS
96566974 DL	166	?\; ?: ?p ?P ?} ;; PALATALS
	167	?' ?\" ?\[ ?{ ?C ;; CEREBRALS
	168	?l ?L ?o ?O ?v ?V ;; DENTALS
	169	?h ?H ?y ?Y ?c ;; LABIALS
c6974daa	170	?/ ?j ?J ?n ?N "N]" ?b ;; SEMIVOWELS
96566974 DL	171	?M ?< ?m ?u ;; SIBILANTS
96566974 DL	172	"k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
c6974daa	173	?% ?&)
96566974	174	(;; Misc Symbols (7)
c6974daa RS	175	?X ?x ?_ ">]" ?d "X]" ?>)
	176	(;; Digits
	177	?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
	178	(;; Inscripts
	179	?# ?$ ?^ ?* ?\])))
	180
09c91aff KH	181	(defvar inscript-mlm-keytable
	182	'(
	183	(;; VOWELS (18)
	184	(?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
	185	(?+ ?=) ("F]" "f]") (?! ?@) (?S ?s) (?Z ?z) (?W ?w)
	186	(?\| ?\\) (?~ ?`) (?A ?a) (?Q ?q) ("+]" "=]") ("R]" "r]"))
	187	(;; CONSONANTS (42)
	188	?k ?K ?i ?I ?U ;; GRUTTALS
	189	?\; ?: ?p ?P ?} ;; PALATALS
	190	?' ?\" ?\[ ?{ ?C ;; CEREBRALS
	191	?l ?L ?o ?O ?v ?V ;; DENTALS
	192	?h ?H ?y ?Y ?c ;; LABIALS
	193	?/ ?j ?J ?n ?N "N]" ?b ;; SEMIVOWELS
	194	?M ?< ?m ?u ;; SIBILANTS
	195	"k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
	196	?% ?&)
	197	(;; Misc Symbols (7)
	198	?X ?x ?_ ">]" ?d "X]" ?>)
	199	(;; Digits
	200	?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
	201	(;; Inscripts
	202	?# ?$ ?^ ?* ?\])))
	203
e5dfa240 KH	204	(defvar inscript-tml-keytable
	205	'(
	206	(;; VOWELS (18)
	207	(?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
	208	nil nil nil (?S ?s) (?Z ?z) (?W ?w)
	209	nil (?A ?a) (?~ ?`) (?Q ?q) nil nil)
	210	(;; CONSONANTS (42)
	211	?k ?K ?i ?I ?U ;; GRUTTALS
	212	?\; ?: ?p ?P ?} ;; PALATALS
	213	?' ?\" ?\[ ?{ ?C ;; CEREBRALS
	214	?l ?L ?o ?O ?v ?V ;; DENTALS
	215	?h ?H ?y ?Y ?c ;; LABIALS
	216	?/ ?j ?J ?n ?N "N]" ?b ;; SEMIVOWELS
	217	?M ?< ?m ?u ;; SIBILANTS
	218	"k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
	219	?% ?&)
	220	(;; Misc Symbols (7)
	221	?X ?x ?_ ">]" ?d "X]" ?>)
	222	(;; Digits
	223	?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
	224	(;; Inscripts
	225	?# ?$ ?^ ?* ?\])))
	226
dfafefa1 EZ	227	(if nil
dfafefa1 EZ	228	(quail-define-package "devanagari-inscript" "Devanagari" "DevIS" t "Devanagari keyboard Inscript"))
96566974	229	(quail-define-inscript-package
c6974daa RS	230	indian-dev-base-table inscript-dev-keytable
	231	"devanagari-inscript" "Devanagari" "DevIS"
	232	"Devanagari keyboard Inscript.")
	233
32103956 KH	234	(if nil
	235	(quail-define-package "punjabi-inscript" "Punjabi" "PnjIS" t "Punjabi keyboard Inscript"))
	236	(quail-define-inscript-package
	237	indian-pnj-base-table inscript-dev-keytable
	238	"punjabi-inscript" "Punjabi" "PnjIS"
	239	"Punjabi keyboard Inscript.")
	240
	241	(if nil
	242	(quail-define-package "gujarati-inscript" "Gujarati" "GjrIS" t "Gujarati keyboard Inscript"))
	243	(quail-define-inscript-package
	244	indian-gjr-base-table inscript-dev-keytable
	245	"gujarati-inscript" "Gujarati" "GjrIS"
	246	"Gujarati keyboard Inscript.")
	247
	248	(if nil
	249	(quail-define-package "oriya-inscript" "Oriya" "OriIS" t "Oriya keyboard Inscript"))
	250	(quail-define-inscript-package
	251	indian-ori-base-table inscript-dev-keytable
	252	"oriya-inscript" "Oriya" "OriIS"
	253	"Oriya keyboard Inscript.")
	254
	255	(if nil
	256	(quail-define-package "bengali-inscript" "Bengali" "BngIS" t "Bengali keyboard Inscript"))
	257	(quail-define-inscript-package
	258	indian-bng-base-table inscript-dev-keytable
	259	"bengali-inscript" "Bengali" "BngIS"
	260	"Bengali keyboard Inscript.")
	261
	262	(if nil
	263	(quail-define-package "assamese-inscript" "Assamese" "AsmIS" t "Assamese keyboard Inscript"))
	264	(quail-define-inscript-package
	265	indian-asm-base-table inscript-dev-keytable
	266	"assamese-inscript" "Assamese" "AsmIS"
	267	"Assamese keyboard Inscript.")
	268
	269	(if nil
	270	(quail-define-package "telugu-inscript" "Telugu" "TlgIS" t "Telugu keyboard Inscript"))
	271	(quail-define-inscript-package
	272	indian-dev-base-table inscript-dev-keytable
	273	"telugu-inscript" "Telugu" "TlgIS"
	274	"Telugu keyboard Inscript.")
	275
	276	(if nil
	277	(quail-define-package "kannada-inscript" "Kannada" "KndIS" t "Kannada keyboard Inscript"))
	278	(quail-define-inscript-package
	279	indian-knd-base-table inscript-dev-keytable
	280	"kannada-inscript" "Kannada" "KndIS"
	281	"Kannada keyboard Inscript.")
	282
	283	(if nil
	284	(quail-define-package "malayalam-inscript" "Malayalam" "MlmIS" t "Malayalam keyboard Inscript"))
	285	(quail-define-inscript-package
09c91aff	286	indian-mlm-base-table inscript-mlm-keytable
32103956 KH	287	"malayalam-inscript" "Malayalam" "MlmIS"
	288	"Malayalam keyboard Inscript.")
	289
	290	(if nil
	291	(quail-define-package "tamil-inscript" "Tamil" "TmlIS" t "Tamil keyboard Inscript"))
	292	(quail-define-inscript-package
e5dfa240	293	indian-tml-base-table inscript-tml-keytable
32103956 KH	294	"tamil-inscript" "Tamil" "TmlIS"
	295	"Tamil keyboard Inscript.")
	296
3d544458	297	;; arch-tag: 9e5a621e-f7d5-4fce-9543-0a51b407c940
3978dec0	298	;;; indian.el ends here