commit e4ac2ae5463d3a443169a082af423e82571b8f88
from: Omar Polo <op@omarpolo.com>
date: Mon Oct 04 10:15:49 2021 UTC

run `got fetch/send' inside the worktree

I ended up running `got fetch' and `got send' from the repo directory
when I was using `git push' to send stuff to the server.  It was the
only way.

Now, there's `got send' that works correctly and does the right thing
too when ran from a worktree, i.e. push the current branch, not
necessarily the HEAD.

commit - 660cf35dc5e0307c8196608a1e7fbdf2178ba32a
commit + e4ac2ae5463d3a443169a082af423e82571b8f88
blob - d3a624a53e45876734044baa829deca717afe6df
blob + cf555fd3fe358f495eb6ea2baddf427b29373ee4
--- vc-got.el
+++ vc-got.el
@@ -664,14 +664,12 @@ It's like `vc-process-filter' but supports \r inside S
 ;; eventually a rebase.
 (defun vc-got-pull (prompt)
   "Execute a pull prompting for the full command if PROMPT is not nil."
-  (let ((default-directory (vc-got-root default-directory)))
-    (vc-got--push-pull vc-got-program "fetch" prompt)))
+  (vc-got--push-pull vc-got-program "fetch" prompt))
 
 (defun vc-got-push (prompt)
   "Run git push (not got!) in the repository dir.
 If PROMPT is non-nil, prompt for the git command to run."
-  (let ((default-directory (vc-got--repo-root)))
-    (vc-got--push-pull vc-got-program "send" prompt)))
+  (vc-got--push-pull vc-got-program "send" prompt))
 
 
 ;; History functions