comparison lisp/easy-mmode.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 c4c8a36043be
children 308d34e9f07d
comparison
equal deleted inserted replaced
4782:1523f1d28be1 4783:e29fcfd8df5f
523 (parent (plist-get args :inherit))) 523 (parent (plist-get args :inherit)))
524 (dolist (cs css) 524 (dolist (cs css)
525 (let ((char (car cs)) 525 (let ((char (car cs))
526 (syntax (cdr cs))) 526 (syntax (cdr cs)))
527 (if (sequencep char) 527 (if (sequencep char)
528 (mapcar (lambda (c) (modify-syntax-entry c syntax st)) char) 528 (mapc (lambda (c) (modify-syntax-entry c syntax st)) char)
529 (modify-syntax-entry char syntax st)))) 529 (modify-syntax-entry char syntax st))))
530 ;; XEmacs change: we do not have set-char-table-parent 530 ;; XEmacs change: we do not have set-char-table-parent
531 (if parent (derived-mode-merge-syntax-tables 531 (if parent (derived-mode-merge-syntax-tables
532 (if (symbolp parent) (symbol-value parent) parent) st)) 532 (if (symbolp parent) (symbol-value parent) parent) st))
533 st)) 533 st))