# HG changeset patch
# User Johan Bockg���rd <bojohan@gnu.org>
# Date 1259192851 0
# Node ID 456620b3e939d0347bf050f7ba22bc96eabf1235
# Parent  970115624642c66751c34f48a4937e9d0b230190
(vc-annotate-revision-previous-to-line): Really use previous revision.

diff -r 970115624642 -r 456620b3e939 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Nov 25 22:52:02 2009 +0000
+++ b/lisp/ChangeLog	Wed Nov 25 23:47:31 2009 +0000
@@ -1,3 +1,8 @@
+2009-11-25  Johan Bockgård  <bojohan@gnu.org>
+
+	* vc-annotate.el (vc-annotate-revision-previous-to-line):
+	Really use previous revision.
+
 2009-11-25  Kevin Ryde  <user42@zip.com.au>
 
 	* man.el (Man-completion-table): default-directory "/" in case
diff -r 970115624642 -r 456620b3e939 lisp/vc-annotate.el
--- a/lisp/vc-annotate.el	Wed Nov 25 22:52:02 2009 +0000
+++ b/lisp/vc-annotate.el	Wed Nov 25 23:47:31 2009 +0000
@@ -476,7 +476,7 @@
 	(setq prev-rev
 	      (vc-call-backend vc-annotate-backend 'previous-revision
                                fname rev))
-	(vc-annotate-warp-revision rev fname)))))
+	(vc-annotate-warp-revision prev-rev fname)))))
 
 (defun vc-annotate-show-log-revision-at-line ()
   "Visit the log of the revision at line."