Mercurial > hg > xemacs-beta

comparison lisp/mule/devan-util.el @ 5363:311f6817efc2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove various redundant wrapper lambdas, core lisp. 2011-03-08 Aidan Kehoe <kehoea@parhasard.net> * package-ui.el (pui-add-required-packages): * packages.el (packages-handle-package-dumped-lisps): * bytecomp-runtime.el (byte-compile-with-fboundp): * bytecomp-runtime.el (globally-declare-fboundp): * bytecomp-runtime.el (byte-compile-with-byte-compiler-warnings-suppressed): * mule/devan-util.el (devanagari-reorder-glyphs-for-composition): * mule/devan-util.el (devanagari-compose-to-one-glyph): * mule/japanese.el: * mule/japanese.el ("Japanese"): * mule/make-coding-system.el (fixed-width-generate-helper): * mule/mule-category.el (defined-category-list): * mule/mule-category.el (undefined-category-designator): Style change: remove redundant lambdas, things like (mapcar #'(lambda (pkg) (symbol-name pkg)) ...) => (mapcar #'symbol-name ...).
author Aidan Kehoe <kehoea@parhasard.net>
date Tue, 08 Mar 2011 18:12:48 +0000
parents cef5f57bb9e2
children f00192e1cd49
comparison
equal deleted inserted replaced
5362:1cfe6b84efbf 5363:311f6817efc2
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 '< :key 'cadr)))
1061
1062 ;;(devanagari-compose-to-one-glyph "$(5"5!X![(B") => "4$(6!Xv#"5t%![0!X"5![1(B" 1061 ;;(devanagari-compose-to-one-glyph "$(5"5!X![(B") => "4$(6!Xv#"5t%![0!X"5![1(B"
1063 1062
1064 (defun devanagari-compose-to-one-glyph (devanagari-string) 1063 (defun devanagari-compose-to-one-glyph (devanagari-string)
1065 (let* ((o-glyph-list (devanagari-reorder-glyphs-for-composition 1064 (let* ((o-glyph-list (devanagari-reorder-glyphs-for-composition
1066 devanagari-string 0 (length devanagari-string))) 1065 devanagari-string 0 (length devanagari-string)))