branch: master
commit d9d68f7e157fbf0f32dceef992b4bc5b19a63522
Merge: 1647b97 96cbe3a
Author: John Wiegley <[email protected]>
Commit: John Wiegley <[email protected]>
Merge pull request #5 from mstrlu/fix-async-copy-call
Fix missing optional arguments when calling `async-copy-file' in `async-...
---
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)
