[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Recursive copies in dired abort on first error
From: |
Richard Stallman |
Subject: |
Re: Recursive copies in dired abort on first error |
Date: |
Mon, 28 Aug 2006 18:10:28 -0400 |
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))