Mercurial > emacs
diff lisp/vc-svn.el @ 87449:7477a697d7e1
* 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
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Fri, 28 Dec 2007 16:24:31 +0000 |
parents | c5df210848ca |
children | 71fc7b1db920 |
line wrap: on
line diff
--- a/lisp/vc-svn.el Fri Dec 28 15:00:21 2007 +0000 +++ b/lisp/vc-svn.el Fri Dec 28 16:24:31 2007 +0000 @@ -179,8 +179,10 @@ (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))))