(vc-annotate-revision-previous-to-line): Really use previous revision.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index add90d7c32f377bfde32ae4687370334e11865a4..6b424a45bbe2681e3d7f656809bf7e233692a43b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/vc-annotate.el b/lisp/vc-annotate.el
index a05816372bf80bb68d449ff43313d83b0537161d..122aec982ca3f16d142e6ccffeb1a3b6b34ae6a3 100644 (file)
--- a/lisp/vc-annotate.el
+++ b/lisp/vc-annotate.el
@@ -476,7 +476,7 @@ Return a cons (REV . FILENAME)."
        (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."