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

[Stefan Monnier]

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

Index: vc-hg.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-hg.el,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -b -r1.62 -r1.63
--- vc-hg.el    10 Apr 2008 07:34:39 -0000      1.62
+++ vc-hg.el    11 Apr 2008 15:17:58 -0000      1.63
@@ -475,7 +475,7 @@
 (define-derived-mode vc-hg-incoming-mode vc-hg-log-view-mode "Hg-Incoming")
 
 ;; XXX Experimental function for the vc-dired replacement.
-(defun vc-hg-after-dir-status (update-function status-buffer)
+(defun vc-hg-after-dir-status (update-function)
   (let ((status-char nil)
        (file nil)
        (translation '((?= . up-to-date)
@@ -498,13 +498,13 @@
        (when (and translated (not (eq (cdr translated) 'up-to-date)))
          (push (list file (cdr translated)) result))
        (forward-line))
-      (funcall update-function result status-buffer)))
+      (funcall update-function result)))
 
 ;; XXX Experimental function for the vc-dired replacement.
-(defun vc-hg-dir-status (dir update-function status-buffer)
+(defun vc-hg-dir-status (dir update-function)
   (vc-hg-command (current-buffer) 'async dir "status")
   (vc-exec-after
-   `(vc-hg-after-dir-status (quote ,update-function) ,status-buffer)))
+   `(vc-hg-after-dir-status (quote ,update-function))))
 
 ;; XXX this adds another top level menu, instead figure out how to
 ;; replace the Log-View menu.