Commit f8e89f19 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

* vc-svn.el (vc-svn-dir-status): New function.

parent 5ab612e8
2008-01-18 Tom Tromey <tromey@redhat.com>
* vc-svn.el (vc-svn-dir-status): New function.
2008-01-18 Dan Nicolaescu <dann@ics.uci.edu>
* vc.el: Make vc-status asynchronous.
......
......@@ -158,6 +158,29 @@ If you want to force an empty list of arguments, use t."
(vc-svn-command t 0 nil "status" (if localp "-v" "-u"))
(vc-svn-parse-status))))
(defun vc-svn-dir-status (dir)
"Return a list of conses (FILE . STATE) for DIR."
(with-temp-buffer
(let ((default-directory (file-name-as-directory dir))
(state-map '((?A . added)
(?C . edited)
(?D . removed)
(?I . ignored)
(?M . edited)
(?R . removed)
(?? . unregistered)
;; This is what vc-svn-parse-status does.
(?~ . edited)))
result)
(vc-svn-command t 0 nil "status")
(goto-char (point-min))
(while (re-search-forward "^\\(.\\)..... \\(.*\\)$" nil t)
(let ((state (cdr (assq (aref (match-string 1) 0) state-map)))
(filename (match-string 2)))
(when state
(setq result (cons (cons filename state) result)))))
result)))
(defun vc-svn-working-revision (file)
"SVN-specific version of `vc-working-revision'."
;; There is no need to consult RCS headers under SVN, because we
......
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