branch: externals/vc-got
commit 3dde94dcfc5fd26d08a9b4e3bfb449d616270ec0
Author: Timo Myyrä <timo.my...@bittivirhe.fi>
Commit: Omar Polo <o...@omarpolo.com>
add vc-got-command as copy of vc-command
this is similar as is done with other vc backends, helps run synchronous
commands.
---
vc-got.el | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/vc-got.el b/vc-got.el
index 1d097717a4..6d4ec8f9f1 100755
--- a/vc-got.el
+++ b/vc-got.el
@@ -194,6 +194,15 @@ Takes care of handling the -current suffix."
;; let X.Y-current sort *after* X.Y
(string= version-string current-version))))
+(defun vc-got-command (buffer okstatus file-or-list &rest flags)
+ "A wrapper around `vc-do-command' for use in vc-got.el.
+The difference to `vc-do-command' is that this function always invokes
+`vc-got-program'."
+ (let ((process-environment process-environment))
+ (apply #'vc-do-command (or buffer "*vc*") okstatus vc-got-program
+ file-or-list
+ flags)))
+
(defun vc-got-root (file)
"Return the work tree root for FILE, or nil."
(vc-find-root file ".got"))
