From a5d358f83cf8fb1f106095c304421ae335e9f4b9 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Johan=20Bockg=C3=A5rd?= Date: Wed, 25 Nov 2009 23:47:31 +0000 Subject: [PATCH] (vc-annotate-revision-previous-to-line): Really use previous revision. --- lisp/ChangeLog | 5 +++++ lisp/vc-annotate.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index add90d7c32..6b424a45bb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-11-25 Johan Bockgård + + * vc-annotate.el (vc-annotate-revision-previous-to-line): + Really use previous revision. + 2009-11-25 Kevin Ryde * man.el (Man-completion-table): default-directory "/" in case diff --git a/lisp/vc-annotate.el b/lisp/vc-annotate.el index a05816372b..122aec982c 100644 --- 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." -- 2.20.1