# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190717063 0
# Node ID 4795469428b360e3fd2b1c160b4c1732c1128079
# Parent  e745533cff59a0debd2487f143920f7b6a01f372
(dired-create-files): Use `mapc' rather than `mapcar'.

diff -r e745533cff59 -r 4795469428b3 lisp/dired-aux.el
--- a/lisp/dired-aux.el	Tue Sep 25 10:43:39 2007 +0000
+++ b/lisp/dired-aux.el	Tue Sep 25 10:44:23 2007 +0000
@@ -1330,7 +1330,7 @@
 	skipped (success-count 0) (total (length fn-list)))
     (let (to overwrite-query
 	     overwrite-backup-query)	; for dired-handle-overwrite
-      (mapcar
+      (mapc
        (function
 	(lambda (from)
 	  (setq to (funcall name-constructor from))