diff options
| author | Sam Steingold <sds@gnu.org> | 2012-07-19 10:38:01 -0400 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2012-07-19 10:38:01 -0400 |
| commit | 8a4e6db81ae0c04a73693718cb8aaa59e160663f (patch) | |
| tree | a507fa298634211085926eb46bfd62d8792782dc /lisp/vc/vc-dispatcher.el | |
| parent | 5db81e33629049da22e7d0ff6c28a5cae31edac9 (diff) | |
| download | emacs-8a4e6db81ae0c04a73693718cb8aaa59e160663f.tar.gz | |
* lisp/vc/vc-dispatcher.el (vc-compilation-mode): Add, based on
vc-bzr-pull & vc-bzr-merge-branch.
* lisp/vc/vc-bzr.el (vc-bzr-pull, vc-bzr-merge-branch): Use it.
(vc-bzr-error-regexp-alist): Rename from vc-bzr-error-regex-alist
for consistency with compilation-error-regexp-alist.
* lisp/vc/vc-git.el (vc-git-error-regexp-alist): Add.
(vc-git-pull, vc-git-merge-branch): Call vc-compilation-mode.
* lisp/vc/vc-hg.el (vc-hg-error-regexp-alist): Add.
(vc-hg-pull, vc-hg-merge-branch): Call vc-compilation-mode.
Diffstat (limited to 'lisp/vc/vc-dispatcher.el')
| -rw-r--r-- | lisp/vc/vc-dispatcher.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el index b8ad4ff5217..d8a7a296cf1 100644 --- a/lisp/vc/vc-dispatcher.el +++ b/lisp/vc/vc-dispatcher.el @@ -386,6 +386,17 @@ Display the buffer in some window, but don't select it." (set-window-start window new-window-start)) buffer)) +(defun vc-compilation-mode (backend) + "Setup `compilation-mode' after with the appropriate `compilation-error-regexp-alist'." + (let* ((error-regexp-alist + (vc-make-backend-sym backend 'error-regexp-alist)) + (compilation-error-regexp-alist + (and (boundp error-regexp-alist) + (symbol-value error-regexp-alist)))) + (compilation-mode) + (set (make-local-variable 'compilation-error-regexp-alist) + compilation-error-regexp-alist))) + (defun vc-set-async-update (process-buffer) "Set a `vc-exec-after' action appropriate to the current buffer. This action will update the current buffer after the current |