213 |
;; trans-char -- nil / string / list of strings |
;; trans-char -- nil / string / list of strings |
214 |
(when (and char trans-char) |
(when (and char trans-char) |
215 |
(if (stringp trans-char) (setq trans-char (list trans-char))) |
(if (stringp trans-char) (setq trans-char (list trans-char))) |
216 |
(if (char-valid-p char) (setq char (char-to-string char))) |
(if (characterp char) (setq char (char-to-string char))) |
217 |
(puthash char (car trans-char) encode-hash) |
(puthash char (car trans-char) encode-hash) |
218 |
(mapc |
(mapc |
219 |
(lambda (trans) |
(lambda (trans) |
233 |
(defun indian--puthash-c (c trans-c halant hashtbls) |
(defun indian--puthash-c (c trans-c halant hashtbls) |
234 |
(indian--map |
(indian--map |
235 |
(lambda (c trans-c) |
(lambda (c trans-c) |
236 |
(if (char-valid-p c) (setq c (char-to-string c))) |
(if (characterp c) (setq c (char-to-string c))) |
237 |
(indian--puthash-char (concat c halant) trans-c hashtbls)) |
(indian--puthash-char (concat c halant) trans-c hashtbls)) |
238 |
c trans-c)) |
c trans-c)) |
239 |
|
|
249 |
(indian--map |
(indian--map |
250 |
(lambda (v trans-v) |
(lambda (v trans-v) |
251 |
(when (and c trans-c v trans-v) |
(when (and c trans-c v trans-v) |
252 |
(if (char-valid-p c) (setq c (char-to-string c))) |
(if (characterp c) (setq c (char-to-string c))) |
253 |
(setq v (if (char-valid-p (cadr v)) (char-to-string (cadr v)) "")) |
(setq v (if (characterp (cadr v)) (char-to-string (cadr v)) "")) |
254 |
(if (stringp trans-c) (setq trans-c (list trans-c))) |
(if (stringp trans-c) (setq trans-c (list trans-c))) |
255 |
(if (stringp trans-v) (setq trans-v (list trans-v))) |
(if (stringp trans-v) (setq trans-v (list trans-v))) |
256 |
(indian--puthash-char |
(indian--puthash-char |
534 |
(set hashtable (make-hash-table :test 'equal :size 128)) |
(set hashtable (make-hash-table :test 'equal :size 128)) |
535 |
(mapc |
(mapc |
536 |
(function (lambda (x) |
(function (lambda (x) |
537 |
(put-char-code-property (decode-char 'ucs (car x)) |
(put-char-code-property (car x) 'script script) |
538 |
'script script) |
(put-char-code-property (car x) 'iscii (cdr x)) |
539 |
(put-char-code-property (decode-char 'ucs (car x)) |
(puthash (cdr x) (char-to-string (car x)) |
|
'iscii (cdr x)) |
|
|
(puthash (cdr x) (char-to-string (decode-char 'ucs (car x))) |
|
540 |
(eval hashtable)))) |
(eval hashtable)))) |
541 |
(eval (intern (concat "ucs-" (symbol-name script) |
(eval (intern (concat "ucs-" (symbol-name script) |
542 |
"-to-is13194-alist")))) |
"-to-is13194-alist")))) |
546 |
|
|
547 |
(defvar ucs-to-is13194-regexp |
(defvar ucs-to-is13194-regexp |
548 |
;; only Devanagari is supported now. |
;; only Devanagari is supported now. |
549 |
(concat "[" (char-to-string (decode-char 'ucs #x0900)) |
(concat "[" (char-to-string #x0900) |
550 |
"-" (char-to-string (decode-char 'ucs #x097f)) "]") |
"-" (char-to-string #x097f) "]") |
551 |
"Regexp that matches to conversion") |
"Regexp that matches to conversion") |
552 |
|
|
553 |
(defun ucs-to-iscii-region (from to) |
(defun ucs-to-iscii-region (from to) |