Mercurial > hg > xemacs-beta
diff lisp/bytecomp.el @ 4996:c17c857e20bf
Merge.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 03 Feb 2010 20:18:53 +0000 |
| parents | 755ae5b97edb 8431b52e43b1 |
| children | 99f8ebc082d9 |
line wrap: on
line diff
--- a/lisp/bytecomp.el Wed Feb 03 09:43:16 2010 -0700 +++ b/lisp/bytecomp.el Wed Feb 03 20:18:53 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)