diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-02-04 11:25:01 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-02-04 11:25:01 +0000 |
| commit | c2acddfe0de15915e65ecd538872fa4f2c6df7f7 (patch) | |
| tree | 0a3c8402eeadd44a1498633ae29a778fd4bb686e /lisp/language | |
| parent | 2b2769b93c839a3f45066e47e7bd06cf82fe224a (diff) | |
| download | emacs-c2acddfe0de15915e65ecd538872fa4f2c6df7f7.tar.gz | |
Move codes which set syntax and category of
Indian characters to international/characters.el.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/indian.el | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/lisp/language/indian.el b/lisp/language/indian.el index 9cce23166be..d54e832880e 100644 --- a/lisp/language/indian.el +++ b/lisp/language/indian.el @@ -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 |