comparison lisp/frame.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 aa5ed11f473b
children 5502045ec510
comparison
equal deleted inserted replaced
4782:1523f1d28be1 4783:e29fcfd8df5f
497 (if (eq default-minibuffer-frame frame-initial-frame) 497 (if (eq default-minibuffer-frame frame-initial-frame)
498 (setq default-minibuffer-frame new-surrogate)) 498 (setq default-minibuffer-frame new-surrogate))
499 499
500 ;; Wean the frames using frame-initial-frame as 500 ;; Wean the frames using frame-initial-frame as
501 ;; their minibuffer frame. 501 ;; their minibuffer frame.
502 (mapcar 502 (mapc
503 #'(lambda (frame) 503 #'(lambda (frame)
504 (set-frame-property frame 'minibuffer 504 (set-frame-property frame 'minibuffer
505 new-minibuffer)) 505 new-minibuffer))
506 users-of-initial)))) 506 users-of-initial))))
507 507
748 This deletes all bindings in PLIST for `top', `left', `width', 748 This deletes all bindings in PLIST for `top', `left', `width',
749 `height', `user-size' and `user-position' properties. 749 `height', `user-size' and `user-position' properties.
750 Emacs uses this to avoid overriding explicit moves and resizings from 750 Emacs uses this to avoid overriding explicit moves and resizings from
751 the user during startup." 751 the user during startup."
752 (setq plist (canonicalize-lax-plist (copy-sequence plist))) 752 (setq plist (canonicalize-lax-plist (copy-sequence plist)))
753 (mapcar #'(lambda (property) 753 (mapc #'(lambda (property)
754 (if (lax-plist-member plist property) 754 (if (lax-plist-member plist property)
755 (progn 755 (progn
756 (setq frame-initial-geometry-arguments 756 (setq frame-initial-geometry-arguments
757 (cons property 757 (cons property
758 (cons (lax-plist-get plist property) 758 (cons (lax-plist-get plist property)
759 frame-initial-geometry-arguments))) 759 frame-initial-geometry-arguments)))
760 (setq plist (lax-plist-remprop plist property))))) 760 (setq plist (lax-plist-remprop plist property)))))
761 '(height width top left user-size user-position)) 761 '(height width top left user-size user-position))
762 plist) 762 plist)
763 763
764 ;; XEmacs change: Emacs has focus-follows-mouse here, which lets them 764 ;; XEmacs change: Emacs has focus-follows-mouse here, which lets them
765 ;; Customize it. XEmacs has it builtin. Should that change? 765 ;; Customize it. XEmacs has it builtin. Should that change?
766 766