[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 5202cb5: Make "g" in vc push/pull buffers re-push/p
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 5202cb5: Make "g" in vc push/pull buffers re-push/pull |
Date: |
Wed, 7 Dec 2016 01:32:03 +0000 (UTC) |
branch: master
commit 5202cb56add070eb7d9fe8015f2a4edd57a628f9
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
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)
---
lisp/vc/vc-bzr.el | 7 ++++++-
lisp/vc/vc-git.el | 7 ++++++-
lisp/vc/vc-hg.el | 6 +++++-
3 files changed, 17 insertions(+), 3 deletions(-)
diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el
index 4bcab66..0fee6df 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)
diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index ec0e081..514b97c 100644
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -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)
diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el
index cee01ee..29f8df0 100644
--- a/lisp/vc/vc-hg.el
+++ b/lisp/vc/vc-hg.el
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 5202cb5: Make "g" in vc push/pull buffers re-push/pull,
Glenn Morris <=