comparison lisp/packages.el @ 5363:311f6817efc2

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 d27c1ee1943b
children 3889ef128488 ac37a5f7e5be
comparison
equal deleted inserted replaced
5362:1cfe6b84efbf 5363:311f6817efc2
515 ;; 20.4 packages could set this 515 ;; 20.4 packages could set this
516 preloaded-file-list) 516 preloaded-file-list)
517 (load file-name) 517 (load file-name)
518 ;; dumped-lisp.el could have set this ... 518 ;; dumped-lisp.el could have set this ...
519 (if package-lisp 519 (if package-lisp
520 (mapcar #'(lambda (base) 520 (mapcar handle package-lisp))))))
521 (funcall handle base))
522 package-lisp))))))
523 package-load-path)) 521 package-load-path))
524 522
525 (defun packages-load-package-dumped-lisps (package-load-path) 523 (defun packages-load-package-dumped-lisps (package-load-path)
526 "Load dumped-lisp.el files along a load path. 524 "Load dumped-lisp.el files along a load path.
527 Also load files off PACKAGE-LISP definitions there." 525 Also load files off PACKAGE-LISP definitions there."