Mercurial > hg > xemacs-beta

comparison lisp/bytecomp.el @ 4998:b46c89ccbed3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 06 Feb 2010 12:28:19 +0000
parents c17c857e20bf
children 99f8ebc082d9
comparison
equal deleted inserted replaced
4994:76af7fc13e81 4998:b46c89ccbed3
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)