[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master b07ca17 2/2: Fix default-directory in changeset dif
From: |
Dmitry Gutov |
Subject: |
[Emacs-diffs] master b07ca17 2/2: Fix default-directory in changeset diffs after vc-print-log |
Date: |
Fri, 31 Jul 2015 02:55:12 +0000 |
branch: master
commit b07ca177d449e58e6e5c14e21e140e63354e335c
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
Fix default-directory in changeset diffs after vc-print-log
* lisp/vc/log-view.el (log-view-diff-common): Move the
revision-granularity check back into log-view-diff-changeset.
(log-view-diff-changeset): Bind default-directory to the current
VC root.
---
lisp/vc/log-view.el | 9 ++++-----
1 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/lisp/vc/log-view.el b/lisp/vc/log-view.el
index 19bbc45..f1b5710 100644
--- a/lisp/vc/log-view.el
+++ b/lisp/vc/log-view.el
@@ -607,13 +607,12 @@ considered file(s)."
(interactive
(list (if (use-region-p) (region-beginning) (point))
(if (use-region-p) (region-end) (point))))
- (log-view-diff-common beg end t))
+ (when (eq (vc-call-backend log-view-vc-backend 'revision-granularity) 'file)
+ (error "The %s backend does not support changeset diffs"
log-view-vc-backend))
+ (let ((default-directory (vc-root-dir)))
+ (log-view-diff-common beg end t)))
(defun log-view-diff-common (beg end &optional whole-changeset)
- (when (and whole-changeset
- (eq (vc-call-backend log-view-vc-backend 'revision-granularity)
- 'file))
- (error "The %s backend does not support changeset diffs"
log-view-vc-backend))
(let ((to (log-view-current-tag beg))
(fr (log-view-current-tag end)))
(when (string-equal fr to)