commit - 0d57aba161f743f963b069cca68777fcd0f9f21c
commit + 93562d9b0682de5ff42145dc3d615cff3b0e9fab
blob - 6e85b11181792ce5861358da8d83c7d53dd5801f
blob + 1caa93db1aa54b670e24430973229b1baf8bb000
--- vc-got-stage.el
+++ vc-got-stage.el
(defun vc-got-stage-commit ()
"Commit staged hunks."
(interactive)
- (let* ((buf (get-buffer-create "*vc-got-stage-commit*"))
+ (let* ((default-directory (vc-got-root default-directory))
+ (buf (get-buffer-create "*vc-got-stage-commit*"))
(status (vc-got--status "M" "."))
(staged-files (cl-loop for (file _ staged) in status
when staged