# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1207929562 0
# Node ID a4655455212ba229a98d3de1f8a9b271d5ba8e57
# Parent  d3bf833831d678adb52b44681bc5c054ec804928
(vc-svn-after-dir-status): Complete last change.

diff -r d3bf833831d6 -r a4655455212b lisp/vc-svn.el
--- a/lisp/vc-svn.el	Fri Apr 11 15:35:41 2008 +0000
+++ b/lisp/vc-svn.el	Fri Apr 11 15:59:22 2008 +0000
@@ -160,14 +160,14 @@
 
 (defun vc-svn-after-dir-status (callback)
   (let ((state-map '((?A . added)
-                    (?C . conflict)
-                    (?D . removed)
-                    (?I . ignored)
-                    (?M . edited)
-                    (?R . removed)
-                    (?? . unregistered)
-                    ;; This is what vc-svn-parse-status does.
-                    (?~ . edited)))
+                     (?C . conflict)
+                     (?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)
@@ -175,7 +175,7 @@
            (filename (match-string 2)))
        (when state
          (setq result (cons (list filename state) result)))))
-    (funcall callback result buffer)))
+    (funcall callback result)))
 
 (defun vc-svn-dir-status (dir callback)
   "Run 'svn status' for DIR and update BUFFER via CALLBACK.