diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 2007-12-28 16:24:31 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 2007-12-28 16:24:31 +0000 |
| commit | 0f67cc71b4047fd71b873a4e73644a097722869c (patch) | |
| tree | c041d8637e21d51ae029fb69c4edb02758a712a3 /lisp/vc-svn.el | |
| parent | 5b7ec6a8137672e5c42527a604897d16ad78cdb6 (diff) | |
| download | emacs-0f67cc71b4047fd71b873a4e73644a097722869c.tar.gz emacs-0f67cc71b4047fd71b873a4e73644a097722869c.tar.bz2 emacs-0f67cc71b4047fd71b873a4e73644a097722869c.zip | |
* vc-cvs.el, vc-svn.el: Simplify backend dired-state-info
functions so they don't do work that the default one can do instead
Diffstat (limited to 'lisp/vc-svn.el')
| -rw-r--r-- | lisp/vc-svn.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index 533a93c380f..7ce1634d45c 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el @@ -179,8 +179,10 @@ If you want to force an empty list of arguments, use t." (cond ((eq svn-state 'edited) (if (equal (vc-working-revision file) "0") "(added)" "(modified)")) - ((eq svn-state 'needs-patch) "(patch)") - ((eq svn-state 'needs-merge) "(merge)")))) + (t + ;; fall back to the default VC representation + (vc-default-dired-state-info 'SVN file))))) + (defun vc-svn-previous-revision (file rev) (let ((newrev (1- (string-to-number rev)))) |