# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1008474229 0
# Node ID f3b460667d311db108d63393baa3fecbb9910c09
# Parent  feea8637ffc824da9e72df64f7687d9d2fa2c38c
(range): Function deleted.
(indian-regexp-of-hashtbl-keys): Renamed from `regexp-of-hashtbl-keys'.
All calls changed.

diff -r feea8637ffc8 -r f3b460667d31 lisp/language/ind-util.el
--- a/lisp/language/ind-util.el	Sat Dec 15 20:54:34 2001 +0000
+++ b/lisp/language/ind-util.el	Sun Dec 16 03:43:49 2001 +0000
@@ -40,12 +40,7 @@
 
 (eval-and-compile
 
-(defun range (from to)
-  "Make the list of the integers of range FROM to TO."
-  (let (result) 
-    (while (<= from to) (setq result (cons to result) to (1- to))) result))
-
-(defun regexp-of-hashtbl-keys (hashtbl)
+(defun indian-regexp-of-hashtbl-keys (hashtbl)
   "Returns the regular expression of hashtable keys."
   (let ((max-specpdl-size 1000))
     (regexp-opt
@@ -303,7 +298,7 @@
 (defmacro indian-translate-region (from to hashtable encode-p)
   `(save-excursion
      (save-restriction
-       (let ((regexp ,(regexp-of-hashtbl-keys 
+       (let ((regexp ,(indian-regexp-of-hashtbl-keys 
 		       (if encode-p (car (eval hashtable)) 
 			 (cdr (eval hashtable))))))
 	 (narrow-to-region from to)
@@ -547,7 +542,7 @@
                  (eval hashtable))))
       (eval (intern (concat "ucs-" (symbol-name script)
                             "-to-is13194-alist"))))
-     (set regexp (regexp-of-hashtbl-keys (eval hashtable))))))
+     (set regexp (indian-regexp-of-hashtbl-keys (eval hashtable))))))
  '(devanagari bengali assamese gurmukhi gujarati
    oriya tamil telugu malayalam))