Commit 62046ed3 authored by Sam Steingold's avatar Sam Steingold

Fix "g" in hg&git push&pull buffers

lisp/vc/vc-git.el (vc-git--pushpull): Set locally
`compilation-directory' and `compilation-arguments'.
lisp/vc/vc-hg.el (vc-hg--pushpull): Likewise.
parent bf96464e
......@@ -888,7 +888,15 @@ If PROMPT is non-nil, prompt for the Git command to run."
(vc-compilation-mode 'git)
(setq-local compile-command
(concat git-program " " command " "
(if args (mapconcat 'identity args " ") "")))))
(if args (mapconcat 'identity args " ") "")))
(setq-local compilation-directory root)
;; Either set `compilation-buffer-name-function' locally to nil
;; or use `compilation-arguments' to set `name-function'.
;; See `compilation-buffer-name'.
(setq-local compilation-arguments
(list compile-command nil
(lambda (_name-of-mode) buffer)
nil))))
(vc-set-async-update buffer)))
(defun vc-git-pull (prompt)
......
......@@ -1344,7 +1344,15 @@ commands, which only operated on marked files."
(vc-compilation-mode 'hg)
(setq-local compile-command
(concat hg-program " " command " "
(if args (mapconcat 'identity args " ") "")))))
(if args (mapconcat 'identity args " ") "")))
(setq-local compilation-directory root)
;; Either set `compilation-buffer-name-function' locally to nil
;; or use `compilation-arguments' to set `name-function'.
;; See `compilation-buffer-name'.
(setq-local compilation-arguments
(list compile-command nil
(lambda (_name-of-mode) buffer)
nil))))
(vc-set-async-update buffer)))))
(defun vc-hg-pull (prompt)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment