Mercurial > emacs
comparison lisp/vc-svn.el @ 68740:0e55eddfde77
(vc-svn-print-log): Show recent commits as well.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 09 Feb 2006 03:47:00 +0000 |
| parents | 61cc95860e05 |
| children | ee7eeb5732b2 4b3d39451150 |
comparison
equal
deleted
inserted
replaced
| 68739:12a5d3f3a343 | 68740:0e55eddfde77 |
|---|---|
| 368 ;; Add a line to tell log-view-mode what file this is. | 368 ;; Add a line to tell log-view-mode what file this is. |
| 369 (insert "Working file: " (file-relative-name file) "\n")) | 369 (insert "Working file: " (file-relative-name file) "\n")) |
| 370 (vc-svn-command | 370 (vc-svn-command |
| 371 buffer | 371 buffer |
| 372 (if (and (vc-stay-local-p file) (fboundp 'start-process)) 'async 0) | 372 (if (and (vc-stay-local-p file) (fboundp 'start-process)) 'async 0) |
| 373 file "log"))) | 373 file "log" |
| 374 ;; By default Subversion only shows the log upto the working version, | |
| 375 ;; whereas we also want the log of the subsequent commits. At least | |
| 376 ;; that's what the vc-cvs.el code does. | |
| 377 "-rHEAD:0"))) | |
| 374 | 378 |
| 375 (defun vc-svn-diff (file &optional oldvers newvers buffer) | 379 (defun vc-svn-diff (file &optional oldvers newvers buffer) |
| 376 "Get a difference report using SVN between two versions of FILE." | 380 "Get a difference report using SVN between two versions of FILE." |
| 377 (unless buffer (setq buffer "*vc-diff*")) | 381 (unless buffer (setq buffer "*vc-diff*")) |
| 378 (if (and oldvers (equal oldvers (vc-workfile-version file))) | 382 (if (and oldvers (equal oldvers (vc-workfile-version file))) |