Re: Recursive copies in dired abort on first error

[Richard Stallman]

I think this fix ought to work, but it is not easy for me to test it.
Would you please test it?

*** dired-aux.el        17 Jul 2006 16:31:56 -0400      1.146
--- dired-aux.el        28 Aug 2006 14:35:01 -0400      
***************
*** 1165,1174 ****
              (or top (dired-handle-overwrite to))
            (make-directory to))
          (while files
!           (dired-copy-file-recursive
!            (expand-file-name (car files) from)
!            (expand-file-name (car files) to)
!            ok-flag preserve-time nil recursive)
            (setq files (cdr files))))
        ;; Not a directory.
        (or top (dired-handle-overwrite to))
--- 1165,1177 ----
              (or top (dired-handle-overwrite to))
            (make-directory to))
          (while files
!           (condition-case err
!               (dired-copy-file-recursive
!                (expand-file-name (car files) from)
!                (expand-file-name (car files) to)
!                ok-flag preserve-time nil recursive)
!             (file-error
!              (dired-log "Copying error for %s:\n%s\n" (car files) err)))
            (setq files (cdr files))))
        ;; Not a directory.
        (or top (dired-handle-overwrite to))