From 17bf0affd39dcb79e56f1bb7a45ef6e66b060e06 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 4 Feb 1998 11:25:01 +0000 Subject: [PATCH] Move codes which set syntax and category of Indian characters to international/characters.el. --- lisp/language/indian.el | 31 ------------------------------- 1 file changed, 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 -- 2.39.5