Move codes which set syntax and category of

Indian characters to international/characters.el.

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