- do (funcall fn from dest t)))
- (file-error
- (dired-log "%s: %s\n" (car err) (cdr err))
- (dired-log t)
- (with-current-buffer dired-log-buffer
+ do (condition-case err
+ (funcall fn from dest t)
+ (file-error
+ (dired-log "%s: %s\n" (car err) (cdr err)))
+ nil))
+ (when (get-buffer dired-log-buffer)
+ (dired-log t)
+ (with-current-buffer dired-log-buffer