From 5870cb7682e7b70471d86b1b0b5724aa0fe18d74 Mon Sep 17 00:00:00 2001
From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Mon, 13 Oct 2008 01:16:49 +0000
Subject: * vc-hooks.el (vc-stay-local): Add a new choice and default to it.
* vc-cvs.el (vc-cvs-dir-stay-local): Remove.
(vc-cvs-stay-local): Add a new choice and default to it.
(vc-cvs-dir-status): Use the new vc-stay-local choice.
* vc-svn.el (vc-svn-dir-status): Use the new vc-stay-local choice.
---
lisp/vc-svn.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
(limited to 'lisp/vc-svn.el')
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index f44b55e2a48..2dd3bb32db3 100644
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -180,7 +180,8 @@ If you want to force an empty list of arguments, use t."
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 ((remote (not (vc-stay-local-p dir))))
+ (let* ((local (vc-stay-local-p dir))
+ (remote (and local (not (eq local 'only-file)))))
(vc-svn-command (current-buffer) 'async nil "status"
(if remote "-u"))
(vc-exec-after
--
cgit v1.2.1