[Emacs-diffs] Changes to emacs/lisp/vc-svn.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/04/11 15:18:00

Index: vc-svn.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-svn.el,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -b -r1.77 -r1.78
--- vc-svn.el   10 Apr 2008 07:32:25 -0000      1.77
+++ vc-svn.el   11 Apr 2008 15:17:59 -0000      1.78
@@ -158,7 +158,7 @@
       (vc-svn-command t 0 nil "status" (if localp "-v" "-u"))
       (vc-svn-parse-status))))
 
-(defun vc-svn-after-dir-status (callback buffer)
+(defun vc-svn-after-dir-status (callback)
   (let ((state-map '((?A . added)
                     (?C . conflict)
                     (?D . removed)
@@ -177,13 +177,13 @@
          (setq result (cons (list filename state) result)))))
     (funcall callback result buffer)))
 
-(defun vc-svn-dir-status (dir callback buffer)
+(defun vc-svn-dir-status (dir callback)
   "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."
   (vc-svn-command (current-buffer) 'async nil "status")
   (vc-exec-after
-   `(vc-svn-after-dir-status (quote ,callback) ,buffer)))
+   `(vc-svn-after-dir-status (quote ,callback))))
 
 (defun vc-svn-working-revision (file)
   "SVN-specific version of `vc-working-revision'."