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

(vc-svn-dir-status): Run svn asynchronously.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cab7c60b452e1f66495d515346b8eaaa076f7b4c..30ab6bda2a8dd2db5c02c676ddc08725060b37bd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-19  Tom Tromey  <tromey@redhat.com>
+
+        * vc-svn.el (vc-svn-after-dir-status): New function.
+        (vc-svn-dir-status): Run svn asynchronously.
+
 2008-01-19  Martin Rudalics  <rudalics@gmx.at>
 
        * progmodes/hideif.el (hide-ifdef-shadow): New option.

diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index b8d04d67c705f89d9ed01685ba9e26a4454c07d5..b3db2df7f69699bf0963ca15e1b937d3dc3a52f9 100644 (file)
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -158,28 +158,34 @@ 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-after-dir-status (callback buffer)
+  (let ((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)
+    (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)))))
+    (funcall callback result buffer)))
+
+(defun vc-svn-dir-status (dir callback buffer)
+  "Run 'svn status' for DIR and update BUFFER via CALLBACK.
+CALLBACK is called as (CALLBACK RESULT BUFFER), where
+RESULT is a list of conses (FILE . STATE) for directory DIR."
+  (with-current-buffer (get-buffer-create
+                       (generate-new-buffer-name " *vc svn status*"))
+    (vc-svn-command (current-buffer) 'async nil "status")
+    (vc-exec-after
+     `(vc-svn-after-dir-status (quote ,callback) ,buffer))))
 
 (defun vc-svn-working-revision (file)
   "SVN-specific version of `vc-working-revision'."