From 90b4237a6b2eda8d8af659e6b9928ecf6ac166d8 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 24 Apr 2013 00:59:29 -0700 Subject: [PATCH] vc-hg, vc-svn print-log fixes for start-revision with limit != 1 * vc/vc-hg.el (vc-hg-print-log): * vc/vc-svn.el (vc-svn-print-log): Fix START-REVISION with LIMIT != 1. Fixes: debbugs:14168 --- lisp/ChangeLog | 4 ++++ lisp/vc/vc-hg.el | 2 +- lisp/vc/vc-svn.el | 2 +- 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index adec7e10e88..dd562cd4eb4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2013-04-24 Glenn Morris + * vc/vc-hg.el (vc-hg-print-log): + * vc/vc-svn.el (vc-svn-print-log): + Fix START-REVISION with LIMIT != 1. (Bug#14168) + * vc/vc-bzr.el (vc-bzr-print-log): * vc/vc-cvs.el (vc-cvs-print-log): * vc/vc-git.el (vc-git-print-log): diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el index 4584036f03b..feec015e52a 100644 --- a/lisp/vc/vc-hg.el +++ b/lisp/vc/vc-hg.el @@ -260,7 +260,7 @@ If LIMIT is non-nil, show no more than this many entries." buffer (apply 'vc-hg-command buffer 0 files "log" (nconc - (when start-revision (list (format "-r%s:" start-revision))) + (when start-revision (list (format "-r%s:0" start-revision))) (when limit (list "-l" (format "%s" limit))) (when shortlog (list "--template" (car vc-hg-root-log-format))) vc-hg-log-switches))))) diff --git a/lisp/vc/vc-svn.el b/lisp/vc/vc-svn.el index 3009d174e0b..a94bf0d6117 100644 --- a/lisp/vc/vc-svn.el +++ b/lisp/vc/vc-svn.el @@ -515,7 +515,7 @@ If LIMIT is non-nil, show no more than this many entries." (append (list (if start-revision - (format "-r%s" start-revision) + (format "-r%s:1" start-revision) ;; By default Subversion only shows the log up to the ;; working revision, whereas we also want the log of the ;; subsequent commits. At least that's what the -- 2.39.2