Mercurial > hg > xemacs-beta

comparison lisp/mule/make-coding-system.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 88f955fa5a7f
children ac37a5f7e5be
comparison
equal deleted inserted replaced
5362:1cfe6b84efbf 5363:311f6817efc2
66 (write-multibyte-character r0 r3) 66 (write-multibyte-character r0 r3)
67 (write #xBEEF)))))))) 67 (write #xBEEF))))))))
68 (repeat)))) nil)) 68 (repeat)))) nil))
69 (first-part compiled) 69 (first-part compiled)
70 (last-part 70 (last-part
71 (member-if-not (lambda (entr) (eq #xBFFE entr)) 71 (member* #xBFFE (member* #xBFFE first-part) :test-not 'eql)))
72 (member-if
73 (lambda (entr) (eq #xBFFE entr))
74 first-part))))
75 (while compiled 72 (while compiled
76 (when (eq #xBFFE (cadr compiled)) 73 (when (eq #xBFFE (cadr compiled))
77 (assert (= vec-len (search '(#xBFFE) (cdr compiled) 74 (assert (= vec-len (search '(#xBFFE) (cdr compiled)
78 :test #'/=)) nil 75 :test #'/=)) nil
79 "Strange ccl vector length") 76 "Strange ccl vector length")