Mercurial > emacs
changeset 42060:f3b460667d31
(range): Function deleted.
(indian-regexp-of-hashtbl-keys): Renamed from `regexp-of-hashtbl-keys'.
All calls changed.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 16 Dec 2001 03:43:49 +0000 |
| parents | feea8637ffc8 |
| children | 0332665b9445 |
| files | lisp/language/ind-util.el |
| diffstat | 1 files changed, 3 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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))