mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

* vc-cvs.el, vc-svn.el: Simplify backend dired-state-info

Browse source 
functions so they don't do work that the default one can do instead
This commit is contained in:
Eric S. Raymond 2007-12-28 16:24:31 +00:00
parent 5b7ec6a813
commit 0f67cc71b4
4 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/vc-svn.el
View file

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