/[emacs]/emacs/lisp/language/ind-util.el
ViewVC logotype

Diff of /emacs/lisp/language/ind-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by fx, Sat Dec 15 17:59:27 2001 UTC revision 1.3 by rms, Sun Dec 16 03:43:49 2001 UTC
# Line 40  Line 40 
40    
41  (eval-and-compile  (eval-and-compile
42    
43  (defun range (from to)  (defun indian-regexp-of-hashtbl-keys (hashtbl)
   "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)  
44    "Returns the regular expression of hashtable keys."    "Returns the regular expression of hashtable keys."
45    (let ((max-specpdl-size 1000))    (let ((max-specpdl-size 1000))
46      (regexp-opt      (regexp-opt
# Line 303  FUNCTION will be called 15 times." Line 298  FUNCTION will be called 15 times."
298  (defmacro indian-translate-region (from to hashtable encode-p)  (defmacro indian-translate-region (from to hashtable encode-p)
299    `(save-excursion    `(save-excursion
300       (save-restriction       (save-restriction
301         (let ((regexp ,(regexp-of-hashtbl-keys         (let ((regexp ,(indian-regexp-of-hashtbl-keys
302                         (if encode-p (car (eval hashtable))                         (if encode-p (car (eval hashtable))
303                           (cdr (eval hashtable))))))                           (cdr (eval hashtable))))))
304           (narrow-to-region from to)           (narrow-to-region from to)
# Line 547  FUNCTION will be called 15 times." Line 542  FUNCTION will be called 15 times."
542                   (eval hashtable))))                   (eval hashtable))))
543        (eval (intern (concat "ucs-" (symbol-name script)        (eval (intern (concat "ucs-" (symbol-name script)
544                              "-to-is13194-alist"))))                              "-to-is13194-alist"))))
545       (set regexp (regexp-of-hashtbl-keys (eval hashtable))))))       (set regexp (indian-regexp-of-hashtbl-keys (eval hashtable))))))
546   '(devanagari bengali assamese gurmukhi gujarati   '(devanagari bengali assamese gurmukhi gujarati
547     oriya tamil telugu malayalam))     oriya tamil telugu malayalam))
548    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26