diff lisp/vc-annotate.el @ 109252:64f9d1b2b73b

Fix finding revisions in for renamed files in vc-annotate. * lisp/vc.el (vc-find-revision): Add an optional argument for the VC backend. Use it when non-nil. * lisp/vc-annotate.el (vc-annotate-find-revision-at-line): Pass the VC backend to vc-find-revision. (Bug#6487)
author Dan Nicolaescu <dann@ics.uci.edu>
date Mon, 21 Jun 2010 18:26:30 -0700
parents fb83c83549bb
children a41a9e7bfad8
line wrap: on
line diff
--- a/lisp/vc-annotate.el	Mon Jun 21 13:03:30 2010 -0700
+++ b/lisp/vc-annotate.el	Mon Jun 21 18:26:30 2010 -0700
@@ -461,7 +461,7 @@
       (if (not rev-at-line)
 	  (message "Cannot extract revision number from the current line")
 	(switch-to-buffer-other-window
-	 (vc-find-revision (cdr rev-at-line) (car rev-at-line)))))))
+	 (vc-find-revision (cdr rev-at-line) (car rev-at-line) vc-annotate-backend))))))
 
 (defun vc-annotate-revision-previous-to-line ()
   "Visit the annotation of the revision before the revision at line."