diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-10-04 01:22:26 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-10-04 01:22:26 +0000 |
| commit | 9967c78809922b8b8fbb3459d63dd1b59ad2e6ef (patch) | |
| tree | 19807dca379feebf596c3515d898963562a0aad2 /lisp/vc-cvs.el | |
| parent | 6f30f6c9a888e6bc145ca1fba799fe88b431cf3e (diff) | |
| download | emacs-9967c78809922b8b8fbb3459d63dd1b59ad2e6ef.tar.gz | |
* vc-svn.el (vc-svn-dir-status-files):
* vc-cvs.el (vc-cvs-dir-status-files): New function.
Diffstat (limited to 'lisp/vc-cvs.el')
| -rw-r--r-- | lisp/vc-cvs.el | 6 |
1 files changed, 6 insertions, 0 deletions
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 |