[nongnu] elpa/vc-fossil 3455e4a 049/111: Access command switches by `vc-switches`.

[ELPA Syncer]

branch: elpa/vc-fossil
commit 3455e4a545b1d72e051ca7b451ddc036558b21d7
Author: fifr <fifr>
Commit: fifr <fifr>

    Access command switches by `vc-switches`.
---
 vc/el/vc-fossil.el | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/vc/el/vc-fossil.el b/vc/el/vc-fossil.el
index efa66fd..535f620 100644
--- a/vc/el/vc-fossil.el
+++ b/vc/el/vc-fossil.el
@@ -194,22 +194,16 @@ If `files` is nil return the status for all files."
 
 (defun vc-fossil-checkin (files rev comment)
   (apply 'vc-fossil-command nil 0 files "commit" "-m" comment
-         (if (stringp vc-checkin-switches)
-             (list vc-checkin-switches)
-           vc-checkin-switches)))
+         (vc-switches 'Fossil 'checkin)))
 
 (defun vc-fossil-find-revision (file rev buffer)
   (if (zerop (length rev))
       (apply #'vc-fossil-command buffer 0 file
              "cat"
-             (if (listp vc-checkout-switches)
-                 vc-checkout-switches
-               (list vc-checkout-switches)))
+             (vc-switches 'Fossil 'checkout))
     (apply #'vc-fossil-command buffer 0 file
            "cat" "-r" rev
-           (if (listp vc-checkout-switches)
-               vc-checkout-switches
-             (list vc-checkout-switches)))))
+           (vc-switches 'Fossil 'checkout))))
 
 (defun vc-fossil-checkout (file &optional editable rev)
   (apply #'vc-fossil-command nil 0 file
@@ -218,9 +212,7 @@ If `files` is nil return the status for all files."
                   ((eq rev t) nil)
                   (rev (list rev))
                   (t nil))
-                 (if (listp vc-checkout-switches)
-                     vc-checkout-switches
-                   (list vc-checkout-switches)))))
+                 (vc-switches 'Fossil 'checkout))))
 
 (defun vc-fossil-revert (file &optional contents-done)
   "Revert FILE to the version stored in the fossil repository."