diff options
| -rw-r--r-- | lisp/vc-svn.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index ddecb89d77c..0b34c30f630 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el | |||
| @@ -399,6 +399,17 @@ The changes are between FIRST-VERSION and SECOND-VERSION." | |||
| 399 | 399 | ||
| 400 | (defun vc-svn-diff (files &optional oldvers newvers buffer) | 400 | (defun vc-svn-diff (files &optional oldvers newvers buffer) |
| 401 | "Get a difference report using SVN between two versions of fileset FILES." | 401 | "Get a difference report using SVN between two versions of fileset FILES." |
| 402 | (and oldvers | ||
| 403 | (catch 'no | ||
| 404 | (dolist (f files) | ||
| 405 | (or (equal oldvers (vc-workfile-version f)) | ||
| 406 | (throw 'no nil))) | ||
| 407 | t) | ||
| 408 | ;; Use nil rather than the current revision because svn handles | ||
| 409 | ;; it better (i.e. locally). Note that if _any_ of the files | ||
| 410 | ;; has a different revision, we fetch the lot, which is | ||
| 411 | ;; obviously sub-optimal. | ||
| 412 | (setq oldvers nil)) | ||
| 402 | (let* ((switches | 413 | (let* ((switches |
| 403 | (if vc-svn-diff-switches | 414 | (if vc-svn-diff-switches |
| 404 | (vc-switches 'SVN 'diff) | 415 | (vc-switches 'SVN 'diff) |