Factor out vc-async-checkin-backends

This allows third party backends to indicate they support async
checkins.

* lisp/vc/vc.el (vc-async-checkin-backends): New variable.
(vc-checkin): Use it.

1 files changed, 4 insertions, 3 deletions

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 60748d05ed8..c32cf9faae1 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -1020,6 +1020,9 @@ Not supported by all backends."
   :safe #'booleanp
   :version "31.1")
 
+(defvar vc-async-checkin-backends '(Git Hg)
+  "Backends which support `vc-async-checkin'.")
+
 
 ;; File property caching
 
@@ -1889,9 +1892,7 @@ Runs the normal hooks `vc-before-checkin-hook' and `vc-checkin-hook'."
                      (vc-call-backend backend 'checkin
                                       files comment rev))
                    (mapc #'vc-delete-automatic-version-backups files)))
-       (if (and vc-async-checkin
-                ;; Backends which support `vc-async-checkin'.
-                (memq backend '(Git Hg)))
+       (if (and vc-async-checkin (memq backend vc-async-checkin-backends))
            ;; Rely on `vc-set-async-update' to update properties.
            (do-it)
          (message "Checking in %s..." (vc-delistify files))