From 48cb5913dc229cc914f4f7ce4769088aaf0354e1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 16 Dec 2001 03:43:49 +0000 Subject: [PATCH] (range): Function deleted. (indian-regexp-of-hashtbl-keys): Renamed from `regexp-of-hashtbl-keys'. All calls changed. --- lisp/language/ind-util.el | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/lisp/language/ind-util.el b/lisp/language/ind-util.el index 5799f2c5f39..de1ca127f52 100644 --- a/lisp/language/ind-util.el +++ b/lisp/language/ind-util.el @@ -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 @@ FUNCTION will be called 15 times." (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 @@ FUNCTION will be called 15 times." (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)) -- 2.39.5