Mercurial > emacs
changeset 20837:33f4fac4edd1
Move codes which set syntax and category of
Indian characters to international/characters.el.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 04 Feb 1998 11:25:01 +0000 |
| parents | 18b33fb503f3 |
| children | 3d67d591c066 |
| files | lisp/language/indian.el |
| diffstat | 1 files changed, 0 insertions(+), 31 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/indian.el Wed Feb 04 11:24:28 1998 +0000 +++ b/lisp/language/indian.el Wed Feb 04 11:25:01 1998 +0000 @@ -83,37 +83,6 @@ ;; (char-to-string (indian-to-devanagari ?(5$(B)) ;; "$(5!$(B" -(let ((deflist - '(;; chars syntax category - ("(5!"#(B" "w" ?7) ; vowel-modifying diacritical mark - ; chandrabindu, anuswar, visarga - ("(5$(B-(52(B" "w" ?1) ; base (independent) vowel - ("(53(B-(5X(B" "w" ?0) ; consonant - ("(5Z(B-(5g(B" "w" ?8) ; matra - ("(5q(B-(5z(B" "w" ?6) ; digit - )) - elm chars len syntax category to ch i) - (while deflist - (setq elm (car deflist)) - (setq chars (car elm) - len (length chars) - syntax (nth 1 elm) - category (nth 2 elm) - i 0) - (while (< i len) - (if (= (aref chars i) ?-) - (setq i (1+ i) - to (sref chars i)) - (setq ch (sref chars i) - to ch)) - (while (<= ch to) - (modify-syntax-entry ch syntax) - (modify-category-entry ch category) - (setq ch (1+ ch))) - (setq i (+ i (char-bytes to)))) - (setq deflist (cdr deflist)))) - - ;;; ITRANS ;; ;; ITRANS is one of the most popular method to exchange indian scripts