Mercurial > emacs

comparison lisp/vc-svn.el @ 98495:e8a025cdac4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 4031fe2e11ee
comparison
equal deleted inserted replaced
98494:95d08e34e42a 98495:e8a025cdac4a
168 (defun vc-svn-dir-status (dir callback) 168 (defun vc-svn-dir-status (dir callback)
169 "Run 'svn status' for DIR and update BUFFER via CALLBACK. 169 "Run 'svn status' for DIR and update BUFFER via CALLBACK.
170 CALLBACK is called as (CALLBACK RESULT BUFFER), where 170 CALLBACK is called as (CALLBACK RESULT BUFFER), where
171 RESULT is a list of conses (FILE . STATE) for directory DIR." 171 RESULT is a list of conses (FILE . STATE) for directory DIR."
172 (vc-svn-command (current-buffer) 'async nil "status") 172 (vc-svn-command (current-buffer) 'async nil "status")
173 (vc-exec-after
174 `(vc-svn-after-dir-status (quote ,callback))))
175
176 (defun vc-svn-dir-status-files (dir files default-state callback)
177 (apply 'vc-svn-command (current-buffer) 'async nil "status" files)
173 (vc-exec-after 178 (vc-exec-after
174 `(vc-svn-after-dir-status (quote ,callback)))) 179 `(vc-svn-after-dir-status (quote ,callback))))
175 180
176 (defun vc-svn-status-extra-headers (dir) 181 (defun vc-svn-status-extra-headers (dir)
177 "Generate extra status headers for a Subversion working copy." 182 "Generate extra status headers for a Subversion working copy."