Mercurial > emacs

changeset 94006:a4655455212b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-svn-after-dir-status): Complete last change.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 11 Apr 2008 15:59:22 +0000
parents d3bf833831d6
children e8c11e85820c
files lisp/vc-svn.el
diffstat 1 files changed, 9 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- 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.