commit - 0a5a024b770cab86b4e9b594a36c809594b2b6cd
commit + 50aaae286b3130ae07edacbea54588c5450c6c3e
blob - 9046b7f29af41f4f003b497f1be1c3153ac78ea0
blob + e64b8ef33b85bd8e71788165f1c4417589c9b4be
--- vc-got.el
+++ vc-got.el
" " t)
(list cmd op)))
(apply #'vc-do-async-command buffer default-directory cmd)
- ;; this comes from vc-git.el. We're using git to push, so in
- ;; part it makes sense, but we should revisit for full Got
- ;; support.
(with-current-buffer buffer
(vc-compilation-mode 'got)
(let ((comp-cmd (mapconcat #'identity cmd " "))