[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/language/ind-util.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/language/ind-util.el |
Date: |
Sat, 15 Dec 2001 22:43:50 -0500 |
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))