diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-11 15:59:22 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-11 15:59:22 +0000 |
| commit | b2ee56c9980f73cd90b931c09c1b4894bb8e3164 (patch) | |
| tree | d7ede6eee0b8b8c1e00bce3a80d58dc68c5e8433 /lisp/vc-svn.el | |
| parent | 492d9fd6bce2eba9138d00b8e1e2618ed6f6ea64 (diff) | |
| download | emacs-b2ee56c9980f73cd90b931c09c1b4894bb8e3164.tar.gz | |
(vc-svn-after-dir-status): Complete last change.
Diffstat (limited to 'lisp/vc-svn.el')
| -rw-r--r-- | lisp/vc-svn.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index e9b17d3ea57..5aa1cf7f143 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el @@ -160,14 +160,14 @@ If you want to force an empty list of arguments, use t." (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 @@ If you want to force an empty list of arguments, use t." (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. |