[Emacs-diffs] Changes to emacs/lisp/language/ind-util.el

[Richard M. Stallman]

Index: emacs/lisp/language/ind-util.el
diff -c emacs/lisp/language/ind-util.el:1.2 emacs/lisp/language/ind-util.el:1.3
*** emacs/lisp/language/ind-util.el:1.2 Sat Dec 15 12:59:27 2001
--- emacs/lisp/language/ind-util.el     Sat Dec 15 22:43:49 2001
***************
*** 40,51 ****
  
  (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)
    "Returns the regular expression of hashtable keys."
    (let ((max-specpdl-size 1000))
      (regexp-opt
--- 40,46 ----
  
  (eval-and-compile
  
! (defun indian-regexp-of-hashtbl-keys (hashtbl)
    "Returns the regular expression of hashtable keys."
    (let ((max-specpdl-size 1000))
      (regexp-opt
***************
*** 303,309 ****
  (defmacro indian-translate-region (from to hashtable encode-p)
    `(save-excursion
       (save-restriction
!        (let ((regexp ,(regexp-of-hashtbl-keys 
                       (if encode-p (car (eval hashtable)) 
                         (cdr (eval hashtable))))))
         (narrow-to-region from to)
--- 298,304 ----
  (defmacro indian-translate-region (from to hashtable encode-p)
    `(save-excursion
       (save-restriction
!        (let ((regexp ,(indian-regexp-of-hashtbl-keys 
                       (if encode-p (car (eval hashtable)) 
                         (cdr (eval hashtable))))))
         (narrow-to-region from to)
***************
*** 547,553 ****
                   (eval hashtable))))
        (eval (intern (concat "ucs-" (symbol-name script)
                              "-to-is13194-alist"))))
!      (set regexp (regexp-of-hashtbl-keys (eval hashtable))))))
   '(devanagari bengali assamese gurmukhi gujarati
     oriya tamil telugu malayalam))
  
--- 542,548 ----
                   (eval hashtable))))
        (eval (intern (concat "ucs-" (symbol-name script)
                              "-to-is13194-alist"))))
!      (set regexp (indian-regexp-of-hashtbl-keys (eval hashtable))))))
   '(devanagari bengali assamese gurmukhi gujarati
     oriya tamil telugu malayalam))