* vc-svn.el (vc-svn-dir-status-files):

* vc-cvs.el (vc-cvs-dir-status-files): New function.

lisp/ChangeLog

+2008-10-04  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* vc-svn.el (vc-svn-dir-status-files):
+	* vc-cvs.el (vc-cvs-dir-status-files): New function.
+
 2008-10-03  Dan Nicolaescu  <dann@ics.uci.edu>
 	* vc-hg.el (vc-hg-dir-status-files): New function.

lisp/vc-cvs.el

@@ -916,6 +916,12 @@ state."
   (vc-exec-after
    `(vc-cvs-after-dir-status (quote ,update-function))))
 
+(defun vc-cvs-dir-status-files (dir files default-state update-function)
+  "Create a list of conses (file . state) for DIR."
+  (apply 'vc-cvs-command (current-buffer) 'async dir "-f" "status" files)
+  (vc-exec-after
+   `(vc-cvs-after-dir-status (quote ,update-function))))
+
 (defun vc-cvs-file-to-string (file)
   "Read the content of FILE and return it as a string."
   (condition-case nil

lisp/vc-svn.el

@@ -173,6 +173,11 @@ RESULT is a list of conses (FILE . STATE) for directory DIR."
   (vc-exec-after
    `(vc-svn-after-dir-status (quote ,callback))))
 
+(defun vc-svn-dir-status-files (dir files default-state callback)
+  (apply 'vc-svn-command (current-buffer) 'async nil "status" files)
+  (vc-exec-after
+   `(vc-svn-after-dir-status (quote ,callback))))
+
 (defun vc-svn-status-extra-headers (dir)
   "Generate extra status headers for a Subversion working copy."
   (vc-svn-command "*vc*" 0 nil "info")