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 |
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) |
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 |
|
|