Mercurial > emacs

diff lisp/vc-svn.el @ 98675:2cae4bd13e67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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.
author Dan Nicolaescu <dann@ics.uci.edu>
date Mon, 13 Oct 2008 01:16:49 +0000
parents 4031fe2e11ee
children b0dce7f34dda
line wrap: on
line diff
--- a/lisp/vc-svn.el	Sun Oct 12 23:06:29 2008 +0000
+++ b/lisp/vc-svn.el	Mon Oct 13 01:16:49 2008 +0000
@@ -180,7 +180,8 @@
 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