diff options
| author | Eli Zaretskii | 2019-11-29 12:00:59 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2019-11-29 12:00:59 +0200 |
| commit | 11baa417c56b42441b7cf9e4092acd840440fe47 (patch) | |
| tree | cdf023101d95ac05434fa8cdc79f31f6ba2d3d7d | |
| parent | 3fe9d865353d0b93130b2546b07337ea8d9e353f (diff) | |
| download | emacs-11baa417c56b42441b7cf9e4092acd840440fe47.tar.gz emacs-11baa417c56b42441b7cf9e4092acd840440fe47.zip | |
Support showing one revision with Subversion
* lisp/vc/vc-svn.el (vc-svn-print-log): Support 'with-diff'
invocation of "C-1 C-x v L".
| -rw-r--r-- | lisp/vc/vc-svn.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/vc/vc-svn.el b/lisp/vc/vc-svn.el index ed34b357f9b..a2081e1ab9e 100644 --- a/lisp/vc/vc-svn.el +++ b/lisp/vc/vc-svn.el | |||
| @@ -579,13 +579,17 @@ If LIMIT is non-nil, show no more than this many entries." | |||
| 579 | ;; subsequent commits. At least that's what the | 579 | ;; subsequent commits. At least that's what the |
| 580 | ;; vc-cvs.el code does. | 580 | ;; vc-cvs.el code does. |
| 581 | "-rHEAD:0")) | 581 | "-rHEAD:0")) |
| 582 | (when limit (list "--limit" (format "%s" limit)))))) | 582 | (if (eq vc-log-view-type 'with-diff) |
| 583 | (list "--diff")) | ||
| 584 | (when limit (list "--limit" (format "%s" limit)))))) | ||
| 583 | ;; Dump log for the entire directory. | 585 | ;; Dump log for the entire directory. |
| 584 | (apply 'vc-svn-command buffer 0 nil "log" | 586 | (apply 'vc-svn-command buffer 0 nil "log" |
| 585 | (append | 587 | (append |
| 586 | (list | 588 | (list |
| 587 | (if start-revision (format "-r%s" start-revision) "-rHEAD:0")) | 589 | (if start-revision (format "-r%s" start-revision) "-rHEAD:0")) |
| 588 | (when limit (list "--limit" (format "%s" limit))))))))) | 590 | (if (eq vc-log-view-type 'with-diff) |
| 591 | (list "--diff")) | ||
| 592 | (when limit (list "--limit" (format "%s" limit))))))))) | ||
| 589 | 593 | ||
| 590 | (defun vc-svn-diff (files &optional oldvers newvers buffer async) | 594 | (defun vc-svn-diff (files &optional oldvers newvers buffer async) |
| 591 | "Get a difference report using SVN between two revisions of fileset FILES." | 595 | "Get a difference report using SVN between two revisions of fileset FILES." |