Mercurial > hg > xemacs-beta
diff lisp/bytecomp.el @ 4998:b46c89ccbed3
Merge.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 06 Feb 2010 12:28:19 +0000 |
| parents | c17c857e20bf |
| children | 99f8ebc082d9 |
line wrap: on
line diff
--- a/lisp/bytecomp.el Sat Feb 06 04:27:47 2010 -0600 +++ b/lisp/bytecomp.el Sat Feb 06 12:28:19 2010 +0000 @@ -3563,7 +3563,7 @@ (byte-compile-warn "Discarding the result of #'%s; maybe you meant #'mapc?" (car form))) - (setq form (cons 'mapc-internal (cdr form)))) + (setq form (cons 'mapc (cdr form)))) (byte-compile-funarg form)) (defun byte-compile-maplist (form) @@ -3768,7 +3768,7 @@ (byte-defop-compiler-1 map-plist byte-compile-funarg) (byte-defop-compiler-1 map-range-table byte-compile-funarg) (byte-defop-compiler-1 map-syntax-table byte-compile-funarg) -(byte-defop-compiler-1 mapcar* byte-compile-funarg) +(byte-defop-compiler-1 mapcar* byte-compile-maybe-mapc) (byte-defop-compiler-1 remove-if byte-compile-funarg) (byte-defop-compiler-1 remove-if-not byte-compile-funarg)