procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make "g" in vc push/pull buffers re-push/pull

Browse source 
* lisp/vc/vc-bzr.el (vc-bzr--pushpull):
* lisp/vc/vc-git.el (vc-git--pushpull):
* lisp/vc/vc-hg.el (vc-hg--pushpull):
Set compile-command so that "g" works.  (Bug#11446)
This commit is contained in:
Glenn Morris 2016-12-06 20:31:54 -05:00
parent c95270ad4b
commit 5202cb56ad
3 changed files with 17 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/vc/vc-bzr.el
View file

@ -372,7 +372,12 @@ If PROMPT is non-nil, prompt for the Bzr command to run."
args (cddr args)))
(require 'vc-dispatcher)
(let ((buf (apply 'vc-bzr-async-command command args)))
(with-current-buffer buf (vc-run-delayed (vc-compilation-mode 'bzr)))
(with-current-buffer buf
(vc-run-delayed
(vc-compilation-mode 'bzr)
(setq-local compile-command
(concat vc-bzr-program " " command " "
(if args (mapconcat 'identity args " ") "")))))
(vc-set-async-update buf))))
(defun vc-bzr-pull (prompt)

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

@ -792,7 +792,12 @@ If PROMPT is non-nil, prompt for the Git command to run."
args (cddr args)))
(require 'vc-dispatcher)
(apply 'vc-do-async-command buffer root git-program command args)
(with-current-buffer buffer (vc-run-delayed (vc-compilation-mode 'git)))
(with-current-buffer buffer
(vc-run-delayed
(vc-compilation-mode 'git)
(setq-local compile-command
(concat git-program " " command " "
(if args (mapconcat 'identity args " ") "")))))
(vc-set-async-update buffer)))
(defun vc-git-pull (prompt)

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

@ -1347,7 +1347,11 @@ commands, which only operated on marked files."
args (cddr args)))
(apply 'vc-do-async-command buffer root hg-program command args)
(with-current-buffer buffer
(vc-run-delayed (vc-compilation-mode 'hg)))
(vc-run-delayed
(vc-compilation-mode 'hg)
(setq-local compile-command
(concat hg-program " " command " "
(if args (mapconcat 'identity args " ") "")))))
(vc-set-async-update buffer)))))
(defun vc-hg-pull (prompt)