commit d54ceb890b973c9f1af37a21789f52f5db830a37
from: Timo Myyrä <timo.myyra@bittivirhe.fi>
date: Thu Dec 31 12:28:06 2020 UTC

make got program be customizable

other platforms might have different name for got or it might not be in
PATH so provide means to customize it.

commit - 986bd9a0366c6483c1749aa79459b612c0752853
commit + d54ceb890b973c9f1af37a21789f52f5db830a37
blob - 6b0b0c04268b44d1114afab446a90e945f56864e
blob + 2e1eecb2de9fd1ef795b51574aa6166363fcb3e2
--- vc-got.el
+++ vc-got.el
@@ -106,8 +106,9 @@
 
 (require 'vc-got-stage)
 
-(defvar vc-got-cmd "got"
-  "The got command.")
+(defcustom vc-got-program "got"
+  "Name of the Got executable (excluding any arguments)."
+  :type 'string)
 
 (defcustom vc-got-diff-switches t
   "String or list of strings specifying switches for Got diff under VC.
@@ -139,8 +140,8 @@ Assume `default-directory' is inside a got worktree."
       (string-trim (buffer-string) nil "\n"))))
 
 (defun vc-got--call (&rest args)
-  "Call `vc-got-cmd' in the `default-directory' with ARGS and put the output in the current buffer."
-  (apply #'process-file vc-got-cmd nil (current-buffer) nil args))
+  "Call `vc-got-program' in the `default-directory' with ARGS and put the output in the current buffer."
+  (apply #'process-file vc-got-program nil (current-buffer) nil args))
 
 (defun vc-got--add (files)
   "Add FILES to got, passing `vc-register-switches' to the command invocation."
@@ -456,7 +457,7 @@ ROOT is the worktree root."
 
 (defun vc-got-pull (prompt)
   "Execute got pull, prompting the user for the full command if PROMPT is not nil."
-  (vc-got--push-pull vc-got-cmd "fetch" prompt (vc-got-root default-directory)))
+  (vc-got--push-pull vc-got-program "fetch" prompt (vc-got-root default-directory)))
 
 (defun vc-got-push (prompt)
   "Run git push (not got!) in the repository dir.