[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d7b3166: Set up default-directory
From: |
Dmitry Gutov |
Subject: |
[Emacs-diffs] master d7b3166: Set up default-directory |
Date: |
Sun, 17 May 2015 23:05:45 +0000 |
branch: master
commit d7b3166e2b919df811694778dd4bde3e26e74cbc
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
Set up default-directory
* lisp/vc/vc-annotate.el (vc-annotate-mode-map): Remove duplicate
binding for `v'.
(vc-annotate-show-changeset-diff-revision-at-line): Set up an
appropriate value for default-directory.
---
lisp/vc/vc-annotate.el | 6 ++++--
1 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/vc/vc-annotate.el b/lisp/vc/vc-annotate.el
index 8bcea5f..d369c90 100644
--- a/lisp/vc/vc-annotate.el
+++ b/lisp/vc/vc-annotate.el
@@ -175,7 +175,6 @@ List of factors, used to expand/compress the time scale.
See `vc-annotate'."
(define-key m "p" 'vc-annotate-prev-revision)
(define-key m "w" 'vc-annotate-working-revision)
(define-key m "v" 'vc-annotate-toggle-annotation-visibility)
- (define-key m "v" 'vc-annotate-toggle-annotation-visibility)
(define-key m "\C-m" 'vc-annotate-goto-line)
m)
"Local keymap used for VC-Annotate mode.")
@@ -605,7 +604,10 @@ the file in question, search for the log entry required
and move point."
(interactive)
(when (eq 'file (vc-call-backend vc-annotate-backend 'revision-granularity))
(error "The %s backend does not support changeset diffs"
vc-annotate-backend))
- (vc-annotate-show-diff-revision-at-line-internal nil))
+ ;; Make sure `diff-goto-source' will be able to find all files.
+ (let ((default-directory (vc-call-backend vc-annotate-backend
+ 'root default-directory)))
+ (vc-annotate-show-diff-revision-at-line-internal nil)))
(defun vc-annotate-warp-revision (revspec &optional file)
"Annotate the revision described by REVSPEC.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d7b3166: Set up default-directory,
Dmitry Gutov <=