Mercurial > hg > xemacs-beta

comparison lisp/bytecomp.el @ 4996:c17c857e20bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 03 Feb 2010 20:18:53 +0000
parents 755ae5b97edb 8431b52e43b1
children 99f8ebc082d9
comparison
equal deleted inserted replaced
4927:5274591ce707 4996:c17c857e20bf
3561 (and for-effect 3561 (and for-effect
3562 (or (null (memq 'discarded-consing byte-compile-warnings)) 3562 (or (null (memq 'discarded-consing byte-compile-warnings))
3563 (byte-compile-warn 3563 (byte-compile-warn
3564 "Discarding the result of #'%s; maybe you meant #'mapc?" 3564 "Discarding the result of #'%s; maybe you meant #'mapc?"
3565 (car form))) 3565 (car form)))
3566 (setq form (cons 'mapc-internal (cdr form)))) 3566 (setq form (cons 'mapc (cdr form))))
3567 (byte-compile-funarg form)) 3567 (byte-compile-funarg form))
3568 3568
3569 (defun byte-compile-maplist (form) 3569 (defun byte-compile-maplist (form)
3570 (and for-effect 3570 (and for-effect
3571 (or (null (memq 'discarded-consing byte-compile-warnings)) 3571 (or (null (memq 'discarded-consing byte-compile-warnings))
3766 (byte-defop-compiler-1 map-extent-children byte-compile-funarg) 3766 (byte-defop-compiler-1 map-extent-children byte-compile-funarg)
3767 (byte-defop-compiler-1 map-extents byte-compile-funarg) 3767 (byte-defop-compiler-1 map-extents byte-compile-funarg)
3768 (byte-defop-compiler-1 map-plist byte-compile-funarg) 3768 (byte-defop-compiler-1 map-plist byte-compile-funarg)
3769 (byte-defop-compiler-1 map-range-table byte-compile-funarg) 3769 (byte-defop-compiler-1 map-range-table byte-compile-funarg)
3770 (byte-defop-compiler-1 map-syntax-table byte-compile-funarg) 3770 (byte-defop-compiler-1 map-syntax-table byte-compile-funarg)
3771 (byte-defop-compiler-1 mapcar* byte-compile-funarg) 3771 (byte-defop-compiler-1 mapcar* byte-compile-maybe-mapc)
3772 3772
3773 (byte-defop-compiler-1 remove-if byte-compile-funarg) 3773 (byte-defop-compiler-1 remove-if byte-compile-funarg)
3774 (byte-defop-compiler-1 remove-if-not byte-compile-funarg) 3774 (byte-defop-compiler-1 remove-if-not byte-compile-funarg)
3775 (byte-defop-compiler-1 delete-if byte-compile-funarg) 3775 (byte-defop-compiler-1 delete-if byte-compile-funarg)
3776 (byte-defop-compiler-1 delete-if-not byte-compile-funarg) 3776 (byte-defop-compiler-1 delete-if-not byte-compile-funarg)