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 ...).

--- a/lisp/bytecomp-runtime.el	Tue Mar 01 14:18:54 2011 +0000
+++ b/lisp/bytecomp-runtime.el	Tue Mar 08 18:12:48 2011 +0000
@@ -310,7 +310,7 @@
   (let ((symbols (eval (car (cdr form)))))
     (unless (consp symbols)
       (setq symbols (list symbols)))
-    (setq symbols (mapcar #'(lambda (sym) (cons sym nil)) symbols))
+    (setq symbols (mapcar #'list symbols))
     (setq byte-compile-unresolved-functions
 	  (set-difference byte-compile-unresolved-functions symbols
 			  :key #'car))
@@ -427,7 +427,7 @@
     ;; have an autoload later in the file for any functions in FUNCTIONS.
     ;; This is not something that code should ever do, though.)
     (setq byte-compile-autoload-environment
-	  (append (mapcar #'(lambda (sym) (cons sym nil)) functions)
+	  (append (mapcar #'list functions)
 		  byte-compile-autoload-environment)))
   nil)