[elpa] externals/urgrep f2ac6d6b02 011/115: Fix getting vc backend

[ELPA Syncer]

branch: externals/urgrep
commit f2ac6d6b02e2b523f273a47676ca7749cf524dbe
Author: Jim Porter <jporterbugs@gmail.com>
Commit: Jim Porter <jporterbugs@gmail.com>

    Fix getting vc backend
---
 urgrep.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/urgrep.el b/urgrep.el
index fee83317fc..b69448f899 100644
--- a/urgrep.el
+++ b/urgrep.el
@@ -106,9 +106,10 @@
       (let ((tool-executable (urgrep-get-property tool 'executable-name))
             (tool-vc-backend (urgrep-get-property tool 'vc-backend)))
         ;; Cache the VC backend name if we need it.
-        (when (and tool-vc-backend (not vc-backend-name))
+        (when-let (((and tool-vc-backend (not vc-backend-name)))
+                   (curr-proj (project-current)))
           (setq vc-backend-name
-                (vc-responsible-backend (project-root (project-current)))))
+                (vc-responsible-backend (project-root curr-proj))))
         (when (and (executable-find tool-executable t)
                    (or (not tool-vc-backend)
                        (string= vc-backend-name tool-vc-backend)))