(vc-svn-after-dir-status): Complete last change.

diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index e9b17d3ea577901aef1852ce320d34324c5d79bf..5aa1cf7f143659d797b8dafe72350563868d9f5c 100644 (file)
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -160,14 +160,14 @@ If you want to force an empty list of arguments, use t."
 
 (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 @@ If you want to force an empty list of arguments, use t."
            (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.