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

[Stefan Monnier]

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

Index: vc-bzr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-bzr.el,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -b -r1.45 -r1.46
--- vc-bzr.el   10 Apr 2008 15:03:27 -0000      1.45
+++ vc-bzr.el   11 Apr 2008 15:17:57 -0000      1.46
@@ -658,7 +658,7 @@
     (vc-default-dired-state-info 'Bzr file)))
 
 ;; XXX: this needs testing, it's probably incomplete. 
-(defun vc-bzr-after-dir-status (update-function status-buffer)
+(defun vc-bzr-after-dir-status (update-function)
   (let ((status-str nil)
        (file nil)
        (translation '(("+N" . added)
@@ -693,16 +693,16 @@
                       (line-end-position)) 
                      translated) result))
        (forward-line))
-      (funcall update-function result status-buffer)))
+      (funcall update-function result)))
 
 ;; XXX Experimental function for the vc-dired replacement.
 ;; XXX This probably needs some further refinement and testing.
-(defun vc-bzr-dir-status (dir update-function status-buffer)
+(defun vc-bzr-dir-status (dir update-function)
   "Return a list of conses (file . state) for DIR."
   ;; XXX: Is this the right command to use?
   (vc-bzr-command "status" (current-buffer) 'async dir "-v" "-S")
   (vc-exec-after
-   `(vc-bzr-after-dir-status (quote ,update-function) ,status-buffer)))
+   `(vc-bzr-after-dir-status (quote ,update-function))))
 
 ;;; Revision completion