diff options
author | Glenn Morris <rgm@gnu.org> | 2016-12-06 20:31:54 -0500 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2016-12-06 20:31:54 -0500 |
commit | 5202cb56add070eb7d9fe8015f2a4edd57a628f9 (patch) | |
tree | 6d1c9eb0c882efdbb6fa73bef5ce829f7ba27b24 /lisp/vc/vc-bzr.el | |
parent | c95270ad4b48204880ae10ec730eb121ffa14abe (diff) | |
download | emacs-5202cb56add070eb7d9fe8015f2a4edd57a628f9.tar.gz |
Make "g" in vc push/pull buffers re-push/pull
* 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)
Diffstat (limited to 'lisp/vc/vc-bzr.el')
-rw-r--r-- | lisp/vc/vc-bzr.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el index 4bcab66fb52..0fee6df2aa6 100644 --- a/lisp/vc/vc-bzr.el +++ b/lisp/vc/vc-bzr.el @@ -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) |