Commit 847fb889 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

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

* vc-cvs.el (vc-cvs-dir-status-files): New function.
parent 2da2fd38
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.
......
......@@ -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
......
......@@ -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")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment