From cf4b480f77c1d4b3878254f6c2f19746713a0349 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 30 Jan 2009 08:16:26 +0000 Subject: [PATCH] (vc-svn-dir-status): Correct logic for remote connection. (vc-svn-diff): Use old version number even when it is the working revision. This is needed, e.g, in the vc-print-log buffer. --- lisp/vc-svn.el | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index 884ab4d2879..cfbc8496433 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el @@ -186,7 +186,7 @@ CALLBACK is called as (CALLBACK RESULT BUFFER), where RESULT is a list of conses (FILE . STATE) for directory DIR." ;; FIXME should this rather be all the files in dir? (let* ((local (vc-stay-local-p dir)) - (remote (and local (not (eq local 'only-file))))) + (remote (or (not local) (eq local 'only-file)))) (vc-svn-command (current-buffer) 'async nil "status" (if remote "-u")) (vc-exec-after @@ -479,18 +479,6 @@ or svn+ssh://." (defun vc-svn-diff (files &optional oldvers newvers buffer) "Get a difference report using SVN between two revisions of fileset FILES." - (and oldvers - 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) -- 2.39.2