/[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.5 by pj, Mon Dec 17 20:56:03 2001 UTC revision 1.5.2.1 by fx, Thu May 23 18:23:48 2002 UTC
# Line 213  FUNCTION will be called 15 times." Line 213  FUNCTION will be called 15 times."
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)
# Line 233  FUNCTION will be called 15 times." Line 233  FUNCTION will be called 15 times."
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    
# Line 249  FUNCTION will be called 15 times." Line 249  FUNCTION will be called 15 times."
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
# Line 534  FUNCTION will be called 15 times." Line 534  FUNCTION will be called 15 times."
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"))))
# Line 548  FUNCTION will be called 15 times." Line 546  FUNCTION will be called 15 times."
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)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.5.2.1

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