[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp vc-svn.el
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] emacs/lisp vc-svn.el |
Date: |
Wed, 04 Feb 2009 10:49:05 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Nick Roberts <nickrob> 09/02/04 10:49:04
Modified files:
lisp : vc-svn.el
Log message:
(vc-svn-diff): Revert previous change but add a test
for newvars is nil. (C-u C-x v = with default values).
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-svn.el?cvsroot=emacs&r1=1.110&r2=1.111
Patches:
Index: vc-svn.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-svn.el,v
retrieving revision 1.110
retrieving revision 1.111
diff -u -b -r1.110 -r1.111
--- vc-svn.el 31 Jan 2009 15:51:09 -0000 1.110
+++ vc-svn.el 4 Feb 2009 10:49:04 -0000 1.111
@@ -483,6 +483,19 @@
(defun vc-svn-diff (files &optional oldvers newvers buffer)
"Get a difference report using SVN between two revisions of fileset FILES."
+ (and oldvers
+ (not newvers)
+ files
+ (catch 'no
+ (dolist (f files)
+ (or (equal oldvers (vc-working-revision 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)
- [Emacs-diffs] emacs/lisp vc-svn.el,
Nick Roberts <=