diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2015-07-31 05:52:53 +0300 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2015-07-31 05:53:14 +0300 |
| commit | b07ca177d449e58e6e5c14e21e140e63354e335c (patch) | |
| tree | c22d701a614e586bd5b5e7fd7b460420bb31ebf5 /lisp/vc/log-view.el | |
| parent | 6a79a169e7418a82e570936737f67b7f21603b59 (diff) | |
| download | emacs-b07ca177d449e58e6e5c14e21e140e63354e335c.tar.gz | |
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.
Diffstat (limited to 'lisp/vc/log-view.el')
| -rw-r--r-- | 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 19bbc45f927..f1b57109e33 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) |