Mercurial > hg > xemacs-beta
comparison lisp/package-ui.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 | 668c73e222fd |
children | ac37a5f7e5be |
comparison
equal
deleted
inserted
replaced
5362:1cfe6b84efbf | 5363:311f6817efc2 |
---|---|
433 ;; display random buffers in addition to the error buffer, if | 433 ;; display random buffers in addition to the error buffer, if |
434 ;; errors occur, which would normally be caused by display-buffer). | 434 ;; errors occur, which would normally be caused by display-buffer). |
435 (save-window-excursion | 435 (save-window-excursion |
436 (with-output-to-temp-buffer tmpbuf | 436 (with-output-to-temp-buffer tmpbuf |
437 (display-completion-list (sort | 437 (display-completion-list (sort |
438 (mapcar #'(lambda (pkg) | 438 (mapcar #'symbol-name dependencies) |
439 (symbol-name pkg)) | |
440 dependencies) | |
441 'string<) | 439 'string<) |
442 :activate-callback nil | 440 :activate-callback nil |
443 :help-string "Required packages:\n" | 441 :help-string "Required packages:\n" |
444 :completion-string t)) | 442 :completion-string t)) |
445 (setq tmpbuf (get-buffer-create tmpbuf)) | 443 (setq tmpbuf (get-buffer-create tmpbuf)) |