mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
lisp/vc/vc-git.el (vc-git--pushpull): Set locally
`compilation-directory' and `compilation-arguments'.
lisp/vc/vc-hg.el (vc-hg--pushpull): Likewise.
This commit is contained in:
Sam Steingold 2017-05-22 15:48:21 -04:00
parent bf96464e2f
commit 62046ed3e9
2 changed files with 18 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/vc/vc-git.el
View file

@ -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)

10
lisp/vc/vc-hg.el
View file

@ -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)