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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index adec7e10e88ab07788aed2ab52db8ddb05248048..dd562cd4eb4f3397245f077688c4af56debcff3f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2013-04-24  Glenn Morris  <rgm@gnu.org>
 
+       * 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 4584036f03b418eb353b69b14463d774be3b9f78..feec015e52a006459a4ff78c0032dfb25e4e97b2 100644 (file)
--- 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 3009d174e0b2a38f6cf0fe4a4f23abfbbb53fa62..a94bf0d6117aeab2d2ad3bcc0d5b1432877dccf5 100644 (file)
--- 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