mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(quail-indian-flatten-list): Delete it.

Browse Source 
(quail-define-inscript-package): Pay attention to `nil' values of
char/key-table.
(inscript-tml-keytable): New variable.  Use it for Tamil inscript.
This commit is contained in:
Kenichi Handa 2004-01-07 23:04:47 +00:00
parent add3da7bcb
commit e5dfa2402e
1 changed files with 44 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
leim/quail/indian.el
View File

@ -132,24 +132,28 @@
;;; Input by Inscript
;;;
(defun quail-indian-flatten-list (lst)
"Flatten the nested LIST so that there would be no innner list."
(if (listp lst)
(apply 'append (mapcar 'quail-indian-flatten-list lst))
(list lst)))
(defun quail-define-inscript-package (char-table key-table pkgname lang title
docstring)
(setq char-table (quail-indian-flatten-list char-table))
(setq key-table (quail-indian-flatten-list key-table))
(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)
(dolist (key key-table)
(let ((val (pop char-table)))
(if (and key val)
(quail-defrule
(if (characterp key) (char-to-string key) key)
(if (stringp val) (vector val) val))))))
(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))))))))
;;
@ -176,6 +180,29 @@
(;; 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
@ -242,7 +269,7 @@
(if nil
(quail-define-package "tamil-inscript" "Tamil" "TmlIS" t "Tamil keyboard Inscript"))
(quail-define-inscript-package
indian-tml-base-table inscript-dev-keytable
indian-tml-base-table inscript-tml-keytable
"tamil-inscript" "Tamil" "TmlIS"
"Tamil keyboard Inscript.")