summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2010-04-16 20:28:19 -0400
committerChong Yidong <cyd@stupidchicken.com>2010-04-16 20:28:19 -0400
commit8507c65c5f73f1e8029000cea70e91ce1d2da8e6 (patch)
treec3df12e342d0b98a412bdebd6199f40198c45f12
parentd52dbd3d45804baa4645ee14cfe2176e2b6acee3 (diff)
downloademacs-8507c65c5f73f1e8029000cea70e91ce1d2da8e6.tar.gz
Fix to vc-hg-annotate-extract-revision-at-line (Bug#5960).
* vc-hg.el (vc-hg-annotate-extract-revision-at-line): Expand file name relative to the project root (Bug#5960).
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/vc-hg.el3
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc9c4719045..8c0fbc4c143 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-04-17 Magnus Henoch <magnus.henoch@gmail.com>
+
+ * vc-hg.el (vc-hg-annotate-extract-revision-at-line): Expand file
+ name relative to the project root (Bug#5960).
+
2010-04-16 Glenn Morris <rgm@gnu.org>
* vc-git.el (vc-git-print-log): Doc fix.
diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index b6e1d39c2ff..ca83b7edf2f 100644
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -340,7 +340,8 @@ Optional arg REVISION is a revision to annotate from."
(if (match-beginning 3)
(match-string-no-properties 1)
(cons (match-string-no-properties 1)
- (expand-file-name (match-string-no-properties 4)))))))
+ (expand-file-name (match-string-no-properties 4)
+ (vc-hg-root default-directory)))))))
(defun vc-hg-previous-revision (file rev)
(let ((newrev (1- (string-to-number rev))))