[Emacs-diffs] Changes to emacs/lisp/dired-aux.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/03/26 03:34:09

Index: dired-aux.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/dired-aux.el,v
retrieving revision 1.163
retrieving revision 1.164
diff -u -b -r1.163 -r1.164
--- dired-aux.el        8 Jan 2008 20:44:44 -0000       1.163
+++ dired-aux.el        26 Mar 2008 03:34:06 -0000      1.164
@@ -1389,9 +1389,7 @@
        skipped (success-count 0) (total (length fn-list)))
     (let (to overwrite-query
             overwrite-backup-query)    ; for dired-handle-overwrite
-      (mapc
-       (function
-       (lambda (from)
+      (dolist (from fn-list)
          (setq to (funcall name-constructor from))
          (if (equal to from)
              (progn
@@ -1433,7 +1431,6 @@
                         failures)
                   (dired-log "%s `%s' to `%s' failed:\n%s\n"
                              operation from to err))))))))
-       fn-list))
     (cond
      (dired-create-files-failures
       (setq failures (nconc failures dired-create-files-failures))