comparison lisp/package-get.el @ 4783:e29fcfd8df5f

Eliminate most core code byte-compile warnings. 2009-12-18 Aidan Kehoe <kehoea@parhasard.net> * alist.el (modify-alist): * autoload.el (update-autoload-files, autoload-print-form): * bytecomp.el (batch-byte-compile-1) (byte-compile-multiple-value-call, byte-compile-funcall) (byte-compile-insert, byte-compile-concat, byte-compile-list) (byte-compile-normal-call, byte-compile-flush-pending): * cl-macs.el (letf): * cl.el: * disass.el (disassemble-1): * easy-mmode.el (easy-mmode-define-syntax): * faces.el (set-face-parent): * files.el (cd): * finder.el (finder-list-matches, finder-list-keywords) (finder-compile-keywords): * frame.el (frame-notice-user-settings) (frame-remove-geometry-props): * ldap.el (ldap-delete-entries, ldap-modify-entries) (ldap-add-entries): * loadhist.el (unload-feature): * map-ynp.el (map-y-or-n-p): * menubar-items.el (default-menubar): * mouse.el (default-mouse-track-next-move-rect) (default-mouse-track-next-move-rect) (default-mouse-track-cleanup-hook) (default-mouse-track-cleanup-extent): * mule/ethio-util.el (ethio-fidel-to-sera-buffer) (ethio-modify-vowel): * obsolete.el: * package-get.el (package-get-update-all): * package-ui.el (pui-list-packages) (pui-install-selected-packages, pui-install-selected-packages): * select.el (select-make-extent-for-selection) (dehilight-selection): * simple.el (clone-buffer): * term/tvi970.el: * term/wyse50.el: * unicode.el: (load-unicode-tables): * x-font-menu.el (fc-make-font-menu-entry) (x-reset-device-font-menus-xft): * x-misc.el (x-init-specifier-from-resources): Eliminate byte-compile warnings, with the exception of Stephen's various non-defined fontconfig functions, as I don't know if he plans to add them and is keeping the warnings around as a reminder. The warnings actually eliminated involve i) using mapcar instead of mapc where the result is discarded and ii) using a lambda quoted as data in a context where it is unequivocally used as a function.
author Aidan Kehoe <kehoea@parhasard.net>
date Fri, 18 Dec 2009 17:49:43 +0000
parents 436ab23a7a3c
children 2302bb5fa67d
comparison
equal deleted inserted replaced
4782:1523f1d28be1 4783:e29fcfd8df5f
665 "Fetch and install the latest versions of all currently installed packages." 665 "Fetch and install the latest versions of all currently installed packages."
666 (interactive) 666 (interactive)
667 (package-get-require-base t) 667 (package-get-require-base t)
668 ;; Load a fresh copy 668 ;; Load a fresh copy
669 (catch 'exit 669 (catch 'exit
670 (mapcar (lambda (pkg) 670 (mapc (lambda (pkg)
671 (if (not (package-get (car pkg) nil 'never)) 671 (if (not (package-get (car pkg) nil 'never))
672 (throw 'exit nil))) ;; Bail out if error detected 672 (throw 'exit nil))) ;; Bail out if error detected
673 packages-package-list)) 673 packages-package-list))
674 (package-net-update-installed-db)) 674 (package-net-update-installed-db))
675 675
676 ;;;###autoload 676 ;;;###autoload
677 (defun package-get-all (package version &optional fetched-packages install-dir) 677 (defun package-get-all (package version &optional fetched-packages install-dir)
678 "Fetch PACKAGE with VERSION and all other required packages. 678 "Fetch PACKAGE with VERSION and all other required packages.