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

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

3 files changed, 16 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c4f4fdb664c..42f2354889a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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.
diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index 23dc61b01de..5d2b56012e1 100644
--- a/lisp/vc-cvs.el
+++ b/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
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index caf5ec15dcb..06985611f47 100644
--- a/lisp/vc-svn.el
+++ b/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")