mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(vc-svn-diff): If the repository version of all the files is the same

Browse Source 
as the specified OLDVERS, do a local diff.
This commit is contained in:
Glenn Morris 2007-08-27 07:04:45 +00:00
parent 0ddda8cd6e
commit c62a495a84
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/vc-svn.el
View File

@ -399,6 +399,17 @@ The changes are between FIRST-VERSION and SECOND-VERSION."
(defun vc-svn-diff (files &optional oldvers newvers buffer)
"Get a difference report using SVN between two versions of fileset FILES."
(and oldvers
(catch 'no
(dolist (f files)
(or (equal oldvers (vc-workfile-version f))
(throw 'no nil)))
t)
;; Use nil rather than the current revision because svn handles
;; it better (i.e. locally). Note that if _any_ of the files
;; has a different revision, we fetch the lot, which is
;; obviously sub-optimal.
(setq oldvers nil))
(let* ((switches
(if vc-svn-diff-switches
(vc-switches 'SVN 'diff)