branch: elpa/vc-fossil
commit f0f81f8ac17a565d543705e6c620e95617ebd12a
Author: fifr <fifr>
Commit: fifr <fifr>
Fix `vc-fossil-find-revision`.
This function should return the content of a specific revision of a
file. Thus we use "fossil cat" instead of "fossil finfo".
---
vc/el/vc-fossil.el | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/vc/el/vc-fossil.el b/vc/el/vc-fossil.el
index c7ed4cc..64614f6 100644
--- a/vc/el/vc-fossil.el
+++ b/vc/el/vc-fossil.el
@@ -199,10 +199,13 @@ If `files` is nil return the status for all files."
vc-checkin-switches)))
(defun vc-fossil-find-revision (file rev buffer)
- (apply #'vc-fossil-command buffer 0 file
- "finfo" `(,@(if (or (null rev) (string= rev ""))
- '()
- `("-r" ,rev)) "-p")))
+ (if (zerop (length rev))
+ (apply #'vc-fossil-command buffer 0 file
+ "cat"
+ vc-checkout-switches)
+ (apply #'vc-fossil-command buffer 0 file
+ "cat" "-r" rev
+ vc-checkout-switches)))
(defun vc-fossil-checkout (file &optional editable rev)
(apply #'vc-fossil-command nil 0 nil
