Mercurial > hg > xemacs-beta

comparison lisp/bytecomp-runtime.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 0d43872986b6
children ac37a5f7e5be
comparison
equal deleted inserted replaced
5362:1cfe6b84efbf 5363:311f6817efc2
308 ;; file, so this is not a big deal. 308 ;; file, so this is not a big deal.
309 309
310 (let ((symbols (eval (car (cdr form))))) 310 (let ((symbols (eval (car (cdr form)))))
311 (unless (consp symbols) 311 (unless (consp symbols)
312 (setq symbols (list symbols))) 312 (setq symbols (list symbols)))
313 (setq symbols (mapcar #'(lambda (sym) (cons sym nil)) symbols)) 313 (setq symbols (mapcar #'list symbols))
314 (setq byte-compile-unresolved-functions 314 (setq byte-compile-unresolved-functions
315 (set-difference byte-compile-unresolved-functions symbols 315 (set-difference byte-compile-unresolved-functions symbols
316 :key #'car)) 316 :key #'car))
317 )) 317 ))
318 318
425 ;; autoload definition is not used. (NOTE: With this definition, 425 ;; autoload definition is not used. (NOTE: With this definition,
426 ;; we will get spurious "multiple autoloads for %s" warnings if we 426 ;; we will get spurious "multiple autoloads for %s" warnings if we
427 ;; have an autoload later in the file for any functions in FUNCTIONS. 427 ;; have an autoload later in the file for any functions in FUNCTIONS.
428 ;; This is not something that code should ever do, though.) 428 ;; This is not something that code should ever do, though.)
429 (setq byte-compile-autoload-environment 429 (setq byte-compile-autoload-environment
430 (append (mapcar #'(lambda (sym) (cons sym nil)) functions) 430 (append (mapcar #'list functions)
431 byte-compile-autoload-environment))) 431 byte-compile-autoload-environment)))
432 nil) 432 nil)
433 433
434 (defun byte-compile-with-byte-compiler-warnings-suppressed (form) 434 (defun byte-compile-with-byte-compiler-warnings-suppressed (form)
435 (let ((byte-compile-warnings byte-compile-warnings) 435 (let ((byte-compile-warnings byte-compile-warnings)