[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: |
Sven Joachim |
Subject: |
Re: Recursive copies in dired abort on first error |
Date: |
Sun, 10 Sep 2006 00:00:07 +0200 |
User-agent: |
Thunderbird 1.5.0.5 (X11/20060812) |
Richard Stallman wrote:
Anyway, I think I fixed the confusing `29 out of 2 files' message.
Please try this:
It leads to an error, e.g. trying to copy /etc/shadow:
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p ("shadow"
"shadow"))
dired-plural-s(("shadow" "shadow"))
(format "%s failed for %d file%s in %d requests" operation (length failures)
(dired-plural-s failures) total)
(dired-log-summary (format "%s failed for %d file%s in %d requests" operation
(length failures) (dired-plural-s failures) total) failures)
(cond (dired-create-files-failures (setq failures ...) (dired-log-summary ... failures)) (failures (dired-log-summary ... failures)) (skipped
(dired-log-summary ... skipped)) (t (message "%s: %s file%s" operation success-count ...)))
(let (dired-create-files-failures failures skipped (success-count 0) (total ...)) (let (to overwrite-query overwrite-backup-query) (mapcar ...
fn-list)) (cond (dired-create-files-failures ... ...) (failures ...) (skipped ...) (t ...)))
dired-create-files(dired-copy-file "Copy" ("/etc/shadow") (lambda (from)
(expand-file-name (file-name-nondirectory from) target)) 67)
(if (and (consp into-dir) (functionp ...)) (apply (car into-dir) operation rfn-list fn-list target (cdr into-dir)) (if (not ...) (error "Marked %s:
target must be a directory: %s" operation target)) (or into-dir (setq target ...)) (dired-create-files file-creator operation fn-list (if into-dir ...
...) marker-char))
(let* ((fn-list ...) (rfn-list ...) (dired-one-file ...) (target-dir ...) (default ...) (target ...) (into-dir ...)) (if (and ... ...) (apply ...
operation rfn-list fn-list target ...) (if ... ...) (or into-dir ...) (dired-create-files file-creator operation fn-list ... marker-char)))
dired-do-create-files(copy dired-copy-file "Copy" nil 67 nil nil)
(let ((dired-recursive-copies dired-recursive-copies)) (dired-do-create-files (quote copy) (function dired-copy-file) "Copy" arg
dired-keep-marker-copy nil dired-copy-how-to-fn))
dired-do-copy(nil)
call-interactively(dired-do-copy)
- Re: Recursive copies in dired abort on first error, Richard Stallman, 2006/09/03
- Re: Recursive copies in dired abort on first error, Sven Joachim, 2006/09/03
- Re: Recursive copies in dired abort on first error, Richard Stallman, 2006/09/04
- Re: Recursive copies in dired abort on first error, Sven Joachim, 2006/09/05
- Re: Recursive copies in dired abort on first error, Richard Stallman, 2006/09/06
- Re: Recursive copies in dired abort on first error, Sven Joachim, 2006/09/06
- Re: Recursive copies in dired abort on first error, Richard Stallman, 2006/09/07
- Re: Recursive copies in dired abort on first error, Sven Joachim, 2006/09/08
- Re: Recursive copies in dired abort on first error, Richard Stallman, 2006/09/09
- Re: Recursive copies in dired abort on first error,
Sven Joachim <=