[nongnu] elpa/vc-fossil f0f81f8 043/111: Fix `vc-fossil-find-revision`.

[ELPA Syncer]

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