From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 11 Apr 2008 15:59:22 +0000 (+0000)
Subject: (vc-svn-after-dir-status): Complete last change.
X-Git-Tag: emacs-pretest-23.0.90~6327
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b2ee56c9980f73cd90b931c09c1b4894bb8e3164;p=emacs.git

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

diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index e9b17d3ea57..5aa1cf7f143 100644
--- 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.