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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c4f4fdb..42f2354 100644 (file)
--- 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 23dc61b..5d2b560 100644 (file)
--- 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 caf5ec1..0698561 100644 (file)
--- 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")