Mercurial > emacs
diff lisp/vc-cvs.el @ 98495:e8a025cdac4a
* vc-svn.el (vc-svn-dir-status-files):
* vc-cvs.el (vc-cvs-dir-status-files): New function.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 04 Oct 2008 01:22:26 +0000 |
| parents | 4a399b9bc4b9 |
| children | 04d30d4471c2 |
line wrap: on
line diff
--- 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