From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Kenichi Handa Newsgroups: gmane.emacs.bugs Subject: bug#9336: 24.0.50; No way to input character #xbb4 using ta-itrans Date: Mon, 26 Sep 2011 16:08:59 +0900 Message-ID: References: <81aab2socv.fsf@gmail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: dough.gmane.org 1317020973 20502 80.91.229.12 (26 Sep 2011 07:09:33 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 26 Sep 2011 07:09:33 +0000 (UTC) Cc: 9336@debbugs.gnu.org To: Jambunathan K Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon Sep 26 09:09:28 2011 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1R85Je-0000P5-EB for geb-bug-gnu-emacs@m.gmane.org; Mon, 26 Sep 2011 09:09:26 +0200 Original-Received: from localhost ([::1]:42093 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R85Jd-0006Je-OS for geb-bug-gnu-emacs@m.gmane.org; Mon, 26 Sep 2011 03:09:25 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:35725) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R85Ja-0006JZ-PA for bug-gnu-emacs@gnu.org; Mon, 26 Sep 2011 03:09:23 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1R85JZ-0004wA-6x for bug-gnu-emacs@gnu.org; Mon, 26 Sep 2011 03:09:22 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:57416) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R85JZ-0004w1-2a for bug-gnu-emacs@gnu.org; Mon, 26 Sep 2011 03:09:21 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1R85KE-0000fR-Kj for bug-gnu-emacs@gnu.org; Mon, 26 Sep 2011 03:10:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Kenichi Handa Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 26 Sep 2011 07:10:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 9336 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 9336-submit@debbugs.gnu.org id=B9336.13170209912539 (code B ref 9336); Mon, 26 Sep 2011 07:10:02 +0000 Original-Received: (at 9336) by debbugs.gnu.org; 26 Sep 2011 07:09:51 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1R85K3-0000eu-3e for submit@debbugs.gnu.org; Mon, 26 Sep 2011 03:09:51 -0400 Original-Received: from mx1.aist.go.jp ([150.29.246.133]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1R85Jy-0000ej-Lv for 9336@debbugs.gnu.org; Mon, 26 Sep 2011 03:09:48 -0400 Original-Received: from rqsmtp1.aist.go.jp (rqsmtp1.aist.go.jp [150.29.254.115]) by mx1.aist.go.jp with ESMTP id p8Q791lP007645; Mon, 26 Sep 2011 16:09:01 +0900 (JST) env-from (handa@m17n.org) Original-Received: from smtp1.aist.go.jp by rqsmtp1.aist.go.jp with ESMTP id p8Q791e5017956; Mon, 26 Sep 2011 16:09:01 +0900 (JST) env-from (handa@m17n.org) Original-Received: by smtp1.aist.go.jp with ESMTP id p8Q78xPL003859; Mon, 26 Sep 2011 16:09:00 +0900 (JST) env-from (handa@m17n.org) In-Reply-To: <817h4zcxm0.fsf@gmail.com> (message from Jambunathan K on Fri, 23 Sep 2011 16:51:59 +0530) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Mon, 26 Sep 2011 03:10:02 -0400 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 1) X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:51863 Archived-At: --=-=-= Content-Type: text/plain In article <817h4zcxm0.fsf@gmail.com>, Jambunathan K writes: > > Ah, I forgot about my patch. > Yes, there is a pending patch. I've just asked the Emacs maintainers about the patch. As we are already in a feature freeze mode, it's upto the maintainers whether to include the patch in the next release or not. > I have made some changes - presentation-wise - on top of your changes. I > have attached 3 screenshots that demonstrates the changes that I have > made [1]. FYI, my FSF copyright assignment number for Emacs is #618390. With your patch, the table of the third section (Others) doesn't fit in 80-column with my font setting. So, I slightly changed the :align-to property. Please check the attached version (full leim/quail/indian.el) with your environment. By the way, > + ta-itrans-1.png > - I have introduced horizontal grid lines > - I have added #0BB6 to the table. The character has no input method > available. So the input row is left empty. > Note: Furthermore, the associated glyphs are not available. (I have > Tamil Lohit 2.4.5 - Thanks for suggesting this font!). So the tamil > characters in that row looks malformed. That's strange. My Tamil Lohit font is Version 2.4.4 (older than yours), and it displays the line for #0BB6 correctly. > [2] Additional hacks to quail.el > + ta-itrans-3.png > - Removed the old table (about which I had complaints). I don't know > how to do this cleanly. Here is a quick hack I cooked up (marked > with @@@) The old table (full key sequence) contains the keys that are not shown in the above tables; i.e. such alternate keys as "aa", "~Na". Are they really not necessary. And, even if not necessary, the current code doesn't have a mechanism to suppress it, and adding such a mechanism should not be done now. I'll put that matter in my todo list. > - Place the cursor at the BEGINNING of help buffer rather than the end > of it. There are more interesting things at the beginning of the > buffer than the end of the buffer. > ,---- In quail.el (around line 2575) > | ;; Resize the help window again, now that it has all its contents. > | (save-selected-window > |@@@ (goto-char (point-min)) > | (select-window (get-buffer-window (current-buffer) t)) > | (run-hooks 'temp-buffer-show-hook)) > `---- I don't understand why this is necessary. Doesn't C-h C-\ tamil-itrans RET shows the top of *Help* buffer? --- Kenichi Handa handa@m17n.org --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=indian.el Content-Transfer-Encoding: quoted-printable ;;; indian.el --- Quail packages for inputting Indian ;; Copyright (C) 2000-2011 Free Software Foundation, Inc. ;; Author: KAWABATA, Taichi ;; 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 . ;;; 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 (=3D (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 "Devan= agari 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 "Devanag= ari 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 ITR= ANS")) (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 ITR= ANS")) (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 ITR= ANS")) (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 "Malayal= am ITRANS")) (quail-define-indian-trans-package indian-mlm-itrans-v5-hash "malayalam-itrans" "Malayalam" "MlmIT" "Malayalam transliteration by ITRANS method.") (defvar quail-tamil-itrans-syllable-table (let ((vowels '(("=E0=AE=85" nil "a") ("=E0=AE=86" "=E0=AE=BE" "A") ("=E0=AE=87" "=E0=AE=BF" "i") ("=E0=AE=88" "=E0=AF=80" "I") ("=E0=AE=89" "=E0=AF=81" "u") ("=E0=AE=8A" "=E0=AF=82" "U") ("=E0=AE=8E" "=E0=AF=86" "e") ("=E0=AE=8F" "=E0=AF=87" "E") ("=E0=AE=90" "=E0=AF=88" "ai") ("=E0=AE=92" "=E0=AF=8A" "o") ("=E0=AE=93" "=E0=AF=8B" "O") ("=E0=AE=94" "=E0=AF=8C" "au"))) (consonants '(("=E0=AE=95" "k") ; U+0B95 ("=E0=AE=99" "N^") ; U+0B99 ("=E0=AE=9A" "ch") ; U+0B9A ("=E0=AE=9E" "JN") ; U+0B9E ("=E0=AE=9F" "T") ; U+0B9F ("=E0=AE=A3" "N") ; U+0BA3 ("=E0=AE=A4" "t") ; U+0BA4 ("=E0=AE=A8" "n") ; U+0BA8 ("=E0=AE=AA" "p") ; U+0BAA ("=E0=AE=AE" "m") ; U+0BAE ("=E0=AE=AF" "y") ; U+0BAF ("=E0=AE=B0" "r") ; U+0BB0 ("=E0=AE=B2" "l") ; U+0BB2 ("=E0=AE=B5" "v") ; U+0BB5 ("=E0=AE=B4" "z") ; U+0BB4 ("=E0=AE=B3" "L") ; U+0BB3 ("=E0=AE=B1" "rh") ; U+0BB1 ("=E0=AE=A9" "nh") ; U+0BA9 ("=E0=AE=9C" "j") ; U+0B9C ("=E0=AE=B6" nil) ; U+0BB6 ("=E0=AE=B7" "Sh") ; U+0BB7 ("=E0=AE=B8" "s") ; U+0BB8 ("=E0=AE=B9" "h") ; U+0BB9 ("=E0=AE=95=E0=AF=8D=E0=AE=B7" "x" ) ; U+0B95 )) (virama #x0BCD) clm) (with-temp-buffer (insert "\n") (insert " +") (insert-char ?- 74) (insert "\n |") (setq clm 6) (dolist (v vowels) (insert (propertize "\t" 'display (list 'space :align-to clm)) (car v)) (setq clm (+ clm 6))) (insert "\n |") (setq clm 6) (dolist (v vowels) (insert (propertize "\t" 'display (list 'space :align-to clm)) (nth 2 v)) (setq clm (+ clm 6))) (dolist (c consonants) (insert "\n----+") (insert-char ?- 74) (insert "\n") (insert (car c) virama (propertize "\t" 'display '(space :align-to 4)) "|") (setq clm 6) (dolist (v vowels) (insert (propertize "\t" 'display (list 'space :align-to clm)) (car c) (or (nth 1 v) "")) (setq clm (+ clm 6))) (insert "\n" (or (nth 1 c) "") (propertize "\t" 'display '(space :align-to 4)) "|") (setq clm 6) (dolist (v vowels) (apply 'insert (propertize "\t" 'display (list 'space :align-to clm)) (if (nth 1 c) (list (nth 1 c) (nth 2 v)) (list ""))) (setq clm (+ clm 6)))) (insert "\n") (insert "----+") (insert-char ?- 74) (insert "\n") (buffer-string)))) (defvar quail-tamil-itrans-numerics-and-symbols-table (let ((numerics '((?=E0=AF=B0 "=E0=AE=AA=E0=AE=A4=E0=AF=8D=E0=AE=A4=E0=AF= =81") (?=E0=AF=B1 "=E0=AE=A8=E0=AF=82=E0=AE=B1=E0=AF=81") (?=E0=AF=B2 "=E0= =AE=86=E0=AE=AF=E0=AE=BF=E0=AE=B0=E0=AE=AE=E0=AF=8D"))) (symbols '((?=E0=AF=B3 "=E0=AE=A8=E0=AE=BE=E0=AE=B3=E0=AF=8D") (?=E0=AF=B4= "=E0=AE=AE=E0=AE=BE=E0=AE=A4=E0=AE=AE=E0=AF=8D") (?=E0=AF=B5 "=E0=AE=B5=E0= =AE=B0=E0=AF=81=E0=AE=9F=E0=AE=AE=E0=AF=8D") (?=E0=AF=B6 "=E0=AE=AA=E0=AE=B1=E0=AF=8D=E0=AE=B1=E0=AF=81") (?=E0=AF= =B7 "=E0=AE=B5=E0=AE=B0=E0=AE=B5=E0=AF=81") (?=E0=AF=B8 "=E0=AE=AE=E0=AF=87= =E0=AE=B1=E0=AF=8D=E0=AE=AA=E0=AE=9F=E0=AE=BF") (?=E0=AF=B9 "=E0=AE=B0=E0=AF=82=E0=AE=AA=E0=AE=BE=E0=AE=AF=E0=AF=8D") = (?=E0=AF=BA "=E0=AE=8E=E0=AE=A3=E0=AF=8D"))) (width 6) clm) (with-temp-buffer (insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n") (insert (propertize "\t" 'display '(space :align-to 5)) "numerics" (propertize "\t" 'display '(space :align-to 18)) "|" (propertize "\t" 'display '(space :align-to 45)) "symbols") (insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n") (dotimes (i 2) (setq clm 0) (dolist (elm numerics) (if (> clm 0) (insert (propertize "\t" 'display (list 'space :align-to clm)))) (insert (nth i elm)) (setq clm (+ clm 5))) (insert (propertize "\t" 'display '(space :align-to 18)) "|") (setq clm 19) (dolist (elm symbols) (if (> clm 19) (insert (propertize "\t" 'display (list 'space :align-to clm)))) (insert (nth i elm)) (setq clm (+ clm 8))) (insert "\n")) (insert (make-string 18 ?-) "+" (make-string 60 ?-) "\n") (insert "\n") (buffer-string)))) (defvar quail-tamil-itrans-various-signs-and-digits-table (let ((various '((?=E0=AE=83 . "H") ("=E0=AE=B8=E0=AF=8D=E0=AE=B0=E0=AF= =80" . "srii") (?=E0=AF=90))) (digits "=E0=AF=A6=E0=AF=A7=E0=AF=A8=E0=AF=A9=E0=AF=AA=E0=AF=AB=E0=AF=AC= =E0=AF=AD=E0=AF=AE=E0=AF=AF") (width 6) clm) (with-temp-buffer (insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n") (insert (propertize "\t" 'display '(space :align-to 5)) "various" (propertize "\t" 'display '(space :align-to 18)) "|" (propertize "\t" 'display '(space :align-to 45)) "digits") (insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n") (setq clm 0 ) (dotimes (i (length various)) (insert (propertize "\t" 'display (list 'space :align-to clm)) (car (nth i various))) (setq clm (+ clm width))) (insert (propertize "\t" 'display '(space :align-to 18)) "|") (setq clm 20) (dotimes (i 10) (insert (propertize "\t" 'display (list 'space :align-to clm)) (aref digits i)) (setq clm (+ clm width))) (insert "\n") (setq clm 0) (dotimes (i (length various)) (insert (propertize "\t" 'display (list 'space :align-to clm)) (or (cdr (nth i various)) "")) (setq clm (+ clm width))) (insert (propertize "\t" 'display '(space :align-to 18)) "|") (setq clm 20) (dotimes (i 10) (insert (propertize "\t" 'display (list 'space :align-to clm)) (format "%d" i)) (setq clm (+ clm width))) (insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n") (buffer-string)))) (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. You can input characters using the following mapping tables. Example: To enter =E0=AE=B5=E0=AE=A3=E0=AE=95=E0=AF=8D=E0=AE=95=E0=AE= =AE=E0=AF=8D, type vaNakkam. ### Basic syllables (consonants + vowels) ### \\ ### Miscellaneous (various signs + digits) ### \\ ### Others (numerics + symbols) ### Characters below have no ITRANS method associated with them. Their descriptions are included for easy reference. \\ Full key sequences are listed below:") ;;; ;;; 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) (?+ ?=3D) ("F]" "f]") (?! ?@) (?Z ?z) (?S ?s) (?W ?w) (?| ?\\) (?~ ?`) (?A ?a) (?Q ?q) ("+]" "=3D]") ("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) (?+ ?=3D) ("F]" "f]") (?! ?@) (?S ?s) (?Z ?z) (?W ?w) (?| ?\\) (?~ ?`) (?A ?a) (?Q ?q) ("+]" "=3D]") ("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 "Dev= anagari 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 k= eyboard 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 "Gujarat= i 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 keyboar= d 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 k= eyboard 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 "Assames= e 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 keyb= oard 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 k= eyboard 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 "Malay= alam 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 keyboar= d Inscript")) (quail-define-inscript-package indian-tml-base-table inscript-tml-keytable "tamil-inscript" "Tamil" "TmlIS" "Tamil keyboard Inscript.") ;;; indian.el ends here --=-=-=--