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)
_______________________________________________
emacs-pretest-bug mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
