branch: master
commit 96cbe3ac8015279e044b03a806d73d4d6c2e800a
Author: Luminous Fennell <[email protected]>
Commit: Luminous Fennell <[email protected]>
Fix missing optional arguments when calling `async-copy-file' in
`async-dired.el'.
E.g. in `async-dired-copy-file-recursive' the :callback argument was
interpreted as optional argument.. this completely broke
`async-copy-file'.
---
dired-async.el | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/dired-async.el b/dired-async.el
index 4e96ca9..9c2d10c 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -145,7 +145,7 @@ error occurs at any point, the rest of the queue is
flushed.")
(yes-or-no-p (format "Recursive copies of %s? " from))))
;; This is a directory.
(dired-async-wrap-call from callback
- (async-copy-file from to ok-flag preserve-time
+ (async-copy-file from to ok-flag preserve-time nil nil
:callback callback))
;; Not a directory.
(or top (dired-handle-overwrite to))
@@ -154,7 +154,7 @@ error occurs at any point, the rest of the queue is
flushed.")
;; It is a symlink
(make-symbolic-link (car attrs) to ok-flag)
(dired-async-wrap-call from callback
- (async-copy-file from to ok-flag preserve-time
+ (async-copy-file from to ok-flag preserve-time nil nil
:callback callback)))
(file-date-error
(push (dired-make-relative from)
