# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1223083346 0
# Node ID e8a025cdac4a7e09314e0ba28fea8d18b8807b4b
# Parent  95d08e34e42ad21cb07442cfd64a10a1df2e6623
* vc-svn.el (vc-svn-dir-status-files):
* vc-cvs.el (vc-cvs-dir-status-files): New function.

diff -r 95d08e34e42a -r e8a025cdac4a lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Oct 04 01:20:43 2008 +0000
+++ b/lisp/ChangeLog	Sat Oct 04 01:22:26 2008 +0000
@@ -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 -r 95d08e34e42a -r e8a025cdac4a lisp/vc-cvs.el
--- a/lisp/vc-cvs.el	Sat Oct 04 01:20:43 2008 +0000
+++ b/lisp/vc-cvs.el	Sat Oct 04 01:22:26 2008 +0000
@@ -916,6 +916,12 @@
   (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 -r 95d08e34e42a -r e8a025cdac4a lisp/vc-svn.el
--- a/lisp/vc-svn.el	Sat Oct 04 01:20:43 2008 +0000
+++ b/lisp/vc-svn.el	Sat Oct 04 01:22:26 2008 +0000
@@ -173,6 +173,11 @@
   (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")