+ ;; 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)))))
+ (vc-svn-command (current-buffer) 'async nil "status"
+ (if remote "-u"))
+ (vc-exec-after
+ `(vc-svn-after-dir-status (quote ,callback) ,remote))))
+
+(defun vc-svn-dir-status-files (dir files default-state callback)
+ (apply 'vc-svn-command (current-buffer) 'async nil "status" files)