Mercurial > hg > xemacs-beta

comparison lisp/mule/devan-util.el @ 4021:cef5f57bb9e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-06-21 13:39:08 by aidan] '(lambda ...) -> #'(lambda ...), for the sake of style and the byte compiler.
author aidan
date Thu, 21 Jun 2007 13:39:36 +0000
parents 522ce30766a2
children 311f6817efc2 308d34e9f07d
comparison
equal deleted inserted replaced
4020:77df2f1e36fd 4021:cef5f57bb9e2
1055 (let ((glyph (aref string pos))) 1055 (let ((glyph (aref string pos)))
1056 (setq pos (1+ pos)) 1056 (setq pos (1+ pos))
1057 (setq ordered-glyphs 1057 (setq ordered-glyphs
1058 (append ordered-glyphs 1058 (append ordered-glyphs
1059 (list (assq glyph devanagari-composition-rules)))))) 1059 (list (assq glyph devanagari-composition-rules))))))
1060 (sort ordered-glyphs '(lambda (x y) (< (car (cdr x)) (car (cdr y))))))) 1060 (sort ordered-glyphs #'(lambda (x y) (< (car (cdr x)) (car (cdr y)))))))
1061 1061
1062 ;;(devanagari-compose-to-one-glyph "$(5"5!X![(B") => "4$(6!Xv#"5t%![0!X"5![1(B" 1062 ;;(devanagari-compose-to-one-glyph "$(5"5!X![(B") => "4$(6!Xv#"5t%![0!X"5![1(B"
1063 1063
1064 (defun devanagari-compose-to-one-glyph (devanagari-string) 1064 (defun devanagari-compose-to-one-glyph (devanagari-string)
1065 (let* ((o-glyph-list (devanagari-reorder-glyphs-for-composition 1065 (let* ((o-glyph-list (devanagari-reorder-glyphs-for-composition