commit - 660cf35dc5e0307c8196608a1e7fbdf2178ba32a
commit + e4ac2ae5463d3a443169a082af423e82571b8f88
blob - d3a624a53e45876734044baa829deca717afe6df
blob + cf555fd3fe358f495eb6ea2baddf427b29373ee4
--- vc-got.el
+++ vc-got.el
;; 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