[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/vc-svn.el,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/vc-svn.el,v |
Date: |
Fri, 11 Apr 2008 15:18:11 +0000 |
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'."
- [Emacs-diffs] Changes to emacs/lisp/vc-svn.el,v, Dan Nicolaescu, 2008/04/08
- [Emacs-diffs] Changes to emacs/lisp/vc-svn.el,v, Dan Nicolaescu, 2008/04/10
- [Emacs-diffs] Changes to emacs/lisp/vc-svn.el,v,
Stefan Monnier <=
- [Emacs-diffs] Changes to emacs/lisp/vc-svn.el,v, Stefan Monnier, 2008/04/11
- [Emacs-diffs] Changes to emacs/lisp/vc-svn.el,v, Stefan Monnier, 2008/04/29