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