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))))