branch: elpa/vc-fossil
commit f4795ba8bd889dd900cfa0002b753d819018fef3
Author: fifr <fifr>
Commit: fifr <fifr>
Pass `vc-checkout-switches` on checkout.
This is required by the VC interface.
---
vc/el/vc-fossil.el | 11 +++++++++--
1 file changed, 9 insertions(+), 2 deletions(-)
diff --git a/vc/el/vc-fossil.el b/vc/el/vc-fossil.el
index 64614f6..d32a724 100644
--- a/vc/el/vc-fossil.el
+++ b/vc/el/vc-fossil.el
@@ -208,8 +208,15 @@ If `files` is nil return the status for all files."
vc-checkout-switches)))
(defun vc-fossil-checkout (file &optional editable rev)
- (apply #'vc-fossil-command nil 0 nil
- "update" `(,@(if (eq rev t) '() `(,rev)))))
+ (apply #'vc-fossil-command nil 0 file
+ "update"
+ (append (cond
+ ((eq rev t) nil)
+ (rev (list rev))
+ (t nil))
+ (if (listp vc-checkout-switches)
+ vc-checkout-switches
+ (list vc-checkout-switches)))))
(defun vc-fossil-revert (file &optional contents-done)
"Revert FILE to the version stored in the fossil repository."
