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 | 847fb889ab9d0f22b772056e02aa658427027a87 (patch) | |
| tree | 18d3190bbcc97e9eb8a4c98912265d8665df7e5d | |
| parent | 2da2fd38fb081840c78bd634aba8df0e4b30a779 (diff) | |
| download | emacs-847fb889ab9d0f22b772056e02aa658427027a87.tar.gz emacs-847fb889ab9d0f22b772056e02aa658427027a87.tar.bz2 emacs-847fb889ab9d0f22b772056e02aa658427027a87.zip | |
* vc-svn.el (vc-svn-dir-status-files):
* vc-cvs.el (vc-cvs-dir-status-files): New function.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/vc-cvs.el | 6 | ||||
| -rw-r--r-- | lisp/vc-svn.el | 5 |
3 files changed, 16 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c4f4fdb664c..42f2354889a 100644 --- 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 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 diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index caf5ec15dcb..06985611f47 100644 --- 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") |